Novità

tom's bakery

lotto_tom75

Advanced Premium Member
Script n. 26 x utility - scoprire se un numero è pari o dispari in automatico per creare ad esempio due gruppi numerici base di sviluppo in modo totalmente automatico data una massa numerica iniziale qualsiasi immessa da tabella


Codice:
Option Explicit
Sub Main
   'Tom's bakery script n.26 x utility - scoprire se un numro è pari o dispari in automatico per creare ad esempio
   'due gruppi numerici base di sviluppo in modo totalmente automatico data una massa numerica iniziale qualsiasi
   ReDim anum(0)
   Dim cn
   Call ScegliNumeri(anum)
   ReDim gruppopari(UBound(anum))
   ReDim gruppodispari(UBound(anum))
   For cn = 1 To UBound(anum)
      'Scrivi anum(cn)
      If anum(cn) Mod 2 = 0 Then
         Scrivi anum(cn) & " pari "
         gruppopari(cn) = anum(cn)
      Else
         Scrivi anum(cn) & " dispari"
         gruppodispari(cn) = anum(cn)
      End If
   Next
   Scrivi
   Scrivi "pari " & StringaNumeri(gruppopari)
   Scrivi "dispari " & StringaNumeri(gruppodispari)
End Sub
 
Ultima modifica:

Alien.

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
errore previsto end ?
 

lotto_tom75

Advanced Premium Member
Script n. 27 x utility by tom - esempio su come rimuovere il primo e l'ultimo carattere da qualsiasi riga di testo contenuta in un file txt caricato.


Codice:
Option Explicit
Sub Main
'tom's bakery script n. 27 x utility - es. su come rimuovere il primo e l'ultimo carattere da qualsiasi riga di testo contenuta
'in un file txt caricato.
   Dim file
   file = ScegliFile(".\",".txt","pippo.txt")
   Dim arighe
   Dim cr
   Dim Stringapulita
   Dim Stringaancorapiupulita
   Call LeggiRigheFileDiTesto(file,arighe)
   For cr = 0 To UBound(arighe)
      Scrivi
      Scrivi "stringa da pulire del primo e dell'ultimo carattere"
      Scrivi arighe(cr)
      Scrivi "stringapulita"
      Stringapulita = Left(arighe(cr),Len(arighe(cr)) - 1)
      Scrivi Stringapulita
      Stringaancorapiupulita = Right(Stringapulita,Len(Stringapulita) - 1)
      Scrivi "stringaancorapiupulita"
      Scrivi Stringaancorapiupulita
      Scrivi
   Next
End Sub
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Script n. 28 - x utility by claudio8, ilegend e tom - lo script permette di separare da un gruppo base iniziale una sotto lunghetta primaria evidenziandone gli elementi comuni e quelli divergenti


Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 28 - x utility by claudio8, ilegend e tom - lo script permette di separare da un gruppo base iniziale
   'una sotto lunghtta primaria evidenziandone gli elementi comuni e quelli divergenti
   Dim a1,a2,s,s2,s3,s4,s5,s6
   Dim a3
   ReDim a1(0)
   Call ScegliNumeri(a1)
   ReDim a3(0)
   Call ScegliNumeri(a3)
   Call Scrivi(" GRUPPO BASE " & StringaNumeri(a1) & " quantità " & UBound(a1))
   Call Scrivi(" Lunghetta B: " & StringaNumeri(a3) & " quantità " & UBound(a3))
   Scrivi
   Scrivi " Confronto... "
   Scrivi
   Dim v,v2
   Call SplitByChar(s," ",v)
   Call SplitByChar(s2," ",v2)
   Scrivi
   Scrivi "-------------------------------------------------------------------------------------------------------------------------"
   Call getMancante(a1,a3,s3)
   Dim v3,v4
   Call SplitByChar(s3," ",v3)
   Call Scrivi(" elementi divergenti tra GRUPPO BASE e lunghetta B: " & s3 & " quantità " & UBound(v3))
   Call getComuni(a1,a3,s4)
   Call SplitByChar(s4," ",v4)
   Call Scrivi(" elementi comuni tra GRUPPO BASE e lunghetta B: " & s4 & " quantità " & UBound(v4))
   Dim v5,v6
   Call SplitByChar(s5," ",v5)
   Call SplitByChar(s6," ",v6)
End Sub
Sub getMancante(a1,a2,s)
   Dim n,n1,bret',s
   s = ""
   For n = 1 To UBound(a1)
      bret = True
      For n1 = 1 To UBound(a2)
         If a1(n) = a2(n1) Then bret = False
      Next
      If bret Then s = s & a1(n) & " "
   Next
End Sub
Sub getComuni(a1,a2,s2)
   Dim n,n1,bret',s
   s2 = ""
   For n = 1 To UBound(a1)
      bret = False
      For n1 = 1 To UBound(a2)
         If a1(n) = a2(n1) Then bret = True
      Next
      If bret Then s2 = s2 & a1(n) & " "
   Next
End Sub
 

lotto_tom75

Advanced Premium Member
Script n. 29 x million day - lo script consente di analizzare e ordinare con tabella excel opzionale formazioni di varia classe per rit, fq incmax e ind conv. x tutte le sorti. By magia rivisto e leggerissimamente modificato by me.

Codice:
'tom's bakery script n. 29 x million day - lo script consente di analizzare e ordinare con tabella excel opzionale formazioni di varia classe per rit, fq incmax e ind conv. x tutte le sorti. By magia rivisto e leggerissimamente modificato by me.

Option Explicit
Dim clsHSS,clsSvil
Sub Main
Dim aCombMigliori(100,06)
Dim sFileArchivio : sFileArchivio = ScegliFile(".\") 'GetDirectoryAppData & "Archivio MillionDAY\MillionDay-aggiornamento-aggiornato-ultima-estrazione_ordinato.txt"
If ApriBaseDatiFT(sFileArchivio,05,",",55) Then
Set clsHSS = CreateObject("HSS.ClsHighSpeedStat") : Call clsHSS.Init(sFileArchivio,09,",",05)
Set clsSvil = GetMotoreSviluppoIntegrale
Dim nGaranzia : nGaranzia = ScegliSorte
Dim idValoreDaAna,sValoreUsato : idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
Dim nClasse : nClasse = ScegliClasse : ResetTimer
Dim nInizio,nFine : nInizio = 00001 : nFine = EstrazioniArchivioFT
If nClasse > 00 And nGaranzia > 00 And nGaranzia <= nClasse And idValoreDaAna > 00 Then
Dim CombTot : CombTot = InitSviluppaComb(nClasse)
ReDim aCol(nClasse)
Do While clsSvil.GetCombSviluppo(aCol) = True
Call AnalisiComb(aCol,nGaranzia,aCombMigliori,nInizio,nFine,idValoreDaAna)
Dim k : k = k + 01
If k Mod 20 = 00 Then
Call Messaggio("Statistica combinazioni in corso " & k & " di " & CombTot)
Call AvanzamentoElab(01,CombTot,k) : If ScriptInterrotto Then Exit Do
End If
Loop
Dim nEnd : nEnd = Timer : Call Messaggio(" Creazione Tabella ") : Call GetTitoli()
Call Scrivi("Numero Combinazioni: " & CombTot & " sviluppate in classe ( " & nClasse & _
" - " & NomeSorte(nClasse) & " ) analizzate per punti ( " & nGaranzia & " - " & _
NomeSorte(nGaranzia) & " )",01,01,,01,04,,01)
Call Scrivi("La seguente lista mostra le prime 100 combinazioni in base al valore di " & _
sValoreUsato,01,01,,01,04,,01)
Call Scrivi("Range analizzato " & GetInfoEstrazioneFT(nInizio) & " fino a " & _
GetInfoEstrazioneFT(nFine),01,01,,01,04,,01)
Call Scrivi("Estrazioni analizzate totali : " &(EstrazioniRicercaFT),01,01,,01,04,,01)
Call Scrivi("Tempo di elaborazione : " & TempoTrascorso,01,01,,01,04,,01)
Call Scrivi() : Call GetDati(k,aCombMigliori) : Call ScegliTabella()
Else
Call MsgBox(" Selezionare la classe di sviluppo e la garanzia ," & _
"si ricorda che la garanzia non puo essere maggiore della classe di sviluppo" & _
"e che bisogna scegliere quale valore statistico considerare per" & _
"alimentare la lista delle prime 100 Combinazioni ")
End If
End If
End Sub
Sub AnalisiComb(aNum,Garanzia,aCombMig,nInizio,nFine,idValoreDaAna)
Dim Valore,RetFre,RetRit,RetRitMax,RetIncrRitMax,k,j
Dim nTot : nTot = EstrazioniArchivioFT
Call clsHSS.StatisticaFormazioneTxt(aNum,Garanzia,RetRit,RetRitMax,RetIncrRitMax,RetFre,nInizio,nFine)
Dim RetIndConv : RetIndConv = Round((RetFre / nTot) * RetRit,02)
Select Case idValoreDaAna
Case 01 : Valore = RetFre
Case 02 : Valore = RetRit
Case 03 : Valore = RetRitMax
Case 04 : Valore = RetIncrRitMax
Case 05 : Valore = RetIndConv
End Select
For k = 01 To UBound(aCombMig)
If Valore >= aCombMig(k,00) Then
For j = UBound(aCombMig) To(k + 01) Step - 01
aCombMig(j,00) = aCombMig(j - 01,00) : aCombMig(j,01) = aCombMig(j - 01,01)
aCombMig(j,02) = aCombMig(j - 01,02) : aCombMig(j,03) = aCombMig(j - 01,03)
aCombMig(j,04) = aCombMig(j - 01,04) : aCombMig(j,05) = aCombMig(j - 01,05)
aCombMig(j,06) = aCombMig(j - 01,06)
Next
aCombMig(k,00) = Valore : aCombMig(k,01) = RetFre : aCombMig(k,02) = RetRit
aCombMig(k,03) = RetRitMax : aCombMig(k,04) = RetIncrRitMax : aCombMig(k,05) = RetIndConv
aCombMig(k,06) = StringaNumeri(aNum,,True)
Exit For
End If
Next
End Sub
Sub GetDati(k,aCombMigliori)
For k = 01 To UBound(aCombMigliori)
Dim ADati :ADati = Array(ADati,aCombMigliori(k,06),aCombMigliori(k,01),aCombMigliori(k,02),_
aCombMigliori(k,03),aCombMigliori(k,04),aCombMigliori(k,05)) : Call AddRigaTabella(ADati)
Next
Set clsHSS = Nothing
End Sub
Function InitSviluppaComb(Classe)

ReDim aNum(0)
Call ScegliNumeri(aNum)

Dim k ',aNum(55) :
For k = aNum(0) To UBound(aNum) : Next
InitSviluppaComb = clsSvil.InitSviluppoIntegrale(aNum,Classe)
End Function
Function ScegliSorte()
Dim i,aVoci(05) : For i = 01 To 05 : aVoci(i) = NomeSorte(i) : Next
ScegliSorte = ScegliOpzioneMenu(aVoci,02," Seleziona Sorte da Analizzare ")
End Function
Function ScegliClasse()
Dim i,aVoci(05) : For i = 01 To 05 : aVoci(i) = NomeSorte(i) : Next
ScegliClasse = ScegliOpzioneMenu(aVoci,02," Seleziona Classe sviluppo ")
End Function
Function ScegliValoreDaAnalizzare(sValore)
Dim aVoci : aVoci = Array(aVoci,"Frequenza","Ritardo","Ritardo Massimo","Incr.Rit.Max.","Indice di Convenoenza")
Dim i : i = ScegliOpzioneMenu(aVoci,01," Quale valore considerare per l'ordinamento ? ")
sValore = aVoci(i)
ScegliValoreDaAnalizzare = i
End Function
Sub GetTitoli()
Dim aTitoli : aTitoli = Array(aTitoli,"Combinazione","Frequenza","Ritardo","Ritardo Max.","Incr.Rit.Max","Ind.Con")
Call InitTabella(aTitoli,01,,,05)
End Sub
Function ScegliTabella()
Dim aVoci : aVoci = Array(aVoci,"Tabella Normale","Tabella Ordinabile")
ScegliTabella = ScegliOpzioneMenu(aVoci,02," Seleziona Tipo Tabella ")
If ScegliTabella = 01 Then Call CreaTabella()
If ScegliTabella = 02 Then Call CreaTabellaOrdinabile()
End Function


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...
 

Alien.

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...
Ciao,che per caso hai l'archivio del millionday !!
 

lotto_tom75

Advanced Premium Member
Ciao,che per caso hai l'archivio del millionday !!

Con questo brevissimo code by dritta di giomi che saluto e ringrazio anche qui lo puoi scaricare tutte le volte che vuoi dal buon silop che saluto e ringrazio parimenti.

Codice:
Sub Main
   sUrl = "https://www.silop.it/script/archivi/MILLION/MillionDayORD.txt"
   Call DownloadFromWeb(sUrl,".\MillionDayORD.txt")
   '   Set ObjIe = CreateObject("InternetExplorer.Application")
   'objIE.Navigate2(sUrl)
   Scrivi "archivio md scaricato con successo!"
End Sub

L'archivio md sarà scaricato e visionabile nella cartella del relativo script soprastante.

👋🙂
 

Alien.

Advanced Premium Member
Con questo brevissimo code by dritta di giomi che saluto e ringrazio anche qui lo puoi scaricare tutte le volte che vuoi dal buon silop che saluto e ringrazio parimenti.

Codice:
Sub Main
   sUrl = "https://www.silop.it/script/archivi/MILLION/MillionDayORD.txt"
   Call DownloadFromWeb(sUrl,".\MillionDayORD.txt")
   '   Set ObjIe = CreateObject("InternetExplorer.Application")
   'objIE.Navigate2(sUrl)
   Scrivi "archivio md scaricato con successo!"
End Sub

L'archivio md sarà scaricato e visionabile nella cartella del relativo script soprastante.

👋🙂
Ciao,perdonami mi dice scaricato archivio poi metto lo script del MD e.........va sul computer.......e dove trovo...l'archivio !!

in directory dati non c'è
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Ciao,perdonami mi dice scaricato archivio poi metto lo script del MD e.........va sul computer.......e dove trovo...l'archivio !!

Sei senza speranza... 👽:ROFLMAO:

L'archivio md sarà scaricato e visionabile nella cartella del relativo script soprastante.

👋🙂

Es... se salvi il tuo script in c:\aliens-script\ l'archivio lo troverai lì in formato .txt e nominato proprio... MillionDayORD.txt

ps:
usa meno i ! rilassati... 🙃
 

tigre62

Junior Member
Salve a tutti. Mi hanno indicato di scrivere qui in Tom's bakery. Chiedo venia perchè quello che sto per chiedervi per te sarà di una semplicità paurosa.

Sono un novizio (anziano), mi piacerebbe imparare "piccole" cose sugli script. Faccio cose davvero elementari e mi piacerebbe vedere trasformato questo mio piccolo script fatto con vl5 nello script usato da SpazioMetria. Vorrei insomma capire passo passo le varie differenze. per ora posto questo script, poi avrei anche un metodo. ringrazio veramente tanto chi vorrà indicarmi il nuovo script.

Option Explicit

Sub Main()

Dim a

Testo.Titolo "Estrazioni Lino"

Testo.Colore csRosso
a=InputBox("Dammi l'anno")
Testo_Out
Testo_Out "Visualizza tutte le estrazioni del",(a)
Testo_Out

For a = Estrazione.Inizio(a) To Estrazione.Fine(a)

Testo_Out()
Testo_Out "Estrazione del",FormatDateTime(Estrazione.Data(a,csBA))
Testo_Out WeekdayName(weekDay(Estrazione.Data(a, csBA)))
Testo_Out SiglaRuota(csBA), Estrazione.Estratti(a, csBA)
Testo_Out SiglaRuota(csCA), Estrazione.Estratti(a, csCA)
Testo_Out SiglaRuota(csFI), Estrazione.Estratti(a, csFI)
Testo_Out SiglaRuota(csGE), Estrazione.Estratti(a, csGE)
Testo_Out SiglaRuota(csMI), Estrazione.Estratti(a, csMI)
Testo_Out SiglaRuota(csNA), Estrazione.Estratti(a, csNA)
Testo_Out SiglaRuota(csPA), Estrazione.Estratti(a, csPA)
Testo_Out SiglaRuota(csRO), Estrazione.Estratti(a, csRO)
Testo_Out SiglaRuota(csTO), Estrazione.Estratti(a, csTO)
Testo_Out SiglaRuota(csVE), Estrazione.Estratti(a, csVE)
Testo_Out SiglaRuota(csNZ), Estrazione.Estratti(a, csNZ)


Next

End Sub



Se non fosse possibile fa niente, grazie lo stesso.
 

lotto_tom75

Advanced Premium Member
Salve a tutti. Mi hanno indicato di scrivere qui in Tom's bakery. Chiedo venia perchè quello che sto per chiedervi per te sarà di una semplicità paurosa.

Sono un novizio (anziano), mi piacerebbe imparare "piccole" cose sugli script. Faccio cose davvero elementari e mi piacerebbe vedere trasformato questo mio piccolo script fatto con vl5 nello script usato da SpazioMetria. Vorrei insomma capire passo passo le varie differenze. per ora posto questo script, poi avrei anche un metodo. ringrazio veramente tanto chi vorrà indicarmi il nuovo script.

Option Explicit

Sub Main()

Dim a

Testo.Titolo "Estrazioni Lino"

Testo.Colore csRosso
a=InputBox("Dammi l'anno")
Testo_Out
Testo_Out "Visualizza tutte le estrazioni del",(a)
Testo_Out

For a = Estrazione.Inizio(a) To Estrazione.Fine(a)

Testo_Out()
Testo_Out "Estrazione del",FormatDateTime(Estrazione.Data(a,csBA))
Testo_Out WeekdayName(weekDay(Estrazione.Data(a, csBA)))
Testo_Out SiglaRuota(csBA), Estrazione.Estratti(a, csBA)
Testo_Out SiglaRuota(csCA), Estrazione.Estratti(a, csCA)
Testo_Out SiglaRuota(csFI), Estrazione.Estratti(a, csFI)
Testo_Out SiglaRuota(csGE), Estrazione.Estratti(a, csGE)
Testo_Out SiglaRuota(csMI), Estrazione.Estratti(a, csMI)
Testo_Out SiglaRuota(csNA), Estrazione.Estratti(a, csNA)
Testo_Out SiglaRuota(csPA), Estrazione.Estratti(a, csPA)
Testo_Out SiglaRuota(csRO), Estrazione.Estratti(a, csRO)
Testo_Out SiglaRuota(csTO), Estrazione.Estratti(a, csTO)
Testo_Out SiglaRuota(csVE), Estrazione.Estratti(a, csVE)
Testo_Out SiglaRuota(csNZ), Estrazione.Estratti(a, csNZ)


Next

End Sub



Se non fosse possibile fa niente, grazie lo stesso.

Ciao tigre62, se ho ben capito la tua richiesta questo, che ti ho fatto ora al volo, potrebbe fare al caso tuo...

Script n. 30 x lotto by tom - richiesto da tigre62 - semplice visualizzazione di tutte le estrazioni lotto su tutte le ruot e nazionale per l'anno voluto

Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 30 x lotto by tom - richiesto da tigre62 - visualizzazione di tutte le estrazioni lotto su tutte le ruote e nazionale per l'anno voluto
   Dim es
   Dim an
   Dim Inizio
   Dim fine
   Inizio = EstrazioneIni
   fine = EstrazioneFin
   an = CInt(InputBox("Quale anno di estrazioni lotto vuoi analizzare?",,2000))
   Scrivi
   For es = Inizio To fine
      If Anno(es) = an Then
         Scrivi
         Scrivi "Estrazioni lotto su tutte le ruote e nazionale dell'anno " & an & " - " & GetInfoEstrazione(es)
         Scrivi
         Scrivi "BA " & StringaEstratti(es,BA_,".")
         Scrivi "CA " & StringaEstratti(es,CA_,".")
         Scrivi "FI " & StringaEstratti(es,FI_,".")
         Scrivi "GE " & StringaEstratti(es,GE_,".")
         Scrivi "MI " & StringaEstratti(es,MI_,".")
         Scrivi "NA " & StringaEstratti(es,NA_,".")
         Scrivi "PA " & StringaEstratti(es,PA_,".")
         Scrivi "RO " & StringaEstratti(es,RO_,".")
         Scrivi "TO " & StringaEstratti(es,TO_,".")
         Scrivi "VE " & StringaEstratti(es,VE_,".")
         Scrivi "NZ " & StringaEstratti(es,NZ_,".")
      End If
      If ScriptInterrotto Then Exit For
   Next
End Sub
 
Ultima modifica:

tigre62

Junior Member
Ciao tigre62, se ho ben capito la tua richiesta questo, che ti ho fatto ora al volo, potrebbe fare al caso tuo...

Script n. 30 x lotto by tom - richiesto da tigre62 - semplice visualizzazione di tutte le estrazioni lotto su tutte le ruot e nazionale per l'anno voluto

Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 30 x lotto by tom - richiesto da tigre62 - visualizzazione di tutte le estrazioni lotto su tutte le ruote e nazionale per l'anno voluto
   Dim es
   Dim an
   Dim Inizio
   Dim fine
   Inizio = EstrazioneIni
   fine = EstrazioneFin
   an = CInt(InputBox("Quale anno di estrazioni lotto vuoi analizzare?",,2000))
   Scrivi
   For es = Inizio To fine
      If Anno(es) = an Then
         Scrivi
         Scrivi "Estrazioni lotto su tutte le ruote e nazionale dell'anno " & an & " - " & GetInfoEstrazione(es)
         Scrivi
         Scrivi "BA " & StringaEstratti(es,BA_,".")
         Scrivi "CA " & StringaEstratti(es,CA_,".")
         Scrivi "FI " & StringaEstratti(es,FI_,".")
         Scrivi "GE " & StringaEstratti(es,GE_,".")
         Scrivi "MI " & StringaEstratti(es,MI_,".")
         Scrivi "NA " & StringaEstratti(es,NA_,".")
         Scrivi "PA " & StringaEstratti(es,PA_,".")
         Scrivi "RO " & StringaEstratti(es,RO_,".")
         Scrivi "TO " & StringaEstratti(es,TO_,".")
         Scrivi "VE " & StringaEstratti(es,VE_,".")
         Scrivi "NZ " & StringaEstratti(es,NZ_,".")
      End If
      If ScriptInterrotto Then Exit For
   Next
End Sub

Buongiorno amico, ti ringrazio moltissimo. Iniziao così a vedere le differenze e imparare qualcosina. Volevo inserire anche il nome del giorno corrispondente alla data di estrazione, ma mi vengono fuori nomi di giorni sballati rispetto all'anno richiesto (es. 2018). Me lo potresti correggere ?
Grazie ancora
Option Explicit
Sub Main
'tom's bakery script n. 30 x lotto by tom - richiesto da tigre62 - visualizzazione di tutte le estrazioni lotto su tutte le ruote e nazionale per l'anno voluto
Dim es
Dim an
Dim Inizio
Dim fine
Inizio = EstrazioneIni
fine = EstrazioneFin
an = CInt(InputBox("Quale anno di estrazioni lotto vuoi analizzare?",,2000))
Scrivi
For es = Inizio To fine
If Anno(es) = an Then
Scrivi
Scrivi "Visualizza tutte le estrazioni dell'anno " & an
Scrivi
Scrivi "Estrazione del " & DataEstrazione (es)
Scrivi WeekdayName(WeekDay(giorno(es)))
Scrivi "BA " & StringaEstratti(es,BA_,".")
Scrivi "CA " & StringaEstratti(es,CA_,".")
Scrivi "FI " & StringaEstratti(es,FI_,".")
Scrivi "GE " & StringaEstratti(es,GE_,".")
Scrivi "MI " & StringaEstratti(es,MI_,".")
Scrivi "NA " & StringaEstratti(es,NA_,".")
Scrivi "PA " & StringaEstratti(es,PA_,".")
Scrivi "RO " & StringaEstratti(es,RO_,".")
Scrivi "TO " & StringaEstratti(es,TO_,".")
Scrivi "VE " & StringaEstratti(es,VE_,".")
Scrivi "NZ " & StringaEstratti(es,NZ_,".")
End If
If ScriptInterrotto Then Exit For
Next
End Sub
 

lotto_tom75

Advanced Premium Member
Buongiorno amico, ti ringrazio moltissimo. Iniziao così a vedere le differenze e imparare qualcosina. Volevo inserire anche il nome del giorno corrispondente alla data di estrazione, ma mi vengono fuori nomi di giorni sballati rispetto all'anno richiesto (es. 2018). Me lo potresti correggere ?
Grazie ancora
Option Explicit
Sub Main
'tom's bakery script n. 30 x lotto by tom - richiesto da tigre62 - visualizzazione di tutte le estrazioni lotto su tutte le ruote e nazionale per l'anno voluto
Dim es
Dim an
Dim Inizio
Dim fine
Inizio = EstrazioneIni
fine = EstrazioneFin
an = CInt(InputBox("Quale anno di estrazioni lotto vuoi analizzare?",,2000))
Scrivi
For es = Inizio To fine
If Anno(es) = an Then
Scrivi
Scrivi "Visualizza tutte le estrazioni dell'anno " & an
Scrivi
Scrivi "Estrazione del " & DataEstrazione (es)
Scrivi WeekdayName(WeekDay(giorno(es)))
Scrivi "BA " & StringaEstratti(es,BA_,".")
Scrivi "CA " & StringaEstratti(es,CA_,".")
Scrivi "FI " & StringaEstratti(es,FI_,".")
Scrivi "GE " & StringaEstratti(es,GE_,".")
Scrivi "MI " & StringaEstratti(es,MI_,".")
Scrivi "NA " & StringaEstratti(es,NA_,".")
Scrivi "PA " & StringaEstratti(es,PA_,".")
Scrivi "RO " & StringaEstratti(es,RO_,".")
Scrivi "TO " & StringaEstratti(es,TO_,".")
Scrivi "VE " & StringaEstratti(es,VE_,".")
Scrivi "NZ " & StringaEstratti(es,NZ_,".")
End If
If ScriptInterrotto Then Exit For
Next
End Sub


Ciao questa versione alternativa che ti ho fatto adesso include anche il giorno della settimana relativo al mese e all'anno che interessa

Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 30 x lotto - versione alternativa con anche il giorno di estrazione by tom - richiesto da tigre62 - visualizzazione di tutte le estrazioni lotto su tutte le ruot e nazionale per l'anno voluto
   Dim es
   Dim an
   Dim Inizio
   Dim fine
   Dim nomegiorno
   Dim DateTime
   Inizio = EstrazioneIni
   fine = EstrazioneFin
   an = CInt(InputBox("Quale anno di estrazioni lotto vuoi analizzare?",,2022))
   Scrivi
   For es = Inizio To fine
      If Anno(es) = an Then
         Scrivi

         Call ScriviEstrazione(es,True,,True)
      End If
      If ScriptInterrotto Then Exit For
   Next
End Sub

Ps: per le prossime eventuali richieste analoghe guarda di mettere il codice tra i tag code necessari a visualizzarlo in modo corretto.
I tag code devono essere racchiusi da parentesi quadre e l'ultimo tag code di chiusura deve avere anche la / al suo interno...

[ code ]
tuo script...
[/ code ]
 

Alien.

Advanced Premium Member
Ciao tigre62, se ho ben capito la tua richiesta questo, che ti ho fatto ora al volo, potrebbe fare al caso tuo...

Script n. 30 x lotto by tom - richiesto da tigre62 - semplice visualizzazione di tutte le estrazioni lotto su tutte le ruot e nazionale per l'anno voluto

Codice:
Option Explicit
Sub Main
   'tom's bakery script n. 30 x lotto by tom - richiesto da tigre62 - visualizzazione di tutte le estrazioni lotto su tutte le ruote e nazionale per l'anno voluto
   Dim es
   Dim an
   Dim Inizio
   Dim fine
   Inizio = EstrazioneIni
   fine = EstrazioneFin
   an = CInt(InputBox("Quale anno di estrazioni lotto vuoi analizzare?",,2000))
   Scrivi
   For es = Inizio To fine
      If Anno(es) = an Then
         Scrivi
         Scrivi "Estrazioni lotto su tutte le ruote e nazionale dell'anno " & an & " - " & GetInfoEstrazione(es)
         Scrivi
         Scrivi "BA " & StringaEstratti(es,BA_,".")
         Scrivi "CA " & StringaEstratti(es,CA_,".")
         Scrivi "FI " & StringaEstratti(es,FI_,".")
         Scrivi "GE " & StringaEstratti(es,GE_,".")
         Scrivi "MI " & StringaEstratti(es,MI_,".")
         Scrivi "NA " & StringaEstratti(es,NA_,".")
         Scrivi "PA " & StringaEstratti(es,PA_,".")
         Scrivi "RO " & StringaEstratti(es,RO_,".")
         Scrivi "TO " & StringaEstratti(es,TO_,".")
         Scrivi "VE " & StringaEstratti(es,VE_,".")
         Scrivi "NZ " & StringaEstratti(es,NZ_,".")
      End If
      If ScriptInterrotto Then Exit For
   Next
End Sub
Risultato pagina bianca .
 

tigre62

Junior Member
Buonasera tom, ti chiederei la gentilezza di scrivermi uno script davvero basico per te, ma che mi permetterà di sviluppare la mia conoscenza step by step con gli script. Insomma vorrei partire da sezioni di script veramente semplici e ampliarli mano mano.
Tanto tempo fa facevo metodi con un programma scritto per utenti non esperti come me, si tratta (non so se lo conosci) di ULTIMO. In pratica era una programmazione in Basic ma scritto in programmazione con parole semplici.
Ti espongo il metodo che per te sarà veramente una stupidaggine, sicuramente ne capirai il calcolo e ciò che volevo sviluppare. Eccolo
[ code ]
' METODO ADRIATICO: UN MARE....VINCENTE
' L'ESTRAZIONE DEL LOTTO AGOSTO 97
' ALESIANO
FILE
DBASE 3
RUOTA TUTTE

ESTRAZIONE DAL 01-01-98 AL 04-04-01 PRIMA

A=POS(3,BA)
N1=A+20:FUORI 90
N2=VERT(N1)

GIOCO
GIOCATA 1000
SULLA RUOTA BA,VE
AMBATA N1,N2
AMBO #DECN(N1)
PER 10 SETTIMANE
FINE GIOCO

PROSSIMA ESTRAZIONE

RIEPILOGO
[/ code ]

grazie
 

joe

Advanced Member >PLATINUM PLUS<
Tigre,

Il basic di spaziometria è molto più potente ed assomiglia di più al basic generico,

però ha al suo corredo moltissime istruzioni caratteristiche del gioco del lotto.

Lo script che hai postato è per spaziometria uno pseudocodice facile da convertire alla sintassi richiesta.

La prima cosa importante sono la gestione dei cicli e delle variabili.

Se sapevi programmare con quel linguaggio ... non ti sarà difficile passare a questo.

In questo primo esempio hai alcune variabili: N,R,P Iniziali di Numero,Ruota,Posizione,

Utilizzate per "elencare" Numeri / Ruote / Posizioni (di Estratti)

entro i limiti imposti alla variabile di controllo (N,R,P)

e con l'utilizzo dei cicli For-Next.

Codice:
Sub Main
     Scrivi "Numeri",True
   For N = 1 To 10
      Scrivi N
   Next
   Scrivi
   Scrivi "Ruote",True
   For R = 1 To 10
      Scrivi NomeRuota(R)
   Next
   Scrivi
   Scrivi "Estrazioni",True
   For E = EstrazioneFin - 9 To EstrazioneFin
      Scrivi DataEstrazione(E)
   Next
   Scrivi
   Scrivi "Estratti",True
   For P = 1 To 5
      Scrivi P & "° " & Estratto(EstrazioneFin,BA_,P)
   Next
End Sub


Visto nell'esempio precedente come utilizzare le istruzioni del Basic si può tentare di tradurre il metodo.

E' evidente che analogamente a quanto succede per spaziometria per le istruzioni di livello più elevato,

per poterle replicare è necessario conoscerne il significato.

Ad esempio ... a me è sconosciuto quale sia la funzione dell' istruzione: "AMBO #DECN(N1)" pertanto

non potendola tradurre al momento ... l'ho "tralasciata".

Codice:
Option Explicit
Sub Main
   ' METODO ADRIATICO: UN MARE....VINCENTE
   ' L'ESTRAZIONE DEL LOTTO AGOSTO 97
   ' ALESIANO
   'FILE
   'DBASE 3
   'RUOTA TUTTE
   'ESTRAZIONE DAL 01-01-98 AL 04-04-01 PRIMA
   'A=POS(3,BA)
   'N1=A+20:FUORI 90
   'N2=Vert(N1)
   'GIOCO
   'GIOCATA 1000
   'SULLA RUOTA BA,VE
   'AMBATA N1,N2
   'AMBO #DECN(N1)
   'PER 10 SETTIMANE
   'FINE GIOCO
   'PROSSIMA ESTRAZIONE
   'RIEPILOGO
   Dim Prima,Ultima,Estrazione
   Dim N(2),R(2),P(1),Q(2)
   P(1) = 2 : Q(2) = 1
   R(1) = BA_ : R(2) = VE_
   Prima = PrimaPrecedente("01/01/1998") + 1
   Ultima = EstrazioneFin ' PrimaPrecedente("04/04/2001")
   For Estrazione = Prima To Ultima
      AvanzamentoElab Prima,Ultima,Estrazione
      If IndiceMensile(Estrazione) = 1 Then
         N(1) = Fuori90(Estratto(Estrazione,BA_,3))
         N(2) = Vert(N(1))
         ImpostaGiocata 1,N,R,P,1
         N(2) = DecinaNaturale(N(1))
         ImpostaGiocata 2,N,R,Q,10
         Gioca Estrazione,True
      End If
   Next
   ScriviResoconto
End Sub

:)
 
Ultima modifica:

tigre62

Junior Member
Tigre,

Il basic di spaziometria è molto più potente ed assomiglia di più al basic generico,

però ha al suo corredo moltissime istruzioni caratteristiche del gioco del lotto.

Lo script che hai postato è per spaziometria uno pseudocodice facile da convertire alla sintassi richiesta.

La prima cosa importante sono la gestione dei cicli e delle variabili.

Se sapevi programmare con quel linguaggio ... non ti sarà difficile passare a questo.

In questo primo esempio hai alcune variabili: N,R,P Iniziali di Numero,Ruota,Posizione,

Utilizzate per "elencare" Numeri / Ruote / Posizioni (di Estratti)

entro i limiti imposti alla variabile di controllo (N,R,P)

e con l'utilizzo dei cicli For-Next.

Codice:
Sub Main
     Scrivi "Numeri",True
   For N = 1 To 10
      Scrivi N
   Next
   Scrivi
   Scrivi "Ruote",True
   For R = 1 To 10
      Scrivi NomeRuota(R)
   Next
   Scrivi
   Scrivi "Estrazioni",True
   For E = EstrazioneFin - 9 To EstrazioneFin
      Scrivi DataEstrazione(E)
   Next
   Scrivi
   Scrivi "Estratti",True
   For P = 1 To 5
      Scrivi P & "° " & Estratto(EstrazioneFin,BA_,P)
   Next
End Sub


Visto nell'esempio precedente come utilizzare le istruzioni del Basic si può tentare di tradurre il metodo.

E' evidente che analogamente a quanto succede per spaziometria per le istruzioni di livello più elevato,

per poterle replicare è necessario conoscerne il significato.

Ad esempio ... a me è sconosciuto quale sia la funzione dell' istruzione: "AMBO #DECN(N1)" pertanto

non potendola tradurre al momento ... l'ho "tralasciata".

Codice:
Sub Main
   ' METODO ADRIATICO: UN MARE....VINCENTE
   ' L'ESTRAZIONE DEL LOTTO AGOSTO 97
   ' ALESIANO
   'FILE
   'DBASE 3
   'RUOTA TUTTE
   'ESTRAZIONE DAL 01-01-98 AL 04-04-01 PRIMA
   'A=POS(3,BA)
   'N1=A+20:FUORI 90
   'N2=Vert(N1)
   'GIOCO
   'GIOCATA 1000
   'SULLA RUOTA BA,VE
   'AMBATA N1,N2
   'AMBO #DECN(N1)
   'PER 10 SETTIMANE
   'FINE GIOCO
   'PROSSIMA ESTRAZIONE
   'RIEPILOGO
   Dim Prima,Ultima,Estrazione
   Dim N(2),R(2),P(1),Q(2)
   P(1) = 2 : Q(2) = 1
   R(1) = BA_ : R(2) = VE_
   Prima = PrimaPrecedente("01/01/1998")
   Ultima = PrimaPrecedente("04/04/2001")
   For Estrazione = Prima To Ultima
      AvanzamentoElab Prima,Ultima,Estrazione
      If IndiceMensile(Estrazione) = 1 Then
         N(1) = Fuori90(Estratto(Estrazione,BA_,3)+20)
         N(2) = Vert(N(1))
         ImpostaGiocata 1,N,R,P,1
         ImpostaGiocata 2,N,R,Q,10
         Gioca Estrazione
      End If
   Next 'Estrazione
   ScriviResoconto
End Sub

:)
davvero grazie mille per le spiegazioni. E' un ottimo inizio per me. AMBO #DECN(N1) significa di mettere in gioco l'ambo della decina naturale del numero N1
 

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
Alto