G 1: ATQC 74.76.88.89 Ba Na Ve
1° Estratto di NA +55 +57 +69 +70
questa previsione viene calcolata alla prima estrazione del mese
positivo dal 3/07/07
Allego listato
Sub main()
Dim ruote(10)
Dim numeri(10)
Dim numeri1(10)
Dim posta(5)
posta(2)=1
posta(3)=1
posta(4)=1
posta(5)=1
ruote(1)=1
ruote(2)=6
ruote(3)=10
For es=EstrazioneFin -240 To EstrazioneFin
If Indicemensile(es)=1 Then
numeri(1)=Fuori90(Estratto (es,6,1)+55)
numeri(2)=Fuori90(Estratto(es,6,1)+57)
numeri(3)=Fuori90(Estratto(es,6,1)+69)
numeri(4)=Fuori90(Estratto (es,6,1)+70)
ImpostaGiocata 1,numeri,ruote,posta,12
Gioca es
ColoreTesto 2: Scrivi String (50,"-")& "-<>>",1 : ColoreTesto 0
End If
Next
ScriviResoconto
End Sub
 |
 |
|
quartina sempre a colpo
Spedito - 10 gennaio 2009 : 11:22:56
