RICERCA AMBO ED AMBETTO

[bauman]

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

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

         ' 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]

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

 

[bauman]

x tommasog,

buona sera, tommasog,
a quale script fai riferimento?

 

[InRicordo]

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