RICERCA AMBO ED AMBETTO

bauman · Ieri alle 18:51

Sto cercando di usare l' AI del pc e sto cercando di imparare il VBScript di spaziometria a fare qualche riga di programma

Codice:

Sub Main()
    Dim Ini, Fin, Estrazione
    Dim Ruote(10), Numeri(5)
    Dim Posta(5)
    Dim Opt(5)
    Dim CodaColpi
 
    ' --- CONFIGURAZIONE PARAMETRI DI RICERCA ---
 
    ' 1. Impostazione Periodo (Estrazioni storiche)
    Ini = EstrazioneFin - 100
    Fin = EstrazioneFin
 
    ' 2. Scelta della Ruota (Bari = 1, Cagliari = 2 ... Nazionale = 12)
    Ruote(1) = 1  ' Ruota di Bari
    Ruote(2) = 2  ' Ruota di Cagliari
 
    ' 3. Numeri da porre in gioco (La tua quartina)
    Numeri(1) = 10
    Numeri(2) = 22
    Numeri(3) = 38
    Numeri(4) = 45
 
    ' 4. Impostazione Poste di gioco (2 = Ambo, 5 = Ambetto per SpazioMetria)
    Posta(2) = 1.00 ' 1 Euro sull'Ambo Tradizionale
    Posta(5) = 1.00 ' 1 Euro sull'Ambetto
 
    ' 5. Configurazione Array Opzioni Ambetto per il motore di SpazioMetria
    Opt(1) = True  ' Abilita lo sviluppo dell'Ambetto
    Opt(2) = 1     ' Sviluppo completo anche con numeri consecutivi
    Opt(3) = True  ' Interrompi il calcolo dell'ambetto sulla singola coppia se esce l'ambo secco (Regolamento ufficiale)
 
    ' 6. Durata della giocata in colpi
    CodaColpi = 9
 
    ' --- INIZIO PROCESSO DI ELABORAZIONE ---
 
    ' Pulisce lo schermo di output e prepara l'intestazione
    Cls
    Scrivi "==============================================================",True
    Scrivi "   VERIFICA AMBI ED AMBETTI - ABILITATO PER SPAZIOMETRIA  ",True,,"#0055A5",5
    Scrivi "==============================================================",True
    Scrivi "Periodo di analisi : da Estrazione " & Ini & " a " & Fin
    Scrivi "Colpi impostati    : " & CodaColpi
    Scrivi "Numeri in esame    : " & StringaNumeri(Numeri)
    Scrivi "--------------------------------------------------------------"
 
    ' Ciclo principale sull'archivio estrazioni
    For Estrazione = Ini To Fin
  
        ' Funzione di SpazioMetria che verifica se l'estrazione è valida o selezionata
        If InPrgDelg(Estrazione) Then
      
            ' Azzera la memoria delle giocate precedenti per questa estrazione
            InizializzaGiocata
      
            ' Configura i numeri, le ruote e la posta
            ImpostaGiocata 1, Numeri, Ruote, Posta, CodaColpi
      
            ' Applica l'array delle opzioni per abilitare il calcolo matematico degli Ambetti
             ImpostaopzioniGiocate 1, Opt
      
            ' Esegue il controllo automatico sui dati estratti
            Gioca Estrazione, False, False, False
      
        End If
  
        ' Aggiorna la barra di avanzamento in basso a sinistra in SpazioMetria
        Call AvanzamentoElab(Ini, Fin, Estrazione)
        If ScriptInterrotto Then Exit For
  
    Next
 
    ' Mostra a video il tabellone riassuntivo con le vincite, le spese e il rendiconto finanziario
    ScriviResoconto
 
End Sub

ma non so come posso fare per correggere queste righe di listato

Codice:

         ' Funzione di SpazioMetria che verifica se l'estrazione è valida o selezionata<br>
  -->     If InPrgDelg(Estrazione) Then
         



 ' Configura i numeri, le ruote e la posta
       -->     [B]ImpostaGiocata[/B] 1, Numeri, Ruote, Posta, CodaColpi
      
            ' Applica l'array delle opzioni per abilitare il calcolo matematico degli Ambetti
       -->    [B]ImpostaopzioniGiocate[/B] 1, Opt
      
            ' Esegue il controllo automatico sui dati estratti
       -->    [B]Gioca[/B] Estrazione, False, False, False

Grazie
Bauman

tommasog · Ieri alle 20:26

buona serata a tutti, scusate ma non sono molto pratico, in quale programma bisogna caricare lo script, grazie

