Per Disaronno

[irepi]

Sub Main()
'Scrivi " Aiuto x script di irepi ",1 ' - [URL="http://forum.lottoced.com/forum/lottoced/area-download/1900230-aiuto-x-script"]http://forum.lottoced.com/forum/lott...aiuto-x-script[/URL] -
Dim ruote(12)
Dim numeri01(10),numeri02(10),numeri03(10),numeri04(10 ),numeri05(10)
Dim numeri06(10),numeri07(10),numeri08(10),numeri09(10 ),numeri10(10)
Dim posta(05)
'posta(1) = 1
posta(02) = 1
posta(03) = 1
posta(04) = 1
posta(05) = 1
ruote(01) = 1
For n = 5000 To EstrazioneFin
Messaggio n
AvanzamentoElab 5000,EstrazioneFin,n
If IndiceMensile(n) = 2 Then
co = co + 01
Scrivi String(70,"*") & " Caso n°" & Format2(co),1
ColoreTesto 1
Scrivi DataEstrazione(n) & " " & SiglaRuota(1) & " " & StringaEstratti(n,1) & " BA >>> "
Scrivi String(70,"*"),1
ColoreTesto 0
numeri01(01) = Fuori90(Estratto(n,3,1) + 13)
numeri01(02) = Fuori90(Estratto(n,3,1) + 16)
numeri01(03) = Fuori90(Estratto(n,3,1) + 39)
numeri01(04) = Fuori90(Estratto(n,3,1) + 43)
numeri01(05) = Fuori90(Estratto(n,3,1) + 46)
ImpostaGiocata 1,numeri01,ruote,posta,9
numeri02(01) = Fuori90(Estratto(n,3,1) + 52)
numeri02(02) = Fuori90(Estratto(n,3,1) + 54)
numeri02(03) = Fuori90(Estratto(n,3,1) + 70)
numeri02(04) = Fuori90(Estratto(n,3,1) + 74)
numeri02(05) = Fuori90(Estratto(n,3,1) + 78)
ImpostaGiocata 2,numeri02,ruote,posta,9
numeri03(01) = Fuori90(Estratto(n,3,2) + 07)
numeri03(02) = Fuori90(Estratto(n,3,2) + 11)
numeri03(03) = Fuori90(Estratto(n,3,2) + 14)
numeri03(04) = Fuori90(Estratto(n,3,2) + 20)
numeri03(05) = Fuori90(Estratto(n,3,2) + 22)
ImpostaGiocata 3,numeri03,ruote,posta,9
numeri04(01) = Fuori90(Estratto(n,3,2) + 38)
numeri04(02) = Fuori90(Estratto(n,3,2) + 42)
numeri04(03) = Fuori90(Estratto(n,3,2) + 46)
numeri04(04) = Fuori90(Estratto(n,3,2) + 71)
numeri04(05) = Fuori90(Estratto(n,3,2) + 74)
ImpostaGiocata 4,numeri04,ruote,posta,9
numeri05(01) = Fuori90(Estratto(n,3,3) + 18)
numeri05(02) = Fuori90(Estratto(n,3,3) + 22)
numeri05(03) = Fuori90(Estratto(n,3,3) + 25)
numeri05(04) = Fuori90(Estratto(n,3,3) + 31)
numeri05(05) = Fuori90(Estratto(n,3,3) + 33)
ImpostaGiocata 5,numeri05,ruote,posta,9
numeri06(01) = Fuori90(Estratto(n,3,3) + 49)
numeri06(02) = Fuori90(Estratto(n,3,3) + 53)
numeri06(03) = Fuori90(Estratto(n,3,3) + 57)
numeri06(04) = Fuori90(Estratto(n,3,3) + 82)
numeri06(05) = Fuori90(Estratto(n,3,3) + 85)
ImpostaGiocata 6,numeri06,ruote,posta,9
numeri07(01) = Fuori90(Estratto(n,3,4) + 10)
numeri07(02) = Fuori90(Estratto(n,3,4) + 14)
numeri07(03) = Fuori90(Estratto(n,3,4) + 17)
numeri07(04) = Fuori90(Estratto(n,3,4) + 23)
numeri07(05) = Fuori90(Estratto(n,3,4) + 25)
ImpostaGiocata 7,numeri07,ruote,posta,9
numeri08(01) = Fuori90(Estratto(n,3,4) + 41)
numeri08(02) = Fuori90(Estratto(n,3,4) + 45)
numeri08(03) = Fuori90(Estratto(n,3,4) + 49)
numeri08(04) = Fuori90(Estratto(n,3,4) + 74)
numeri08(05) = Fuori90(Estratto(n,3,4) + 77)
ImpostaGiocata 8,numeri08,ruote,posta,9
numeri09(01) = Fuori90(Estratto(n,3,5) + 03)
numeri09(02) = Fuori90(Estratto(n,3,5) + 26)
numeri09(03) = Fuori90(Estratto(n,3,5) + 30)
numeri09(04) = Fuori90(Estratto(n,3,5) + 33)
numeri09(05) = Fuori90(Estratto(n,3,5) + 39)
ImpostaGiocata 9,numeri09,ruote,posta,9
numeri10(01) = Fuori90(Estratto(n,3,5) + 41)
numeri10(02) = Fuori90(Estratto(n,3,5) + 57)
numeri10(03) = Fuori90(Estratto(n,3,5) + 61)
numeri10(04) = Fuori90(Estratto(n,3,5) + 65)
numeri10(05) = Fuori90(Estratto(n,3,5) + 90)
ImpostaGiocata 10,numeri10,ruote,posta,9
'Gioca n,1
ReDim am(50)'vettore numeri
Dim VetRitornoN
Dim VetRitornoQ
'vettore numeri
am(01) = numeri01(01):am(02) = numeri01(02):am(03) = numeri01(03):am(04) = numeri01(04):am(05) = numeri01(05)
am(06) = numeri02(01):am(07) = numeri02(02):am(08) = numeri02(03):am(09) = numeri02(04):am(10) = numeri02(05)
am(11) = numeri03(01):am(12) = numeri03(02):am(13) = numeri03(03):am(14) = numeri03(04):am(15) = numeri03(05)
am(16) = numeri04(01):am(17) = numeri04(02):am(18) = numeri04(03):am(19) = numeri04(04):am(20) = numeri04(05)
am(21) = numeri05(01):am(22) = numeri05(02):am(23) = numeri05(03):am(24) = numeri05(04):am(25) = numeri05(05)
am(26) = numeri06(01):am(27) = numeri06(02):am(28) = numeri06(03):am(29) = numeri06(04):am(30) = numeri06(05)
am(31) = numeri07(01):am(32) = numeri07(02):am(33) = numeri07(03):am(34) = numeri07(04):am(35) = numeri07(05)
am(36) = numeri08(01):am(37) = numeri08(02):am(38) = numeri08(03):am(39) = numeri08(04):am(40) = numeri08(05)
am(41) = numeri09(01):am(42) = numeri09(02):am(43) = numeri09(03):am(44) = numeri09(04):am(45) = numeri09(05)
am(46) = numeri10(01):am(47) = numeri10(02):am(48) = numeri10(03):am(49) = numeri10(04):am(50) = numeri10(05)
Call OrdinaMatrice(am,1)
Call Scrivi(StringaNumeri(am,,True),1)
Call Scrivi
Call VerificaEsitoTurbo(am,ruote,n + 01,3,9,,RetEsito,Retcolpi,RetEstratti,RetIdEstr)
'calcoli/statistiche sui Numeri Ripetuti
Call NumeriRipetutiRilevatiV(am,VetRitornoN,VetRitornoQ )
'visualizzazione risultati
Call Scrivi(" Numero " & StringaNumeri(VetRitornoN," - ",True),1)
Call Scrivi(" Ripetizioni " & StringaNumeri(VetRitornoQ," - ",True),1)
Call Scrivi
Call Scrivi(" Esito " & RetEsito,1,0)
Call Scrivi(" Colpi " & RetColpi,1,0)
Call Scrivi(" Estratti " & RetEstratti,1,0)
Call Scrivi(" num estr. " & RetIdEstr & " in Data " & DataEstrazione(RetIdEstr),1)
Call Scrivi
End If
Next
End Sub

 

[irepi]

Buonasera Disaronno, mi scuso ancora ma abbia pazienza sono un vecchiotta ho 67 anni, ho fatto un po di confusione!
Potrebbe fare una variazione allo script e fare in modo che metta in gioco solo i numeri ripetuti?

 

[Alien.]

Ciao irepi ma sai come vengono fuori i numeri vincenti ?^ grazie.

 

[irepi]

Ciao Alien, si lo so, spero che Disaronno faccia le modifiche che ho richiesto, ho fatto un po di confusione con gli script e ho fatto altre richieste........penso non l abbia presa bene.
E' sempre gentile e disponibile con tutti e lo e stato anche con me. Mi dispiace!

 

[Alien.]

Ciao irepi,puoi spiegarmi se possibile come vengono fuori,guarda che non è che Disaronno è qua 24/24 h....anche a me ha fatto aspettare....ma poi è sempre cortese e gentile aggiungiamo"paziente".

 

[irepi]

ciao alien, faccio le prove con i metodi sommativi di spaziometria oppure uso lo script dei sommativi di Danilo, se vuoi lo posto....se riesco xke nn sempre da la possibilita di inserirlo all interno del codice, cmq se lo vuoi ci provo. buona serata irepi

 

[Alien.]

se puoi si, grazie.

 

[irepi]

Ora pprovo, speriamo lo digerisca!

'AMBATE SOMMATIVE BY DANILO BY GEPPOFIX
'danilo inserito:: 14 Gennaio 2007 ore 11:31:50
'Ciao, il primario uso di questo listato è quello di trovare le migliori combinazioni
'di Matematica Sommativa per elaborare piccoli metodi, ecco un esempio d'uso:


'IMPOSTAZIONI:
'(All'ultima°) estrazione del mese per (12) colpi:
'Quantità mesi Impostati: (13)
'Statistica dal: 31.12.2005 al: 11.01.2007
'Percentuale Impostata: 90%

'1° di Bari     + 04   su Milano   è uscito 12/13 : 55 ----> sfaldato
'2° di Cagliari + 64   su Milano   è uscito 11/13 : 55 ----> sfaldato
'3° di Cagliari + 04   su Milano   è uscito 12/13 : 5   In corso
'5° di Cagliari + 01   su Milano   è uscito 12/13 : 47 ----> sfaldato
'1° di Firenze  + 52   su Milano   è uscito 12/13 : 45 ----> sfaldato
'2° di Firenze  + 16   su Milano   è uscito 12/13 : 85 ----> sfaldato
'3° di Firenze  + 74   su Milano   è uscito 11/13 : 42 ----> sfaldato
'4° di Firenze  + 90   su Milano   è uscito 11/13 : 3  ----> sfaldato
'4° di Genova   + 49   su Milano   è uscito 11/13 : 36 ----> sfaldato
'4° di Genova   + 67   su Milano   è uscito 11/13 : 54 ----> sfaldato
'5° di Genova   + 48   su Milano   è uscito 11/13 : 44 ----> sfaldato
'5° di Milano   + 30   su Milano   è uscito 11/13 : 47 ----> sfaldato
'5° di Milano   + 50   su Milano   è uscito 11/13 : 67 ----> sfaldato
'1° di Napoli   + 47   su Milano   è uscito 12/13 : 67 ----> sfaldato
'4° di Napoli   + 73   su Milano   è uscito 11/13 : 16  In corso
'2° di Palermo  + 65   su Milano   è uscito 11/13 : 9   In corso
'3° di Palermo  + 01   su Milano   è uscito 11/13 : 3  ----> sfaldato
'3° di Palermo  + 39   su Milano   è uscito 11/13 : 41  In corso
'2° di Roma     + 20   su Milano   è uscito 11/13 : 25  In corso
'4° di Roma     + 34   su Milano   è uscito 11/13 : 85 ----> sfaldato
'1° di Torino   + 41   su Milano   è uscito 11/13 : 83 ----> sfaldato
'2° di Torino   + 50   su Milano   è uscito 11/13 : 54 ----> sfaldato
'3° di Torino   + 16   su Milano   è uscito 12/13 : 78  In corso
'4° di Torino   + 02   su Milano   è uscito 11/13 : 54 ----> sfaldato
'4° di Torino   + 74   su Milano   è uscito 13/13 : 36 ----> sfaldato
'5° di Torino   + 57   su Milano   è uscito 11/13 : 55 ----> sfaldato
'3° di Venezia  + 71   su Milano   è uscito 12/13 : 53  In corso
'4° di Venezia  + 45   su Milano   è uscito 11/13 : 55 ----> sfaldato
'5° di Venezia  + 22   su Milano   è uscito 11/13 : 71  In corso

'***** NUMERI - CONVERGENTI *****
'54: Convergente In (3 sistemi)
'55: Convergente In (4 sistemi)

'possiamo vedere che c'è una combinazione da 13 mesi ci ha dato il 100% degli esiti positivi,

'4° di Torino   + 74   su Milano   è uscito 13/13 : 36 ----> sfaldato

'si potrebbe ritenere questa combinazione che da 13 mesi dà esiti positivi, possa darne altri anche In futuro,

'si potrebbe ritenere valide tutte quelle Combinazioni che danno lo stesso numero, nell'esempio il 54 e 55,

'ognuno trae le proprie conclusioni, utilizza queste informazioni come più gli piace,

'per chiarire, il parametro " Percentuale " serve solo a limitare la visualizzazione dell'Output
'naturalmente se mettiamo una percentuale del 100% ci darà come In questo caso una sola combinazione,
'se mettiamo 70% ci avrebbe dato migliaia di Combinazioni rendendo inservibile l'elaborazione,
'In poche parole, la percentuale và modellata In Base agli altri parametri, naturale che se imposto
'una ricerca su 100 mesi per 10 colpi ed ho la pretesa di trovare un 100% non l'ho troverò mai!!

'Ricordo che questo listato analizza TUTTE le Combinazioni possibili e ci visualizza le migliori
'sempre In Base ai parametri da noi impostati,

'tutte queste spiegazioni valgono anche per l'altro listato che si trova sempre nella mia raccolta
'ma che analizza le Combinazioni di due estratti piu un fisso.
'ciao danilo

Sub Main()
ColoreTesto 1: Scrivi String(51," ") & "LISTATO DI DANILO",1
Scrivi
Scrivi String(38,"*") & " TROVA AMBATE SOMMATIVE SU INDICE MENSILE " & String(41,"*"),1
Scrivi
ColoreTesto 0
Scrivi
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
es = InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,0)
nmc = InputBox("NUMERO DI MESI?",,7)
perc = InputBox("PERCENTUALE ESITI? (50-100)",,99)
ncg = InputBox("COLPI DI GIOCO?",,10)
ultest = EstrazioneFin
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
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
End If
n = n - 1
Wend
nn = n + 1
For r2 = 1 To 12
If r2 = 11 Then r2 = 12
Scrivi
Scrivi String(110,"*"),1
Scrivi String(110,"*"),1
Scrivi
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
ColoreTesto 0
Scrivi s
ColoreTesto 1
Scrivi "Quantità mesi Impostati: " & nmc & "",1
ColoreTesto 0
Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1
ColoreTesto 2
Scrivi "Percentuale Impostata: " & perc & "%",1
Scrivi
Scrivi "RUOTA DI " & NomeRuota(r2),1
Scrivi
For r = 1 To 12
If r = 11 Then r = 12
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),13) + " + " + Format2(CStr(eval(j))) + " su "
s = s + FormatSpace(NomeRuota(r2),12) + " è uscito " + CStr(som(i,j)) + " Volte Su " + CStr(eval(z))
s = s + " : Previsione: " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
If(Val(i,j) = True) Then s = s + " " & ColoreTesto(0) & " In Gioco " Else s = s + " " & ColoreTesto(2) & " Già Uscito " End If
If som(i,j) >= zz Then
Scrivi s
amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
ColoreTesto 0
End If
Next
Next
Next
ColoreTesto 2
Scrivi
Scrivi "********** NUMERI - CONVERGENTI **********",1
ColoreTesto 0
For i = 1 To 90
If(amb(i) > 1) Then
Scrivi Format2(CStr(eval(i))) + ": CONVERGENTE IN " + Format2(CStr(eval(amb(i)))) + " SISTEMI"
End If
Next
If ScriptInterrotto Then Exit For
Next
End Sub

 

[irepi]

bene! e andato in porto!

 

[irepi]

se ti puo interessare ho anke qsto:

'
'AMBATA BY DANILO
'Originale by Danilo
'Autore della risposta: hetman
'Risposta del: 07 luglio 2007 07:49:38

Sub Main()
Dim n(1)
Dim ruota(1)
Dim posta(1)
posta(1) = 1
fin = EstrazioneFin
ini = fin - 20
For es = ini To fin
AvanzamentoElab ini,fin,es
ex = es - 1
For r = 1 To 10
ruota(1) = r
n(1) = PiuRitardatario(ex,r)
rt = SerieRitardo(ex - 250,ex,n,ruota,1)
If Posizione(es,r,n(1)) > 0 Then
Scrivi DataEstrazione(ex) & " " & Left(NomeRuota(r),2) & _
" " & Format2(n(1)) & " Rit. " & rt
ImpostaGiocata 1,n,ruota,posta,18,1
Gioca es,1
End If
Next
Next
ScriviResoconto
End Sub

 

[irepi]

'listato da Danilo
'29 Ottobre 2005 ore 12:58:29


Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1
poste(3) = 0.8
poste(4) = 0.2
ruote(1) = 11
k = 8
y = 4
For n = 9032 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
ng = 0
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,3,1) + 71)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,3,3) + 84)
numeri1(3) = Fuori90(Estratto(n,1,5) + Estratto(n,6,1) + 29)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,2,3) + 34)
numeri1(5) = Fuori90(Estratto(n,5,4) + Estratto(n,9,3) + 81)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,3,1) + 71)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,3,3) + 84)
numeri1(3) = Fuori90(Estratto(n,6,4) + Estratto(n,8,4) + 9)
numeri1(4) = Fuori90(Estratto(n,1,4) + Estratto(n,4,2) + 1)
numeri1(5) = Fuori90(Estratto(n,6,1) + Estratto(n,6,4) + 89)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,1) + Estratto(n,6,1) + 39)
numeri1(2) = Fuori90(Estratto(n,5,4) + Estratto(n,9,1) + 51)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,4,5) + 25)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,1,3) + 42)
numeri1(5) = Fuori90(Estratto(n,4,5) + Estratto(n,7,4) + 11)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,1) + Estratto(n,6,1) + 39)
numeri1(2) = Fuori90(Estratto(n,5,4) + Estratto(n,9,1) + 51)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,4,5) + 25)
numeri1(4) = Fuori90(Estratto(n,1,3) + Estratto(n,5,5) + 37)
numeri1(5) = Fuori90(Estratto(n,1,2) + Estratto(n,6,3) + 18)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,8,2) + 58)
numeri1(2) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 5)
numeri1(3) = Fuori90(Estratto(n,5,2) + Estratto(n,5,3) + 38)
numeri1(4) = Fuori90(Estratto(n,1,4) + Estratto(n,10,3) + 87)
numeri1(5) = Fuori90(Estratto(n,6,2) + Estratto(n,6,4) + 3)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,8,2) + 58)
numeri1(2) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 5)
numeri1(3) = Fuori90(Estratto(n,2,4) + Estratto(n,7,2) + 33)
numeri1(4) = Fuori90(Estratto(n,1,4) + Estratto(n,10,3) + 87)
numeri1(5) = Fuori90(Estratto(n,6,1) + Estratto(n,6,3) + 15)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 3)
numeri1(2) = Fuori90(Estratto(n,2,2) + Estratto(n,6,5) + 30)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,9,5) + 38)
numeri1(4) = Fuori90(Estratto(n,3,2) + Estratto(n,7,1) + 30)
numeri1(5) = Fuori90(Estratto(n,2,4) + Estratto(n,10,4) + 21)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 3)
numeri1(2) = Fuori90(Estratto(n,2,2) + Estratto(n,6,5) + 30)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,9,5) + 38)
numeri1(4) = Fuori90(Estratto(n,1,5) + Estratto(n,8,1) + 26)
numeri1(5) = Fuori90(Estratto(n,1,4) + Estratto(n,3,3) + 58)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,5) + Estratto(n,7,1) + 73)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,6,5) + Estratto(n,8,2) + 67)
numeri1(4) = Fuori90(Estratto(n,2,5) + Estratto(n,4,4) + 73)
numeri1(5) = Fuori90(Estratto(n,1,5) + Estratto(n,4,2) + 8)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,5) + Estratto(n,7,1) + 73)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,1,5) + Estratto(n,8,4) + 72)
numeri1(4) = Fuori90(Estratto(n,6,5) + Estratto(n,8,2) + 67)
numeri1(5) = Fuori90(Estratto(n,6,5) + Estratto(n,10,4) + 41)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,4,2) + 53)
numeri1(2) = Fuori90(Estratto(n,1,2) + Estratto(n,2,5) + 80)
numeri1(3) = Fuori90(Estratto(n,3,3) + Estratto(n,6,4) + 4)
numeri1(4) = Fuori90(Estratto(n,2,3) + Estratto(n,3,4) + 19)
numeri1(5) = Fuori90(Estratto(n,1,2) + Estratto(n,4,4) + 34)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,4,2) + 53)
numeri1(2) = Fuori90(Estratto(n,1,2) + Estratto(n,2,5) + 80)
numeri1(3) = Fuori90(Estratto(n,3,3) + Estratto(n,6,4) + 4)
numeri1(4) = Fuori90(Estratto(n,3,1) + Estratto(n,3,3) + 68)
numeri1(5) = Fuori90(Estratto(n,5,5) + Estratto(n,8,4) + 66)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,2,5) + 70)
numeri1(2) = Fuori90(Estratto(n,5,1) + Estratto(n,7,1) + 71)
numeri1(3) = Fuori90(Estratto(n,5,5) + Estratto(n,8,2) + 55)
numeri1(4) = Fuori90(Estratto(n,2,2) + Estratto(n,9,3) + 21)
numeri1(5) = Fuori90(Estratto(n,7,3) + Estratto(n,10,5) + 70)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,2,5) + 70)
numeri1(2) = Fuori90(Estratto(n,5,1) + Estratto(n,7,1) + 71)
numeri1(3) = Fuori90(Estratto(n,2,5) + Estratto(n,7,4) + 38)
numeri1(4) = Fuori90(Estratto(n,5,5) + Estratto(n,8,2) + 55)
numeri1(5) = Fuori90(Estratto(n,5,5) + Estratto(n,6,3) + 33)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,2) + Estratto(n,7,4) + 21)
numeri1(2) = Fuori90(Estratto(n,9,3) + Estratto(n,10,4) + 40)
numeri1(3) = Fuori90(Estratto(n,9,2) + Estratto(n,10,4) + 68)
numeri1(4) = Fuori90(Estratto(n,1,1) + Estratto(n,5,1) + 11)
numeri1(5) = Fuori90(Estratto(n,5,2) + Estratto(n,10,4) + 35)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,2) + Estratto(n,7,4) + 21)
numeri1(2) = Fuori90(Estratto(n,9,3) + Estratto(n,10,4) + 40)
numeri1(3) = Fuori90(Estratto(n,5,5) + Estratto(n,8,4) + 35)
numeri1(4) = Fuori90(Estratto(n,2,5) + Estratto(n,4,5) + 8)
numeri1(5) = Fuori90(Estratto(n,6,2) + Estratto(n,9,3) + 81)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,6,5) + 13)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,7,5) + 34)
numeri1(4) = Fuori90(Estratto(n,3,3) + Estratto(n,9,2) + 25)
numeri1(5) = Fuori90(Estratto(n,5,1) + Estratto(n,8,2) + 76)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,6,5) + 13)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,2,2) + Estratto(n,4,3) + 18)
numeri1(4) = Fuori90(Estratto(n,2,3) + Estratto(n,7,4) + 63)
numeri1(5) = Fuori90(Estratto(n,3,1) + Estratto(n,6,3) + 46)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + Estratto(n,9,1) + 15)
numeri1(2) = Fuori90(Estratto(n,1,4) + Estratto(n,9,1) + 8)
numeri1(3) = Fuori90(Estratto(n,5,5) + Estratto(n,10,1) + 17)
numeri1(4) = Fuori90(Estratto(n,5,5) + Estratto(n,7,4) + 55)
numeri1(5) = Fuori90(Estratto(n,9,5) + Estratto(n,10,3) + 5)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + Estratto(n,9,1) + 15)
numeri1(2) = Fuori90(Estratto(n,1,4) + Estratto(n,9,1) + 8)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,9,3) + 8)
numeri1(4) = Fuori90(Estratto(n,5,1) + Estratto(n,8,4) + 2)
numeri1(5) = Fuori90(Estratto(n,6,4) + Estratto(n,6,5) + 30)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n,1
End If
Next
ScriviResoconto
End Sub

 

