Novità

tom's bakery

Alien.

Advanced Premium Member
Ma senti tagliano la testa al "TORO" ,IO LA TAGLIEREI VOLENTIERI AD UN ALTRO.....io non ho nessun file txt come lo risolvo non può andare direttamente su l'archivio di spazio facendo un "ritocchino" allo script, grazie.
 

lotto_tom75

Advanced Premium Member
Ma senti tagliano la testa al "TORO" ,IO LA TAGLIEREI VOLENTIERI AD UN ALTRO.....io non ho nessun file txt come lo risolvo non può andare direttamente su l'archivio di spazio facendo un "ritocchino" allo script, grazie.

Il ritocchino... lo farei ad un altro... :LOL:
mi spiace... :alien: non so più come spiegarti la cosa... 😑
Speriamo ci riesca qualcun altro...
 

lotto_tom75

Advanced Premium Member
Script n. 18 x lotto - sommativo "generico" iperfast per qualsiasi ruota target desiderata. Di default prevede valori by semplici addon consecutivi (+1) modificabili come si preferisce... by tom

Codice:
Option Explicit
Sub Main
   ' tom's bakery script n. 18 x lotto sommativo "generico" con base addon consecutivi modificabile a piacimento. E' possibile scegliere una o più ruote target  by tom
   Dim fin
   Dim Ini
   fin = EstrazioneFin
   Ini = EstrazioneFin - 300
   Dim ruota(1)
   Dim posta(1)
   Dim ambataA(2)
   Dim ambataB(2)
   Dim ambataC(2)
   Dim ambataD(2)
   Dim ambataE(2)
   posta(1) = 1
   Dim colpi
   Dim sorte
   Dim i
   colpi = 80
   sorte = 1
   i = 0
   Dim aruotesel
   Call ScegliRuote(aruotesel)
   Dim cr
   Dim es
   Dim r
   Dim l
   For cr = 1 To UBound(aruotesel)
      ruota(1) = aruotesel(cr)
      For es = Ini To fin
         i = i + 1
         For r = 1 To 1
            For l = 1 To 1000 ' x rallentare velocità messaggio
               Call Messaggio("r: " & NomeRuota(ruota(1)) & " n. es: " & i & " id es " & es & " tot es " & fin - Ini)
            Next
            'ruota(1) = r
            If r = 11 Then
               r = 12
            End If
            ambataA(1) = Fuori90(Estratto(es,ruota(1),5) + Fuori90(es))
            ambataA(2) = Fuori90(Estratto(es,ruota(1),5) + Fuori90(es) + 1)
            'ambataB(2)
            ambataB(1) = Fuori90(Estratto(es,ruota(1),4) + Fuori90(es))
            ambataB(2) = Fuori90(Estratto(es,ruota(1),4) + Fuori90(es) + 1)
            'ambataC(2)
            ambataC(1) = Fuori90(Estratto(es,ruota(1),3) + Fuori90(es))
            ambataC(2) = Fuori90(Estratto(es,ruota(1),3) + Fuori90(es + 1))
            'ambataD(2)
            ambataD(1) = Fuori90(Estratto(es,ruota(1),2) + Fuori90(es))
            ambataD(2) = Fuori90(Estratto(es,ruota(1),2) + Fuori90(es) + 1)
            'ambataE(2)
            ambataE(1) = Fuori90(Estratto(es,ruota(1),1) + Fuori90(es))
            ambataE(2) = Fuori90(Estratto(es,ruota(1),1) + Fuori90(es) + 1)
            Call ImpostaGiocata(1,ambataA,ruota,posta,colpi,sorte)
            Call ImpostaGiocata(2,ambataB,ruota,posta,colpi,sorte)
            Call ImpostaGiocata(3,ambataC,ruota,posta,colpi,sorte)
            Call ImpostaGiocata(4,ambataD,ruota,posta,colpi,sorte)
            Call ImpostaGiocata(5,ambataE,ruota,posta,colpi,sorte)
            Gioca es
            Call AvanzamentoElab(Ini,fin,es)
            If ScriptInterrotto Then Exit For
         Next '
         If ScriptInterrotto Then Exit For
      Next
      If ScriptInterrotto Then Exit For
   Next ' x ruote
   ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23")
Scrivi
Scrivi "Tt " & TempoTrascorso
Scrivi

End Sub

E' possibile selezionare solo il numeri di casi in corso teorici desiderati mediante la riga...

Codice:
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23")

impostata di default a 23 colpi massimi teorici rimanenti.
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Script n. 19 x lotto by il maestro in scriptologia i legend "il leggendario". lo script evidenzia sul tabellone analitico qualsiasi numero
facente parte di qualsiasi gruppo numerico base si decida di analizzare sulla singola ruota scelta. Davvero una chicca per chiunque...

Codice:
Option Explicit

'tom's bakery script n. 19 by il maestro in scriptologia i legend "il leggendario". lo script evidenzia sul tabellone analitico qualsiasi numero
'facente parte di qualsiasi gruppo numerico base si decida di analizzare sulla singola ruota scelta. Davvero una chicca per chiunque...

Sub Main
    Dim aR(1):aR(1) = ScegliRuota
    ReDim aNum(0):Call ScegliNumeri(aNum)
    Dim ub:ub = UBound(aNum)
    Dim V:V = ub
    Dim idE,p,e
    Dim aCeck(90)
    For e = 1 To ub
        aCeck(aNum(e)) = 1
    Next
    Scrivi "Ruota scelta " & NomeRuota(aR(1))
    Scrivi "Numeri evidenziati: "&StringaNumeri(aNum)&" classe " & UBound(aNum)
    Scrivi "Archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
    Scrivi
    Scrivi
    Scrivi" Conc | E1 E2 E3 E4 E5"
 
 
    For idE = EstrazioneFin To 1 Step - 1
        Scrivi FormatSpace(idE,5,1) & " | ",,0
        For p = 1 To 5
            e = Estratto(idE,aR(1),p)
            If aCeck(e) = 1 Then
                Scrivi Format2(e) & " ",,0
                V = V - 1
                aCeck(e) = 0
            Else
                Scrivi "-- ",,0
            End If
        Next
        If V = 0 Then Exit For
        Scrivi
    Next

End Sub
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Script n. 20 x lotto - esempio di script "sommativo" * very easy con verifica dei 5 estratti in tot colpi successivi per E e superiori... by tom
lo script in oggetto potrebbe risultare molto utile anche e sopratutto x capire le basi di programmazione script...

* in realtà in questo caso non ci sono somme ma si tratta solo di verificare gli stessi estratti già usciti se possano riuscire o meno per la sorte minima di ricerca monitorata nel tempo futuro voluto e indicato con il parametro colpi...

Codice:
Option Explicit
Sub Main

'tom's bakery script n. 20 x lotto - esempio di script "sommativo" * very easy con verifica dei 5 estratti in tot colpi successivi per E e 'superiori... by tom 'lo script in oggetto potrebbe risultare molto utile anche e sopratutto x capire le basi di programmazione script...

'* in realtà in questo caso non ci sono somme ma si tratta solo di verificare gli stessi estratti già usciti se possano riuscire o meno per la 'sorte minima di ricerca monitorata nel tempo futuro voluto e indicato con il parametro colpi...
 