bauman · Ieri alle 20:55

x tommasog,

buona sera, tommasog,
a quale script fai riferimento?

InRicordo · Ieri alle 23:22

in Python ho modificato lo script per avere informazioni su tutte le ruote. L'output è così:

Su una sola ruota:

Se vi interessa lo posso postare sia in codice Python che in exe. Solo se vi interessa
Ciao

18k · Oggi alle 03:35

bozza x bauman

Option Explicit
Sub Main
Dim Ini,Fin,Estrazione,rg,x,y
Dim Ruote(10),Numeri(5)
Dim Posta(5)
Dim Opt(5)
Dim CodaColpi
' --- CONFIGURAZIONE PARAMETRI DI RICERCA ---
' 1. Impostazione Periodo (Estrazioni storiche)
Ini = EstrazioneFin - 100
Fin = EstrazioneFin
' 2. Scelta della Ruota (Bari = 1, Cagliari = 2 ... Nazionale = 12)
Ruote(1) = 1 ' Ruota di Bari
Ruote(2) = 2 ' Ruota di Cagliari
' 3. Numeri da porre in gioco (La tua quartina)
Numeri(1) = 10
Numeri(2) = 56
Numeri(3) = 38
Numeri(4) = 45
' 4. Impostazione Poste di gioco (2 = Ambo, 5 = Ambetto per SpazioMetria)
Posta(1) = 1.00 ' 1 Euro sull'Ambata Tradizionale
Posta(2) = 1.00 ' 1 Euro sull'Ambo Tradizionale
Posta(3) = 0.50 ' 1 Euro sull'Ambo Tradizionale
Posta(5) = 1.00 ' 1 Euro sull'Ambetto
' 5. Configurazione Array Opzioni Ambetto per il motore di SpazioMetria
Opt(1) = True ' Abilita lo sviluppo dell'Ambetto
Opt(2) = 1 ' Sviluppo completo anche con numeri consecutivi
Opt(3) = True ' Interrompi il calcolo dell'ambetto sulla singola coppia se esce l'ambo secco (Regolamento ufficiale)
' 6. Durata della giocata in colpi
CodaColpi = 9
' --- INIZIO PROCESSO DI ELABORAZIONE ---
' Pulisce lo schermo di output e prepara l'intestazione
Call Scrivi("==============================================================")
Call Scrivi(" VERIFICA AMBI ED AMBETTI - ABILITATO PER SPAZIOMETRIA ")
Call Scrivi("==============================================================")
Call Scrivi("Periodo di analisi : da Estrazione " & Ini & " a " & Fin)
Call Scrivi("Ruote : " & SiglaRuota(Ruote(1)) & " : " & SiglaRuota(Ruote(2)),1,2,3)
Call Scrivi("Colpi impostati : " & CodaColpi)
Call Scrivi("Numeri in esame : " & StringaNumeri(Numeri),1,2,4)
Call Scrivi("--------------------------------------------------------------")
' Ciclo principale sull'archivio estrazioni
For Estrazione = Ini To Fin
' Aggiorna la barra di avanzamento in basso a sinistra in SpazioMetria
Call AvanzamentoElab(Ini,Fin,Estrazione)
If ScriptInterrotto Then Exit For
' Configura i numeri, le ruote e la posta
ReDim an(2)
For x = 1 To 3
For y = x + 1 To 4
an(1) = Numeri(x)
an(2) = Numeri

rg = rg + 1
ImpostaGiocata rg,an,Ruote,Posta,CodaColpi,1

Next
Gioca Estrazione,,,,,True
Next
Next
' Mostra a video il tabellone riassuntivo con le vincite, le spese e il rendiconto finanziario
ScriviResoconto
End Sub

ambetto?????

bauman · Oggi alle 09:15

Buongiorno a tutto il forum,

x 18k

Ti ringrazio dello script, ma ti prego di non fare più le ore piccole per queste cose, a fine del listato chidevi " ambetto???? " .

Comunque io penso che manchi questa funzione

Codice:

         ' Funzione di SpazioMetria che verifica se l'estrazione è valida o selezionata<br>
              -->     If InPrgDelg(Estrazione) Then

credo che ci sia bisogno di qualcuno molto bravo a creare funzioni ed a farle girare in spaziometria, saluti.
Bauman

18k · Oggi alle 10:22

per me è normale svegliarmi intorno alle 3, una mezzoretta, l'ambetto che sappia io, non esiste in spaziometria, tra il inpostagiocata e gioca e nel resoconto. quindi è da fare fuori da queste istruzioni. poi quasi sicuramente qualcuno conosce meglio di me.

