ColoreTesto 1 :Scrivi "BARI- CAGLIARI forum IL LOTTO DI SEAN69 "
ColoreTesto 1 :Scrivi "List nonsisa"
Scrivi : ColoreTesto 0
Sub main()
Dim posta(5)
Dim ruote(5)
Dim am(10)
posta(2)=1
posta(3)=1
casi=0
fin=EstrazioneFin
ini=EstrazioneFin-900
For es=ini To fin
If Indicemensile(es+1)=1 Then
a=Fuori9(Figura(Estratto(es,1,3))+Figura(Estratto(es,2,3)))
aa=(90-a)
aaa=(aa-1)
b=(aa-2)
bb=Fuori90(aa+1)
bbb=Fuori90(aa+2)
Scrivi String(65,"=")
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(1)&" "&_
StringaEstratti(es,1) &" ] [ "& Format2(Estratto(es,1,3))&" ] pos. 3"
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(2)&" "&_
StringaEstratti(es,2)&" ] [ "& Format2(Estratto(es,2,3))&" ] pos. 3"
Scrivi "figure dei 3^ estr. "& Format2 (Figura(Estratto(es,1,3)))&"+"& Format2 (Figura(Estratto(es,2,3)))& "-9 = "&(a)
Scrivi "ambata 90- "& a&"= "&(aa)
Scrivi "abbinamenti +-1//2 dell'ambata "&aa&"= "&(aaa)&" "& b&" "&(bb)&" "&(bbb)
Scrivi String(65,"-")
ColoreTesto 2 :Scrivi "--ultima estrazione del mese---------------------------",1
ruote(1)=1
ruote(2)=2
am(1)=aa
am(2)=aaa
am(3)=b
am(4)=bb
am(5)=bbb
ImpostaGiocata 1,am,ruote,posta,14
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
End Sub
Function Fuori9(nn)
If nn -(9*Int(nn/9)) = 0 Then Fuori9 = 9 Else Fuori9 =(nn -(9*Int(nn/9)))
End Function
.
Offline
Web