Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
tom's bakery
- Creatore Discussione lotto_tom75
- Data di inizio
lotto_tom75
Advanced Premium Member
Il ritocchino... lo farei ad un altro...
mi spiace...
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
E' possibile selezionare solo il numeri di casi in corso teorici desiderati mediante la riga...
impostata di default a 23 colpi massimi teorici rimanenti.
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 SubE' 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...
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...
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 Sublotto_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!
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 - 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 SubUpgrade 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
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
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"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
lotto_tom75
Advanced Premium Member
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"
Ciao alien grazie per i compli.. ma cosa intendi con "poi sparisce tutto ecc... "?
Alien.
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)Ciao alien grazie per i compli.. ma cosa intendi con "poi sparisce tutto ecc... "?
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)
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... 
lotto_tom75
Advanced Premium Member
Script n.22 - x utility... - come trasformare un output di testo in bmp? Ce lo dice il grande claudio8 che ringrazio e saluto anche da qui con il suo code di esempio sottostante...
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
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 Subla 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:
Adesso mi devi anche il copyrightScript n.22 - x utility... - come trasformare un output di testo in bmp?
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
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à
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...
La riga filtro modificabile come si vuole in base alle proprie tipologie di analisi è la seguente:
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...
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 SubLa riga filtro modificabile come si vuole in base alle proprie tipologie di analisi è la seguente:
Codice:
If(RetRit >= 0) Thene 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...
per disattivare la funzione "vocale" basta ovviamente commentare con un apice (') ad inizio riga il richiamo della stessa
facendola diventare, ove presente, da così...
a così...
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...
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 Functionper 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
sabato 23 novembre 2024Bari3380865225Cagliari6757590580Firenze3132588877Genova4039233681Milano2858452538Napoli2082234457Palermo7656886231Roma1281597472Torino4653724523Venezia0412426420Nazionale6344781055Estrazione Simbolotto
Torino
4342123922