questa istruzione se te l'ha messa AI, chiedi a lei cosa vuol dire

- If InPrgDelg(Estrazione) Then

vuoi vedere che per determinare l'indice mensile o del giorno qualcuno ha pensato di fare questo parametro (sconosciuto)????

magari in vbscript esiste, ma io non lo uso.

ciao

bauman · Oggi alle 11:29

Ciao 18k,
anche a me è toccata questo andamento notturno, tipo 3-4 ore a notte, tornando a noi, rivedendo il listato, non compare
l'ESITO dell' ambetto

Codice:

Option Explicit
Sub Main
ResetTimer
Scrivi"<body style=background-color:lightgray>"
Scrivi"<p align=center><font color = red;height:20px;Width:35%><b>" & " *--- CONFIGURAZIONE GIOCATA E ESTRAZIONE MARIO ---* 1 ruota" & "</b></p></font>",,,4,,2

   ' --- CONFIGURAZIONE GIOCATA E ESTRAZIONE ---
   Dim numeriGiocati(2),numeriEstratti(5)
   ' --- VARIABILI DI CALCOLO ---
   Dim i,j,K,nqt,trovati,Ini,retrit,retritmax
   Dim corrispondenze,esattiCount,viciniCount
   Dim numG,numE,nu,periododal,periodoal,retesito,retestratti,retidestr
   Dim amboTrovato,ambettoTrovato,p,w,dal,v1,v2,v3,v4,esatto,r
   ReDim ruota(1)
   ScegliRuote(ruota)
   ScegliNumeri(numeriGiocati)
   nqt = UBound(numeriGiocati)
   ''verifica esiti
   periododal = InputBox("Verifica dal ",,10800)
   periodoal = EstrazioneFin
   Ini = 3950
   ' --- OUTPUT RISULTATO ---
   Scrivi "Ruota analizzata: " & NomeRuota(ruota(1)),1,2,3
   Scrivi "Numeri Giocati: " & Join(numeriGiocati,", "),1,2,4
   If numeriGiocati(2) - numeriGiocati(1) = 1 Then
      v1 = numeriGiocati(1) - 1
      v2 = numeriGiocati(2) + 1
      v3 = 0
      v4 = 0
   Else
      v1 = numeriGiocati(1) - 1
      v2 = numeriGiocati(1) + 1
      v3 = numeriGiocati(2) - 1
      v4 = numeriGiocati(2) + 1
   End If
   If numeriGiocati(2) - numeriGiocati(1) > 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(2) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2) & " // " & numeriGiocati(1) & "." & Format2(v3) & " // " & numeriGiocati(1) & "." & Format2(v4),1,,RGB(249,200,134)
   If numeriGiocati(2) - numeriGiocati(1) = 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(1) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2),1,,RGB(249,200,134)
   Scrivi
   Scrivi "Verifica nel Periodo : " & periododal + 1 & " " & DataEstrazione(periododal + 1) & " " & periodoal & " " & DataEstrazione(periodoal)
   Scrivi
   amboTrovato = 0
   ambettoTrovato = 0
   For dal = periododal + 1 To periodoal
      '''carica 5 numeri dell'estrazione
      For p = 1 To 5
         numeriEstratti(p) = Estratto(dal,ruota(1),p)
      Next
      '''controlla quanti numeri giocati ci sono in quelli estratti
      esattiCount = 0
      trovati = ""
      esatto = ""
      ReDim an(2)
      For p = 1 To 5
         For w = 1 To nqt
            If numeriGiocati(w) = numeriEstratti(p) Then
               esattiCount = esattiCount + 1
               trovati = trovati & numeriEstratti(p) & " "
               esatto = numeriGiocati(w)
               an(w) = numeriGiocati(w)
            End If
         Next
      Next
      If esattiCount = 1 Then
         Call StatisticaFormazioneTurbo(an,ruota,1,retrit,retritmax,,,3950,dal - 1)
         Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti,".")
         Scrivi dal & " " & DataEstrazione(dal) & " ----> Estratti trovati " & Format2(trovati) & "     Rc.Uscita =  " & FormattaStringa(retrit,"000") & " / " & FormattaStringa(retritmax,"000"),1,2,4
      End If
      If esattiCount = 2 Then
         Call StatisticaFormazioneTurbo(an,ruota,2,retrit,retritmax,,,3950,dal - 1)
         Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti,".")
         Scrivi "------>  " & dal & " " & DataEstrazione(dal) & " Ambo : " & numeriGiocati(1) & "." & numeriGiocati(2) & "     Rc.Uscita =  " & FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000"),1,2,3
         amboTrovato = amboTrovato + 1
      End If
      ' 2. VERIFICA AMBETTO (Funziona se si giocano esattamente 2 numeri)
      ' Regola: 1 numero esatto + 1 numero dell'estrazione che sia +1 o -1 rispetto all'altro giocato
      If esattiCount = 1 Then
         For p = 1 To 5
            If esatto = numeriGiocati(1) Then
               If numeriEstratti(p) = v3 Or numeriEstratti(p) = v4 Then
                  an(1) = Left(trovati,2)
                  an(2) = numeriEstratti(p)
                  Call StatisticaFormazioneTurbo(an,ruota,2,retrit,retritmax,,,3950,dal - 1)
                  Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti,".")
                  Scrivi "------>  " & dal & " " & DataEstrazione(dal) & " Ambetto : " & Format2(trovati) & " " & Format2(numeriEstratti(p)) & "     Rc.Uscita =  " & FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000"),1,2,2
                  ambettoTrovato = ambettoTrovato + 1
               End If
            End If
            If esatto = numeriGiocati(2) Then
               If numeriEstratti(p) = v1 Or numeriEstratti(p) = v2 Then
                  an(1) = Left(trovati,2)
                  an(2) = numeriEstratti(p)
                  Call StatisticaFormazioneTurbo(an,ruota,2,retrit,retritmax,,,3950,dal - 1)
                  Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti,".")
                  Scrivi "------>  " & dal & " " & DataEstrazione(dal) & " Ambetto : " & Format2(trovati) & " " & Format2(numeriEstratti(p)),1,2,2
               End If
            End If
         Next
      End If
   Next
   ' --- OUTPUT RISULTATO ---
   Scrivi
   Scrivi "Ruota analizzata: " & NomeRuota(ruota(1)),1,2,3
   Scrivi "Numeri Giocati: " & Join(numeriGiocati,", "),1,2,4
   If numeriGiocati(2) - numeriGiocati(1) > 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(2) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2) & " // " & numeriGiocati(1) & "." & Format2(v3) & " // " & numeriGiocati(1) & "." & Format2(v4),1,,RGB(249,200,134)
   If numeriGiocati(2) - numeriGiocati(1) = 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(1) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2),1,,RGB(249,200,134)
   Scrivi
   If amboTrovato > 0 Then
      Scrivi "ESITO: Complimenti, hai fatto AMBO!      tot. " & amboTrovato,1
   End If
   If ambettoTrovato > 0 Then
      Scrivi "ESITO: Complimenti, hai fatto AMBETTO!   tot. " & ambettoTrovato,1
   End If
   If amboTrovato = 0 And ambettoTrovato = 0 Then
      Scrivi "ESITO: Nessuna vincita (Ambo o Ambetto) su questa ruota.",1
   End If
   Scrivi
   Scrivi "Tempo Elab. " & TempoTrascorso,1
