Novità

Richiesta script numero spia

lottofortune

Advanced Member >PLATINUM<
Vorrei effettuare script sul numero spia 25 ho effettuato delle ricerche, ogni qualvolta esce il 25 si giocano ambata 8-80 per ambo 14-13-46-86-2-12-3-68
 
Ultima modifica:
Codice:
' DOPO IL 25 gioca 8-80 x estratto - abbimamenti 2.3.12.13.14.46.68.86
Sub Main()
    Dim am(2),ambo(2),abb(8),casi,a,ng
    Dim ruote(2)
    Dim posta(1),postaA(2)
    posta(1) = 1
    postaA(2) = 1
    clp = 13 ' colpi di gioco
    casi = 0
    fin = EstrazioneFin
    ini = fin - 50
    Scrivi " DOPO IL 25 gioca 8-80 x Estratto - abbimamenti 2.3.12.13.14.46.68.86"
    For es = ini To fin
        For r = 1 To 12
            If r = 11 Then r = 12
            For p = 1 To 5
                a = Estratto(es,r,p)
                ng = 0
                If a = 25 Then 'numero spia di ricerca puoi sostituirlo
                    casi = casi + 1
                    Scrivi "-----------------------------------------------------------------------------"
                    Scrivi FormatSpace(casi,3,-1) &"° caso - Condizione su: " & SiglaRuota(r) & " " & a
                    ruote(1) = r
                    am(1) = 8 'num in gioco puoi sostituirli
                    am(2) = 80
                    ng = ng + 1
                    ImpostaGiocata ng,am,ruote,posta,clp,1
                    'Parametri
                    'NumGiocata
                    'Valore numerico definito dall'utente che identifica la giocata (è infatti possibile inserire più giocate).
                    'VetNumeri ' E' il vettore che contiene i numeri da porre in gioco viene utilizzato a partire dall'indice 1
                    'vetRuote ' E' il vettore che consente di specificare le ruote interessate. Se la giocata avviene su due ruote può essere definito con Dim vetRuote(2) . e se le ruote in gioco fossero Bari e Venezia andrebbe poi valorizzato con : vetRuote(1) = BA_ vetRuote(2) = VE_
                    'vetPoste ' E' il vettore che specifica le poste in euro in gioco sulle varie sorti su cui la giocata opera. Va definito con Dim vetPoste (10) gli indici da 1 a 5 identificano le sorti estrattto ,ambo,terno ,quaterna , cinquina. gli indici da 6 a 10 identificano gli estratti determinati.
                    'Optional Durata = 1 ' Specifica i colpi di gioco che verranno analizzati dal momento in cui si pone in gioco la combinazione
                    'Optional SorteInterr = 0 ' Valore numerico che indica se la giocata dovrà essere interrotta non appena produrrà l'esito specificato da questo valore
                    'Optional Attesa = 0 ' Consente di introdurre un ritardo che consente di analizzare la giocata non subito dopo il suo rilevamento bensì aspettando prima il numero di colpi definito da questo valore
                    'Optional aGiocateDaInterrompere = 0 ' Array contenente i numeri identficativi delle giocate da interrompere in caso la giocata corrente sia vincente, se invece di un Array si passa un valore diverso da 0 p. es allora se la giocata corrente è vincente tutte le giocate in memoria vengono interrotte e si ottiene lo stesso effetto senza bisogno di passare l'array che va usato invece se bisogna interrompere solo alcune giocate specifiche ma non tutte
                    abb(1) = 2
                    abb(2) = 3
                    abb(3) = 12
                    abb(4) = 13
                    abb(5) = 14
                    abb(6) = 46
                    abb(7) = 68
                    abb(8) = 86
                    For a = 1 To 2
                        For x = 1 To 8
                            ambo(1) = am(a)
                            ambo(2) = abb(x)
                            ng = ng + 1
                            ImpostaGiocata ng,ambo,ruote,postaA,clp,2,,1
                        Next
                    Next
                    Gioca es ,False,False,1',False
                    'Parametri
                    'Inizio Range Inizio
                    'Optional SoloPositivi As Boolean = False Consente di mostrare nella finestra di Output soltanto i casi positivi di gioco
                    'Optional mantienigiocate As Boolean = False se = - 1 mantiene le giocate in memoria altrimenti le azzera dopo ogni istruzione gioca.Tranne partcolari casi
                    'Optional ModalitaMostraEstrazione As Integer = 0 Opzionale valori possibili 0,1,2 serve per specificare se e come mostrare l'estrazione sulla quale è stata verificata la giocata 0 --> non mostra mai l'estrazione 1 --> mostra sempre l'estrazione 2 --> se la giocata è vincente mostra l'estrazione
                    'Optional idArchivio = 0 Indentificativo dell'archivio da usare
                    'Optional bScriviInOutput = True  se True scrive in Output la verifica della giocata
                
                End If
            Next
        Next
    Next
    Scrivi
    Scrivi "Numero Totale casi analizzati: " & CInt(casi)
    ScriviResoconto
End Sub

Ti ho inserito l'estrazione completa per verificare meglio gli abbinamenti. Ce ne è bisogno...credimi.:D:D:D
La giocata con gli abbinamenti, si fa così, intanto verifica se è tutto ok.
 
Ultima modifica:
' DOPO IL 25 gioca 8-80 x estratto
Sub Main()
Dim am(10)
Dim ruote(2)
Dim posta(5)
posta(1) = 1
'posta(2) = 1
clp = 13 ' colpi di gioco
casi = 0
fin = EstrazioneFin
ini = 8900
Scrivi " DOPO IL 25 gioca 8-80 x Estratto "
For es = ini To fin
For r = 1 To 12
If r = 11 Then r = 12
For p = 1 To 5
a = Estratto(es,r,p)
If a = 25 Then 'numero spia di ricerca puoi sostituirlo
Scrivi "----------------------------------------------------"
Scrivi "Condizione: " & Left(NomeRuota(r),2) & " " & CInt(a)
ruote(1) = r
am(1) = 8 'num in gioco puoi sostituirli
am(2) = 80
'am(3) = 90
am(3) = 46
am(4) = 86
am(5) = 12
am(6) = 13
am(7) = 14
am(8) = 68
am(9) = 2
ImpostaGiocata 1,am,ruote,posta,clp,1
Gioca es,False,False,1
casi = casi + 1
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: " & CInt(casi)
ScriviResoconto
End Sub
 
Ho provato ad aggiungere gli abbinamenti,solo che è venuta tutta una pappardella...non si distinguono le ambate dagli abbinamenti
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 settembre 2025
    Bari
    85
    57
    40
    76
    14
    Cagliari
    90
    15
    68
    63
    76
    Firenze
    81
    74
    71
    25
    06
    Genova
    21
    47
    44
    02
    06
    Milano
    83
    39
    31
    84
    55
    Napoli
    74
    41
    24
    47
    38
    Palermo
    54
    25
    61
    22
    68
    Roma
    60
    72
    38
    55
    03
    Torino
    10
    45
    56
    54
    63
    Venezia
    14
    38
    66
    36
    28
    Nazionale
    85
    48
    38
    22
    81
    Estrazione Simbolotto
    Palermo
    08
    42
    27
    30
    20
Indietro
Alto