Buongiorno,
spero fare cosa gradita, allego il listato del metodo.
Controllare sempre,salvo errori.
Codice:
Sub Main
Scrivi " metodo preso dal web di bibbolotto ",1 ' - http://forum.lottoced.com/f8/metodo-preso-dal-web-113399/ -
Dim nu1(19),ruota(2),posta(5)
posta(2) = 1
posta(3) = 0.6
posta(4) = 0.3
posta(5) = 0.1
k = 5
ini = 8790
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
AvanzamentoElab Ini,fin,es
For r1 = 1 To 10
For p = 1 To 5
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If a = b Then
If p = 1 Or p = 5 Then
ruota(1) = r1
ruota(2) = r2
casi = casi + 1
Scrivi String(75,"=") & " Caso n° " & casi,1
Scrivi GetInfoEstrazione(es) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ] [ " & Format2(a) & " in " &(p) & "^ pos. ]",1
Scrivi GetInfoEstrazione(es) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ] [ " & Format2(b) & " in " &(p) & "^ pos. ]",1
Scrivi String(75,"-"),1
ok = 0
If p = 1 Then nu1(1) = Vert(a):nu1(2) = Estratto(es,r1,5):nu1(3) = Estratto(es,r2,5):nu1(4) = Fuori90(a + b):nu1(5) = Vert(Fuori90(a + b)):ok = 1
If p = 5 Then nu1(1) = Vert(a):nu1(2) = Estratto(es,r1,1):nu1(3) = Estratto(es,r2,1):nu1(4) = Fuori90(a + b):nu1(5) = Vert(Fuori90(a + b)):ok = 1
If ok = 1 Then
[COLOR="#FF0000"]ritnu1 = RitardoCombinazioneTurbo(ruota,nu1,2,es)[/COLOR]
Scrivi
Scrivi "Il ritardo per AMBO della giocata [ " & Format2(nu1(1)) & " . " & Format2(nu1(2)) & " . " & Format2(nu1(3)) & " . " & _
Format2(nu1(4)) & " . " & Format2(nu1(5)) & " ] è di " & Format2(ritnu1) & " estrazioni " & " ",True,False,,7,3
If ritnu1 <= 12 Then
Scrivi " CASO NON GIOCABILE ESITO NELLE 12 ESTRAZIONI PRECEDENTI ",True,True,1,5,3
Else
Scrivi
Scrivi
EliminaRipetuti nu1
ImpostaGiocata 1,nu1,ruota,posta,k
Gioca es,True,,1
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
CIAO DISARONNO, GRAZIE X TUTTI GLI SCRIPT CHE CI FAI, SEI GENTILISSIMO.
PER ME VANNO TUTTI BENE, TRANNE L'ULTIMO DOVE CI SONO DEGLI ERRORI, LO PUOI CORREGGERE?
Sub Main
Scrivi " metodo preso dal web di bibbolotto ",1 ' -
http://forum.lottoced.com/f8/metodo-preso-dal-web-113399/ -
Dim nu1(19),ruota(2),posta(5)
posta(2) = 1
posta(3) = 0.6
posta(4) = 0.3
posta(5) = 0.1
k = 5
ini = 8790
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
AvanzamentoElab Ini,fin,es
For r1 = 1 To 10
For p = 1 To 5
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If a = b Then
If p = 1 Or p = 5 Then
ruota(1) = r1
ruota(2) = r2
casi = casi + 1
Scrivi String(75,"=") & " Caso n° " & casi,1
Scrivi GetInfoEstrazione(es) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ] [ " & Format2(a) & " in " &(p) & "^ pos. ]",1
Scrivi GetInfoEstrazione(es) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ] [ " & Format2(b) & " in " &(p) & "^ pos. ]",1
Scrivi String(75,"-"),1
ok = 0
If p = 1 Then nu1(1) = Vert(a):nu1(2) = Estratto(es,r1,5):nu1(3) = Estratto(es,r2,5):nu1(4) = Fuori90(a + b):nu1(5) = Vert(Fuori90(a + b))
k = 1
If p = 5 Then nu1(1) = Vert(a):nu1(2) = Estratto(es,r1,1):nu1(3) = Estratto(es,r2,1):nu1(4) = Fuori90(a + b):nu1(5) = Vert(Fuori90(a + b))
k = 1
If ok = 1 Then
ritnu1 = RitardoCombinazioneTurbo(ruota,nu1,2,es)
Scrivi
Scrivi "Il ritardo per AMBO della giocata [ " & Format2(nu1(1)) & " . " & Format2(nu1(2)) & " . " & Format2(nu1(3)) & " . " & _
Format2(nu1(4)) & " . " & Format2(nu1(5)) & " ] è di " & Format2(ritnu1) & " estrazioni " & " ",True,False,,7,3
If ritnu1 <= 12 Then
Scrivi " CASO NON GIOCABILE ESITO NELLE 12 ESTRAZIONI PRECEDENTI ",True,True,1,5,3
Else
Scrivi
Scrivi
EliminaRipetuti nu1
ImpostaGiocata 1,nu1,ruota,posta,k
Gioca es,True,,1
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
MI DA ERRORE E NON MI FA APRIRE.
IN ATTESA, TI INVIO CORDIALI SALUTI.