Dim es
   Dim rr
   Dim rv(1)
   Dim p
   Dim Inizio,fine
   Dim n(5)
   Dim quante
   quante = CInt(InputBox("quante ultime estrazioni analizzare",,300))
   fine = EstrazioneFin
   Inizio = fine - quante
   Dim n1,n2,n3,n4,n5
   Dim sorte,colpi,esito,alcolponumero,estratti,ides
   Dim casipos
   Dim casineg
   Dim casiatt
   casipos = 0
   casineg = 0
   casiatt = 0
   sorte = CInt(InputBox("sorte minima di ricerca e di verifica",,1))
   colpi = CInt(InputBox("colpi di ricerca  verifica",,9))
   rr = ScegliRuota
   rv(1) = rr
   For es = Inizio To fine
      n(1) = Estratto(es,rr,1)
      n(2) = Estratto(es,rr,2)
      n(3) = Estratto(es,rr,3)
      n(4) = Estratto(es,rr,4)
      n(5) = Estratto(es,rr,5)
      Call VerificaEsitoTurbo(n,rv,es + 1,sorte,colpi,,esito,alcolponumero,estratti,ides)
      If esito <> "" Then
         Scrivi "<font color=green>formazione già sfaldatasi " & StringaNumeri(n)
         Scrivi esito & " al colpo numero " & alcolponumero & " estratti " & estratti & " ides " & ides
         casipos = casipos + 1
      Else
         Scrivi "-"
         Dim colpirimanenti
         colpirimanenti = colpi -(fine - es)
         If colpirimanenti < 0 Then
            Scrivi "CASO NEGATIVO"
            casineg = casineg + 1
         Else
            Scrivi "<font color=red>formazione in corso " & StringaNumeri(n)
            Scrivi "colpi rimanenti " & colpirimanenti
            casiatt = casiatt + 1
         End If
      End If
   Next
   Scrivi
   Scrivi "elaborazione effettuata con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
   Scrivi "ruota analizzata " & NomeRuota(rv(1))
   Scrivi "ultime estrazioni elaborate " & quante
   Scrivi "sorte minima di ricerca e verifica " & sorte
   Scrivi "colpi di ricerca e verifica impostati " & colpi
   Scrivi "casi positivi " & casipos
   Scrivi "casi negativi " & casineg
   Scrivi "casi in corso " & casiatt
   Dim casiTotali
   casiTotali = casipos + casineg + casiatt
   Scrivi "%+ " &(casipos/casiTotali)*100
   Scrivi
   Scrivi
End Sub
 

lotto_tom75