End Sub

facendo la ricerca con BARI , numeri 55 e 87.

Per l'altro listato sicuramente bisogna creare Funzioni ad oc da inserire poi in spaziometria
cosa che per me è ancora sconosciuta.
Mio caro 18k ti auguro una buona giornata, grazie

Lottopython · Oggi alle 12:17

senza invadere lo spazio altrui .saluti.

Codice:

Sostituisci tutto il blocco della verifica Ambetto (dal commento 
' 2. VERIFICA AMBETTO... fino al Next del ciclo For dal) con questo codice corretto

Codice:

      ' --- 2. VERIFICA AMBETTO ---
      ' Regola: 1 numero esatto + 1 numero dell'estrazione che sia +1 o -1 rispetto all'altro giocato
      If esattiCount = 1 Then
         For p = 1 To 5
            ' Verifica solo i numeri estratti che NON sono quello già trovato esatto
            If numeriEstratti(p) <> esatto Then
              
               ' CASO A: Il numero esatto trovato è il primo giocato
               If esatto = numeriGiocati(1) Then
                  If numeriEstratti(p) = v3 Or numeriEstratti(p) = v4 Then
                     an(1) = esatto ' Usiamo la variabile esatta invece di Left()
                     an(2) = numeriEstratti(p)
                     Call StatisticaFormazioneTurbo(an, ruota, 2, retrit, retritmax, , , 3950, dal - 1)
                     Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti, ".")
                     Scrivi "------>  " & dal & " " & DataEstrazione(dal) & " Ambetto : " & Format2(esatto) & " " & Format2(numeriEstratti(p)) & "     Rc.Uscita =  " & FormattaStringa(retrit, "0000") & " / " & FormattaStringa(retritmax, "0000"), 1, 2, 2
                     ambettoTrovato = ambettoTrovato + 1
                  End If
              
               ' CASO B: Il numero esatto trovato è il secondo giocato
               ElseIf esatto = numeriGiocati(2) Then
                  If numeriEstratti(p) = v1 Or numeriEstratti(p) = v2 Then
                     an(1) = esatto
                     an(2) = numeriEstratti(p)
                     Call StatisticaFormazioneTurbo(an, ruota, 2, retrit, retritmax, , , 3950, dal - 1)
                     Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti, ".")
                     Scrivi "------>  " & dal & " " & DataEstrazione(dal) & " Ambetto : " & Format2(esatto) & " " & Format2(numeriEstratti(p)) & "     Rc.Uscita =  " & FormattaStringa(retrit, "0000") & " / " & FormattaStringa(retritmax, "0000"), 1, 2, 2
                     ambettoTrovato = ambettoTrovato + 1 ' <-- QUESTO MANCAVA!
                  End If
               End If

            End If
         Next
      End If
   Next

