Novità

Aiuto x modifica script

irepi

Junior Member
Buonasera a tutti, chiedo ancora il vostro aiuto ringraziando anticipatamente, premetto non sono esperta ne di lotto ne di script, sto cercando di capire gli script e spero un giorno di riuscire a farne qualcuno, per x ora sto provando con le modifiche. ora il mio problema e' questo: uno script sommativo indice mensile ultima del mese da le stesse previsioni tutti i mesi come posso modificare xke le previsioni siano esatte?
 
prova questo listato fatto da Danilo

Sub Main()
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
es = InputBox("Inserisci 0 ultima, 1 prima, ....",,0)
nmc = InputBox("Numero mesi:",,61)
perc = InputBox("Percentuale esiti(50-100):",,50)
ncg = InputBox("Numero colpi di gioco",,10)
ultest = 8693 ' da aggiornare ogni fine mese
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
' questa sotto deve essere una unica riga riga
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
' fine della riga sopra
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
r2 = eval(InputBox("Ruota r2",,1))
'For r2=1 To 1
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + "° estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo:"
Else
s = s + ncg + " colpi:"
End If
End If
Scrivi s
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin)
For r = 1 To 10
z = 0
For i = 1 To 5
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
For i = 1 To 5
estr(i) = 0
Next
valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
z = z + 1
For i = 1 To 5
estr(i) = Estratto(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
k2 = eval(ncg)
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
k = Estratto(nv,r2,j) - estr(i)
While k <= 0
k = k + 90
Wend
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1
Val(i,k) = False
End If
Next
Next
Next
End If
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su "
s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z))
s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
If(Val(i,j) = True) Then s = s + " in corso" Else s = s + " out" End If
If som(i,j) >= zz Then
Scrivi s
amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
End If
Next
Next
Next
For i = 1 To 90
If(amb(i) > 1) Then Scrivi CStr(eval(i)) + ": previsto da " + CStr(eval(amb(i))) + " sistemi"
Next
'Next
End Sub
 
Grazie rossoenero8 per la tua disponibilita', vorrei capire quali campi devo modificare nello script ho provato a modificare
 
Grazie Black, ti seguo da anni anke se non intervengo sei bravissimo, e' uno script di Marco e sono un po in difficolta a postarlo per i pasticci ke sicuramente ci sono xke nn sono esperta sto provando a capirci qualcosa e non mi aspettavo la tua attenzione grazie ancora. ke faccio lo posto?
 
