Novità

Rivedere,script

giorgioantonio

Super Member >PLATINUM<
Salve Moro,

purtroppo ho avuto dei problemi al computer e
nel recuperare i dati ho copiato lo script presente
che presenta una correzione.
Ti dispiace rifare l'operazione eseguendo lo script
e capire e correggere l'errore?
Sub Main()
Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
Dim cin(10),ruote(10)
casi = 0
x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO

ruote(1) = r
fin = EstrazioneFin
Ini = fin - 140
fine = EstrazioneFin
ReDim atitoli(11)
atitoli(1) = " ESTRATTO "
atitoli(2) = " SOMMATIVO "
atitoli(3) = " PRESENZA SU CASI "
atitoli(4) = " NUMERO IN GIOCO "
atitoli(5) = " ESITO "
atitoli(6) = " RET_ESTRATTI "
atitoli(7) = " DATA ESTRAZIONE "
atitoli(8) = " COLPO ESITO "
atitoli(9) = " NUM. 1 "
atitoli(10) = " NUM. 2 "
atitoli(11) = " NUM. 3 "
Call InitTabella(atitoli,1,,3,5)
For es = Ini To Fin
If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
idd = GetInfoEstrazione(es)
Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi)
Call AvanzamentoElab(Ini,fin,es)
Inco = fine - es
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + colpi
e = Estratto(es,r,pos)
For s1 = 1 To 88
For s2 = s1 + 1 To 89
For s3 = s2 + 1 To 90
co = co + 1
cin(1) = Fuori90(e + s1)
cin(2) = Fuori90(e + s2)
cin(3) = Fuori90(e + s3)
ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
num(co,1) = s1
num(co,2) = s2
num(co,3) = s3
num(co,4) = num(co,4)
If ea > 0 Then
num(co,4) = num(co,4) + 1
End If
Next
Next
Next
End If
Next
Scrivi : ColoreTesto 0: Scrivi,1
Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
Scrivi "Combinazioni analizzate: " & co,1
Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
Scrivi " -> Colpo in corso..." & Inco,1
Scrivi
ColoreTesto 0
For i = 1 To visual
Call OrdinaMatrice(num,- 1,4)
If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
ColoreTesto 0
aa(1) = Fuori90(cin(1) + num(i,1) + 2)
aa(2) = Fuori90(cin(2) + num(i,2) + 1)
aa(3) = Fuori90(cin(3) + num(i,3))
Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito),r etcolpi,retestratti,id)
n1(1) = aa(1)
n2(1) = aa(2)
n3(1) = aa(3)

ReDim avalori(11)
avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
avalori(5) = retesito
avalori(6) = Retestratti
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(7) = DataEstrazione(id)
Else
avalori(7) = " In corso "
End If
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(8) = retcolpi & "°"
Else
avalori(8) = Inco & "° in corso "
End If
sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
If sf11 > 0 Then
avalori(9) = n1(1)
Else
avalori(9) = ""
End If
If sf12 > 0 Then
avalori(10) = n2(1)
Else
avalori(10) = ""
End If
If sf13 > 0 Then
avalori(11) = n3(1)
Else
avalori(11) = ""
End If
'End If
Call AddRigaTabella(avalori,,,3)
End If
Call SetColoreCella(2,,1)
Call SetColoreCella(4,,2)
Call SetColoreCella(6,,7)
If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()


End Sub

Ti ringrazio nuovamente dell'aiuto.
 
Ciao giorgioantonio,
prova adesso se funziona:

Codice:
Sub Main()
Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
Dim cin(10),ruote(10)
casi = 0
x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO

ruote(1) = r
fin = EstrazioneFin
Ini = fin - 140
fine = EstrazioneFin
ReDim atitoli(11)
atitoli(1) = " ESTRATTO "
atitoli(2) = " SOMMATIVO "
atitoli(3) = " PRESENZA SU CASI "
atitoli(4) = " NUMERO IN GIOCO "
atitoli(5) = " ESITO "
atitoli(6) = " RET_ESTRATTI "
atitoli(7) = " DATA ESTRAZIONE "
atitoli(8) = " COLPO ESITO "
atitoli(9) = " NUM. 1 "
atitoli(10) = " NUM. 2 "
atitoli(11) = " NUM. 3 "
Call InitTabella(atitoli,1,,3,5)
For es = Ini To Fin
If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
idd = GetInfoEstrazione(es)
Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi)
Call AvanzamentoElab(Ini,fin,es)
Inco = fine - es
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + colpi
e = Estratto(es,r,pos)
For s1 = 1 To 88
For s2 = s1 + 1 To 89
For s3 = s2 + 1 To 90
co = co + 1
cin(1) = Fuori90(e + s1)
cin(2) = Fuori90(e + s2)
cin(3) = Fuori90(e + s3)
ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
num(co,1) = s1
num(co,2) = s2
num(co,3) = s3
num(co,4) = num(co,4)
If ea > 0 Then
num(co,4) = num(co,4) + 1
End If
Next
Next
Next
End If
Next
Scrivi : ColoreTesto 0: Scrivi,1
Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
Scrivi "Combinazioni analizzate: " & co,1
Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
Scrivi " -> Colpo in corso..." & Inco,1
Scrivi
ColoreTesto 0
For i = 1 To visual
Call OrdinaMatrice(num,- 1,4)
If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
ColoreTesto 0
aa(1) = Fuori90(cin(1) + num(i,1) + 2)
aa(2) = Fuori90(cin(2) + num(i,2) + 1)
aa(3) = Fuori90(cin(3) + num(i,3))
Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
n1(1) = aa(1)
n2(1) = aa(2)
n3(1) = aa(3)

ReDim avalori(11)
avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
avalori(5) = retesito
avalori(6) = Retestratti
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(7) = DataEstrazione(id)
Else
avalori(7) = " In corso "
End If
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(8) = retcolpi & "°"
Else
avalori(8) = Inco & "° in corso "
End If
sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
If sf11 > 0 Then
avalori(9) = n1(1)
Else
avalori(9) = ""
End If
If sf12 > 0 Then
avalori(10) = n2(1)
Else
avalori(10) = ""
End If
If sf13 > 0 Then
avalori(11) = n3(1)
Else
avalori(11) = ""
End If
'End If
Call AddRigaTabella(avalori,,,3)
End If
Call SetColoreCella(2,,1)
Call SetColoreCella(4,,2)
Call SetColoreCella(6,,7)
If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()


End Sub

Ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 29 maggio 2025
    Bari
    45
    10
    60
    68
    59
    Cagliari
    04
    31
    24
    61
    63
    Firenze
    71
    59
    65
    53
    46
    Genova
    21
    26
    50
    63
    86
    Milano
    46
    52
    45
    21
    15
    Napoli
    88
    90
    17
    46
    12
    Palermo
    31
    40
    71
    32
    12
    Roma
    86
    81
    41
    12
    19
    Torino
    75
    32
    64
    46
    04
    Venezia
    26
    65
    38
    56
    60
    Nazionale
    16
    55
    64
    57
    12
    Estrazione Simbolotto
    Milano
    45
    26
    36
    08
    22
Indietro
Alto