bauman · Oggi alle 12:44

x Lottopython

Ben gradito, ciao e Grazie

bauman · Oggi alle 12:49

Ecco il listato completo e corretto, fatene buon uso

Codice:

Option Explicit
Sub Main
ResetTimer
Scrivi"<body style=background-color:lightgray>"
Scrivi"<p align=center><font color = red;height:20px;Width:35%><b>" & " *--- CONFIGURAZIONE GIOCATA E ESTRAZIONE MARIO ---* 1 ruota" & "</b></p></font>",,,4,,2

   ' --- CONFIGURAZIONE GIOCATA E ESTRAZIONE ---
   Dim numeriGiocati(2),numeriEstratti(5)
   ' --- VARIABILI DI CALCOLO ---
   Dim i,j,K,nqt,trovati,Ini,retrit,retritmax
   Dim corrispondenze,esattiCount,viciniCount
   Dim numG,numE,nu,periododal,periodoal,retesito,retestratti,retidestr
   Dim amboTrovato,ambettoTrovato,p,w,dal,v1,v2,v3,v4,esatto,r
   ReDim ruota(1)
   ScegliRuote(ruota)
   ScegliNumeri(numeriGiocati)
   nqt = UBound(numeriGiocati)
   ''verifica esiti
   periododal = InputBox("Verifica dal ",,10800)
   periodoal = EstrazioneFin
   Ini = 3950
   ' --- OUTPUT RISULTATO ---
   Scrivi "Ruota analizzata: " & NomeRuota(ruota(1)),1,2,3
   Scrivi "Numeri Giocati: " & Join(numeriGiocati ," . "),1,2,4
   If numeriGiocati(2) - numeriGiocati(1) = 1 Then
      v1 = numeriGiocati(1) - 1
      v2 = numeriGiocati(2) + 1
      v3 = 0
      v4 = 0
   Else
      v1 = numeriGiocati(1) - 1
      v2 = numeriGiocati(1) + 1
      v3 = numeriGiocati(2) - 1
      v4 = numeriGiocati(2) + 1
   End If
   If numeriGiocati(2) - numeriGiocati(1) > 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(2) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2) & " // " & numeriGiocati(1) & "." & Format2(v3) & " // " & numeriGiocati(1) & "." & Format2(v4),1,,RGB(249,200,134)
   If numeriGiocati(2) - numeriGiocati(1) = 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(1) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2),1,,RGB(249,200,134)
   Scrivi
   Scrivi "Verifica nel Periodo : " & periododal + 1 & " " & DataEstrazione(periododal + 1) & " " & periodoal & " " & DataEstrazione(periodoal)
   Scrivi
   amboTrovato = 0
   ambettoTrovato = 0
   For dal = periododal + 1 To periodoal
      '''carica 5 numeri dell'estrazione
      For p = 1 To 5
         numeriEstratti(p) = Estratto(dal,ruota(1),p)
      Next
      '''controlla quanti numeri giocati ci sono in quelli estratti
      esattiCount = 0
      trovati = ""
      esatto = ""
      ReDim an(2)
      For p = 1 To 5
         For w = 1 To nqt
            If numeriGiocati(w) = numeriEstratti(p) Then
               esattiCount = esattiCount + 1
               trovati = trovati & numeriEstratti(p) & " "
               esatto = numeriGiocati(w)
               an(w) = numeriGiocati(w)
            End If
         Next
      Next
      If esattiCount = 1 Then
         Call StatisticaFormazioneTurbo(an,ruota,1,retrit,retritmax,,,3950,dal - 1)
         Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti,".")
         Scrivi dal & " " & DataEstrazione(dal) & " ----> Estratti trovati " & Format2(trovati) & "     Rc.Uscita =  " & FormattaStringa(retrit,"000") & " / " & FormattaStringa(retritmax,"000"),1,2,4
      End If
      If esattiCount = 2 Then
         Call StatisticaFormazioneTurbo(an,ruota,2,retrit,retritmax,,,3950,dal - 1)
         Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti,".")
         Scrivi "------>  " & dal & " " & DataEstrazione(dal) & " Ambo : " & numeriGiocati(1) & "." & numeriGiocati(2) & "     Rc.Uscita =  " & FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000"),1,2,3
         amboTrovato = amboTrovato + 1
      End If
      ' --- 2. VERIFICA AMBETTO ---
      ' Regola: 1 numero esatto + 1 numero dell'estrazione che sia +1 o -1 rispetto all'altro giocato
      If esattiCount = 1 Then
         For p = 1 To 5
            ' Verifica solo i numeri estratti che NON sono quello già trovato esatto
            If numeriEstratti(p) <> esatto Then
             
               ' CASO A: Il numero esatto trovato è il primo giocato
               If esatto = numeriGiocati(1) Then
                  If numeriEstratti(p) = v3 Or numeriEstratti(p) = v4 Then
                     an(1) = esatto ' Usiamo la variabile esatta invece di Left()
                     an(2) = numeriEstratti(p)
                     Call StatisticaFormazioneTurbo(an, ruota, 2, retrit, retritmax, , , 3950, dal - 1)
                     Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti, ".")
                     Scrivi "------>  " & dal & " " & DataEstrazione(dal) & " Ambetto : " & Format2(esatto) & " " & Format2(numeriEstratti(p)) & "     Rc.Uscita =  " & FormattaStringa(retrit, "0000") & " / " & FormattaStringa(retritmax, "0000"), 1, 2, 2
                     ambettoTrovato = ambettoTrovato + 1
                  End If
             
               ' CASO B: Il numero esatto trovato è il secondo giocato
               ElseIf esatto = numeriGiocati(2) Then
                  If numeriEstratti(p) = v1 Or numeriEstratti(p) = v2 Then
                     an(1) = esatto
                     an(2) = numeriEstratti(p)
                     Call StatisticaFormazioneTurbo(an, ruota, 2, retrit, retritmax, , , 3950, dal - 1)
                     Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti, ".")
                     Scrivi "------>  " & dal & " " & DataEstrazione(dal) & " Ambetto : " & Format2(esatto) & " " & Format2(numeriEstratti(p)) & "     Rc.Uscita =  " & FormattaStringa(retrit, "0000") & " / " & FormattaStringa(retritmax, "0000"), 1, 2, 2
                     ambettoTrovato = ambettoTrovato + 1 ' <-- QUESTO MANCAVA!
                  End If
               End If

            End If
         Next
      End If
   Next
   ' --- OUTPUT RISULTATO ---
   Scrivi
   Scrivi "Ruota analizzata: " & NomeRuota(ruota(1)),1,2,3
   Scrivi "Numeri Giocati: " & Join(numeriGiocati," , "),1,2,4
   If numeriGiocati(2) - numeriGiocati(1) > 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(2) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2) & " // " & numeriGiocati(1) & "." & Format2(v3) & " // " & numeriGiocati(1) & "." & Format2(v4),1,,RGB(249,200,134)
   If numeriGiocati(2) - numeriGiocati(1) = 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(1) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2),1,,RGB(249,200,134)
   Scrivi
   If amboTrovato > 0 Then
      Scrivi "ESITO: Complimenti, hai fatto AMBO!      tot. " & amboTrovato,1
   End If
   If ambettoTrovato > 0 Then
      Scrivi "ESITO: Complimenti, hai fatto AMBETTO!   tot. " & ambettoTrovato,1
   End If
   If amboTrovato = 0 And ambettoTrovato = 0 Then
      Scrivi "ESITO: Nessuna vincita (Ambo o Ambetto) su questa ruota.",1
   End If
   Scrivi
   Scrivi "Tempo Elab. " & TempoTrascorso,1
