Giulio Pedrinelli
Super member
Ciao a tutti;
Questo metodo mette in gioco su Bari 7 numeri alla 3° Estrazione del mese.
Inizio Estrazione n. 10363
Primo Numero: 1° E - Ba + 86
Secondo Numero: 2° E - Ba +90
Terzo Numero: 3° E - Ba + 86
Quarto Numero: 4° E - Ba + 31
Quinto Numero: 4° E - Ba + 11
Sesto Numero: 5° E - Ba + 60
Settimo Numero: 5° E - Ba + 54
Va fatto il Fuori 90, se vi escono dei numeri ripetuti, fate il +1 del numero ripetuto.
Allego lo script.
Sub main()
Dim rt(1),pt(4),n1(7)
pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0
clp=8
rt(1)=1
ini=10363
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=3 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,1,1) + 86
b=Estratto (es,1,2) + 90
c=Estratto (es,1,3) + 86
d=Estratto (es,1,4) + 31
e=Estratto (es,1,4) + 11
f=Estratto (es,1,5) + 60
g=Estratto (es,1,5) + 54
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
n1(6)=Fuori90 (f+0)
n1(7)=Fuori90 (g+0)
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Fra poco pubblicherò la statistica.
Questo metodo mette in gioco su Bari 7 numeri alla 3° Estrazione del mese.
Inizio Estrazione n. 10363
Primo Numero: 1° E - Ba + 86
Secondo Numero: 2° E - Ba +90
Terzo Numero: 3° E - Ba + 86
Quarto Numero: 4° E - Ba + 31
Quinto Numero: 4° E - Ba + 11
Sesto Numero: 5° E - Ba + 60
Settimo Numero: 5° E - Ba + 54
Va fatto il Fuori 90, se vi escono dei numeri ripetuti, fate il +1 del numero ripetuto.
Allego lo script.
Sub main()
Dim rt(1),pt(4),n1(7)
pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0
clp=8
rt(1)=1
ini=10363
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=3 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,1,1) + 86
b=Estratto (es,1,2) + 90
c=Estratto (es,1,3) + 86
d=Estratto (es,1,4) + 31
e=Estratto (es,1,4) + 11
f=Estratto (es,1,5) + 60
g=Estratto (es,1,5) + 54
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
n1(6)=Fuori90 (f+0)
n1(7)=Fuori90 (g+0)
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Fra poco pubblicherò la statistica.