Per mike58

[stefanonet35]

Mi sono permesso di costruire uno script dal metodo "tutti al mare a mostrar le chiappe chiare" di antelao. I calcoli fatti con carta e penna

dell'estrazione del 14 luglio 2012 risultano giusti mentre nel listato solo tre di essi sono corretti. Potresti dirmi dove sbaglio?

Grazie .


STEFANONET35


Sub Main()

'Ruota NZ alla 6° del mese, 4 ambi e 1 cinquina
'ambata:
'figura del 2° di FI + 3° di MI + 6
'abbinamenti x ambo e formare la lunghetta:
'complemento 90 del 3° di GE + 5° di CA + 2
'decina del 2° di PA + 4° di RO + 43
'diametrale in decina del 1° di TO + 3° della NZ + 6
'decina del 4° di TO + cadenza del 4° di TO + 5° di VE +3
'previsione in gioco x 8 colpi:

Sub Main

Dim ruote(1)
Dim numeri(5)
Dim poste(5)
poste (1)=1
poste (2)=1
poste (3)=1
poste (4)=1
poste (5)=1
ruote(1)=12


For n = 8550 To EstrazioneFin
If IndiceMensile=6 Then


numeri(1)=Fuori90(Figura(Estratto(n,3,2)+(Estratto(n,5,3)+6)))
numeri(2)=Fuori90(90-(Estratto(n,4,3))+(Estratto(n,2,5)+ 2))
numeri(3)=Fuori90(Decina(Estratto(n,7,2))+(Estratto(n,8,4)+ 43))
numeri(4)=Fuori90(DiametraleD(Estratto(n,9,1))+(Estratto(n,12,3)+ 6))
numeri(5)=Fuori90(Decina(Estratto(n,9,4))+(Cadenza(Estratto(n,9,4)+(Estratto(n,10,5)+ 3))))
ImpostaGiocata 1,numeri,ruote,poste,8


Gioca n
End If
Next
ScriviResoconto

End Sub

 

[Roby]

Hai sbagliato le posizioni delle parentesi tra gli estratti
Ciao

Sub Main()

'Ruota NZ alla 6° del mese, 4 ambi e 1 cinquina
'ambata:
'figura del 2° di FI + 3° di MI + 6
'abbinamenti x ambo e formare la lunghetta:
'complemento 90 del 3° di GE + 5° di CA + 2
'decina del 2° di PA + 4° di RO + 43
'diametrale in decina del 1° di TO + 3° della NZ + 6
'decina del 4° di TO + cadenza del 4° di TO + 5° di VE +3
'previsione in gioco x 8 colpi:

Dim ruote(1)
Dim numeri(5)
Dim posta(1)
Dim poste(5)
posta (1)=1
poste (2)=1
poste (3)=1
poste (4)=1
poste (5)=1
ruote(1)=12

For n = 8425 To EstrazioneFin
If Indicemensile(n)=6 Then
casi=casi+1
Scrivi String(100,"*")& " caso n° "& Format2(casi),1

numeri(1)=Fuori90(Figura(Estratto(n,3,2))+ Estratto (n,5,3)+6)
numeri(2)=Fuori90(90-(Estratto(n,4,3))+ Estratto(n,2,5)+ 2)
numeri(3)=Fuori90(Decina(Estratto(n,7,2))+ Estratto(n,8,4)+ 43)
numeri(4)=Fuori90(DiametraleD(Estratto(n,9,1))+ Estratto(n,12,3)+ 6)
numeri(5)=Fuori90(Decina(Estratto(n,9,4))+(Cadenza(Estratto(n,9,4)))+ Estratto(n,10,5)+ 3)
ImpostaGiocata 1,numeri,ruote,poste,8

Gioca n
End If
Next
ScriviResoconto

End Sub

 

[stefanonet35]

Hai sbagliato le posizioni delle parentesi tra gli estratti
Ciao

Sub Main()

'Ruota NZ alla 6° del mese, 4 ambi e 1 cinquina
'ambata:
'figura del 2° di FI + 3° di MI + 6
'abbinamenti x ambo e formare la lunghetta:
'complemento 90 del 3° di GE + 5° di CA + 2
'decina del 2° di PA + 4° di RO + 43
'diametrale in decina del 1° di TO + 3° della NZ + 6
'decina del 4° di TO + cadenza del 4° di TO + 5° di VE +3
'previsione in gioco x 8 colpi:

Dim ruote(1)
Dim numeri(5)
Dim posta(1)
Dim poste(5)
posta (1)=1
poste (2)=1
poste (3)=1
poste (4)=1
poste (5)=1
ruote(1)=12

For n = 8425 To EstrazioneFin
If Indicemensile(n)=6 Then
casi=casi+1
Scrivi String(100,"*")& " caso n° "& Format2(casi),1

numeri(1)=Fuori90(Figura(Estratto(n,3,2))+ Estratto (n,5,3)+6)
numeri(2)=Fuori90(90-(Estratto(n,4,3))+ Estratto(n,2,5)+ 2)
numeri(3)=Fuori90(Decina(Estratto(n,7,2))+ Estratto(n,8,4)+ 43)
numeri(4)=Fuori90(DiametraleD(Estratto(n,9,1))+ Estratto(n,12,3)+ 6)
numeri(5)=Fuori90(Decina(Estratto(n,9,4))+(Cadenza(Estratto(n,9,4)))+ Estratto(n,10,5)+ 3)
ImpostaGiocata 1,numeri,ruote,poste,8

Gioca n
End If
Next
ScriviResoconto

End Sub

Ti ringrazio tantissimo

 

[stefanonet35]

ti ringrazio tantissimo BLAK

STEFANONET35