End Sub

si accettano eventuali proposte e migliorie
saluti a tutti
Bauman

rudivall · Oggi alle 13:09

c'era un piccolo errore ora credo sia corretto...........Option Explicit
Sub Main
ResetTimer
Scrivi"<body style=background-color:lightgray>"
Scrivi"" & " *--- CONFIGURAZIONE GIOCATA E ESTRAZIONE MARIO ---* 1 ruota" & "",,,4,,2

' --- CONFIGURAZIONE GIOCATA E ESTRAZIONE ---
Dim numeriGiocati(2),numeriEstratti(5)
' --- VARIABILI DI CALCOLO ---
Dim i,j,K,nqt,trovati,Ini,retrit,retritmax
Dim corrispondenze,esattiCount,viciniCount
Dim numG,numE,nu,periododal,periodoal,retesito,retestratti,retidestr
Dim amboTrovato,ambettoTrovato,p,w,dal,v1,v2,v3,v4,esatto,r
ReDim ruota(1)
ScegliRuote(ruota)
ScegliNumeri(numeriGiocati)
nqt = UBound(numeriGiocati)
''verifica esiti
periododal = InputBox("Verifica dal ",,10800)
periodoal = EstrazioneFin
Ini = 3950
' --- OUTPUT RISULTATO ---
Scrivi "Ruota analizzata: " & NomeRuota(ruota(1)),1,2,3
Scrivi "Numeri Giocati: " & Join(numeriGiocati ," . "),1,2,4
If numeriGiocati(2) - numeriGiocati(1) = 1 Then
v1 = numeriGiocati(1) - 1
v2 = numeriGiocati(2) + 1
v3 = 0
v4 = 0
Else
v1 = numeriGiocati(1) - 1
v2 = numeriGiocati(1) + 1
v3 = numeriGiocati(2) - 1
v4 = numeriGiocati(2) + 1
End If
If numeriGiocati(2) - numeriGiocati(1) > 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(2) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2) & " // " & numeriGiocati(1) & "." & Format2(v3) & " // " & numeriGiocati(1) & "." & Format2(v4),1,,RGB(249,200,134)
If numeriGiocati(2) - numeriGiocati(1) = 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(1) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2),1,,RGB(249,200,134)
Scrivi
Scrivi "Verifica nel Periodo : " & periododal + 1 & " " & DataEstrazione(periododal + 1) & " " & periodoal & " " & DataEstrazione(periodoal)
Scrivi
amboTrovato = 0
ambettoTrovato = 0
For dal = periododal + 1 To periodoal
'''carica 5 numeri dell'estrazione
For p = 1 To 5
numeriEstratti(p) = Estratto(dal,ruota(1),p)
Next
'''controlla quanti numeri giocati ci sono in quelli estratti
esattiCount = 0
trovati = ""
esatto = ""
ReDim an(nqt) ' <-- CORRETTO: Ora si adatta dinamicamente a nqt evitando l'errore
For p = 1 To 5
For w = 1 To nqt
If numeriGiocati(w) = numeriEstratti(p) Then
esattiCount = esattiCount + 1
trovati = trovati & numeriEstratti(p) & " "
esatto = numeriGiocati(w)
an(w) = numeriGiocati(w)
End If
Next
Next
If esattiCount = 1 Then
Call StatisticaFormazioneTurbo(an,ruota,1,retrit,retritmax,,,3950,dal - 1)
Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti,".")
Scrivi dal & " " & DataEstrazione(dal) & " ----> Estratti trovati " & Format2(trovati) & " Rc.Uscita = " & FormattaStringa(retrit,"000") & " / " & FormattaStringa(retritmax,"000"),1,2,4
End If
If esattiCount = 2 Then
Call StatisticaFormazioneTurbo(an,ruota,2,retrit,retritmax,,,3950,dal - 1)
Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti,".")
Scrivi "------> " & dal & " " & DataEstrazione(dal) & " Ambo : " & numeriGiocati(1) & "." & numeriGiocati(2) & " Rc.Uscita = " & FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000"),1,2,3
amboTrovato = amboTrovato + 1
End If
' --- 2. VERIFICA AMBETTO ---
' Regola: 1 numero esatto + 1 numero dell'estrazione che sia +1 o -1 rispetto all'altro giocato
If esattiCount = 1 Then
For p = 1 To 5
' Verifica solo i numeri estratti che NON sono quello già trovato esatto
If numeriEstratti(p) <> esatto Then

' CASO A: Il numero esatto trovato è il primo giocato
If esatto = numeriGiocati(1) Then
If numeriEstratti(p) = v3 Or numeriEstratti(p) = v4 Then
an(1) = esatto ' Usiamo la variabile esatta invece di Left()
an(2) = numeriEstratti(p)
Call StatisticaFormazioneTurbo(an, ruota, 2, retrit, retritmax, , , 3950, dal - 1)
Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti, ".")
Scrivi "------> " & dal & " " & DataEstrazione(dal) & " Ambetto : " & Format2(esatto) & " " & Format2(numeriEstratti(p)) & " Rc.Uscita = " & FormattaStringa(retrit, "0000") & " / " & FormattaStringa(retritmax, "0000"), 1, 2, 2
ambettoTrovato = ambettoTrovato + 1
End If

' CASO B: Il numero esatto trovato è il secondo giocato
ElseIf esatto = numeriGiocati(2) Then
If numeriEstratti(p) = v1 Or numeriEstratti(p) = v2 Then
an(1) = esatto
an(2) = numeriEstratti(p)
Call StatisticaFormazioneTurbo(an, ruota, 2, retrit, retritmax, , , 3950, dal - 1)
Scrivi dal & " " & DataEstrazione(dal) & " " & StringaNumeri(numeriEstratti, ".")
Scrivi "------> " & dal & " " & DataEstrazione(dal) & " Ambetto : " & Format2(esatto) & " " & Format2(numeriEstratti(p)) & " Rc.Uscita = " & FormattaStringa(retrit, "0000") & " / " & FormattaStringa(retritmax, "0000"), 1, 2, 2
ambettoTrovato = ambettoTrovato + 1 ' <-- QUESTO MANCAVA!
End If
End If