Advanced Premium Member
Script n.21 x lotto - verificatore win con tabellone ultima estrazione lotto * by tom. Lo script crea anche un relativo file txt con l'ultimo tabellone estrazionale analizzato. * controllare comunque sempre anche sul sito ufficiale di lottomatica prima di buttare l'eventuale schedina!

Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 21 - verificatore win con tabellone ultima estrazione lotto by tom
   'controllare comunque sempre anche sul sito ufficiale di lottomatica prima di buttare l'eventuale schedina! :)
   Dim es
   Dim file
   Dim aBA(1)
   Dim aCA(1)
   Dim aFI(1)
   Dim aGE(1)
   Dim aMI(1)
   Dim aNA(1)
   Dim aPA(1)
   Dim aRO(1)
   Dim aTO(1)
   Dim aVE(1)
   Dim aNZ(1)
   Dim pippo
   Dim esito
   Dim estratti
   Dim Formazionedaverificare
   Formazionedaverificare = InputBox("immetti la formazione che vuoi verificare (es. 1.2.3.4.5)",,"1.2.3.4.5")
   Dim aformazionedaverificare
   Call SplitByChar(Formazionedaverificare,".",aformazionedaverificare)
   file = ".\fileestrazione.txt"
   If FileEsistente(file) Then
      Call EliminaFile(file)
   End If
   es = EstrazioneFin
   Call ScriviEstrazione(es,True,True,True)
   ScriviFile file,"estrazione del " & GetInfoEstrazione(EstrazioneFin)
   ScriviFile file,""
   ScriviFile file,NomeRuota(BA_) & " - " & StringaEstratti(es,BA_,".")
   Dim caf
   aBA(1) = BA_
   aCA(1) = CA_
   aFI(1) = FI_
   aGE(1) = GE_
   aMI(1) = MI_
   aNA(1) = NA_
   aPA(1) = PA_
   aRO(1) = RO_
   aTO(1) = TO_
   aVE(1) = VE_
   aNZ(1) = NZ_
   Call VerificaEsito(aformazionedaverificare,aBA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(CA_) & " - " & StringaEstratti(es,CA_,".")
   Call VerificaEsito(aformazionedaverificare,aCA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(FI_) & " - " & StringaEstratti(es,FI_,".")
   Call VerificaEsito(aformazionedaverificare,aFI,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(GE_) & " - " & StringaEstratti(es,GE_,".")
   Call VerificaEsito(aformazionedaverificare,aGE,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(MI_) & " - " & StringaEstratti(es,MI_,".")
   Call VerificaEsito(aformazionedaverificare,aMI,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(NA_) & " - " & StringaEstratti(es,NA_,".")
   Call VerificaEsito(aformazionedaverificare,aNA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(PA_) & " - " & StringaEstratti(es,PA_,".")
   Call VerificaEsito(aformazionedaverificare,aPA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(RO_) & " - " & StringaEstratti(es,RO_,".")
   Call VerificaEsito(aformazionedaverificare,aRO,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(TO_) & " - " & StringaEstratti(es,TO_,".")
   Call VerificaEsito(aformazionedaverificare,aTO,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(VE_) & " - " & StringaEstratti(es,VE_,".")
   Call VerificaEsito(aformazionedaverificare,aVE,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(NZ_) & " - " & StringaEstratti(es,NZ_,".")
   Call VerificaEsito(aformazionedaverificare,aNZ,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   CloseFileHandle(file)
End Sub


Upgrade dello script soprastante cercando di esaudire le richieste (almeno in parte) del mio maestro scripter di secondo grado i legend :)

Adesso è possibile verificare qualsiasi formazione immessa o da tabella, o da file txt o da campo input e la verifica avviene sia a livello visivo che uditivo... 👁️🗣️👂

Le formazioni nel file txt possono essere di qualsiasi classe ma i loro elementi devpno essere separati dal carattere punto (es. 1.2.3.4.5) e ogni formazione deve stare sotto l'altra... ovvero ciascuna nella sua rispettiva riga del file txt caricato.


Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 21 "upgrade" - verificatore win con tabellone ultima estrazione lotto by tom
   'lo script crea anche un file txt riportante per intero l'ultimo tabellone estrazionale lotto
   'la verifica degli eventuali esiti avviene anche "a voce" e ruota per ruota
   'come fonte di verifica è possibile scegliere tra tabella, file txt e campo di input
   'controllare comunque sempre anche sul sito ufficiale di lottomatica prima di buttare l'eventuale schedina! :)
   Dim es
   Dim file
   Dim aBA(1)
   Dim aCA(1)
   Dim aFI(1)
   Dim aGE(1)
   Dim aMI(1)
   Dim aNA(1)
   Dim aPA(1)
   Dim aRO(1)
   Dim aTO(1)
   Dim aVE(1)
   Dim aNZ(1)
   Dim aBAok
   Dim acAok
   Dim aFIok
   Dim aGEok
   Dim aMIok
   Dim aNAok
   Dim aPAok
   Dim aROok
   Dim aTOok
   Dim aVEok
   Dim aNZok
   Dim pippo
   Dim esito
   Dim estratti
   Dim Formazionedaverificare
   Dim aformazionedaverificare
   Dim sceltainputformazioni
   sceltainputformazioni = InputBox("scegli un modo di immettere le tue formazioni da verificare tra file txt (f) tabella (t) o campo input (i)",,"t")
   If sceltainputformazioni = "t" Then
      ReDim aformazionedaverificare(0)
      Call ScegliNumeri(aformazionedaverificare)
   End If
   If sceltainputformazioni = "f" Then
      sfile = ScegliFile(".\",".txt","pippo.txt")
      Dim sfile
      Dim arighe
      Call LeggiRigheFileDiTesto(sfile,arighe)
      Dim cr
      For cr = 0 To UBound(arighe)
         Call SplitByChar("." & arighe(cr) & ".",".",aformazionedaverificare)
         Call Messaggio("sto verificando la riga n. " & cr)
         file = ".\fileestrazione.txt"
         If FileEsistente(file) Then
            Call EliminaFile(file)
         End If
         es = EstrazioneFin
         ScriviFile file,"estrazione del " & GetInfoEstrazione(EstrazioneFin)
         ScriviFile file,""
         ScriviFile file,NomeRuota(BA_) & " - " & StringaEstratti(es,BA_,".")
         Dim caf
         aBA(1) = BA_
         aCA(1) = CA_
         aFI(1) = FI_
         aGE(1) = GE_
         aMI(1) = MI_
         aNA(1) = NA_
         aPA(1) = PA_
         aRO(1) = RO_
         aTO(1) = TO_
         aVE(1) = VE_
         aNZ(1) = NZ_
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aBA,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aBAok = BA_
         Else
            esito = "nulla"
            aBAok = BA_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         'If pippo = "ok" Then
         ScriviFile file,NomeRuota(CA_) & " - " & StringaEstratti(es,CA_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aCA,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            acAok = CA_
         Else
            esito = "nulla"
            acAok = CA_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(FI_) & " - " & StringaEstratti(es,FI_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aFI,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aFIok = FI_
         Else
            esito = "nulla"
            aFIok = FI_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(GE_) & " - " & StringaEstratti(es,GE_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aGE,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aGEok = GE_
         Else
            esito = "nulla"
            aGEok = GE_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(MI_) & " - " & StringaEstratti(es,MI_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aMI,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aMIok = MI_
         Else
            esito = "nulla"
            aMIok = MI_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(NA_) & " - " & StringaEstratti(es,NA_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aNA,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aNAok = NA_
         Else
            esito = "nulla"
            aNAok = NA_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(PA_) & " - " & StringaEstratti(es,PA_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aPA,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aPAok = PA_
         Else
            esito = "nulla"
            aPAok = PA_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(RO_) & " - " & StringaEstratti(es,RO_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aRO,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aROok = RO_
         Else
            esito = "nulla"
            aROok = RO_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(TO_) & " - " & StringaEstratti(es,TO_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aTO,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aTOok = TO_
         Else
            esito = "nulla"
            aTOok = TO_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(VE_) & " - " & StringaEstratti(es,VE_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aVE,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aVEok = VE_
         Else
            esito = "nulla"
            aVEok = VE_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(NZ_) & " - " & StringaEstratti(es,NZ_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aNZ,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aNZok = NZ_
         Else
            esito = "nulla"
            aNZok = NZ_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         'End If
         CloseFileHandle(file)
         If ScriptInterrotto Then Exit For
      Next ' x arighe
   End If
   If sceltainputformazioni = "i" Then
      Formazionedaverificare = InputBox("immetti la formazione che vuoi verificare (es. 1.2.3.4.5)",,"1.2.3.4.5")
      Call SplitByChar(Formazionedaverificare,".",aformazionedaverificare)
   End If
   file = ".\fileestrazione.txt"
   If FileEsistente(file) Then
      Call EliminaFile(file)
   End If
   es = EstrazioneFin
   Scrivi
   Call ScriviEstrazione(es,True,True,True)
   Scrivi
   ScriviFile file,"estrazione del " & GetInfoEstrazione(EstrazioneFin)
   ScriviFile file,""
   ScriviFile file,NomeRuota(BA_) & " - " & StringaEstratti(es,BA_,".")
   'Dim caf
   aBA(1) = BA_
   aCA(1) = CA_
   aFI(1) = FI_
   aGE(1) = GE_
   aMI(1) = MI_
   aNA(1) = NA_
   aPA(1) = PA_
   aRO(1) = RO_
   aTO(1) = TO_
   aVE(1) = VE_
   aNZ(1) = NZ_
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aBA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aBAok = BA_
   Else
      esito = "nulla"
      aBAok = BA_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   'If pippo = "ok" Then
   ScriviFile file,NomeRuota(CA_) & " - " & StringaEstratti(es,CA_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aCA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      acAok = CA_
   Else
      esito = "nulla"
      acAok = CA_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(FI_) & " - " & StringaEstratti(es,FI_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aFI,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aFIok = FI_
   Else
      esito = "nulla"
      aFIok = FI_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(GE_) & " - " & StringaEstratti(es,GE_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aGE,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aGEok = GE_
   Else
      esito = "nulla"
      aGEok = GE_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(MI_) & " - " & StringaEstratti(es,MI_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aMI,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aMIok = MI_
   Else
      esito = "nulla"
      aMIok = MI_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(NA_) & " - " & StringaEstratti(es,NA_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aNA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aNAok = NA_
   Else
      esito = "nulla"
      aNAok = NA_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(PA_) & " - " & StringaEstratti(es,PA_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aPA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aPAok = PA_
   Else
      esito = "nulla"
      aPAok = PA_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(RO_) & " - " & StringaEstratti(es,RO_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aRO,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aROok = RO_
   Else
      esito = "nulla"
      aROok = RO_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(TO_) & " - " & StringaEstratti(es,TO_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aTO,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aTOok = TO_
   Else
      esito = "nulla"
      aTOok = TO_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(VE_) & " - " & StringaEstratti(es,VE_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aVE,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aVEok = VE_
   Else
      esito = "nulla"
      aVEok = VE_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(NZ_) & " - " & StringaEstratti(es,NZ_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aNZ,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aNZok = NZ_
   Else
      esito = "nulla"
      aNZok = NZ_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   'End If
   CloseFileHandle(file)
End Sub
Function haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   Dim sapi
   Set sapi = CreateObject("sapi.spvoice")
   'Set sapi.Voice = sapi.GetVoices.Item(1)
   Dim oSpFileStream
   Set oSpFileStream = CreateObject("SAPI.SpFileStream")
   Dim ruotaBA
   Dim ruotaCA
   Dim ruotaFI
   Dim ruotaGE
   Dim ruotaMI
   Dim ruotaNA
   Dim ruotaPA
   Dim ruotaRO
   Dim ruotaTO
   Dim ruotaVE
   Dim ruotaNZ
   ruotaBA = 1
   ruotaCA = 2
   ruotaFI = 3
   ruotaGE = 4
   ruotaMI = 5
   ruotaNA = 6
   ruotaPA = 7
   ruotaRO = 8
   ruotaTO = 9
   ruotaVE = 10
   ruotaNZ = 12
   If ruotaBA = aBAok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aBAok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aBAok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aBAok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aBAok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aBAok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aBAok)
      End Select
   End If
   If ruotaCA = acAok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(acAok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(acAok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(acAok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(acAok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(acAok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(acAok)
      End Select
   End If
   If ruotaFI = aFIok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aFIok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aFIok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aFIok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aFIok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aFIok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aFIok)
      End Select
   End If
   If ruotaGE = aGEok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aGEok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aGEok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aGEok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aGEok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aGEok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aGEok)
      End Select
   End If
   If ruotaMI = aMIok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aMIok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aMIok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aMIok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aMIok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aMIok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aMIok)
      End Select
   End If
   If ruotaNA = aNAok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aNAok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aNAok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aNAok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aNAok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aNAok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aNAok)
      End Select
   End If
   If ruotaPA = aPAok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aPAok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aPAok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aPAok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aPAok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aPAok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aPAok)
      End Select
   End If
   If ruotaRO = aROok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aROok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aROok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aROok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aROok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aROok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aROok)
      End Select
   End If
   If ruotaTO = aTOok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aTOok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aTOok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aTOok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aTOok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aTOok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aTOok)
      End Select
   End If
   If ruotaVE = aVEok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aVEok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aVEok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aVEok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aVEok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aVEok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aVEok)
      End Select
   End If
   If ruotaNZ = aNZok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aNZok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aNZok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aNZok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aNZok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aNZok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aNZok)
      End Select
   End If
End Function
 
Ultima modifica:

i legend

Premium Member
Ciao Tom , credo si possa fare con molte meno righe
In pratica hai un file di testo con le previsioni e poi evidenziare i numeri sortiti .
Tipo un minibrowers?
Come è fatto il file estrazione
?
Formazionedaverificare anziché prenderla da inputbox e poi fare split
Utilizza sceglinumeri
RipRmi un passaggio.
Ciao:)
 

lotto_tom75

Advanced Premium Member
Ciao Tom , credo si possa fare con molte meno righe
In pratica hai un file di testo con le previsioni e poi evidenziare i numeri sortiti .
Tipo un minibrowers?
Come è fatto il file estrazione
?
Formazionedaverificare anziché prenderla da inputbox e poi fare split
Utilizza sceglinumeri
RipRmi un passaggio.
Ciao:)

See the upgrade upside 👆 my scripts's master ;). Anche se di molte + righe... e sicuramente troppo esteso e "barocco" 🤤 adesso permette di verificare gli eventuali esiti per varie fonti di input (file txt, tabella o campo input) a partire da qualsiasi tipo di formazione caricata... 👋🙂
 

Alien.

Advanced Premium Member
Script n.21 x lotto - verificatore win con tabellone ultima estrazione lotto * by tom. Lo script crea anche un relativo file txt con l'ultimo tabellone estrazionale analizzato. * controllare comunque sempre anche sul sito ufficiale di lottomatica prima di buttare l'eventuale schedina!

Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 21 - verificatore win con tabellone ultima estrazione lotto by tom
   'controllare comunque sempre anche sul sito ufficiale di lottomatica prima di buttare l'eventuale schedina! :)
   Dim es
   Dim file
   Dim aBA(1)
   Dim aCA(1)
   Dim aFI(1)
   Dim aGE(1)
   Dim aMI(1)
   Dim aNA(1)
   Dim aPA(1)
   Dim aRO(1)
   Dim aTO(1)
   Dim aVE(1)
   Dim aNZ(1)
   Dim pippo
   Dim esito
   Dim estratti
   Dim Formazionedaverificare
   Formazionedaverificare = InputBox("immetti la formazione che vuoi verificare (es. 1.2.3.4.5)",,"1.2.3.4.5")
   Dim aformazionedaverificare
   Call SplitByChar(Formazionedaverificare,".",aformazionedaverificare)
   file = ".\fileestrazione.txt"
   If FileEsistente(file) Then
      Call EliminaFile(file)
   End If
   es = EstrazioneFin
   Call ScriviEstrazione(es,True,True,True)
   ScriviFile file,"estrazione del " & GetInfoEstrazione(EstrazioneFin)
   ScriviFile file,""
   ScriviFile file,NomeRuota(BA_) & " - " & StringaEstratti(es,BA_,".")
   Dim caf
   aBA(1) = BA_
   aCA(1) = CA_
   aFI(1) = FI_
   aGE(1) = GE_
   aMI(1) = MI_
   aNA(1) = NA_
   aPA(1) = PA_
   aRO(1) = RO_
   aTO(1) = TO_
   aVE(1) = VE_
   aNZ(1) = NZ_
   Call VerificaEsito(aformazionedaverificare,aBA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(CA_) & " - " & StringaEstratti(es,CA_,".")
   Call VerificaEsito(aformazionedaverificare,aCA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(FI_) & " - " & StringaEstratti(es,FI_,".")
   Call VerificaEsito(aformazionedaverificare,aFI,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(GE_) & " - " & StringaEstratti(es,GE_,".")
   Call VerificaEsito(aformazionedaverificare,aGE,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(MI_) & " - " & StringaEstratti(es,MI_,".")
   Call VerificaEsito(aformazionedaverificare,aMI,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(NA_) & " - " & StringaEstratti(es,NA_,".")
   Call VerificaEsito(aformazionedaverificare,aNA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(PA_) & " - " & StringaEstratti(es,PA_,".")
   Call VerificaEsito(aformazionedaverificare,aPA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(RO_) & " - " & StringaEstratti(es,RO_,".")
   Call VerificaEsito(aformazionedaverificare,aRO,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(TO_) & " - " & StringaEstratti(es,TO_,".")
   Call VerificaEsito(aformazionedaverificare,aTO,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(VE_) & " - " & StringaEstratti(es,VE_,".")
   Call VerificaEsito(aformazionedaverificare,aVE,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   ScriviFile file,NomeRuota(NZ_) & " - " & StringaEstratti(es,NZ_,".")
   Call VerificaEsito(aformazionedaverificare,aNZ,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
   End If
   CloseFileHandle(file)
End Sub


Upgrade dello script soprastante cercando di esaudire le richieste (almeno in parte) del mio maestro scripter di secondo grado i legend :)

Adesso è possibile verificare qualsiasi formazione immessa o da tabella, o da file txt o da campo input e la verifica avviene sia a livello visivo che uditivo... 👁️🗣️👂

Le formazioni nel file txt possono essere di qualsiasi classe ma i loro elementi devpno essere separati dal carattere punto (es. 1.2.3.4.5) e ogni formazione deve stare sotto l'altra... ovvero ciascuna nella sua rispettiva riga del file txt caricato.


Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 21 "upgrade" - verificatore win con tabellone ultima estrazione lotto by tom
   'lo script crea anche un file txt riportante per intero l'ultimo tabellone estrazionale lotto
   'la verifica degli eventuali esiti avviene anche "a voce" e ruota per ruota
   'come fonte di verifica è possibile scegliere tra tabella, file txt e campo di input
   'controllare comunque sempre anche sul sito ufficiale di lottomatica prima di buttare l'eventuale schedina! :)
   Dim es
   Dim file
   Dim aBA(1)
   Dim aCA(1)
   Dim aFI(1)
   Dim aGE(1)
   Dim aMI(1)
   Dim aNA(1)
   Dim aPA(1)
   Dim aRO(1)
   Dim aTO(1)
   Dim aVE(1)
   Dim aNZ(1)
   Dim aBAok
   Dim acAok
   Dim aFIok
   Dim aGEok
   Dim aMIok
   Dim aNAok
   Dim aPAok
   Dim aROok
   Dim aTOok
   Dim aVEok
   Dim aNZok
   Dim pippo
   Dim esito
   Dim estratti
   Dim Formazionedaverificare
   Dim aformazionedaverificare
   Dim sceltainputformazioni
   sceltainputformazioni = InputBox("scegli un modo di immettere le tue formazioni da verificare tra file txt (f) tabella (t) o campo input (i)",,"t")
   If sceltainputformazioni = "t" Then
      ReDim aformazionedaverificare(0)
      Call ScegliNumeri(aformazionedaverificare)
   End If
   If sceltainputformazioni = "f" Then
      sfile = ScegliFile(".\",".txt","pippo.txt")
      Dim sfile
      Dim arighe
      Call LeggiRigheFileDiTesto(sfile,arighe)
      Dim cr
      For cr = 0 To UBound(arighe)
         Call SplitByChar("." & arighe(cr) & ".",".",aformazionedaverificare)
         Call Messaggio("sto verificando la riga n. " & cr)
         file = ".\fileestrazione.txt"
         If FileEsistente(file) Then
            Call EliminaFile(file)
         End If
         es = EstrazioneFin
         ScriviFile file,"estrazione del " & GetInfoEstrazione(EstrazioneFin)
         ScriviFile file,""
         ScriviFile file,NomeRuota(BA_) & " - " & StringaEstratti(es,BA_,".")
         Dim caf
         aBA(1) = BA_
         aCA(1) = CA_
         aFI(1) = FI_
         aGE(1) = GE_
         aMI(1) = MI_
         aNA(1) = NA_
         aPA(1) = PA_
         aRO(1) = RO_
         aTO(1) = TO_
         aVE(1) = VE_
         aNZ(1) = NZ_
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aBA,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aBAok = BA_
         Else
            esito = "nulla"
            aBAok = BA_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         'If pippo = "ok" Then
         ScriviFile file,NomeRuota(CA_) & " - " & StringaEstratti(es,CA_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aCA,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            acAok = CA_
         Else
            esito = "nulla"
            acAok = CA_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(FI_) & " - " & StringaEstratti(es,FI_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aFI,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aFIok = FI_
         Else
            esito = "nulla"
            aFIok = FI_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(GE_) & " - " & StringaEstratti(es,GE_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aGE,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aGEok = GE_
         Else
            esito = "nulla"
            aGEok = GE_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(MI_) & " - " & StringaEstratti(es,MI_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aMI,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aMIok = MI_
         Else
            esito = "nulla"
            aMIok = MI_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(NA_) & " - " & StringaEstratti(es,NA_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aNA,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aNAok = NA_
         Else
            esito = "nulla"
            aNAok = NA_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(PA_) & " - " & StringaEstratti(es,PA_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aPA,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aPAok = PA_
         Else
            esito = "nulla"
            aPAok = PA_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(RO_) & " - " & StringaEstratti(es,RO_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aRO,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aROok = RO_
         Else
            esito = "nulla"
            aROok = RO_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(TO_) & " - " & StringaEstratti(es,TO_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aTO,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aTOok = TO_
         Else
            esito = "nulla"
            aTOok = TO_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(VE_) & " - " & StringaEstratti(es,VE_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aVE,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aVEok = VE_
         Else
            esito = "nulla"
            aVEok = VE_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         ScriviFile file,NomeRuota(NZ_) & " - " & StringaEstratti(es,NZ_,".")
         aBAok = ""
         acAok = ""
         aFIok = ""
         aGEok = ""
         aMIok = ""
         aNAok = ""
         aPAok = ""
         aROok = ""
         aTOok = ""
         aVEok = ""
         aNZok = ""
         Call VerificaEsito(aformazionedaverificare,aNZ,es,1,1,,esito,,estratti)
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
            aNZok = NZ_
         Else
            esito = "nulla"
            aNZok = NZ_
         End If
         Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
         'End If
         CloseFileHandle(file)
         If ScriptInterrotto Then Exit For
      Next ' x arighe
   End If
   If sceltainputformazioni = "i" Then
      Formazionedaverificare = InputBox("immetti la formazione che vuoi verificare (es. 1.2.3.4.5)",,"1.2.3.4.5")
      Call SplitByChar(Formazionedaverificare,".",aformazionedaverificare)
   End If
   file = ".\fileestrazione.txt"
   If FileEsistente(file) Then
      Call EliminaFile(file)
   End If
   es = EstrazioneFin
   Scrivi
   Call ScriviEstrazione(es,True,True,True)
   Scrivi
   ScriviFile file,"estrazione del " & GetInfoEstrazione(EstrazioneFin)
   ScriviFile file,""
   ScriviFile file,NomeRuota(BA_) & " - " & StringaEstratti(es,BA_,".")
   'Dim caf
   aBA(1) = BA_
   aCA(1) = CA_
   aFI(1) = FI_
   aGE(1) = GE_
   aMI(1) = MI_
   aNA(1) = NA_
   aPA(1) = PA_
   aRO(1) = RO_
   aTO(1) = TO_
   aVE(1) = VE_
   aNZ(1) = NZ_
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aBA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aBAok = BA_
   Else
      esito = "nulla"
      aBAok = BA_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   'If pippo = "ok" Then
   ScriviFile file,NomeRuota(CA_) & " - " & StringaEstratti(es,CA_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aCA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      acAok = CA_
   Else
      esito = "nulla"
      acAok = CA_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(FI_) & " - " & StringaEstratti(es,FI_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aFI,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aFIok = FI_
   Else
      esito = "nulla"
      aFIok = FI_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(GE_) & " - " & StringaEstratti(es,GE_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aGE,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aGEok = GE_
   Else
      esito = "nulla"
      aGEok = GE_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(MI_) & " - " & StringaEstratti(es,MI_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aMI,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aMIok = MI_
   Else
      esito = "nulla"
      aMIok = MI_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(NA_) & " - " & StringaEstratti(es,NA_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aNA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aNAok = NA_
   Else
      esito = "nulla"
      aNAok = NA_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(PA_) & " - " & StringaEstratti(es,PA_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aPA,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aPAok = PA_
   Else
      esito = "nulla"
      aPAok = PA_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(RO_) & " - " & StringaEstratti(es,RO_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aRO,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aROok = RO_
   Else
      esito = "nulla"
      aROok = RO_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(TO_) & " - " & StringaEstratti(es,TO_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aTO,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aTOok = TO_
   Else
      esito = "nulla"
      aTOok = TO_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(VE_) & " - " & StringaEstratti(es,VE_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aVE,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aVEok = VE_
   Else
      esito = "nulla"
      aVEok = VE_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   ScriviFile file,NomeRuota(NZ_) & " - " & StringaEstratti(es,NZ_,".")
   aBAok = ""
   acAok = ""
   aFIok = ""
   aGEok = ""
   aMIok = ""
   aNAok = ""
   aPAok = ""
   aROok = ""
   aTOok = ""
   aVEok = ""
   aNZok = ""
   Call VerificaEsito(aformazionedaverificare,aNZ,es,1,1,,esito,,estratti)
   If esito <> "" Then
      Scrivi "ok " & esito & " estratti " & estratti
      aNZok = NZ_
   Else
      esito = "nulla"
      aNZok = NZ_
   End If
   Call haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   'End If
   CloseFileHandle(file)
End Sub
Function haivintosiono(esito,aBAok,acAok,aFIok,aGEok,aMIok,aNAok,aPAok,aROok,aTOok,aVEok,aNZok)
   Dim sapi
   Set sapi = CreateObject("sapi.spvoice")
   'Set sapi.Voice = sapi.GetVoices.Item(1)
   Dim oSpFileStream
   Set oSpFileStream = CreateObject("SAPI.SpFileStream")
   Dim ruotaBA
   Dim ruotaCA
   Dim ruotaFI
   Dim ruotaGE
   Dim ruotaMI
   Dim ruotaNA
   Dim ruotaPA
   Dim ruotaRO
   Dim ruotaTO
   Dim ruotaVE
   Dim ruotaNZ
   ruotaBA = 1
   ruotaCA = 2
   ruotaFI = 3
   ruotaGE = 4
   ruotaMI = 5
   ruotaNA = 6
   ruotaPA = 7
   ruotaRO = 8
   ruotaTO = 9
   ruotaVE = 10
   ruotaNZ = 12
   If ruotaBA = aBAok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aBAok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aBAok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aBAok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aBAok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aBAok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aBAok)
      End Select
   End If
   If ruotaCA = acAok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(acAok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(acAok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(acAok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(acAok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(acAok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(acAok)
      End Select
   End If
   If ruotaFI = aFIok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aFIok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aFIok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aFIok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aFIok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aFIok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aFIok)
      End Select
   End If
   If ruotaGE = aGEok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aGEok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aGEok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aGEok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aGEok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aGEok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aGEok)
      End Select
   End If
   If ruotaMI = aMIok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aMIok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aMIok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aMIok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aMIok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aMIok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aMIok)
      End Select
   End If
   If ruotaNA = aNAok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aNAok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aNAok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aNAok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aNAok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aNAok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aNAok)
      End Select
   End If
   If ruotaPA = aPAok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aPAok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aPAok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aPAok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aPAok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aPAok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aPAok)
      End Select
   End If
   If ruotaRO = aROok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aROok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aROok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aROok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aROok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aROok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aROok)
      End Select
   End If
   If ruotaTO = aTOok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aTOok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aTOok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aTOok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aTOok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aTOok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aTOok)
      End Select
   End If
   If ruotaVE = aVEok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aVEok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aVEok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aVEok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aVEok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aVEok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aVEok)
      End Select
   End If
   If ruotaNZ = aNZok Then
      Select Case(esito)
      Case "nulla"
         sapi.Speak "nulla! su " & NomeRuota(aNZok)
      Case "Estratto"
         sapi.Speak "ok hai centrato estratto su " & NomeRuota(aNZok)
      Case "Ambo"
         sapi.Speak "ok hai centrato ambo su " & NomeRuota(aNZok)
      Case "Terno"
         sapi.Speak "ok hai centrato terno su " & NomeRuota(aNZok)
      Case "Quaterna"
         sapi.Speak "ok hai centrato quaterna su " & NomeRuota(aNZok)
      Case "Cinquina"
         sapi.Speak "ok hai centrato cinquina su " & NomeRuota(aNZok)
      End Select
   End If
End Function
QUESTO è proprio "carino" avete messo anche la "segretaria" che ti parla e dice nulla ecc.si ma poi sparisce tutto e torna qua su ced dal suo "padrone" :unsure:🤣🤣🤣
 

Alien.

Advanced Premium Member
Ciao alien grazie per i compli.. ma cosa intendi con "poi sparisce tutto ecc... "? 🙃
è semplice quando parla ed arriva alla nazionale si chiude tutto sparisce lo script e ritorna qua su ced nella pagina dello script (che ci hai messo un virus che scopre chi l'ha installato(scherzo ma):unsure::oops:🤣
 

lotto_tom75

Advanced Premium Member
è semplice quando parla ed arriva alla nazionale si chiude tutto sparisce lo script e ritorna qua su ced nella pagina dello script (che ci hai messo un virus che scopre chi l'ha installato(scherzo ma):unsure::oops:🤣

😱🤣

Ma che te bevi la sera... Alien? 🤣
Ad ogni modo a me ritorna sulla schermata di output a video. Non si chiude e non torna... su ced... Comunque se qualcun altro vuol provare ad es i legend ci togliamo ogni dubbio... 😆 Come tester di script però alien lasciamelo dire... sei un incubo... 😂
 

Alien.

Advanced Premium Member
Ho copiato lo script qua poi messo su spazio bla bla bla e di colpo ritornava qua la videata di ced
Copiato su excel poi inserito su spazio ok appare l'estrazione con la scritta ambata su venezia pare tutto ok ,non so che dirti.
 

lotto_tom75

Advanced Premium Member
Script n.22 - x utility... - come trasformare un output di testo in bmp? :unsure: Ce lo dice il grande claudio8 che ringrazio e saluto anche da qui con il suo code di esempio sottostante...

Codice:
Option Explicit

Sub Main

'come trasformare un output di testo in bmp by claudio8

     Dim x,y
     Call PicSetDimensioni(250,250,150,150)
     Call Scrivi("Semplice scrittura testo alle coordinate 1,10 e 2,10")
     Call PicClear
     Call PicStampaTesto(1,8,"Estrazioni su bari in ciclo for",,,,,8)
     For x = 1 To 20
          Call PicStampaTesto(1,8 +(x*8),Format2(x) & ") " & DataEstrazione(EstrazioneFin - x) & " " & StringaEstratti(EstrazioneFin - x,BA_),,,,,8)
     Next
     Call PicEsegui
End Sub

la bmp generata si troverà nella cartella di spaziomeria nel percorso analogo a questo di esempio qui sotto con ovviamente il nome dell'utente al posto del seguente admin in grassetto:

C:\Users\admin\AppData\Roaming\spaziometria\temp\scriptOutput
 
Ultima modifica:

claudio8

Premium Member
Script n.22 - x utility... - come trasformare un output di testo in bmp? :unsure: Ce lo dice il grande claudio8 che ringrazio e saluto anche da qui con il suo code di esempio sottostante...

Codice:
Option Explicit

Sub Main

'come trasformare un output di testo in bmp by claudio8

     Dim x,y
     Call PicSetDimensioni(250,250,150,150)
     Call Scrivi("Semplice scrittura testo alle coordinate 1,10 e 2,10")
     Call PicClear
     Call PicStampaTesto(1,8,"Estrazioni su bari in ciclo for",,,,,8)
     For x = 1 To 20
          Call PicStampaTesto(1,8 +(x*8),Format2(x) & ") " & DataEstrazione(EstrazioneFin - x) & " " & StringaEstratti(EstrazioneFin - x,BA_),,,,,8)
     Next
     Call PicEsegui
End Sub

la bmp generata si troverà nella cartella di spaziomeria nel percorso analogo a questo di esempio qui sotto con ovviamente il nome dell'utente al posto del seguente admin in grassetto:

C:\Users\admin\AppData\Roaming\spaziometria\temp\scriptOutput
Adesso mi devi anche il copyright
Doppio panettone..
Ps: uno dei due mandalo a Luigi👨‍🎓👮‍♀️
 

lotto_tom75

Advanced Premium Member
Script n. 23 x lotto - sommativo x lotto - ambata teorica in pochi colpi by elenco specifici addon per ogni estrazione mensile. Ruota target in questo caso VE by tom
le ambate teoricamente buone sono quelle che hanno pochi colpi rimasti teorici rispetto i 13 impostati per la ricerca e possibilmente nessuna uscita nel loro relativo report di sfaldamento... Nessuna Certezza Solo Poca Probabiità

Codice:
Sub Main
   'tom's bakery script n. 23 x lotto script sommativo per teorica ambata in pochi colpi by elenco specifici addon x 30clp teoricamente ottimali per ogni estrazione del mese... Nessuna Certezza Solo Poca Probabilità - List by tom
   ColoreTesto 2
   Scrivi "metodo VEBOOM!"
   Scrivi "ambate analizzate su 30 colpi su VE con ricerca e riduzione ottimale a pochi colpi teorici (anche tre soltanto...)  "
   Scrivi " Nessuna Certezza Solo Poca Probabilità "
   ColoreTesto 0
   Dim poste(5)
   Dim ruote1(1)
   Dim ruote2(1)
   Dim cinquiVE(5)
   Dim Ini,FIn,es,clp,nu1,nu2,nu3,nu4,nu5,nu6,nu7,nu8,nu9,nu10,a,b,c,d,e,k
   Dim contaes
   ruote2(1) = VE_
   poste(1) = 1
   poste(2) = 1
   poste(3) = 1
   poste(4) = 1
   poste(5) = 1
   clp = 45
   k = CInt(InputBox("SCEGLI QUANTE ESTRAZIONI ANALIZZARE",,3000))
   FIn = EstrazioneFin
   Ini = FIn - k
   co = 0
   For es = Ini To FIn
      contaes = contaes + 1
      Messaggio("Attendi... " & " INDICE MENSILE : " & IndiceMensile(es) & " id es " & es & " n. " & contaes & " su " & k & " r: " & SiglaRuota(ruote2(1)))
      Call AvanzamentoElab(Ini,FIn,es)
      Dim nu11,nu12
      '1
      nu1 = Estratto(es,VE_,2)
      '2
      nu2 = Estratto(es,VE_,5)
      '3
      nu3 = Estratto(es,VE_,3)
      '4
      nu4 = Estratto(es,VE_,2)
      '5
      nu5 = Estratto(es,VE_,1)
      '6
      nu6 = Estratto(es,VE_,1)
      '7
      nu7 = Estratto(es,VE_,1)
      '8
      nu8 = Estratto(es,VE_,2)
      '9
      nu9 = Estratto(es,VE_,2)
      '10
      nu10 = Estratto(es,VE_,2)
      '11
      nu11 = Estratto(es,VE_,1)
      '12
      nu12 = Estratto(es,VE_,1)
      Select Case(IndiceMensile(es))
      Case 1
         a =(Fuori90(nu1 + 3))
         b =(Fuori90(nu1 + 57))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 2
         a =(Fuori90(nu2 + 2))
         b =(Fuori90(nu2 + 74))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 3
         a =(Fuori90(nu3 + 6))
         b =(Fuori90(nu3 + 24))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 4
         a =(Fuori90(nu4 + 49))
         b =(Fuori90(nu4 + 66))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 5
         a =(Fuori90(nu5 + 8))
         b =(Fuori90(nu5 + 33))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 6
         a =(Fuori90(nu6 + 59))
         b =(Fuori90(nu6 + 67))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 7
         a =(Fuori90(nu7 + 1))
         b =(Fuori90(nu7 + 25))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 8
         a =(Fuori90(nu8 + 7))
         b =(Fuori90(nu8 + 71))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 9
         a =(Fuori90(nu9 + 6))
         b =(Fuori90(nu9 + 29))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 10
         a =(Fuori90(nu10 + 1))
         b =(Fuori90(nu10 + 17))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 11
         a =(Fuori90(nu11 + 1))
         b =(Fuori90(nu11 + 87))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      Case 12
         a =(Fuori90(nu12 + 2))
         b =(Fuori90(nu12 + 36))
         cinquiVE(1) = a
         cinquiVE(2) = b
         ok = 1
      End Select
      If ok = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"=") & " Caso n°" & co,1
         ColoreTesto 1
         Scrivi "INDICE MENSILE : " & IndiceMensile(es)
         Scrivi "AMBATA SECCA GENERATA " & " " & "=" & " " & a & "." & b '& "." & c & "." & d & "."' & e
         Scrivi String(80,"="),1
         ruote2(1) = VE_
         ImpostaGiocata 1,cinquiVE,ruote2,poste,clp
         Gioca es
      End If
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
   Scrivi
   Scrivi "Tempo trascorso: " & TempoTrascorso
   Scrivi
   Call ScriviDistribuzioneCasiInCorso("true","1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Script n. 24 x million day by tom. Lo script analizza, per qualunque sorte da 1 a 5 punti, qualsiasi file txt contenente qualsiasi gruppo di formazioni numeriche di qualsiasi classe anche non omogenee intervallate da carattere punto.

Il file txt letto richiesto nella seconda fase dello script deve avere tutte le formazioni che si intendono analizzare una sotto l'altra e con i loro elementi separati dal carattere punto (.) in questo modo:

Es. di formazione numerica analizzabile

02.03.06.07.09.11.12.13.14.15.16.17.18.21.25
02.03.06.07.09.11.12.13.15.16.17.18.19.21.25.37.39
ecc...

Codice:
Option Explicit
Sub Main
   ' tom's bakery script n. 24 x million day lo script analizza per qualunque sorte da 1 a 5 punti qualsiasi file txt contenente qualsiasi 'formazione numerica intervallata da carattere punto;  la riga filtro è modificabile secondo le proprie eventuali esigenze e di default 'mostra a video ogni riga del file txt analizzato.
   Call Messaggio("scegli il file archivio md")
   Dim sFileArchivio : sFileArchivio = ScegliFile(".\")
   Call ApriBaseDatiFT(sFileArchivio,05,",",55)
   Dim Inizio,Fine : Inizio = 00001 : Fine = EstrazioniArchivioFT
   Dim nSorte : nSorte = CInt(InputBox("sorte di ricerca",,1))
   Dim sFile : sFile = ScegliFile("c:\lunghette",".txt","lunghette.txt")
   Dim k,y
   Dim RetRit,RetRitMax,RetIncrRitMax,RetFreq
   Call Messaggio("Lettura file di testo")
   ReDim aRighe(00)
   Call LeggiRigheFileDiTesto(sFile,aRighe)
   For k = 0 To UBound(aRighe)
      If aRighe(k) <> "" Then
         ReDim aNum(90) : Call SplitByChar("." & aRighe(k),".",aNum)
         Call StatisticaFormazioneFT(aNum,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)
         RetRit = RitardoCombinazioneFT(aNum,nSorte,Fine)
         Dim Diff
         Diff = RetRitMax - RetRit
         If(RetRit >= 0) Then
            Call Messaggio("Trovata! :) con incmax: " & RetIncrRitMax & " e con freq: " & RetFreq)
            Call Scrivi(aRighe(k) & " ra : " & RetRit & " rs: " & RetRitMax & " incmax: " & RetIncrRitMax & " diff: " & Diff & " freq: " & RetFreq)
         End If
      End If
      If k Mod 100 = 000 Then
         Call Messaggio("Colonna : " & k)
         If ScriptInterrotto Then Exit For
         Call AvanzamentoElab(00,UBound(aRighe),k)
      End If
   Next
End Sub

La riga filtro modificabile come si vuole in base alle proprie tipologie di analisi è la seguente:

Codice:
  If(RetRit >= 0) Then

e di default mostra a video ogni riga del file txt analizzato essendo un filtro per ra >= 0 e quindi totalmente aperto.

L'archivio md letto e richiesto nella fase iniziale dello script deve avere tutte le estrazioni md una sotto l'altra e con i loro elementi separati dal carattere virgola (,) in questo modo:

es. delle prime tre righe del file archivio md:


1,07/02/2018,16,7,43,44,51
2,08/02/2018,53,15,38,26,27
3,09/02/2018,43,45,13,31,2
ecc...
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Script n. 25 x million day by tom - verificatore tramite tabella, input o file txt con supporto vocale...

Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 25 x million day - verificatore win con tabellone ultima estrazione million day  by tom
   'lo script crea anche un file txt riportante per l'ultima formazione estrazionale million day
   'la verifica degli eventuali esiti avviene anche "a voce"
   'come fonte di verifica è possibile scegliere tra tabella, file txt e campo di input
   'controllare comunque sempre anche sul sito ufficiale di lottomatica prima di buttare l'eventuale schedina! :)
   Dim es
   Dim file
   Dim pippo
   Dim esito
   Dim estratti
   Dim Formazionedaverificare
   Dim aformazionedaverificare
   Dim sceltainputformazioni
   Call Messaggio("scegli il file archivio md")
   Dim sFileArchivio : sFileArchivio = ScegliFile(".\") 'GetDirectoryAppData & "Archivio MillionDAY\MillionDay-aggiornamento-aggiornato-ultima-estrazione.txt" 'MillionDayMD.txt"
   Call ApriBaseDatiFT(sFileArchivio,05,",",55)
   Dim Inizio,Fine : Inizio = 00001 : Fine = EstrazioniArchivioFT
   es = EstrazioniArchivioFT
   sceltainputformazioni = InputBox("scegli un modo di immettere le tue formazioni da verificare tra file txt (f) tabella (t) o campo input (i)",,"t")
   If sceltainputformazioni = "t" Then
      ReDim aformazionedaverificare(0)
      Call ScegliNumeri(aformazionedaverificare)
      Scrivi
      Scrivi StringaNumeri(aformazionedaverificare)
      Scrivi esito
      Scrivi
      Call VerificaEsitoFT(aformazionedaverificare,es,1,1,esito,,estratti)
      If esito <> "" Then
         Scrivi "ok " & esito & " estratti " & estratti
      Else
         esito = "nulla"
         Scrivi esito
      End If
      Call haivintosiono(esito)
   End If
   If sceltainputformazioni = "f" Then
      sfile = ScegliFile(".\",".txt","pippo.txt")
      Dim sfile
      Dim arighe
      Call LeggiRigheFileDiTesto(sfile,arighe)
      Dim cr
      For cr = 0 To UBound(arighe)
         Call SplitByChar(arighe(cr) & ".",".",aformazionedaverificare)
         Call Messaggio("sto verificando la riga n. " & cr)
         file = ".\fileestrazione.txt"
         If FileEsistente(file) Then
            Call EliminaFile(file)
         End If
         ScriviFile file,"estrazione del " & GetInfoEstrazioneFT(EstrazioniArchivioFT)
         ScriviFile file,""
         ScriviFile file,StringaEstrattiFT(es,".")
         Dim caf
         Call VerificaEsitoFT(aformazionedaverificare,es,1,1,esito,,estratti)
         Scrivi
         Scrivi StringaNumeri(aformazionedaverificare)
         Scrivi esito
         Scrivi
         If esito <> "" Then
            Scrivi "ok " & esito & " estratti " & estratti
         Else
            esito = "nulla"
            Scrivi esito
         End If
         CloseFileHandle(file)
         If ScriptInterrotto Then Exit For
         Call haivintosiono(esito)
      Next ' x arighe
   End If
   If sceltainputformazioni = "i" Then
      Formazionedaverificare = InputBox("immetti la formazione che vuoi verificare (es. 1.2.3.4.5)",,"1.2.3.4.5")
      Call SplitByChar(Formazionedaverificare,".",aformazionedaverificare)
      Scrivi
      Scrivi StringaNumeri(aformazionedaverificare)
      Scrivi esito
      Scrivi
      Call VerificaEsitoFT(aformazionedaverificare,es,1,1,esito,,estratti)
      If esito <> "" Then
         Scrivi "ok " & esito & " estratti " & estratti
      Else
         esito = "nulla"
         Scrivi esito
      End If
      Call haivintosiono(esito)
   End If
   file = ".\fileestrazione.txt"
   If FileEsistente(file) Then
      Call EliminaFile(file)
   End If
   es = EstrazioniArchivioFT
   Scrivi
   Scrivi
   ScriviFile file,"estrazione del " & GetInfoEstrazioneFT(EstrazioniArchivioFT)
   ScriviFile file,""
   ScriviFile file,StringaEstrattiFT(es,".")
   'Dim caf
End Sub
Function haivintosiono(esito)
   Dim sapi
   Set sapi = CreateObject("sapi.spvoice")
   Dim oSpFileStream
   Set oSpFileStream = CreateObject("SAPI.SpFileStream")
   Select Case(esito)
   Case "nulla"
      sapi.Speak "nulla!"
   Case "Estratto"
      sapi.Speak "ok hai centrato un punto"
   Case "Ambo"
      sapi.Speak "ok hai centrato due punti"
   Case "Terno"
      sapi.Speak "ok hai centrato tre punti!"
   Case "Quaterna"
      sapi.Speak "ok hai centrato quattro punti!"
   Case "Cinquina"
      sapi.Speak "ok hai centrato cinque punti!"
   End Select
End Function

per disattivare la funzione "vocale" basta ovviamente commentare con un apice (') ad inizio riga il richiamo della stessa
facendola diventare, ove presente, da così...

Codice:
 Call haivintosiono(esito)

a così...

Codice:
'    Call haivintosiono(esito)

L'archivio md letto e richiesto nella fase iniziale dello script deve avere tutte le estrazioni md una sotto l'altra e con i loro elementi separati dal carattere virgola (,) in questo modo:

es. delle prime tre righe del file archivio md:


1,07/02/2018,16,7,43,44,51
2,08/02/2018,53,15,38,26,27
3,09/02/2018,43,45,13,31,2
ecc...
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto