Richiesta script numero spia

[lottofortune]

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

 

[claudio8]

' 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.
La giocata con gli abbinamenti, si fa così, intanto verifica se è tutto ok.

 

[lottofortune]

Ciao claudio8 lo script è ok bisogna inserire solo gli abbinamenti....cmq grazie ancora

 

[lottofortune]

' 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

 

[lottofortune]

Ho provato ad aggiungere gli abbinamenti,solo che è venuta tutta una pappardella...non si distinguono le ambate dagli abbinamenti

 

[claudio8]

Ciao claudio8 lo script è ok bisogna inserire solo gli abbinamenti....cmq grazie ancora

fatto... al post 2, segui il consiglio che ti ho dato.
Ciao

 

[lottofortune]

Grazie mille claudio8...