Codice:
Sub Main()
ColoreTesto 1
Scrivi
Scrivi "70 quartine ult.mese su statistiche ruota di bari",1
Scrivi
Scrivi
Scrivi " da METODO 3 cinq.su ca ult mese LIST BY Marco",1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim nn1(5) : Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5) : Dim nn6(5) : Dim nn7(5) : Dim nn8(5) : Dim nn9(5) : Dim nn10(5) :
Dim nn11(5) : Dim nn12(5) : Dim nn13(5) : Dim nn14(5) : Dim nn15(5) : Dim nn16(5) : Dim nn17(5) : Dim nn18(5) : Dim nn19(5) : Dim nn20(5) :
Dim nn21(5) : Dim nn22(5) : Dim nn23(5) : Dim nn24(5) : Dim nn25(5) : Dim nn26(5) : Dim nn27(5) : Dim nn28(5) : Dim nn29(5) : Dim nn30(5) :
Dim nn31(5) : Dim nn32(5) : Dim nn33(5) : Dim nn34(5) : Dim nn35(5) : Dim nn36(5) :Dim nn37(5) : Dim nn38(5) : Dim nn39(5) : Dim nn40(5) :
Dim nn41(5) : Dim nn42(5) : Dim nn43(5) : Dim nn44(5) : Dim nn45(5) : Dim nn46(5) :Dim nn47(5) : Dim nn48(5) : Dim nn49(5) : Dim nn50(5) :
Dim nn51(5) : Dim nn52(5) : Dim nn53(5) : Dim nn54(5) : Dim nn55(5) : Dim nn56(5) :Dim nn57(5) : Dim nn58(5) : Dim nn59(5) : Dim nn60(5) :
Dim nn61(5) : Dim nn62(5) : Dim nn63(5) : Dim nn64(5) : Dim nn65(5) : Dim nn66(5) :Dim nn67(5) : Dim nn68(5) : Dim nn69(5) : Dim nn70(5)
Dim poste(5)
'poste(1) = 1
poste(2) = 1
poste(3) = 0.9
poste(4) = 0.1
klp = 10
ini = 8683
fin = EstrazioneFin
co = 0
For es = ini To fin
If IsUltimaDelMese(es) Then
ruote(1) = 12
casi = casi + 1
co = co + 1
Call Scrivi(String(79,"*") & " Caso n°" & Format2(casi) & " ",- 1,,,1,3)
Call Scrivi(DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1 - 1,,,2,4)
nn1(1) = Fuori90(Estratto(n,1,1) + 36) '1
nn1(2) = Fuori90(Estratto(n,1,1) + 72)
nn1(3) = Fuori90(Estratto(n,1,1) + 78)
nn1(4) = Fuori90(Estratto(n,1,2) + 10)
ImpostaGiocata 1,nn1,ruote,poste,klp
nn2(1) = Fuori90(Estratto(n,1,2) + 33) '2
nn2(2) = Fuori90(Estratto(n,1,2) + 55)
nn2(3) = Fuori90(Estratto(n,1,3) + 28)
nn2(4) = Fuori90(Estratto(n,1,3) + 30)
ImpostaGiocata 2,nn2,ruote,poste,klp
nn3(1) = Fuori90(Estratto(n,1,4) + 23) '3
nn3(2) = Fuori90(Estratto(n,1,4) + 41)
nn3(3) = Fuori90(Estratto(n,1,4) + 54)
nn3(4) = Fuori90(Estratto(n,1,5) + 9)
ImpostaGiocata 3,nn3,ruote,poste,klp
nn4(1) = Fuori90(Estratto(n,1,5) + 25) '4
nn4(2) = Fuori90(Estratto(n,1,5) + 46)
nn4(3) = Fuori90(Estratto(n,2,1) + 62)
nn4(4) = Fuori90(Estratto(n,2,1) + 72)
ImpostaGiocata 4,nn4,ruote,poste,klp
nn5(1) = Fuori90(Estratto(n,2,2) + 20) '5
nn5(2) = Fuori90(Estratto(n,2,2) + 72)
nn5(3) = Fuori90(Estratto(n,2,2) + 76)
nn5(4) = Fuori90(Estratto(n,2,2) + 86)
ImpostaGiocata 5,nn5,ruote,poste,klp
nn6(1) = Fuori90(Estratto(n,2,2) + 89) '6
nn6(2) = Fuori90(Estratto(n,2,3) + 6)
nn6(3) = Fuori90(Estratto(n,2,3) + 46)
nn6(4) = Fuori90(Estratto(n,2,3) + 80)
ImpostaGiocata 6,nn6,ruote,poste,klp
nn7(1) = Fuori90(Estratto(n,2,4) + 1) '7
nn7(2) = Fuori90(Estratto(n,2,4) + 2)
nn7(3) = Fuori90(Estratto(n,2,4) + 69)
nn7(4) = Fuori90(Estratto(n,2,5) + 6)
ImpostaGiocata 7,nn7,ruote,poste,klp
nn8(1) = Fuori90(Estratto(n,2,5) + 14) '8
nn8(2) = Fuori90(Estratto(n,2,5) + 24)
nn8(3) = Fuori90(Estratto(n,2,5) + 41)
nn8(4) = Fuori90(Estratto(n,2,5) + 79)
ImpostaGiocata 8,nn8,ruote,poste,klp
nn9(1) = Fuori90(Estratto(n,3,1) + 9) '9
nn9(2) = Fuori90(Estratto(n,3,1) + 27)
nn9(3) = Fuori90(Estratto(n,3,1) + 89)
nn9(4) = Fuori90(Estratto(n,3,2) + 51)
ImpostaGiocata 9,nn9,ruote,poste,klp
nn10(1) = Fuori90(Estratto(n,3,2) + 80) '10
nn10(2) = Fuori90(Estratto(n,3,3) + 61)
nn10(3) = Fuori90(Estratto(n,3,4) + 8)
nn10(4) = Fuori90(Estratto(n,3,4) + 64)
ImpostaGiocata 10,nn10,ruote,poste,klp
nn11(1) = Fuori90(Estratto(n,3,4) + 76) '11
nn11(2) = Fuori90(Estratto(n,3,4) + 81)
nn11(3) = Fuori90(Estratto(n,3,5) + 37)
nn11(4) = Fuori90(Estratto(n,3,5) + 70)
ImpostaGiocata 11,nn11,ruote,poste,klp
nn12(1) = Fuori90(Estratto(n,4,1) + 49) '12
nn12(2) = Fuori90(Estratto(n,4,1) + 73)
nn12(3) = Fuori90(Estratto(n,4,1) + 75)
nn12(4) = Fuori90(Estratto(n,4,1) + 89)
ImpostaGiocata 12,nn12,ruote,poste,klp
nn13(1) = Fuori90(Estratto(n,4,2) + 2) '13
nn13(2) = Fuori90(Estratto(n,4,2) + 4)
nn13(3) = Fuori90(Estratto(n,4,2) + 74)
nn13(4) = Fuori90(Estratto(n,4,3) + 71)
ImpostaGiocata 13,nn13,ruote,poste,klp
nn14(1) = Fuori90(Estratto(n,4,4) + 62) '14
nn14(2) = Fuori90(Estratto(n,4,5) + 76)
nn14(3) = Fuori90(Estratto(n,5,1) + 10)
nn14(4) = Fuori90(Estratto(n,5,1) + 39)
ImpostaGiocata 14,nn14,ruote,poste,klp
nn15(1) = Fuori90(Estratto(n,5,2) + 1) '15
nn15(2) = Fuori90(Estratto(n,5,2) + 81)
nn15(3) = Fuori90(Estratto(n,5,3) + 1)
nn15(4) = Fuori90(Estratto(n,5,3) + 2)
ImpostaGiocata 15,nn15,ruote,poste,klp
nn16(1) = Fuori90(Estratto(n,5,3) + 44) '16
nn16(2) = Fuori90(Estratto(n,5,3) + 47)
nn16(3) = Fuori90(Estratto(n,5,3) + 68)
nn16(4) = Fuori90(Estratto(n,5,4) + 2)
ImpostaGiocata 16,nn16,ruote,poste,klp
nn17(1) = Fuori90(Estratto(n,5,4) + 24) '17
nn17(2) = Fuori90(Estratto(n,5,4) + 38)
nn17(3) = Fuori90(Estratto(n,5,4) + 39)
nn17(4) = Fuori90(Estratto(n,5,4) + 48)
ImpostaGiocata 17,nn17,ruote,poste,klp
nn18(1) = Fuori90(Estratto(n,5,4) + 67) '18
nn18(2) = Fuori90(Estratto(n,5,4) + 88)
nn18(3) = Fuori90(Estratto(n,5,5) + 30)
nn18(4) = Fuori90(Estratto(n,5,5) + 51)
ImpostaGiocata 18,nn18,ruote,poste,klp
nn19(1) = Fuori90(Estratto(n,6,1) + 25) '19
nn19(2) = Fuori90(Estratto(n,6,1) + 26)
nn19(3) = Fuori90(Estratto(n,6,1) + 41)
nn19(4) = Fuori90(Estratto(n,6,1) + 42)
ImpostaGiocata 19,nn19,ruote,poste,klp
nn20(1) = Fuori90(Estratto(n,6,1) + 60) '20
nn20(2) = Fuori90(Estratto(n,6,1) + 64)
nn20(3) = Fuori90(Estratto(n,6,1) + 69)
nn20(4) = Fuori90(Estratto(n,6,1) + 77)
ImpostaGiocata 20,nn20,ruote,poste,klp
nn21(1) = Fuori90(Estratto(n,6,2) + 33) '21
nn21(2) = Fuori90(Estratto(n,6,2) + 75)
nn21(3) = Fuori90(Estratto(n,6,2) + 90)
nn21(4) = Fuori90(Estratto(n,6,3) + 2)
ImpostaGiocata 21,nn21,ruote,poste,klp
nn22(1) = Fuori90(Estratto(n,6,3) + 46) '22
nn22(2) = Fuori90(Estratto(n,6,3) + 72)
nn22(3) = Fuori90(Estratto(n,6,3) + 90)
nn22(4) = Fuori90(Estratto(n,6,4) + 4)
ImpostaGiocata 22,nn22,ruote,poste,klp
nn23(1) = Fuori90(Estratto(n,6,4) + 20) '23
nn23(2) = Fuori90(Estratto(n,6,4) + 43)
nn23(3) = Fuori90(Estratto(n,6,4) + 75)
nn23(4) = Fuori90(Estratto(n,6,5) + 22)
ImpostaGiocata 23,nn23,ruote,poste,klp
nn24(1) = Fuori90(Estratto(n,6,5) + 40) '24
nn24(2) = Fuori90(Estratto(n,6,5) + 51)
nn24(3) = Fuori90(Estratto(n,7,1) + 44)
nn24(4) = Fuori90(Estratto(n,7,1) + 53)
ImpostaGiocata 24,nn24,ruote,poste,klp
nn25(1) = Fuori90(Estratto(n,7,1) + 57) '25
nn25(2) = Fuori90(Estratto(n,7,2) + 60)
nn25(3) = Fuori90(Estratto(n,7,2) + 87)
nn25(4) = Fuori90(Estratto(n,7,3) + 48)
ImpostaGiocata 25,nn25,ruote,poste,klp
nn26(1) = Fuori90(Estratto(n,7,4) + 46) '26
nn26(2) = Fuori90(Estratto(n,7,4) + 68)
nn26(3) = Fuori90(Estratto(n,7,4) + 74)
nn26(4) = Fuori90(Estratto(n,7,5) + 3)
ImpostaGiocata ng,numeri1,ruote,poste,klp
nn27(1) = Fuori90(Estratto(n,7,5) + 7) '27
nn27(2) = Fuori90(Estratto(n,7,5) + 79)
nn27(3) = Fuori90(Estratto(n,8,1) + 2)
nn27(4) = Fuori90(Estratto(n,8,1) + 50)
ImpostaGiocata 27,nn27,ruote,poste,klp
nn28(1) = Fuori90(Estratto(n,8,1) + 71) '28
nn28(2) = Fuori90(Estratto(n,8,1) + 86)
nn28(3) = Fuori90(Estratto(n,8,2) + 42)
nn28(4) = Fuori90(Estratto(n,8,2) + 63)
ImpostaGiocata 28,nn28,ruote,poste,k,y
nn29(1) = Fuori90(Estratto(n,8,3) + 11) '29
nn29(2) = Fuori90(Estratto(n,8,3) + 26)
nn29(3) = Fuori90(Estratto(n,8,3) + 68)
nn29(4) = Fuori90(Estratto(n,8,3) + 79)
ImpostaGiocata 29,nn29,ruote,poste,klp
nn30(1) = Fuori90(Estratto(n,8,4) + 6) '30
nn30(2) = Fuori90(Estratto(n,8,4) + 27)
nn30(3) = Fuori90(Estratto(n,8,4) + 34)
nn30(4) = Fuori90(Estratto(n,8,4) + 48)
ImpostaGiocata 30,nn30,ruote,poste,klp
nn31(1) = Fuori90(Estratto(n,8,4) + 52) '31
nn31(2) = Fuori90(Estratto(n,8,5) + 7)
nn31(3) = Fuori90(Estratto(n,8,5) + 61)
nn31(4) = Fuori90(Estratto(n,8,5) + 84)
ImpostaGiocata 31,nn31,ruote,poste,klp
nn32(1) = Fuori90(Estratto(n,9,1) + 22) '32
nn32(2) = Fuori90(Estratto(n,9,1) + 48)
nn32(3) = Fuori90(Estratto(n,9,1) + 50)
nn32(4) = Fuori90(Estratto(n,9,1) + 86)
ImpostaGiocata 32,nn32,ruote,poste,klp
nn33(1) = Fuori90(Estratto(n,9,2) + 34) '33
nn33(2) = Fuori90(Estratto(n,9,2) + 54)
nn33(3) = Fuori90(Estratto(n,9,2) + 65)
nn33(4) = Fuori90(Estratto(n,9,2) + 89)
ImpostaGiocata 33,nn33,ruote,poste,klp
nn34(1) = Fuori90(Estratto(n,9,3) + 7) '34
nn34(2) = Fuori90(Estratto(n,9,3) + 67)
nn34(3) = Fuori90(Estratto(n,9,4) + 29)
nn34(4) = Fuori90(Estratto(n,9,4) + 52)
ImpostaGiocata 34,nn34,ruote,poste,klp
nn35(1) = Fuori90(Estratto(n,9,4) + 68) '35
nn35(2) = Fuori90(Estratto(n,10,1) + 14)
nn35(3) = Fuori90(Estratto(n,10,1) + 23)
nn35(4) = Fuori90(Estratto(n,10,1) + 40)
ImpostaGiocata 35,nn35,ruote,poste,klp
nn36(1) = Fuori90(Estratto(n,10,1) + 48) '36
nn36(2) = Fuori90(Estratto(n,10,1) + 63)
nn36(3) = Fuori90(Estratto(n,10,2) + 15)
nn36(4) = Fuori90(Estratto(n,10,2) + 57)
ImpostaGiocata 36,nn36,ruote,poste,klp
nn37(1) = Fuori90(Estratto(n,10,3) + 30) '37
nn37(2) = Fuori90(Estratto(n,10,4) + 50)
nn37(3) = Fuori90(Estratto(n,10,4) + 51)
nn37(4) = Fuori90(Estratto(n,10,4) + 90)
ImpostaGiocata 37,nn37,ruote,poste,klp
nn38(1) = Fuori90(Estratto(n,10,5) + 7) '38
nn38(2) = Fuori90(Estratto(n,10,5) + 87)
nn38(3) = Fuori90(Estratto(n,12,5) + 27)
nn38(4) = Fuori90(Estratto(n,10,5) + 83)
ImpostaGiocata 38,nn38,ruote,poste,klp
nn39(1) = Fuori90(Estratto(n,12,1) + 74) '39
nn39(2) = Fuori90(Estratto(n,12,1) + 84)
nn39(3) = Fuori90(Estratto(n,12,2) + 20)
nn39(4) = Fuori90(Estratto(n,12,2) + 52)
ImpostaGiocata 39,nn39,ruote,poste,klp
nn40(1) = Fuori90(Estratto(n,12,2) + 88) '40
nn40(2) = Fuori90(Estratto(n,12,4) + 11)
nn40(3) = Fuori90(Estratto(n,12,4) + 53)
nn40(4) = Fuori90(Estratto(n,12,5) + 1)
ImpostaGiocata 40,nn40,ruote,poste,klp
nn41(1) = Fuori90(Estratto(n,12,5) + 11) '41
nn41(2) = Fuori90(Estratto(n,12,5) + 14)
nn41(3) = Fuori90(Estratto(n,12,5) + 36)
nn41(4) = Fuori90(Estratto(n,12,5) + 41) 'aggiornato sino a qui gli altri ambi ke seguono non vengono considerati
ImpostaGiocata 41,nn41,ruote,poste,klp
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '42
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '43
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '44
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '45
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '46
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '47
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '48
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '49
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '50
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '51
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '52
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '53
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '54
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '55
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '56
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '57
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '58
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '59
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '60
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '61
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '62
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '63
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '64
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '65
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '66
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '67
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '68
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '69
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
'numeri1(1) = Fuori90(Estratto(n,4,2) + 29) '70
'numeri1(2) = Fuori90(Estratto(n,4,2) + 31)
'numeri1(3) = Fuori90(Estratto(n,12,1) + 63)
'numeri1(4) = Fuori90(Estratto(n,6,5) + 61)
'EliminaRipetuti numeri1
'ng = ng + 1
'ImpostaGiocata ng,numeri1,ruote,poste,k,y
Gioca es,1
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Call Scrivi("==========================================",- 1,,,1,2)
Call Scrivi("Casi Rilevati " & CInt(casi) & " ",- 1,,,2,2)
Call ScriviResoconto(,False)
End Sub
 
C'era la giocata e l'indice mensile sbagliati...

Codice:
Sub Main()
	ColoreTesto 1
	Scrivi
	Scrivi "70 quartine ult.mese su statistiche ruota di bari",1
	Scrivi
	Scrivi
	Scrivi " da METODO 3 cinq.su ca ult mese LIST BY Marco",1
	Scrivi
	ColoreTesto 0
	Dim ruote(10)
	Dim nn1(5) : Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5) : Dim nn6(5) : Dim nn7(5) : Dim nn8(5) : Dim nn9(5) : Dim nn10(5) :
	Dim nn11(5) : Dim nn12(5) : Dim nn13(5) : Dim nn14(5) : Dim nn15(5) : Dim nn16(5) : Dim nn17(5) : Dim nn18(5) : Dim nn19(5) : Dim nn20(5) :
	Dim nn21(5) : Dim nn22(5) : Dim nn23(5) : Dim nn24(5) : Dim nn25(5) : Dim nn26(5) : Dim nn27(5) : Dim nn28(5) : Dim nn29(5) : Dim nn30(5) :
	Dim nn31(5) : Dim nn32(5) : Dim nn33(5) : Dim nn34(5) : Dim nn35(5) : Dim nn36(5) :Dim nn37(5) : Dim nn38(5) : Dim nn39(5) : Dim nn40(5) :
	Dim nn41(5) : Dim nn42(5) : Dim nn43(5) : Dim nn44(5) : Dim nn45(5) : Dim nn46(5) :Dim nn47(5) : Dim nn48(5) : Dim nn49(5) : Dim nn50(5) :
	Dim nn51(5) : Dim nn52(5) : Dim nn53(5) : Dim nn54(5) : Dim nn55(5) : Dim nn56(5) :Dim nn57(5) : Dim nn58(5) : Dim nn59(5) : Dim nn60(5) :
	Dim nn61(5) : Dim nn62(5) : Dim nn63(5) : Dim nn64(5) : Dim nn65(5) : Dim nn66(5) :Dim nn67(5) : Dim nn68(5) : Dim nn69(5) : Dim nn70(5)
	Dim poste(5)
	'poste(1) = 1
	poste(2) = 1
	poste(3) = 0.9
	poste(4) = 0.1
	klp = 10
	ini = 8683
	fin = EstrazioneFin
	For n = ini To fin
		Call AvanzamentoElab(Ini,fin,n)
		If IsUltimaDelMese(n) Then
			ruote(1) = 12
			casi = casi + 1
			Call Scrivi(String(79,"*") & " Caso n°" & Format2(casi) & " ",- 1,,,1,3)
			Call Scrivi(DataEstrazione(n) & "--->" & IndiceMensile(n) & "° Estrazione Mensile",1 - 1,,,2,4)
			nn1(1) = Fuori90(Estratto(n,1,1) + 36) '1
			nn1(2) = Fuori90(Estratto(n,1,1) + 72)
			nn1(3) = Fuori90(Estratto(n,1,1) + 78)
			nn1(4) = Fuori90(Estratto(n,1,2) + 10)
			ImpostaGiocata 1,nn1,ruote,poste,klp
			nn2(1) = Fuori90(Estratto(n,1,2) + 33) '2
			nn2(2) = Fuori90(Estratto(n,1,2) + 55)
			nn2(3) = Fuori90(Estratto(n,1,3) + 28)
			nn2(4) = Fuori90(Estratto(n,1,3) + 30)
			ImpostaGiocata 2,nn2,ruote,poste,klp
			nn3(1) = Fuori90(Estratto(n,1,4) + 23) '3
			nn3(2) = Fuori90(Estratto(n,1,4) + 41)
			nn3(3) = Fuori90(Estratto(n,1,4) + 54)
			nn3(4) = Fuori90(Estratto(n,1,5) + 9)
			ImpostaGiocata 3,nn3,ruote,poste,klp
			nn4(1) = Fuori90(Estratto(n,1,5) + 25) '4
			nn4(2) = Fuori90(Estratto(n,1,5) + 46)
			nn4(3) = Fuori90(Estratto(n,2,1) + 62)
			nn4(4) = Fuori90(Estratto(n,2,1) + 72)
			ImpostaGiocata 4,nn4,ruote,poste,klp
			nn5(1) = Fuori90(Estratto(n,2,2) + 20) '5
			nn5(2) = Fuori90(Estratto(n,2,2) + 72)
			nn5(3) = Fuori90(Estratto(n,2,2) + 76)
			nn5(4) = Fuori90(Estratto(n,2,2) + 86)
			ImpostaGiocata 5,nn5,ruote,poste,klp
			nn6(1) = Fuori90(Estratto(n,2,2) + 89) '6
			nn6(2) = Fuori90(Estratto(n,2,3) + 6)
			nn6(3) = Fuori90(Estratto(n,2,3) + 46)
			nn6(4) = Fuori90(Estratto(n,2,3) + 80)
			ImpostaGiocata 6,nn6,ruote,poste,klp
			nn7(1) = Fuori90(Estratto(n,2,4) + 1) '7
			nn7(2) = Fuori90(Estratto(n,2,4) + 2)
			nn7(3) = Fuori90(Estratto(n,2,4) + 69)
			nn7(4) = Fuori90(Estratto(n,2,5) + 6)
			ImpostaGiocata 7,nn7,ruote,poste,klp
			nn8(1) = Fuori90(Estratto(n,2,5) + 14) '8
			nn8(2) = Fuori90(Estratto(n,2,5) + 24)
			nn8(3) = Fuori90(Estratto(n,2,5) + 41)
			nn8(4) = Fuori90(Estratto(n,2,5) + 79)
			ImpostaGiocata 8,nn8,ruote,poste,klp
			nn9(1) = Fuori90(Estratto(n,3,1) + 9) '9
			nn9(2) = Fuori90(Estratto(n,3,1) + 27)
			nn9(3) = Fuori90(Estratto(n,3,1) + 89)
			nn9(4) = Fuori90(Estratto(n,3,2) + 51)
			ImpostaGiocata 9,nn9,ruote,poste,klp
			nn10(1) = Fuori90(Estratto(n,3,2) + 80) '10
			nn10(2) = Fuori90(Estratto(n,3,3) + 61)
			nn10(3) = Fuori90(Estratto(n,3,4) + 8)
			nn10(4) = Fuori90(Estratto(n,3,4) + 64)
			ImpostaGiocata 10,nn10,ruote,poste,klp
			nn11(1) = Fuori90(Estratto(n,3,4) + 76) '11
			nn11(2) = Fuori90(Estratto(n,3,4) + 81)
			nn11(3) = Fuori90(Estratto(n,3,5) + 37)
			nn11(4) = Fuori90(Estratto(n,3,5) + 70)
			ImpostaGiocata 11,nn11,ruote,poste,klp
			nn12(1) = Fuori90(Estratto(n,4,1) + 49) '12
			nn12(2) = Fuori90(Estratto(n,4,1) + 73)
			nn12(3) = Fuori90(Estratto(n,4,1) + 75)
			nn12(4) = Fuori90(Estratto(n,4,1) + 89)
			ImpostaGiocata 12,nn12,ruote,poste,klp
			nn13(1) = Fuori90(Estratto(n,4,2) + 2) '13
			nn13(2) = Fuori90(Estratto(n,4,2) + 4)
			nn13(3) = Fuori90(Estratto(n,4,2) + 74)
			nn13(4) = Fuori90(Estratto(n,4,3) + 71)
			ImpostaGiocata 13,nn13,ruote,poste,klp
			nn14(1) = Fuori90(Estratto(n,4,4) + 62) '14
			nn14(2) = Fuori90(Estratto(n,4,5) + 76)
			nn14(3) = Fuori90(Estratto(n,5,1) + 10)
			nn14(4) = Fuori90(Estratto(n,5,1) + 39)
			ImpostaGiocata 14,nn14,ruote,poste,klp
			nn15(1) = Fuori90(Estratto(n,5,2) + 1) '15
			nn15(2) = Fuori90(Estratto(n,5,2) + 81)
			nn15(3) = Fuori90(Estratto(n,5,3) + 1)
			nn15(4) = Fuori90(Estratto(n,5,3) + 2)
			ImpostaGiocata 15,nn15,ruote,poste,klp
			nn16(1) = Fuori90(Estratto(n,5,3) + 44) '16
			nn16(2) = Fuori90(Estratto(n,5,3) + 47)
			nn16(3) = Fuori90(Estratto(n,5,3) + 68)
			nn16(4) = Fuori90(Estratto(n,5,4) + 2)
			ImpostaGiocata 16,nn16,ruote,poste,klp
			nn17(1) = Fuori90(Estratto(n,5,4) + 24) '17
			nn17(2) = Fuori90(Estratto(n,5,4) + 38)
			nn17(3) = Fuori90(Estratto(n,5,4) + 39)
			nn17(4) = Fuori90(Estratto(n,5,4) + 48)
			ImpostaGiocata 17,nn17,ruote,poste,klp
			nn18(1) = Fuori90(Estratto(n,5,4) + 67) '18
			nn18(2) = Fuori90(Estratto(n,5,4) + 88)
			nn18(3) = Fuori90(Estratto(n,5,5) + 30)
			nn18(4) = Fuori90(Estratto(n,5,5) + 51)
			ImpostaGiocata 18,nn18,ruote,poste,klp
			nn19(1) = Fuori90(Estratto(n,6,1) + 25) '19
			nn19(2) = Fuori90(Estratto(n,6,1) + 26)
			nn19(3) = Fuori90(Estratto(n,6,1) + 41)
			nn19(4) = Fuori90(Estratto(n,6,1) + 42)
			ImpostaGiocata 19,nn19,ruote,poste,klp
			nn20(1) = Fuori90(Estratto(n,6,1) + 60) '20
			nn20(2) = Fuori90(Estratto(n,6,1) + 64)
			nn20(3) = Fuori90(Estratto(n,6,1) + 69)
			nn20(4) = Fuori90(Estratto(n,6,1) + 77)
			ImpostaGiocata 20,nn20,ruote,poste,klp
			nn21(1) = Fuori90(Estratto(n,6,2) + 33) '21
			nn21(2) = Fuori90(Estratto(n,6,2) + 75)
			nn21(3) = Fuori90(Estratto(n,6,2) + 90)
			nn21(4) = Fuori90(Estratto(n,6,3) + 2)
			ImpostaGiocata 21,nn21,ruote,poste,klp
			nn22(1) = Fuori90(Estratto(n,6,3) + 46) '22
			nn22(2) = Fuori90(Estratto(n,6,3) + 72)
			nn22(3) = Fuori90(Estratto(n,6,3) + 90)
			nn22(4) = Fuori90(Estratto(n,6,4) + 4)
			ImpostaGiocata 22,nn22,ruote,poste,klp
			nn23(1) = Fuori90(Estratto(n,6,4) + 20) '23
			nn23(2) = Fuori90(Estratto(n,6,4) + 43)
			nn23(3) = Fuori90(Estratto(n,6,4) + 75)
			nn23(4) = Fuori90(Estratto(n,6,5) + 22)
			ImpostaGiocata 23,nn23,ruote,poste,klp
			nn24(1) = Fuori90(Estratto(n,6,5) + 40) '24
			nn24(2) = Fuori90(Estratto(n,6,5) + 51)
			nn24(3) = Fuori90(Estratto(n,7,1) + 44)
			nn24(4) = Fuori90(Estratto(n,7,1) + 53)
			ImpostaGiocata 24,nn24,ruote,poste,klp
			nn25(1) = Fuori90(Estratto(n,7,1) + 57) '25
			nn25(2) = Fuori90(Estratto(n,7,2) + 60)
			nn25(3) = Fuori90(Estratto(n,7,2) + 87)
			nn25(4) = Fuori90(Estratto(n,7,3) + 48)
			ImpostaGiocata 25,nn25,ruote,poste,klp
			nn26(1) = Fuori90(Estratto(n,7,4) + 46) '26
			nn26(2) = Fuori90(Estratto(n,7,4) + 68)
			nn26(3) = Fuori90(Estratto(n,7,4) + 74)
			nn26(4) = Fuori90(Estratto(n,7,5) + 3)
			ImpostaGiocata ng,numeri1,ruote,poste,klp
			nn27(1) = Fuori90(Estratto(n,7,5) + 7) '27
			nn27(2) = Fuori90(Estratto(n,7,5) + 79)
			nn27(3) = Fuori90(Estratto(n,8,1) + 2)
			nn27(4) = Fuori90(Estratto(n,8,1) + 50)
			ImpostaGiocata 27,nn27,ruote,poste,klp
			nn28(1) = Fuori90(Estratto(n,8,1) + 71) '28
			nn28(2) = Fuori90(Estratto(n,8,1) + 86)
			nn28(3) = Fuori90(Estratto(n,8,2) + 42)
			nn28(4) = Fuori90(Estratto(n,8,2) + 63)
			ImpostaGiocata 28,nn28,ruote,poste,k,y
			nn29(1) = Fuori90(Estratto(n,8,3) + 11) '29
			nn29(2) = Fuori90(Estratto(n,8,3) + 26)
			nn29(3) = Fuori90(Estratto(n,8,3) + 68)
			nn29(4) = Fuori90(Estratto(n,8,3) + 79)
			ImpostaGiocata 29,nn29,ruote,poste,klp
			nn30(1) = Fuori90(Estratto(n,8,4) + 6) '30
			nn30(2) = Fuori90(Estratto(n,8,4) + 27)
			nn30(3) = Fuori90(Estratto(n,8,4) + 34)
			nn30(4) = Fuori90(Estratto(n,8,4) + 48)
			ImpostaGiocata 30,nn30,ruote,poste,klp
			nn31(1) = Fuori90(Estratto(n,8,4) + 52) '31
			nn31(2) = Fuori90(Estratto(n,8,5) + 7)
			nn31(3) = Fuori90(Estratto(n,8,5) + 61)
			nn31(4) = Fuori90(Estratto(n,8,5) + 84)
			ImpostaGiocata 31,nn31,ruote,poste,klp
			nn32(1) = Fuori90(Estratto(n,9,1) + 22) '32
			nn32(2) = Fuori90(Estratto(n,9,1) + 48)
			nn32(3) = Fuori90(Estratto(n,9,1) + 50)
			nn32(4) = Fuori90(Estratto(n,9,1) + 86)
			ImpostaGiocata 32,nn32,ruote,poste,klp
			nn33(1) = Fuori90(Estratto(n,9,2) + 34) '33
			nn33(2) = Fuori90(Estratto(n,9,2) + 54)
			nn33(3) = Fuori90(Estratto(n,9,2) + 65)
			nn33(4) = Fuori90(Estratto(n,9,2) + 89)
			ImpostaGiocata 33,nn33,ruote,poste,klp
			nn34(1) = Fuori90(Estratto(n,9,3) + 7) '34
			nn34(2) = Fuori90(Estratto(n,9,3) + 67)
			nn34(3) = Fuori90(Estratto(n,9,4) + 29)
			nn34(4) = Fuori90(Estratto(n,9,4) + 52)
			ImpostaGiocata 34,nn34,ruote,poste,klp
			nn35(1) = Fuori90(Estratto(n,9,4) + 68) '35
			nn35(2) = Fuori90(Estratto(n,10,1) + 14)
			nn35(3) = Fuori90(Estratto(n,10,1) + 23)
			nn35(4) = Fuori90(Estratto(n,10,1) + 40)
			ImpostaGiocata 35,nn35,ruote,poste,klp
			nn36(1) = Fuori90(Estratto(n,10,1) + 48) '36
			nn36(2) = Fuori90(Estratto(n,10,1) + 63)
			nn36(3) = Fuori90(Estratto(n,10,2) + 15)
			nn36(4) = Fuori90(Estratto(n,10,2) + 57)
			ImpostaGiocata 36,nn36,ruote,poste,klp
			nn37(1) = Fuori90(Estratto(n,10,3) + 30) '37
			nn37(2) = Fuori90(Estratto(n,10,4) + 50)
			nn37(3) = Fuori90(Estratto(n,10,4) + 51)
			nn37(4) = Fuori90(Estratto(n,10,4) + 90)
			ImpostaGiocata 37,nn37,ruote,poste,klp
			nn38(1) = Fuori90(Estratto(n,10,5) + 7) '38
			nn38(2) = Fuori90(Estratto(n,10,5) + 87)
			nn38(3) = Fuori90(Estratto(n,12,5) + 27)
			nn38(4) = Fuori90(Estratto(n,10,5) + 83)
			ImpostaGiocata 38,nn38,ruote,poste,klp
			nn39(1) = Fuori90(Estratto(n,12,1) + 74) '39
			nn39(2) = Fuori90(Estratto(n,12,1) + 84)
			nn39(3) = Fuori90(Estratto(n,12,2) + 20)
			nn39(4) = Fuori90(Estratto(n,12,2) + 52)
			ImpostaGiocata 39,nn39,ruote,poste,klp
			nn40(1) = Fuori90(Estratto(n,12,2) + 88) '40
			nn40(2) = Fuori90(Estratto(n,12,4) + 11)
			nn40(3) = Fuori90(Estratto(n,12,4) + 53)
			nn40(4) = Fuori90(Estratto(n,12,5) + 1)
			ImpostaGiocata 40,nn40,ruote,poste,klp
			nn41(1) = Fuori90(Estratto(n,12,5) + 11) '41
			nn41(2) = Fuori90(Estratto(n,12,5) + 14)
			nn41(3) = Fuori90(Estratto(n,12,5) + 36)
			nn41(4) = Fuori90(Estratto(n,12,5) + 41) 'aggiornato sino a qui gli altri ambi ke seguono non vengono considerati
			ImpostaGiocata 41,nn41,ruote,poste,klp
			Gioca n,1
		End If
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi
	Call Scrivi("==========================================",- 1,,,1,2)
	Call Scrivi("Casi Rilevati " & CInt(casi) & " ",- 1,,,2,2)
	Call ScriviResoconto(,False)
End Sub
 
Non ho idea se l'hai toccato o meno
ma come ti ho detto il gioca es e l'indice mensile erano
impostati diversamente dagli algoritmi
quest'ultimi non trovando rescontro nell' indice mensile
davano risultati sballati
lascialo, credo che fosse già stato postato proprio qui in download

Ciao
 
Grazie Black, nn ho capito niente, gli script mi incuriosisconoma nn sono all altezza, sto facendo delle prove col copia e incolla senza sapere cosa faccio, ci sto provando senza nessun risultato finora, ho provato a leggere qualche guida ma per me e arabo, so' de coccio
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto