Novità

Mi servirebbe un aiuto per uno script

gorilla81

Super member
Salve ragazzi! Mi servirebbe un aiuto per questo script:

Sub Main()
Dim rt(2),pt(4)
Dim n1(4)
pt(1) = 1

clp = 13 'colpi di gioco
rt(1) = 7 'la ruota di gioco

ini = EstrazioneFin - 120
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 12 Then 'ultima estrazione del mese
Scrivi String(60,"=")
co = co + 1
a = Estratto(es,2,3)


'------------------------------Numeri in gioco
n1(1) = Fuori90(a + 33)
n1(2) = Fuori90(a + 82)

ImpostaGiocata 2,n1,rt,pt,clp


Gioca es
End If
Next
ScriviResoconto
End Sub



Non riesco ad inserire la stringa per farlo fermare al primo risultato utile. Sareste così gentili da farmi vedere come si fa??? Ho letto la guida per farlo da solo ma non ci riesco. Grazie mille a chi mi sarà d'aiuto!!!
 
Salve ragazzi! Mi servirebbe un aiuto per questo script:

Sub Main()
Dim rt(2),pt(4)
Dim n1(4)
pt(1) = 1

clp = 13 'colpi di gioco
rt(1) = 7 'la ruota di gioco

ini = EstrazioneFin - 120
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 12 Then 'ultima estrazione del mese
Scrivi String(60,"=")
co = co + 1
a = Estratto(es,2,3)


'------------------------------Numeri in gioco
n1(1) = Fuori90(a + 33)
n1(2) = Fuori90(a + 82)

ImpostaGiocata 2,n1,rt,pt,clp


Gioca es
End If
Next
ScriviResoconto
End Sub



Non riesco ad inserire la stringa per farlo fermare al primo risultato utile. Sareste così gentili da farmi vedere come si fa??? Ho letto la guida per farlo da solo ma non ci riesco. Grazie mille a chi mi sarà d'aiuto!!!




Nella guida è spiegato..........

ad ogni modo


Codice:
Sub Main()
    Dim rt(1)'numero di ruote interessate
    Dim pt(1)'tipo di puntata
    Dim n1(2)'quantita di numeri in gioco
    pt(1) = 1'puntata per ambata
    clp = 13 'colpi di gioco
    rt(1) = 7 'la ruota di gioco
    ini = EstrazioneFin - 120
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 12 Then 'ultima estrazione del mese
            '-----------------------------------------------------------
            '-----------------------------------------------------------
            ' il gioco si svolve alla 12° estrazione del mese che non sempre corrisponde all'ultima
            '-----------------------------------------------------------
            Scrivi String(60,"=")
            co = co + 1
            a = Estratto(es,2,3)
            '------------------------------Numeri in gioco
            n1(1) = Fuori90(a + 33)
            n1(2) = Fuori90(a + 82)
            ImpostaGiocata 1,n1,rt,pt,clp,1'qui il numero 1 serve per far fermare al primo esito raggiunto
            Gioca es
        End If
    Next
    ScriviResoconto
End Sub
 
Grazie mille Baffoblu! Adesso avrei un'altra domanda da fare...perchè me ne ero dimenticato... invece di una posta fissa si potrebbe inserire una progressione di gioco?
Scusa ancora per il disturbo!
 
ciao con l'installazione vengono forniti numerosi script di esempio uno di questi si chiama Test_Progressione.ls aprilo con l'apposita
icona per aprire gli script si trova nella directory script\test
parti da quello e vedi cio che non ti è chiaro nell'help dello script
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto