-
lones.
User deleted
vedi se fa il suo dovere SPOILER (clicca per visualizzare)Sub main()
Dim ruote(2),nu2(3),poste(3)
poste(2)=1:poste(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",200)
k=InputBox ("per quanti colpi?","colpi di gioco",3)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To fin
If Indicemensile(es)=7 Then
x=PrimaMesePRec(es)
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
casi=casi+1:Scrivi String(69,"=")&" by chinonlofa",1
Scrivi "metodo superlotto x lotto69 "
Scrivi String(68,"-")
Scrivi " 5° Estratto su Pa+32 della 3^ mese prec. "&DataEstrazione(x+2)& " [ "&Estratto(x+2,7,5)&" ] + 32 / A "
Scrivi " 5° Estratto su Pa+70 della 3^ mese prec. "&DataEstrazione(x+2)& " [ "&Estratto(x+2,7,5)&" ] + 70 / B "
Scrivi " 4° Estratto su Na+76 della 10^ mese prec. "&DataEstrazione(x+9)& " [ "&Estratto(x+9,6,4)&" ] + 76 / C "
Scrivi String(69,"-")&" caso n° "&(casi)
ruote(1)=11:ruote(2)=12:co=0
a=Fuori90(Estratto(x+2,7,5)+32)
b=Fuori90(Estratto(x+2,7,5)+70)
c=Fuori90(Estratto(x+9,6,4)+ 76)
nu2(1)=a:nu2(2)=b :nu2(3)=c
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub
Function PrimaMesePrec(es)
For x= es To es-25 step-1
If Cadenza(Distanza(Mese(es),Mese(x)))=1 And Indicemensile(x)=1 Then
PrimaMesePrec=x
Exit For
End If
Next
End Function
Edited by sean69 - 11/9/2011, 17:25.