[irepi]

'FIRENZE  listato da Danilo  inserito:: 29 Ottobre 2005 ore 11:58:29



Sub Main()
Dim ruote(12)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1
poste(3) = 0.8
poste(4) = 0.2
ruote(3) = 3        'firenze
k = 8
y = 4
For n = 9000 To EstrazioneFin
'If IndiceMensile(n + 1) = 1 Then
casi = casi + 1
ColoreTesto 1
Scrivi String(60,"=") & " Caso n° " & casi,1
Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & co & "",1
ColoreTesto 0 : Scrivi

ng = 0
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,3,1) + 71)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,3,3) + 84)
numeri1(3) = Fuori90(Estratto(n,1,5) + Estratto(n,6,1) + 29)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,2,3) + 34)
numeri1(5) = Fuori90(Estratto(n,5,4) + Estratto(n,9,3) + 81)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,3,1) + 71)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,3,3) + 84)
numeri1(3) = Fuori90(Estratto(n,6,4) + Estratto(n,8,4) + 9)
numeri1(4) = Fuori90(Estratto(n,1,4) + Estratto(n,4,2) + 1)
numeri1(5) = Fuori90(Estratto(n,6,1) + Estratto(n,6,4) + 89)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,1) + Estratto(n,6,1) + 39)
numeri1(2) = Fuori90(Estratto(n,5,4) + Estratto(n,9,1) + 51)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,4,5) + 25)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,1,3) + 42)
numeri1(5) = Fuori90(Estratto(n,4,5) + Estratto(n,7,4) + 11)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,1) + Estratto(n,6,1) + 39)
numeri1(2) = Fuori90(Estratto(n,5,4) + Estratto(n,9,1) + 51)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,4,5) + 25)
numeri1(4) = Fuori90(Estratto(n,1,3) + Estratto(n,5,5) + 37)
numeri1(5) = Fuori90(Estratto(n,1,2) + Estratto(n,6,3) + 18)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,8,2) + 58)
numeri1(2) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 5)
numeri1(3) = Fuori90(Estratto(n,5,2) + Estratto(n,5,3) + 38)
numeri1(4) = Fuori90(Estratto(n,1,4) + Estratto(n,10,3) + 87)
numeri1(5) = Fuori90(Estratto(n,6,2) + Estratto(n,6,4) + 3)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,8,2) + 58)
numeri1(2) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 5)
numeri1(3) = Fuori90(Estratto(n,2,4) + Estratto(n,7,2) + 33)
numeri1(4) = Fuori90(Estratto(n,1,4) + Estratto(n,10,3) + 87)
numeri1(5) = Fuori90(Estratto(n,6,1) + Estratto(n,6,3) + 15)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 3)
numeri1(2) = Fuori90(Estratto(n,2,2) + Estratto(n,6,5) + 30)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,9,5) + 38)
numeri1(4) = Fuori90(Estratto(n,3,2) + Estratto(n,7,1) + 30)
numeri1(5) = Fuori90(Estratto(n,2,4) + Estratto(n,10,4) + 21)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 3)
numeri1(2) = Fuori90(Estratto(n,2,2) + Estratto(n,6,5) + 30)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,9,5) + 38)
numeri1(4) = Fuori90(Estratto(n,1,5) + Estratto(n,8,1) + 26)
numeri1(5) = Fuori90(Estratto(n,1,4) + Estratto(n,3,3) + 58)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,5) + Estratto(n,7,1) + 73)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,6,5) + Estratto(n,8,2) + 67)
numeri1(4) = Fuori90(Estratto(n,2,5) + Estratto(n,4,4) + 73)
numeri1(5) = Fuori90(Estratto(n,1,5) + Estratto(n,4,2) + 8)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,5) + Estratto(n,7,1) + 73)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,1,5) + Estratto(n,8,4) + 72)
numeri1(4) = Fuori90(Estratto(n,6,5) + Estratto(n,8,2) + 67)
numeri1(5) = Fuori90(Estratto(n,6,5) + Estratto(n,10,4) + 41)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,4,2) + 53)
numeri1(2) = Fuori90(Estratto(n,1,2) + Estratto(n,2,5) + 80)
numeri1(3) = Fuori90(Estratto(n,3,3) + Estratto(n,6,4) + 4)
numeri1(4) = Fuori90(Estratto(n,2,3) + Estratto(n,3,4) + 19)
numeri1(5) = Fuori90(Estratto(n,1,2) + Estratto(n,4,4) + 34)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,4,2) + 53)
numeri1(2) = Fuori90(Estratto(n,1,2) + Estratto(n,2,5) + 80)
numeri1(3) = Fuori90(Estratto(n,3,3) + Estratto(n,6,4) + 4)
numeri1(4) = Fuori90(Estratto(n,3,1) + Estratto(n,3,3) + 68)
numeri1(5) = Fuori90(Estratto(n,5,5) + Estratto(n,8,4) + 66)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,2,5) + 70)
numeri1(2) = Fuori90(Estratto(n,5,1) + Estratto(n,7,1) + 71)
numeri1(3) = Fuori90(Estratto(n,5,5) + Estratto(n,8,2) + 55)
numeri1(4) = Fuori90(Estratto(n,2,2) + Estratto(n,9,3) + 21)
numeri1(5) = Fuori90(Estratto(n,7,3) + Estratto(n,10,5) + 70)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,2,5) + 70)
numeri1(2) = Fuori90(Estratto(n,5,1) + Estratto(n,7,1) + 71)
numeri1(3) = Fuori90(Estratto(n,2,5) + Estratto(n,7,4) + 38)
numeri1(4) = Fuori90(Estratto(n,5,5) + Estratto(n,8,2) + 55)
numeri1(5) = Fuori90(Estratto(n,5,5) + Estratto(n,6,3) + 33)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,2) + Estratto(n,7,4) + 21)
numeri1(2) = Fuori90(Estratto(n,9,3) + Estratto(n,10,4) + 40)
numeri1(3) = Fuori90(Estratto(n,9,2) + Estratto(n,10,4) + 68)
numeri1(4) = Fuori90(Estratto(n,1,1) + Estratto(n,5,1) + 11)
numeri1(5) = Fuori90(Estratto(n,5,2) + Estratto(n,10,4) + 35)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,2) + Estratto(n,7,4) + 21)
numeri1(2) = Fuori90(Estratto(n,9,3) + Estratto(n,10,4) + 40)
numeri1(3) = Fuori90(Estratto(n,5,5) + Estratto(n,8,4) + 35)
numeri1(4) = Fuori90(Estratto(n,2,5) + Estratto(n,4,5) + 8)
numeri1(5) = Fuori90(Estratto(n,6,2) + Estratto(n,9,3) + 81)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,6,5) + 13)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,7,5) + 34)
numeri1(4) = Fuori90(Estratto(n,3,3) + Estratto(n,9,2) + 25)
numeri1(5) = Fuori90(Estratto(n,5,1) + Estratto(n,8,2) + 76)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,6,5) + 13)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,2,2) + Estratto(n,4,3) + 18)
numeri1(4) = Fuori90(Estratto(n,2,3) + Estratto(n,7,4) + 63)
numeri1(5) = Fuori90(Estratto(n,3,1) + Estratto(n,6,3) + 46)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + Estratto(n,9,1) + 15)
numeri1(2) = Fuori90(Estratto(n,1,4) + Estratto(n,9,1) + 8)
numeri1(3) = Fuori90(Estratto(n,5,5) + Estratto(n,10,1) + 17)
numeri1(4) = Fuori90(Estratto(n,5,5) + Estratto(n,7,4) + 55)
numeri1(5) = Fuori90(Estratto(n,9,5) + Estratto(n,10,3) + 5)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + Estratto(n,9,1) + 15)
numeri1(2) = Fuori90(Estratto(n,1,4) + Estratto(n,9,1) + 8)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,9,3) + 8)
numeri1(4) = Fuori90(Estratto(n,5,1) + Estratto(n,8,4) + 2)
numeri1(5) = Fuori90(Estratto(n,6,4) + Estratto(n,6,5) + 30)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n,1
End If
Next
ScriviResoconto
End Sub

 

[irepi]

penso di aver sbagliato nn dovevo inserire l indirizzo, fammi sapere se li hai scaricati ke li cancello

 

[irepi]

ho corretto

 

[irepi]

'
'numeri usciti con gli stessi colpi listato da Danilo
'ricerca ad un listato quali numeri sono usciti con gli stessi colpi.
'Trovati un insieme di numeri il listato  ricerca
'l'insieme che ha avuto gli  esiti nello stesso colpo(oppure con  uno scarto+ o- 1colpo,
'per un Massimo di 2 eventi)e costruisce una sorte di sistemi per sorti superiori.


Sub Main()
Dim ruote(12)
Dim numeri1(10)
Dim poste(5)
poste(2) = 1
poste(3) = 0.8
poste(4) = 0.2
ruote(1) = 1

k = 8
y = 4
For n = 9020 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
ng = 0
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,3,1) + 71)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,3,3) + 84)
numeri1(3) = Fuori90(Estratto(n,1,5) + Estratto(n,6,1) + 29)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,2,3) + 34)
numeri1(5) = Fuori90(Estratto(n,5,4) + Estratto(n,9,3) + 81)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,3) + Estratto(n,3,1) + 71)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,3,3) + 84)
numeri1(3) = Fuori90(Estratto(n,6,4) + Estratto(n,8,4) + 9)
numeri1(4) = Fuori90(Estratto(n,1,4) + Estratto(n,4,2) + 1)
numeri1(5) = Fuori90(Estratto(n,6,1) + Estratto(n,6,4) + 89)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,1) + Estratto(n,6,1) + 39)
numeri1(2) = Fuori90(Estratto(n,5,4) + Estratto(n,9,1) + 51)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,4,5) + 25)
numeri1(4) = Fuori90(Estratto(n,1,2) + Estratto(n,1,3) + 42)
numeri1(5) = Fuori90(Estratto(n,4,5) + Estratto(n,7,4) + 11)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,1) + Estratto(n,6,1) + 39)
numeri1(2) = Fuori90(Estratto(n,5,4) + Estratto(n,9,1) + 51)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,4,5) + 25)
numeri1(4) = Fuori90(Estratto(n,1,3) + Estratto(n,5,5) + 37)
numeri1(5) = Fuori90(Estratto(n,1,2) + Estratto(n,6,3) + 18)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,8,2) + 58)
numeri1(2) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 5)
numeri1(3) = Fuori90(Estratto(n,5,2) + Estratto(n,5,3) + 38)
numeri1(4) = Fuori90(Estratto(n,1,4) + Estratto(n,10,3) + 87)
numeri1(5) = Fuori90(Estratto(n,6,2) + Estratto(n,6,4) + 3)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,8,2) + 58)
numeri1(2) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 5)
numeri1(3) = Fuori90(Estratto(n,2,4) + Estratto(n,7,2) + 33)
numeri1(4) = Fuori90(Estratto(n,1,4) + Estratto(n,10,3) + 87)
numeri1(5) = Fuori90(Estratto(n,6,1) + Estratto(n,6,3) + 15)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 3)
numeri1(2) = Fuori90(Estratto(n,2,2) + Estratto(n,6,5) + 30)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,9,5) + 38)
numeri1(4) = Fuori90(Estratto(n,3,2) + Estratto(n,7,1) + 30)
numeri1(5) = Fuori90(Estratto(n,2,4) + Estratto(n,10,4) + 21)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + Estratto(n,8,3) + 3)
numeri1(2) = Fuori90(Estratto(n,2,2) + Estratto(n,6,5) + 30)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,9,5) + 38)
numeri1(4) = Fuori90(Estratto(n,1,5) + Estratto(n,8,1) + 26)
numeri1(5) = Fuori90(Estratto(n,1,4) + Estratto(n,3,3) + 58)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,5) + Estratto(n,7,1) + 73)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,6,5) + Estratto(n,8,2) + 67)
numeri1(4) = Fuori90(Estratto(n,2,5) + Estratto(n,4,4) + 73)
numeri1(5) = Fuori90(Estratto(n,1,5) + Estratto(n,4,2) + 8)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,5) + Estratto(n,7,1) + 73)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,1,5) + Estratto(n,8,4) + 72)
numeri1(4) = Fuori90(Estratto(n,6,5) + Estratto(n,8,2) + 67)
numeri1(5) = Fuori90(Estratto(n,6,5) + Estratto(n,10,4) + 41)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,4,2) + 53)
numeri1(2) = Fuori90(Estratto(n,1,2) + Estratto(n,2,5) + 80)
numeri1(3) = Fuori90(Estratto(n,3,3) + Estratto(n,6,4) + 4)
numeri1(4) = Fuori90(Estratto(n,2,3) + Estratto(n,3,4) + 19)
numeri1(5) = Fuori90(Estratto(n,1,2) + Estratto(n,4,4) + 34)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,3) + Estratto(n,4,2) + 53)
numeri1(2) = Fuori90(Estratto(n,1,2) + Estratto(n,2,5) + 80)
numeri1(3) = Fuori90(Estratto(n,3,3) + Estratto(n,6,4) + 4)
numeri1(4) = Fuori90(Estratto(n,3,1) + Estratto(n,3,3) + 68)
numeri1(5) = Fuori90(Estratto(n,5,5) + Estratto(n,8,4) + 66)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,2,5) + 70)
numeri1(2) = Fuori90(Estratto(n,5,1) + Estratto(n,7,1) + 71)
numeri1(3) = Fuori90(Estratto(n,5,5) + Estratto(n,8,2) + 55)
numeri1(4) = Fuori90(Estratto(n,2,2) + Estratto(n,9,3) + 21)
numeri1(5) = Fuori90(Estratto(n,7,3) + Estratto(n,10,5) + 70)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,2,4) + Estratto(n,2,5) + 70)
numeri1(2) = Fuori90(Estratto(n,5,1) + Estratto(n,7,1) + 71)
numeri1(3) = Fuori90(Estratto(n,2,5) + Estratto(n,7,4) + 38)
numeri1(4) = Fuori90(Estratto(n,5,5) + Estratto(n,8,2) + 55)
numeri1(5) = Fuori90(Estratto(n,5,5) + Estratto(n,6,3) + 33)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,2) + Estratto(n,7,4) + 21)
numeri1(2) = Fuori90(Estratto(n,9,3) + Estratto(n,10,4) + 40)
numeri1(3) = Fuori90(Estratto(n,9,2) + Estratto(n,10,4) + 68)
numeri1(4) = Fuori90(Estratto(n,1,1) + Estratto(n,5,1) + 11)
numeri1(5) = Fuori90(Estratto(n,5,2) + Estratto(n,10,4) + 35)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,2) + Estratto(n,7,4) + 21)
numeri1(2) = Fuori90(Estratto(n,9,3) + Estratto(n,10,4) + 40)
numeri1(3) = Fuori90(Estratto(n,5,5) + Estratto(n,8,4) + 35)
numeri1(4) = Fuori90(Estratto(n,2,5) + Estratto(n,4,5) + 8)
numeri1(5) = Fuori90(Estratto(n,6,2) + Estratto(n,9,3) + 81)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,6,5) + 13)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,1,1) + Estratto(n,7,5) + 34)
numeri1(4) = Fuori90(Estratto(n,3,3) + Estratto(n,9,2) + 25)
numeri1(5) = Fuori90(Estratto(n,5,1) + Estratto(n,8,2) + 76)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,6,5) + 13)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,6,5) + 47)
numeri1(3) = Fuori90(Estratto(n,2,2) + Estratto(n,4,3) + 18)
numeri1(4) = Fuori90(Estratto(n,2,3) + Estratto(n,7,4) + 63)
numeri1(5) = Fuori90(Estratto(n,3,1) + Estratto(n,6,3) + 46)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + Estratto(n,9,1) + 15)
numeri1(2) = Fuori90(Estratto(n,1,4) + Estratto(n,9,1) + 8)
numeri1(3) = Fuori90(Estratto(n,5,5) + Estratto(n,10,1) + 17)
numeri1(4) = Fuori90(Estratto(n,5,5) + Estratto(n,7,4) + 55)
numeri1(5) = Fuori90(Estratto(n,9,5) + Estratto(n,10,3) + 5)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,1) + Estratto(n,9,1) + 15)
numeri1(2) = Fuori90(Estratto(n,1,4) + Estratto(n,9,1) + 8)
numeri1(3) = Fuori90(Estratto(n,4,3) + Estratto(n,9,3) + 8)
numeri1(4) = Fuori90(Estratto(n,5,1) + Estratto(n,8,4) + 2)
numeri1(5) = Fuori90(Estratto(n,6,4) + Estratto(n,6,5) + 30)
'EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,poste,k
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n,1
End If
Next
ScriviResoconto
End Sub

 

[irepi]

se hai qlke listato interessante e lo vuoi postare ti ringrazio

 

[Alien.]

Ciao ,gentilissima irepi fatto puoi cancellare che indirizzo hai inserito?

buona serata.

 

[irepi]

Grazie!!!!!!!!!!!

 

[irepi]

Grazie Alien, le rose sono bellissime!
Ho fatto la modifica ai messaggi e ho cancellato l indirizzo, l indirizzo era del sito ke ha pubblicato gli script, se cerchi su google li trovi

 

[irepi]

Lo script va benissimo!
Ho provato a inserire scrivi resoconto ma nn da il riepilogo delle giocate, nn so quale altra funzione devo modificare, e possibile inserirlo? chiedo troppo? Grazie comunque