Novità

in cerca di aiuto

Serpico 90

Advanced Member
Salve, per gli esperti di script.PER FAVORE, potete elaborare questo script del Sig.Veccchione?
Grazie e abuon rendere


CIAO!!! PENSO DI FARE REGALO GRADITO PER LEI E PER TUTTI GLI AMICI DEL FORUM CIAO!!!




Ricerca automatica ambate - La Macchina Del Tempo " by Antonio Vecchione"



Ricerca della spia effettuata sul 2° estratto della ruota di CAGLIARI


Numero di colpi :18 Indice di estrazione mensile: Ultima del mese
Data di inizio ricerca : 07/01/1871 (1) Data di fine ricerca: 20/04/2013 (8681)
Ruote di gioco: BARI CAGLIARI FIRENZE GENOVA MILANO NAPOLI PALERMO ROMA TORINO VENEZIA NAZIONALE


Spia 1 Indice: 3° di TORINO + 86 Ruota di gioco: VENEZIA Copertura: 18/18
Spia 2 Indice: 2° di NAPOLI + 80 Ruota di gioco: BARI Copertura: 6/6
Spia 3 Indice: 1° di BARI + 22 Ruota di gioco: TORINO Copertura: 14/14
Spia 4 Indice: 3° di ROMA + 88 Ruota di gioco: NAPOLI Copertura: 11/11
Spia 5 Indice: 3° di PALERMO + 85 Ruota di gioco: GENOVA Copertura: 11/11
Spia 6 Indice: 3° di BARI + 70 Ruota di gioco: ROMA Copertura: 13/13
Spia 7 Indice: 3° di FIRENZE + 86 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 8 Indice: 3° di GENOVA + 88 Ruota di gioco: MILANO Copertura: 9/9
Spia 9 Indice: 5° di TORINO + 89 Ruota di gioco: ROMA Copertura: 9/9
Spia 10 Indice: 5° di FIRENZE + 79 Ruota di gioco: NAPOLI Copertura: 13/13
Spia 11 Indice: 4° di VENEZIA + 87 Ruota di gioco: CAGLIARI Copertura: 12/12
Spia 12 Indice: 4° di MILANO + 89 Ruota di gioco: PALERMO Copertura: 6/6
Spia 13 Indice: 2° di PALERMO + 88 Ruota di gioco: PALERMO Copertura: 7/7
Spia 14 Indice: 2° di ROMA + 77 Ruota di gioco: MILANO Copertura: 8/8
Spia 15 Indice: 3° di VENEZIA + 88 Ruota di gioco: BARI Copertura: 12/12
Spia 16 Indice: 1° di MILANO + 83 Ruota di gioco: BARI Copertura: 12/12
Spia 17 Indice: 2° di ROMA + 84 Ruota di gioco: CAGLIARI Copertura: 10/10
Spia 18 Indice: 2° di BARI + 10 Ruota di gioco: PALERMO Copertura: 5/5
Spia 19 Indice: 2° di CAGLIARI + 79 Ruota di gioco: BARI Copertura: 7/7
Spia 20 Indice: 5° di FIRENZE + 82 Ruota di gioco: VENEZIA Copertura: 10/10
Spia 21 Indice: 4° di MILANO + 85 Ruota di gioco: VENEZIA Copertura: 8/8
Spia 22 Indice: 2° di CAGLIARI + 85 Ruota di gioco: BARI Copertura: 7/7
Spia 23 Indice: 1° di BARI + 14 Ruota di gioco: CAGLIARI Copertura: 3/3
Spia 24 Indice: 5° di PALERMO + 60 Ruota di gioco: PALERMO Copertura: 4/4
Spia 25 Indice: 4° di NAPOLI + 87 Ruota di gioco: GENOVA Copertura: 8/8
Spia 26 Indice: 5° di MILANO + 87 Ruota di gioco: VENEZIA Copertura: 9/9
Spia 27 Indice: 2° di CAGLIARI + 87 Ruota di gioco: VENEZIA Copertura: 10/10
Spia 28 Indice: 3° di VENEZIA + 80 Ruota di gioco: MILANO Copertura: 12/12
Spia 29 Indice: 4° di BARI + 82 Ruota di gioco: FIRENZE Copertura: 10/10
Spia 30 Indice: 1° di BARI + 72 Ruota di gioco: TORINO Copertura: 6/6
Spia 31 Indice: 4° di TORINO + 82 Ruota di gioco: MILANO Copertura: 13/13
Spia 32 Indice: 4° di VENEZIA + 84 Ruota di gioco: TORINO Copertura: 8/8
Spia 33 Indice: 5° di PALERMO + 49 Ruota di gioco: GENOVA Copertura: 3/3
Spia 34 Indice: 4° di VENEZIA + 83 Ruota di gioco: BARI Copertura: 13/13
Spia 35 Indice: 2° di MILANO + 84 Ruota di gioco: GENOVA Copertura: 6/6
Spia 36 Indice: 4° di NAPOLI + 78 Ruota di gioco: MILANO Copertura: 7/7
Spia 37 Indice: 5° di ROMA + 75 Ruota di gioco: NAPOLI Copertura: 12/12
Spia 38 Indice: 2° di CAGLIARI + 53 Ruota di gioco: PALERMO Copertura: 12/12
Spia 39 Indice: 3° di MILANO + 82 Ruota di gioco: FIRENZE Copertura: 8/8
Spia 40 Indice: 2° di PALERMO + 84 Ruota di gioco: TORINO Copertura: 11/11
Spia 41 Indice: 2° di BARI + 65 Ruota di gioco: FIRENZE Copertura: 8/8
Spia 42 Indice: 5° di GENOVA + 75 Ruota di gioco: TORINO Copertura: 12/12
Spia 43 Indice: 2° di MILANO + 89 Ruota di gioco: TORINO Copertura: 8/8
Spia 44 Indice: 3° di BARI + 73 Ruota di gioco: MILANO Copertura: 12/12
Spia 45 Indice: 3° di BARI + 38 Ruota di gioco: GENOVA Copertura: 13/13
Spia 46 Indice: 3° di CAGLIARI + 83 Ruota di gioco: ROMA Copertura: 10/10
Spia 47 Indice: 5° di BARI + 74 Ruota di gioco: NAPOLI Copertura: 8/8
Spia 48 Indice: 2° di FIRENZE + 50 Ruota di gioco: PALERMO Copertura: 7/7
Spia 49 Indice: 3° di MILANO + 81 Ruota di gioco: PALERMO Copertura: 9/9
Spia 50 Indice: 3° di TORINO + 74 Ruota di gioco: MILANO Copertura: 10/10
Spia 51 Indice: 3° di BARI + 86 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 52 Indice: 1° di CAGLIARI + 55 Ruota di gioco: MILANO Copertura: 8/8
Spia 53 Indice: 2° di BARI + 87 Ruota di gioco: TORINO Copertura: 10/10
Spia 54 Indice: 2° di NAPOLI + 76 Ruota di gioco: BARI Copertura: 8/8
Spia 55 Indice: 1° di BARI + 85 Ruota di gioco: MILANO Copertura: 12/12
Spia 56 Indice: 4° di BARI + 76 Ruota di gioco: ROMA Copertura: 15/15
Spia 57 Indice: 4° di PALERMO + 50 Ruota di gioco: CAGLIARI Copertura: 3/3
Spia 58 Indice: 2° di BARI + 69 Ruota di gioco: BARI Copertura: 9/9
Spia 59 Indice: 5° di GENOVA + 74 Ruota di gioco: FIRENZE Copertura: 8/8
Spia 60 Indice: 4° di CAGLIARI + 89 Ruota di gioco: NAPOLI Copertura: 10/10
Spia 61 Indice: 2° di CAGLIARI + 46 Ruota di gioco: ROMA Copertura: 6/6
Spia 62 Indice: 4° di BARI + 60 Ruota di gioco: TORINO Copertura: 11/11
Spia 63 Indice: 2° di BARI + 29 Ruota di gioco: BARI Copertura: 10/10
Spia 64 Indice: 2° di FIRENZE + 84 Ruota di gioco: PALERMO Copertura: 12/12
Spia 65 Indice: 3° di CAGLIARI + 80 Ruota di gioco: VENEZIA Copertura: 9/9
Spia 66 Indice: 5° di PALERMO + 87 Ruota di gioco: CAGLIARI Copertura: 9/9
Spia 67 Indice: 1° di BARI + 62 Ruota di gioco: FIRENZE Copertura: 11/11
Spia 68 Indice: 2° di CAGLIARI + 47 Ruota di gioco: BARI Copertura: 6/6
Spia 69 Indice: 5° di GENOVA + 82 Ruota di gioco: PALERMO Copertura: 11/11
Spia 70 Indice: 1° di NAPOLI + 86 Ruota di gioco: VENEZIA Copertura: 16/16
Spia 71 Indice: 4° di TORINO + 79 Ruota di gioco: NAPOLI Copertura: 12/12
Spia 72 Indice: 2° di NAPOLI + 86 Ruota di gioco: PALERMO Copertura: 13/13
Spia 73 Indice: 2° di CAGLIARI + 46 Ruota di gioco: GENOVA Copertura: 13/13
Spia 74 Indice: 1° di BARI + 73 Ruota di gioco: GENOVA Copertura: 11/11
Spia 75 Indice: 2° di CAGLIARI + 80 Ruota di gioco: VENEZIA Copertura: 8/8
Spia 76 Indice: 1° di PALERMO + 82 Ruota di gioco: BARI Copertura: 12/12
Spia 77 Indice: 5° di CAGLIARI + 77 Ruota di gioco: ROMA Copertura: 10/10
Spia 78 Indice: 3° di VENEZIA + 79 Ruota di gioco: TORINO Copertura: 12/12
Spia 79 Indice: 5° di CAGLIARI + 83 Ruota di gioco: MILANO Copertura: 10/10
Spia 80 Indice: 5° di BARI + 76 Ruota di gioco: GENOVA Copertura: 4/4
Spia 81 Indice: 2° di MILANO + 82 Ruota di gioco: FIRENZE Copertura: 13/13
Spia 82 Indice: 5° di BARI + 81 Ruota di gioco: ROMA Copertura: 8/8
Spia 83 Indice: 2° di CAGLIARI + 23 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 84 Indice: 3° di PALERMO + 81 Ruota di gioco: CAGLIARI Copertura: 9/9
Spia 85 Indice: 3° di VENEZIA + 76 Ruota di gioco: NAPOLI Copertura: 10/10
Spia 86 Indice: 5° di PALERMO + 89 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 87 Indice: 4° di ROMA + 78 Ruota di gioco: FIRENZE Copertura: 9/9
Spia 88 Indice: 2° di PALERMO + 77 Ruota di gioco: ROMA Copertura: 8/8
Spia 89 Indice: 4° di BARI + 79 Ruota di gioco: PALERMO Copertura: 14/14
Spia 90 Indice: 1° di BARI + 53 Ruota di gioco: BARI Coperturae
 
