Novità

Aiuto per Script

salvo14

Super Member >PLATINUM<
Buongiorno, gentilmente mi potete aiutare con il seguente Script che mi sta facendo impazzire?
Lo Script deve calcolare la previsione all'ultima estrazione mensile. Grazie

Sub Main() ColoreTesto 2
Scrivi

Scrivi
ColoreTesto 0
Dim ruote(2)
Dim t1(5): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim t7(3): Dim poste(5)
poste(2) = 1
klp = 7
If IsUltimaDelMese(es) Then

ruote(1) = 9
ruote(2) = 10


ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 7:Scrivi String(100,"°")
ColoreTesto 0
t1(1) = Fuori90(Estratto(es,3,3) + 20)
ImpostaGiocata 1,t1,ruote,poste,klp
t2(1) = Fuori90(Estratto(es,3,3) + 20)
t2(2) = 1
ImpostaGiocata 2,t2,ruote,poste,klp
t3(1) = Fuori90(Estratto(es,3,3) + 20)
t3(2) = 12
ImpostaGiocata 3,t3,ruote,poste,klp
t4(1) = Fuori90(Estratto(es,3,3) + 20)
t4(2) = 18
ImpostaGiocata 4,t4,ruote,poste,klp
t5(1) = Fuori90(Estratto(es,3,3) + 20)
t5(2) = 22
ImpostaGiocata 5,t5,ruote,poste,klp
t6(1) = Fuori90(Estratto(es,3,3) + 20)
t6(2) = 35
ImpostaGiocata 6,t6,ruote,poste,klp
t7(1) = Fuori90(Estratto(es,3,3) + 20)
t7(2) = 46
ImpostaGiocata 7,t7,ruote,poste,klp
Gioca es,1
End If
Scrivi
ScriviResoconto
End Sub
 
Ho aggiunto quante estrazioni analizzare, guarda se Ti va bene:
Sub Main() ColoreTesto 2
Scrivi
Scrivi
ColoreTesto 0
Dim ruote(2)
Dim t1(5): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim t7(3): Dim poste(5)
poste(2) = 1
y = InputBox("Quante estrazioni di ricerca?",,200)
klp = 7
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
If IsUltimaDelMese(es) Then
'If IndiceMensile(es) = 1 Then
ruote(1) = 9
ruote(2) = 10
'---
ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 7:Scrivi String(100,"°")
ColoreTesto 0
t1(1) = Fuori90(Estratto(es,3,3) + 20)
ImpostaGiocata 1,t1,ruote,poste,klp
t2(1) = Fuori90(Estratto(es,3,3) + 20)
t2(2) = 1
ImpostaGiocata 2,t2,ruote,poste,klp
t3(1) = Fuori90(Estratto(es,3,3) + 20)
t3(2) = 12
ImpostaGiocata 3,t3,ruote,poste,klp
t4(1) = Fuori90(Estratto(es,3,3) + 20)
t4(2) = 18
ImpostaGiocata 4,t4,ruote,poste,klp
t5(1) = Fuori90(Estratto(es,3,3) + 20)
t5(2) = 22
ImpostaGiocata 5,t5,ruote,poste,klp
t6(1) = Fuori90(Estratto(es,3,3) + 20)
t6(2) = 35
ImpostaGiocata 6,t6,ruote,poste,klp
t7(1) = Fuori90(Estratto(es,3,3) + 20)
t7(2) = 46
ImpostaGiocata 7,t7,ruote,poste,klp
Gioca es,1
End If
Next
Scrivi
ScriviResoconto
End Sub
 
Grazie, sei stato bravissimo funziona a meraviglia. Grazie ancora stavo impazzendo, la verità e che nella vita uno dovrebbe sapere fare e capire tutto!! ma purtroppo non è così almeno per me.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11

Ultimi Messaggi

Indietro
Alto