End If
Next
End If
Next
' --- OUTPUT RISULTATO ---
Scrivi
Scrivi "Ruota analizzata: " & NomeRuota(ruota(1)),1,2,3
Scrivi "Numeri Giocati: " & Join(numeriGiocati," , "),1,2,4
If numeriGiocati(2) - numeriGiocati(1) > 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(2) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2) & " // " & numeriGiocati(1) & "." & Format2(v3) & " // " & numeriGiocati(1) & "." & Format2(v4),1,,RGB(249,200,134)
If numeriGiocati(2) - numeriGiocati(1) = 1 Then Scrivi "Numeri controllo ambetti " & numeriGiocati(1) & "." & Format2(v1) & " // " & numeriGiocati(2) & "." & Format2(v2),1,,RGB(249,200,134)
Scrivi
If amboTrovato > 0 Then
Scrivi "ESITO: Complimenti, hai fatto AMBO! tot. " & amboTrovato,1
End If
If ambettoTrovato > 0 Then
Scrivi "ESITO: Complimenti, hai fatto AMBETTO! tot. " & ambettoTrovato,1
End If
If amboTrovato = 0 And ambettoTrovato = 0 Then
Scrivi "ESITO: Nessuna vincita (Ambo o Ambetto) su questa ruota.",1
End If
Scrivi
Scrivi "Tempo Elab. " & TempoTrascorso,1
End Sub

18k · Oggi alle 14:59

Grazie per lottopython e rudival' ma c e ancora un errore che e scappato. Temo pero che cio che e stato fatto conti poco perche fin dall inizio presentava forse la richiesta di parzializzare l elaborazione per giorno della settimana vedi istruzione presentatA per elaborare script normali con impostagiocata gioca e resoconto. Forse bauman cerca altro o qualcuno che sappia creare nuove istruzioni in spaziometria.poi non so perche non so ancora leggere nel pensiero.
forse potrebbe provare lo script che AI gli ha preparato, con il vbnet di Edoardo95, che è nell'altro thread.

scarfacetony · 28 minuti fa

InRicordo ha scritto:
in Python ho modificato lo script per avere informazioni su tutte le ruote. L'output è così:

Vedi l'allegato 2322673

Su una sola ruota:

Vedi l'allegato 2322674

Se vi interessa lo posso postare sia in codice Python che in exe. Solo se vi interessa
Ciao

Ciao,se non è un problema per te,mi interessa in exe. Grazie

Cerca

Cerca

RICERCA AMBO ED AMBETTO

bauman

Member

tommasog

Senior Member

bauman

Member

InRicordo

Advanced Member >PLATINUM PLUS<

18k

Member

bauman

Member

18k

Member

bauman

Member

Lottopython

Advanced Member >PLATINUM<

bauman

Member

bauman

Member

rudivall

Advanced Member >PLATINUM<

18k

Member

scarfacetony

Senior Member

Ultima estrazione Lotto

Ultimi Messaggi