R

Roby

Guest
Ciao serpico
Dovrebbe essere corretto... controlla
Se non gira togliete la solita virgola e l'1 dopo Gioca es
Ora pausa script per un po'....



Codice:
Sub Main()
Scrivi:Scrivi "La Macchina Del Tempo di Antonio Vecchione ... Script By Blackmore",1
Scrivi 
Dim ruota(10)
Dim ambata(1)
Dim n(1)
Dim posta(1)
posta(1) = 1
k = InputBox("COLPI DI GIOCO",,18)
ini = InputBox("ESTRAZIONE DI PARTENZA",,3850)
fin = InputBox("ESTRAZIONE FINALE",,EstrazioneFin) 
For es = ini To fin 

Call AvanzamentoElab(ini,fin,es) 
If IndiceMensile(es+1)= 1 Then
a = Estratto(es,CA_,2)
If a > 0 Then
  
co=co+1

Scrivi String(105,"*")&" Caso n°"& Format2(co),1
Scrivi DataEstrazione(es)&"  "& SiglaRuota(CA_)&"  "& StringaEstratti(es,CA_)&"  Spia  "& Format2(a)&" In 2°Posizione",1  
If a = 1 Then n(1)= Fuori90(Estratto(es,TO_,3)+ 86):r=10
If a = 2 Then n(1)= Fuori90(Estratto(es,NA_,2)+ 80):r=1
If a = 3 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 22):r=9
If a = 4 Then n(1)= Fuori90(Estratto(es,RO_,3)+ 88):r=6
If a = 5 Then n(1)= Fuori90(Estratto(es,PA_,3)+ 85):r=4
If a = 6 Then n(1)= Fuori90(Estratto(es,BA_,3)+ 70):r=8
If a = 7 Then n(1)= Fuori90(Estratto(es,FI_,3)+ 86):r=3
If a = 8 Then n(1)= Fuori90(Estratto(es,GE_,3)+ 88):r=5
If a = 9 Then n(1)= Fuori90(Estratto(es,TO_,5)+ 89):r=8
If a = 10 Then n(1)= Fuori90(Estratto(es,FI_,5)+ 79):r=6
If a = 11 Then n(1)= Fuori90(Estratto(es,VE_,4)+ 87):r=2
If a = 12 Then n(1)= Fuori90(Estratto(es,MI_,4)+ 89):r=7
If a = 13 Then n(1)= Fuori90(Estratto(es,PA_,2)+ 88):r=7
If a = 14 Then n(1)= Fuori90(Estratto(es,RO_,2)+ 77):r=5
If a = 15 Then n(1)= Fuori90(Estratto(es,VE_,3)+ 88):r=1
If a = 16 Then n(1)= Fuori90(Estratto(es,MI_,1)+ 83):r=1
If a = 17 Then n(1)= Fuori90(Estratto(es,RO_,2)+ 84):r=2
If a = 18 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 10):r=7
If a = 19 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 79):r=1
If a = 20 Then n(1)= Fuori90(Estratto(es,FI_,5)+ 82):r=10
If a = 21 Then n(1)= Fuori90(Estratto(es,MI_,4)+ 85):r=10
If a = 22 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 85):r=1
If a = 23 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 14):r=2
If a = 24 Then n(1)= Fuori90(Estratto(es,PA_,5)+ 60):r=7
If a = 25 Then n(1)= Fuori90(Estratto(es,NA_,4)+ 87):r=4
If a = 26 Then n(1)= Fuori90(Estratto(es,MI_,5)+ 87):r=10
If a = 27 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 87):r=10
If a = 28 Then n(1)= Fuori90(Estratto(es,VE_,3)+ 80):r=5
If a = 29 Then n(1)= Fuori90(Estratto(es,BA_,4)+ 82):r=3
If a = 30 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 72):r=9
If a = 31 Then n(1)= Fuori90(Estratto(es,TO_,4)+ 82):r=5
If a = 32 Then n(1)= Fuori90(Estratto(es,VE_,4)+ 84):r=9
If a = 33 Then n(1)= Fuori90(Estratto(es,PA_,5)+ 49):r=4
If a = 34 Then n(1)= Fuori90(Estratto(es,VE_,4)+ 83):r=1
If a = 35 Then n(1)= Fuori90(Estratto(es,MI_,2)+ 84):r=4
If a = 36 Then n(1)= Fuori90(Estratto(es,NA_,4)+ 78):r=5
If a = 37 Then n(1)= Fuori90(Estratto(es,RO_,5)+ 75):r=6
If a = 38 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 53):r=7
If a = 39 Then n(1)= Fuori90(Estratto(es,MI_,3)+ 82):r=3
If a = 40 Then n(1)= Fuori90(Estratto(es,PA_,2)+ 84):r=9
If a = 41 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 65):r=3
If a = 42 Then n(1)= Fuori90(Estratto(es,GE_,5)+ 75):r=9
If a = 43 Then n(1)= Fuori90(Estratto(es,MI_,2)+ 89):r=9
If a = 44 Then n(1)= Fuori90(Estratto(es,BA_,3)+ 73):r=5
If a = 45 Then n(1)= Fuori90(Estratto(es,BA_,3)+ 38):r=4
If a = 46 Then n(1)= Fuori90(Estratto(es,CA_,3)+ 83):r=8
If a = 47 Then n(1)= Fuori90(Estratto(es,BA_,5)+ 74):r=6
If a = 48 Then n(1)= Fuori90(Estratto(es,FI_,2)+ 50):r=7
If a = 49 Then n(1)= Fuori90(Estratto(es,MI_,3)+ 81):r=7
If a = 50 Then n(1)= Fuori90(Estratto(es,TO_,3)+ 74):r=5
If a = 51 Then n(1)= Fuori90(Estratto(es,BA_,3)+ 86):r=3
If a = 52 Then n(1)= Fuori90(Estratto(es,CA_,1)+ 55):r=5
If a = 53 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 87):r=9
If a = 54 Then n(1)= Fuori90(Estratto(es,NA_,2)+ 76):r=1
If a = 55 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 85):r=5
If a = 56 Then n(1)= Fuori90(Estratto(es,BA_,4)+ 76):r=8
If a = 57 Then n(1)= Fuori90(Estratto(es,PA_,4)+ 50):r=2
If a = 58 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 69):r=1
If a = 59 Then n(1)= Fuori90(Estratto(es,GE_,5)+ 74):r=3
If a = 60 Then n(1)= Fuori90(Estratto(es,CA_,4)+ 89):r=6
If a = 61 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 46):r=8
If a = 62 Then n(1)= Fuori90(Estratto(es,BA_,4)+ 60):r=9
If a = 63 Then n(1)= Fuori90(Estratto(es,BA_,2)+ 29):r=1
If a = 64 Then n(1)= Fuori90(Estratto(es,FI_,2)+ 84):r=7
If a = 65 Then n(1)= Fuori90(Estratto(es,CA_,3)+ 80):r=10
If a = 66 Then n(1)= Fuori90(Estratto(es,PA_,5)+ 87):r=2
If a = 67 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 62):r=3
If a = 68 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 47):r=1
If a = 69 Then n(1)= Fuori90(Estratto(es,GE_,5)+ 82):r=7
If a = 70 Then n(1)= Fuori90(Estratto(es,NA_,1)+ 86):r=10
If a = 71 Then n(1)= Fuori90(Estratto(es,TO_,4)+ 79):r=6
If a = 72 Then n(1)= Fuori90(Estratto(es,NA_,2)+ 86):r=7
If a = 73 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 46):r=4
If a = 74 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 73):r=4
If a = 75 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 80):r=10
If a = 76 Then n(1)= Fuori90(Estratto(es,PA_,1)+ 82):r=1
If a = 77 Then n(1)= Fuori90(Estratto(es,CA_,5)+ 77):r=8
If a = 78 Then n(1)= Fuori90(Estratto(es,VE_,3)+ 79):r=9
If a = 79 Then n(1)= Fuori90(Estratto(es,CA_,5)+ 83):r=5
If a = 80 Then n(1)= Fuori90(Estratto(es,BA_,5)+ 76):r=4
If a = 81 Then n(1)= Fuori90(Estratto(es,MI_,2)+ 82):r=3
If a = 82 Then n(1)= Fuori90(Estratto(es,BA_,5)+ 81):r=8
If a = 83 Then n(1)= Fuori90(Estratto(es,CA_,2)+ 23):r=3
If a = 84 Then n(1)= Fuori90(Estratto(es,PA_,3)+ 81):r=2
If a = 85 Then n(1)= Fuori90(Estratto(es,VE_,3)+ 76):r=6
If a = 86 Then n(1)= Fuori90(Estratto(es,PA_,5)+ 89):r=3
If a = 87 Then n(1)= Fuori90(Estratto(es,RO_,4)+ 78):r=3
If a = 88 Then n(1)= Fuori90(Estratto(es,PA_,2)+ 77):r=8
If a = 89 Then n(1)= Fuori90(Estratto(es,BA_,4)+ 79):r=7
If a = 90 Then n(1)= Fuori90(Estratto(es,BA_,1)+ 53):r=1

ruota(1)= r
ambata(1)= n(1)
ImpostaGiocata 1,ambata,ruota,posta,k,1 
Gioca es,1  ' Se usate L8 o Lottodesk togliete la virgola e l'1 dopo gioca es   
End If
End If
If ScriptInterrotto Then Exit For 
Next 
ScriviResoconto 
End Sub
 

Serpico 90

Advanced Member
Grazie, funziona correttamente,non ci potevano essre dubbi.....conosco già la Tua bravura e anche la Tua grande disponibilità ad aiutare tutti .
Certamente PAUSA PER UN PO NELLE RICHIESTE MA SE HAI DEI LAVORI CHE VANNO BENE e Gentilmente li vuoi postare siamo qui ad aspettare.
Grazie
Un cordiale saluto
Serpico
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto