Novità

Cerco errore in questo script

foxrex

Banned
Grazie
Ho trovato questo script, mi da l'errore sono talmente ignorante che se manca solo una virgola non saprei che fare
----------------------------------------------------------------------------------------------------------------
Sub Main()
Scrivi"Chicca Per Bari ,di Patty@dreams 64 - http://forum.lottoced.com/f8/chicca-per-bari-105096/ - ",1
Scrivi
Dim n(2),am1(4),am2(4),am3(4),ruota(1)
Dim posta(1),poste(2)
posta(1) = 1
poste(2) = 1
ruota(1) = BA_
k = 10
Ini = EstrazioneIni + 8475
fin = EstrazioneFin
For es = Ini To fin
Messaggio Es
AvanzamentoElab Ini,fin,es
If IsUltimaDelMese(es) Then
casi = casi + 1
Scrivi String(58,"-") & " caso n° " &(casi)
n(1) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 06) '1° Ca + 3° Ca + 06 1° Ambata
n(2) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 25) '1° ca + 3° Ca + 25 2° Ambata
ImpostaGiocata 1,n,ruota,posta,k
am1(1) = n(1) '1° Ambata
am1(2) = n(2) '2° Ambata
am1(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
am1(4) = Vert(n(1)) 'Vertibile della 1° Ambata
ImpostaGiocata 2,am1,ruota,poste,k,2
am2(1) = n(1) '1° Ambata
am2(2) = n(2) '2° Ambata
am2(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
am2(4) = Vert(n(2)) 'vertibile della 2° Ambata
ImpostaGiocata 3,am2,ruota,poste,k,2
am3(1) = n(1) '1° Ambata
am3(2) = n(2) '2° Ambata
am3(3) = Vert(n(1)) 'Vertibile della 1° Ambata
am3(4) = Vert(n(2)) 'vertibile della 2° Ambata
ImpostaGiocata 4,am3,ruota,poste,k,2
Gioca es,True,,1
End If
Next
ScriviResoconto
Se non ho capito male questo script ricerca 2 ambate e i relativi vertibili sulla ruota di bari,
Avrei bisogno che mi trovasse su tutte le ruote e possibile fare modifica
in Pratica mi serve questo
Il 2° estratto di Milano + Il 3° estratto di Venezia + 54 = 1° Ambata
Il 2° estratto di Milano + Il 3° estratto di Venezia + 10 = 2° Ambata
X sorti maggiori i 2 Vertibili.......Solo vorrei che mi desse il resoconto per le 11 Ruote
Perche' anni fa avevo questo metodo ma non ricordo la ruota , dal 2010
Grazie a chi puo'
 
ciao manca end sub alla fine copia questo....
Sub Main()
Scrivi"Chicca Per Bari ,di Patty@dreams 64 - Chicca Per Bari - ",1
Scrivi
Dim n(2),am1(4),am2(4),am3(4),ruota(1)
Dim posta(1),poste(2)
posta(1) = 1
poste(2) = 1
ruota(1) = BA_
k = 10
Ini = EstrazioneIni + 8475
fin = EstrazioneFin
For es = Ini To fin
Messaggio Es
AvanzamentoElab Ini,fin,es
If IsUltimaDelMese(es) Then
casi = casi + 1
Scrivi String(58,"-") & " caso n° " &(casi)
n(1) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 06) '1° Ca + 3° Ca + 06 1° Ambata
n(2) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 25) '1° ca + 3° Ca + 25 2° Ambata
ImpostaGiocata 1,n,ruota,posta,k
am1(1) = n(1) '1° Ambata
am1(2) = n(2) '2° Ambata
am1(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
am1(4) = Vert(n(1)) 'Vertibile della 1° Ambata
ImpostaGiocata 2,am1,ruota,poste,k,2
am2(1) = n(1) '1° Ambata
am2(2) = n(2) '2° Ambata
am2(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
am2(4) = Vert(n(2)) 'vertibile della 2° Ambata
ImpostaGiocata 3,am2,ruota,poste,k,2
am3(1) = n(1) '1° Ambata
am3(2) = n(2) '2° Ambata
am3(3) = Vert(n(1)) 'Vertibile della 1° Ambata
am3(4) = Vert(n(2)) 'vertibile della 2° Ambata
ImpostaGiocata 4,am3,ruota,poste,k,2
Gioca es,True,,1
End If
Next
ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 agosto 2025
    Bari
    67
    05
    41
    45
    12
    Cagliari
    29
    78
    54
    88
    28
    Firenze
    57
    58
    15
    45
    44
    Genova
    53
    33
    89
    34
    77
    Milano
    09
    31
    36
    03
    21
    Napoli
    82
    35
    45
    06
    65
    Palermo
    25
    40
    82
    48
    62
    Roma
    21
    24
    74
    52
    09
    Torino
    28
    78
    50
    90
    84
    Venezia
    38
    87
    03
    25
    41
    Nazionale
    56
    09
    42
    57
    33
    Estrazione Simbolotto
    Nazionale
    41
    44
    04
    07
    21
Indietro
Alto