CODICE
ColoreTesto 1 :Scrivi "BARI- CAGLIARI forum IL LOTTO DI SEAN69 "
ColoreTesto 1 :Scrivi "List nonsisa"
Scrivi : ColoreTesto 0
Sub main()
Dim poste(1)
Dim posta(5)
Dim ruote(5)
Dim amb(1)
Dim am(10)
poste(1)=1
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
amb(1)=aa
am(1)=aa
am(2)=aaa
am(3)=b
am(4)=bb
am(5)=bbb
ImpostaGiocata 1,amb,ruote,poste,14
ImpostaGiocata 2,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
CODICE
=================================================================
mar 30.08.2011 [ Ba 24.38.90.31.60 ] [ 90 ] pos. 3
mar 30.08.2011 [ Ca 12.19.79.39.53 ] [ 79 ] pos. 3
figure dei 3^ estr. 09+07-9 = 7
ambata 90- 7= 83
abbinamenti +-1//2 dell'ambata 83= 82 81 84 85
-----------------------------------------------------------------
--ultima estrazione del mese---------------------------
mar 30.08.2011 [8423]
G 1: M 83 Ba Ca 11/14
in corso (11° su 14)
G 2: AT 83.82.81.84.85 Ba Ca 11/14
A 81.82 su Ba 1° colpo [8424/01.09.2011]
in corso (11° su 14)