Si di ottobre ,forse non ti sei accorto che è stato postato un nuovo script di correzione da Vincenzo57 eccolo
guarda a pg 3 e vedrai che è questo neanche domenico si è accorto ma il nuovo da ancora il 51 comunque io m i sono giocata anche quella col 62
ColoreTesto 2 :Scrivi String(17,32) & " IL COLPO DELLA QUATERNA A NAPOLI by Enzob",1
ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5),amb(4),amb1(4),amb2(4)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1) = 1
poste(2) = 1
poste2(2) = 1
poste2(3) = 1
poste3(2) = 1.20
poste3(3) = 1.40
poste3(4) = .40
'z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",20))
k = CInt(InputBox("Quanti colpi di Gioco?","colpi di Gioco",10))
fin = EstrazioneFin
ini = 10024
For es = ini To fin
If IndiceMensile(es) = 1 Then
Messaggio DataEstrazione(es,1) & " IL COLPO DELLA QUATERNA A NAPOLI by Enzob "
amb(1) = Fuori90(Estratto(es,2,2) + 14)'ambata
amb(2) = Fuori90(Estratto(es,2,4) + 3)'ambo
amb(3) = Fuori90(Estratto(es,6,1) + 2)'terno
amb(4) = Fuori90(Estratto(es,3,5) + 83)'terno
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 3
For y = x + 1 To 4
If amb(X) = amb
Then amb
= Fuori90(amb
+ 1)
Next
Next
Wend
End If
Rem fine formula
amb1(1) = Fuori90(Estratto(es,7,2) + 35)'ambata
amb1(2) = Fuori90(Estratto(es,8,3) + 27)'ambo
amb1(3) = Fuori90(Estratto(es,2,5) + 3)'terno
amb1(4) = Fuori90(Estratto(es,4,4) + 12)'terno
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb1) Then
rip = 1
While NumeriRipetuti(amb1)
For x = 1 To 3
For y = x + 1 To 4
If amb1(X) = amb1
Then amb1
= Fuori90(amb1
+ 1)
Next
Next
Wend
End If
Rem fine formula
amb2(1) = Fuori90(Estratto(es,3,4) + 13)'ambata
amb2(2) = Fuori90(Estratto(es,4,2) + 43)'ambo
amb2(3) = Fuori90(Estratto(es,8,1) + 80)'terno
amb2(4) = Fuori90(Estratto(es,7,5) + 33)'terno
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb2) Then
rip = 1
While NumeriRipetuti(amb2)
For x = 1 To 3
For y = x + 1 To 4
If amb2(X) = amb2
Then amb2
= Fuori90(amb2
+ 1)
Next
Next
Wend
End If
Rem fine formula
casi = casi + 1:Scrivi String(75,"="),1
Scrivi String(65,"-") & " caso n° " &(casi),1
Scrivi
ruota(1) = 6:
ruote(1) = 6:co = 0
am4(1) = amb(1)
am4(2) = amb(2)
am4(3) = amb(3)
am4(4) = amb(4)
ImpostaGiocata 1,am4,ruota,poste3,k
am4(1) = amb1(1)
am4(2) = amb1(2)
am4(3) = amb1(3)
am4(4) = amb1(4)
ImpostaGiocata 2,am4,ruota,poste3,k
am4(1) = amb2(1)
am4(2) = amb2(2)
am4(3) = amb2(3)
am4(4) = amb2(4)
ImpostaGiocata 3,am4,ruota,poste3,k
Gioca es
End If
Next
ScriviResoconto
End Sub