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 · 22 minuti fa

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

Cerca

Cerca

RICERCA AMBO ED AMBETTO

bauman

Junior Member

tommasog

Senior Member

bauman

Junior Member

InRicordo

Advanced Member >PLATINUM PLUS<

18k

Member

bauman

Junior Member

18k

Member

bauman

Junior Member

Lottopython

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi