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.
Un aiutino per trovare mio errore script con inputbox ruote
- Creatore Discussione CICALOTTO
- Data di inizio
Grazie a tutti quelli che stanno rispondendo, ognuno competente e gentile nel fornire aiuti e suggerimenti. Ora sono distante dal PC, domani provo lo script corretto e testo la funzione scelta ruote
Ragazzi, speravo di trovare collaborazione ed ho trovato pure competenza, grazie davvero davvero
Ragazzi, speravo di trovare collaborazione ed ho trovato pure competenza, grazie davvero davvero
Quando si scrive una funzione e si vogliono inserire i parametri sia obbligatori che opzionali della funzione bisogna fare in questo modo:
Scrivere la funzione ad esempio "estratto(" noterete che se il testo scritto è specificatamente quello della funzione esso cambia colore e diventa di uno specifico colore " Estratto" Viola scuro.
Apro una parentesi: queste impostazioni possono anche essere cambiate nella scheda Configurazione, ma quelle di default sono ottime. e vi consiglio di non cambiarle a meno di esigenze particolari .
Riprendiamo il discorso... dopo aver immessco la parentesi iniziale vi apparirà una striscia gialla contenente l'elenco dei parametri specidici della funzione ( vi si apre un mondo... e se non vi si apre o volete leggere all'interno dei parametri di una funzione presente in uno script, posizionate il cursore all'interno delle parentesi della fuzione e cliccando sulla barra spaziatrice , vi apparirà)
quindi scrivendo i parametri uno dopo l'altro intermezzati dalla virgola che fa da separatore tra un parametro e l'altro vedrete che il carattere di testo (nella riga gialla IdEstr) riferito al parametro che state inserendo si trasforma in grassetto evidenziandosi.
Avrete quindi una visione ben precisa di che parametro state inserendo in quel punto dell' "elenco parametri" che vi è stato proposto da Spazioscript.
Molti di voi non sanno che la funzione " Estratto" può ricevere sino a 4 parametri ( normalmente ne usiamo 3 : es,r,pos) il quarto che e opzionale si riferisce all' identificativo dell'archivio. 0 = Archivio reale lotto, gli altri seguono dall'1 al 5 gli archivi superiori L1..L5 e se ne possono creare altri a proprio piacimento. Li trovate elencati nella finestra a tendina che avete in basso a sx di SPTM.
eccoli in questo screenshot
Mi fermo lasciandovi 2 righe di costrutto.
Lanciatelo, vi scriverà dei numeri che a prima vista non saprete da dove li ha presi.
Sostituite l'archivio in SPTM nella finestra che vi ho scpcificato sopra, aprite l'archivio estrazioni e vedrete apparire i numeri che sono nell'output di Spazioscript. ( a fine aechivio su la riuota di Bari )
Saluti
Scrivere la funzione ad esempio "estratto(" noterete che se il testo scritto è specificatamente quello della funzione esso cambia colore e diventa di uno specifico colore " Estratto" Viola scuro.
Apro una parentesi: queste impostazioni possono anche essere cambiate nella scheda Configurazione, ma quelle di default sono ottime. e vi consiglio di non cambiarle a meno di esigenze particolari .
Riprendiamo il discorso... dopo aver immessco la parentesi iniziale vi apparirà una striscia gialla contenente l'elenco dei parametri specidici della funzione ( vi si apre un mondo... e se non vi si apre o volete leggere all'interno dei parametri di una funzione presente in uno script, posizionate il cursore all'interno delle parentesi della fuzione e cliccando sulla barra spaziatrice , vi apparirà)
quindi scrivendo i parametri uno dopo l'altro intermezzati dalla virgola che fa da separatore tra un parametro e l'altro vedrete che il carattere di testo (nella riga gialla IdEstr) riferito al parametro che state inserendo si trasforma in grassetto evidenziandosi.
Avrete quindi una visione ben precisa di che parametro state inserendo in quel punto dell' "elenco parametri" che vi è stato proposto da Spazioscript.
Molti di voi non sanno che la funzione " Estratto" può ricevere sino a 4 parametri ( normalmente ne usiamo 3 : es,r,pos) il quarto che e opzionale si riferisce all' identificativo dell'archivio. 0 = Archivio reale lotto, gli altri seguono dall'1 al 5 gli archivi superiori L1..L5 e se ne possono creare altri a proprio piacimento. Li trovate elencati nella finestra a tendina che avete in basso a sx di SPTM.
eccoli in questo screenshot
Mi fermo lasciandovi 2 righe di costrutto.
Codice:
Sub Main()
Dim es,r,pos
r = 1 ' ScegliRuota() ' InputBox("Scelta Ruota di Gioco",)
Scrivi NomeRuota(r)
Scrivi
For pos = 1 To 5
Scrivi Estratto(EstrazioneFin,r,pos,1)
Next
Scrivi
Scrivi StringaEstratti(EstrazioneFin,r,"*",,1)
End SubLanciatelo, vi scriverà dei numeri che a prima vista non saprete da dove li ha presi.
Sostituite l'archivio in SPTM nella finestra che vi ho scpcificato sopra, aprite l'archivio estrazioni e vedrete apparire i numeri che sono nell'output di Spazioscript. ( a fine aechivio su la riuota di Bari )
Saluti
Non mettere in giro fake
Alien.
Advanced Premium Member
Ciao Salvo simpatico script potresti inserire ID mese , grazie.
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Alien
Con Indice mensile, lo script non è mio ma di Cicalotto
Con Indice mensile, lo script non è mio ma di Cicalotto
Codice:
Sub Main()
Dim ruote(1)
Dim posta(2)
Dim postaa(1)
Dim gi1(2),gi2(2),gi3(2),gi4(10),gi5(2)
Dim Clp,w,y,r,R2,Isi,Ini,fin,co,es,a,b,e,f,Ind_M
r = ScegliRuota()
posta(2) = 1
postaa(1) = 1
Isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,50))
Ind_M = CInt(InputBox(" Qual è Indice Mensile? ",,1))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,9))
R2 = InputBox("Scelta Ruota di Gioco",,2)
ruote(1) = R2
Ini = EstrazioneFin - Isi
fin = EstrazioneFin
' Scrivi SiglaRuota(ruote(1))
co = 0
For es = Ini To fin
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = Ind_M Then
a = Estratto(es,r,4)
b = Estratto(es,r,5)
'---------------------------
e = Figura(a)
f = Figura(b)
'---------------------------
gi1(1) = Fuori90(e & f)
gi1(2) = ComplAdX(gi1(1)) ''90 - gi1(1)
co = co + 1
Scrivi String(125,"°"),1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
Scrivi " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ruota di Calcolo",1
If co = 1 Then
Scrivi
Scrivi Space(20)& "Inserito Indice Mensile " & Format2(Ind_M),1,,,1
End If
Scrivi
ImpostaGiocata 1,gi1,ruote,posta,Clp
gi2(1) = Fuori90(e & f)
gi2(2) = 90 -(a)
co = co + 1
ImpostaGiocata 2,gi2,ruote,posta,Clp
gi3(1) = Fuori90(e & f)
gi3(2) =(90 - b)
co = co + 1
ImpostaGiocata 3,gi3,ruote,posta,Clp
gi4(1) = gi1(1)
gi4(2) = Fuori90(gi1(1) + 9)
gi4(3) = Fuori90(gi1(1) + 18)
gi4(4) = Fuori90(gi1(1) + 27)
gi4(5) = Fuori90(gi1(1) + 36)
gi4(6) = Fuori90(gi1(1) + 45)
gi4(7) = Fuori90(gi1(1) + 54)
gi4(8) = Fuori90(gi1(1) + 63)
gi4(9) = Fuori90(gi1(1) + 72)
gi4(10) = Fuori90(gi1(1) + 81)
Call EliminaRipetuti(gi4)
co = co + 1
ImpostaGiocata 4,gi4,ruote,posta,Clp
gi5(1) = Fuori90(e & f)
gi5(2) = Vert(gi1(1))
If Cadenza(gi5(2)) = 0 Then gi5(2) = gi5(2) + 9
co = co + 1
ImpostaGiocata 5,gi5,ruote,postaa,Clp
For w = 2 To 7
For y = 2 To 7
ImpostaInterruzioni w,y,2
Next
Next
Gioca es,1,,1,1
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
ScriviResoconto
End SubBravo salvo50, bella idea.
ora sto provando ad inserire un inputbox che chiede se interrompere al primo caso positivo...
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1)
p.s. ho visto che hai messo anche :
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
Scrivi " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ruota di Calcolo",1
perfetto, grazie
------------------------------------------------------------------------------------------------------
Mentre la chicca sarebbe inserire un altro inputbox per scegliere quale giocata fare, se con tutti gli abbinamenti oppure solo alcuni... senza remmare ogni volta quella giocata che non voglio analizzare....
lo spunto di questa parte di script qui sopra l'ho preso da questa discussione qui: https://forum.lottoced.com/threads/spaziometria-di-luigi-e-baffoblu-15°-post.82889/post-1225323
e quindi vorrei inserire le mie "voci" tipo:
"ambata principale e vertibile"
"primo ambo "somma 90"
secondo ambo "somma 91"
eccetera eccetera, ovviamente seguendo l'ordine con cui ho scritto gi1 / gi2 / g3 eccetera
-----------------------------------------------------------------------------------------------------------------
infine nello script ho appena aggiunto anche la giocata 6 con ambo somma 91 scrivendo così:
gi6(1) = Fuori90(e & f)
gi6(2) = ComplAdX(gi1(1)) + 1
ImpostaGiocata 6,gi6,ruote,posta,Clp,stpgiocata
co = co + 1
--------------------------------------------------------------------------------------
se riesco piu' tardi allego lo script con le vostre modifiche e ottimizzazioni, con le mie aggiunte recenti
infinite grazie ancora Cinzia27,claudio8,salvo50 e tutti coloro che vorranno aiutarmi
ora sto provando ad inserire un inputbox che chiede se interrompere al primo caso positivo...
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1)
p.s. ho visto che hai messo anche :
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
Scrivi " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ruota di Calcolo",1
perfetto, grazie
------------------------------------------------------------------------------------------------------
Mentre la chicca sarebbe inserire un altro inputbox per scegliere quale giocata fare, se con tutti gli abbinamenti oppure solo alcuni... senza remmare ogni volta quella giocata che non voglio analizzare....
Call AlimentaArrayVoci(aVoci)
Call RichiediParametri(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
If ScegliDaLista(aVoci,aVocisel,"Algoritmi") > 0 Then
For k = 0 To 10
If aVocisel(k)= True Then
Select Case k
Case - 1
MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna a -1
Case 0
Call Scelta_0(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 1
Call Scelta_1(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 2
Call Scelta_2(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 3
Call Scelta_3(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 4
Call Scelta_4(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 5
Call Scelta_5(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 6
Call Scelta_6(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 7
Call Scelta_7(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 8
Call Scelta_8(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 9
Call Scelta_9(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 10
Call Scelta_10(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'Case Else
' MsgBox " Indice errato " & r & " -" & aVoci(r)
End Select
End If
Next
End If
' remmare alternativamente una delle 2 righe successive
r = ScegliOpzioneMenu(aVoci,10,"SELEZIONE ALGORITMO ") 'cosi preimposto la selezione sulla Voce 2
'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
' in base alla scelta dell'utente si esegue il codice appropriato
End Sub
Sub AlimentaArrayVoci(a)
a(0) = "Elemento uguale"
a(1) = "Comp./ 90 elem "
a(2) = "Diametr/45 1°"
a(3) = "Diam./decina 1°" 'DiametraleD
a(4) = "Somma gli elementi" 'Doppio
a(5) = "Comp./90 della somma"
a(6) = "Diametr/45 di somma" 'Diametrale
a(7) = "Diam/decina somma" '
a(8) = "Diam/45 del compl/somma" '
a(9) = "Diam/decina compl/somma"
a(10) = "1° elemento + 1 "
End Sub
Sub RichiediParametri(Meno,Ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Call RichiediParametri(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
If ScegliDaLista(aVoci,aVocisel,"Algoritmi") > 0 Then
For k = 0 To 10
If aVocisel(k)= True Then
Select Case k
Case - 1
MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna a -1
Case 0
Call Scelta_0(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 1
Call Scelta_1(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 2
Call Scelta_2(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 3
Call Scelta_3(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 4
Call Scelta_4(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 5
Call Scelta_5(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 6
Call Scelta_6(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 7
Call Scelta_7(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 8
Call Scelta_8(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 9
Call Scelta_9(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
Case 10
Call Scelta_10(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
'Case Else
' MsgBox " Indice errato " & r & " -" & aVoci(r)
End Select
End If
Next
End If
' remmare alternativamente una delle 2 righe successive
r = ScegliOpzioneMenu(aVoci,10,"SELEZIONE ALGORITMO ") 'cosi preimposto la selezione sulla Voce 2
'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
' in base alla scelta dell'utente si esegue il codice appropriato
End Sub
Sub AlimentaArrayVoci(a)
a(0) = "Elemento uguale"
a(1) = "Comp./ 90 elem "
a(2) = "Diametr/45 1°"
a(3) = "Diam./decina 1°" 'DiametraleD
a(4) = "Somma gli elementi" 'Doppio
a(5) = "Comp./90 della somma"
a(6) = "Diametr/45 di somma" 'Diametrale
a(7) = "Diam/decina somma" '
a(8) = "Diam/45 del compl/somma" '
a(9) = "Diam/decina compl/somma"
a(10) = "1° elemento + 1 "
End Sub
Sub RichiediParametri(Meno,Ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
lo spunto di questa parte di script qui sopra l'ho preso da questa discussione qui: https://forum.lottoced.com/threads/spaziometria-di-luigi-e-baffoblu-15°-post.82889/post-1225323
e quindi vorrei inserire le mie "voci" tipo:
"ambata principale e vertibile"
"primo ambo "somma 90"
secondo ambo "somma 91"
eccetera eccetera, ovviamente seguendo l'ordine con cui ho scritto gi1 / gi2 / g3 eccetera
-----------------------------------------------------------------------------------------------------------------
infine nello script ho appena aggiunto anche la giocata 6 con ambo somma 91 scrivendo così:
gi6(1) = Fuori90(e & f)
gi6(2) = ComplAdX(gi1(1)) + 1
ImpostaGiocata 6,gi6,ruote,posta,Clp,stpgiocata
co = co + 1
--------------------------------------------------------------------------------------
se riesco piu' tardi allego lo script con le vostre modifiche e ottimizzazioni, con le mie aggiunte recenti
infinite grazie ancora Cinzia27,claudio8,salvo50 e tutti coloro che vorranno aiutarmi
Ultima modifica:
Buonasera, impegni di lavoro mi stanno tenendo lontano dal PC, ma ho nel frattempo fatto qualche mod e questo per ora è lo script con aggiunti anche un altro paio di abbinamenti... ed ho notato che le ruote "buone" sono la VENUS SUD cioè Bari Napoli e Palermo...
Ora però una domanda:
se volessi includere oppure escludere l'indice mensile, esiste una casella box che mi permette di farlo?
p.s. al momento metto o tolgo ' davanti e quindi attivo o escludo...
ecco lo script
Ora però una domanda:
se volessi includere oppure escludere l'indice mensile, esiste una casella box che mi permette di farlo?
p.s. al momento metto o tolgo ' davanti e quindi attivo o escludo...
ecco lo script
Sub Main()
Dim ruote(1)
Dim posta(2)
Dim postaa(1)
Dim gi1(2),gi2(2),gi3(2),gi4(10),gi5(2),gi6(2),gi7(5),gi8(2),gi9(2),gi10(2),gi11(2),gi12(2),gi13(2),gi14(2),gi15(2)
Dim Clp,w,y,r,Isi,Ini,fin,co,es,a,b,e,f,Ind_M,stpgiocata
r = ScegliRuota() ' InputBox("Scelta Ruota di Gioco",)
ruote(1) = r
posta(2) = 1
postaa(1) = 1
Isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,10))
'Ind_M = CInt(InputBox(" Qual è Indice Mensile? ",,1))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,9))
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1)
Ini = EstrazioneFin - Isi
fin = EstrazioneFin
co = 0
For es = Ini To fin
AvanzamentoElab Ini,fin,es
'If IndiceMensile(es) = Ind_M Then
a = Estratto(es,r,4)
b = Estratto(es,r,5)
'---------------------------
e = Figura(a)
f = Figura(b)
'---------------------------
gi1(1) = Fuori90(e & f)
gi1(2) = ComplAdX(gi1(1)) ''90 - gi1(1)
co = co + 1
Scrivi String(125,"°"),1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),01,01,04
Scrivi " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ruota di Calcolo",01,01,04
If co = 1 Then
Scrivi
'Scrivi Space(20)& "Inserito Indice Mensile " & Format2(Ind_M),1,,,1,2
End If
Scrivi
ImpostaGiocata 1,gi1,ruote,posta,Clp,stpgiocata
gi2(1) = Fuori90(e & f)
gi2(2) = 90 -(a)
Call EliminaRipetuti(gi2)
co = co + 1
ImpostaGiocata 2,gi2,ruote,posta,Clp,stpgiocata
gi3(1) = Fuori90(e & f)
gi3(2) =(90 - b)
Call EliminaRipetuti(gi3)
co = co + 1
ImpostaGiocata 3,gi3,ruote,posta,Clp,stpgiocata
gi4(1) = gi1(1)
gi4(2) = Fuori90(gi1(1) + 9)
gi4(3) = Fuori90(gi1(1) + 18)
gi4(4) = Fuori90(gi1(1) + 27)
gi4(5) = Fuori90(gi1(1) + 36)
gi4(6) = Fuori90(gi1(1) + 45)
gi4(7) = Fuori90(gi1(1) + 54)
gi4(8) = Fuori90(gi1(1) + 63)
gi4(9) = Fuori90(gi1(1) + 72)
gi4(10) = Fuori90(gi1(1) + 81)
Call EliminaRipetuti(gi4)
co = co + 1
'ImpostaGiocata 4,gi4,ruote,posta,Clp,stpgiocata
gi5(1) = Fuori90(e & f)
gi5(2) = Vert(gi1(1))
If Cadenza(gi5(2)) = 0 Then gi5(2) = gi5(2) + 9
co = co + 1
Call EliminaRipetuti(gi5)
ImpostaGiocata 5,gi5,ruote,postaa,Clp,stpgiocata
gi6(1) = Fuori90(e & f)
gi6(2) = ComplAdX(gi1(1)) + 1
ImpostaGiocata 6,gi6,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi6)
gi7(1) = Fuori90(e & f)
gi7(2) = Vert(gi7(1))
gi7(3) = ComplAdX(gi7(1))
gi7(4) = 90 -(a)
gi7(5) = 90 -(b)
ImpostaGiocata 7,gi7,ruote,posta,Clp,stpgiocata
Call EliminaRipetuti(gi7)
co = co + 1
gi8(1) = Fuori90(e & f)
gi8(2) = ComplAdX(gi8(1)) + 1
ImpostaGiocata 8,gi8,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi8)
gi9(1) = Fuori90(e & f)
gi9(2) = ComplAdX(gi9(1)) - 1
ImpostaGiocata 9,gi9,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi9)
gi10(1) = Fuori90(e & f)
gi10(2) = ComplAdX(gi10(1)) + 1
ImpostaGiocata 10,gi10,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi10)
gi11(1) = Fuori90(e & f)
gi11(2) = ComplAdX(gi11(1)) - 1
ImpostaGiocata 11,gi11,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi11)
gi12(1) = Fuori90(e & f)
gi12(2) = 90 -(a) + 1
Call EliminaRipetuti(gi12)
co = co + 1
ImpostaGiocata 12,gi12,ruote,posta,Clp,stpgiocata
gi13(1) = Fuori90(e & f)
gi13(2) = 90 -(a) - 1
Call EliminaRipetuti(gi13)
co = co + 1
ImpostaGiocata 13,gi13,ruote,posta,Clp,stpgiocata
gi14(1) = Fuori90(e & f)
gi14(2) =(90 - b) + 1
Call EliminaRipetuti(gi14)
co = co + 1
ImpostaGiocata 14,gi14,ruote,posta,Clp,stpgiocata
gi15(1) = Fuori90(e & f)
gi15(2) =(90 - b) - 1
Call EliminaRipetuti(gi15)
co = co + 1
ImpostaGiocata 15,gi15,ruote,posta,Clp,stpgiocata
For w = 2 To 7
For y = 2 To 7
ImpostaInterruzioni w,y,2
Next
Next
Gioca es,1,,1,1
'End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 1
Scrivi "casi trovati : " & co,True,False,06,00,02
ColoreTesto 0
Scrivi String(65,"•")
Scrivi
TestoInBandaPassante " ***** Script by Marco and friends Lottoced ***** ",1,3,0
ScriviResoconto
End Sub
Dim ruote(1)
Dim posta(2)
Dim postaa(1)
Dim gi1(2),gi2(2),gi3(2),gi4(10),gi5(2),gi6(2),gi7(5),gi8(2),gi9(2),gi10(2),gi11(2),gi12(2),gi13(2),gi14(2),gi15(2)
Dim Clp,w,y,r,Isi,Ini,fin,co,es,a,b,e,f,Ind_M,stpgiocata
r = ScegliRuota() ' InputBox("Scelta Ruota di Gioco",)
ruote(1) = r
posta(2) = 1
postaa(1) = 1
Isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,10))
'Ind_M = CInt(InputBox(" Qual è Indice Mensile? ",,1))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,9))
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1)
Ini = EstrazioneFin - Isi
fin = EstrazioneFin
co = 0
For es = Ini To fin
AvanzamentoElab Ini,fin,es
'If IndiceMensile(es) = Ind_M Then
a = Estratto(es,r,4)
b = Estratto(es,r,5)
'---------------------------
e = Figura(a)
f = Figura(b)
'---------------------------
gi1(1) = Fuori90(e & f)
gi1(2) = ComplAdX(gi1(1)) ''90 - gi1(1)
co = co + 1
Scrivi String(125,"°"),1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),01,01,04
Scrivi " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ruota di Calcolo",01,01,04
If co = 1 Then
Scrivi
'Scrivi Space(20)& "Inserito Indice Mensile " & Format2(Ind_M),1,,,1,2
End If
Scrivi
ImpostaGiocata 1,gi1,ruote,posta,Clp,stpgiocata
gi2(1) = Fuori90(e & f)
gi2(2) = 90 -(a)
Call EliminaRipetuti(gi2)
co = co + 1
ImpostaGiocata 2,gi2,ruote,posta,Clp,stpgiocata
gi3(1) = Fuori90(e & f)
gi3(2) =(90 - b)
Call EliminaRipetuti(gi3)
co = co + 1
ImpostaGiocata 3,gi3,ruote,posta,Clp,stpgiocata
gi4(1) = gi1(1)
gi4(2) = Fuori90(gi1(1) + 9)
gi4(3) = Fuori90(gi1(1) + 18)
gi4(4) = Fuori90(gi1(1) + 27)
gi4(5) = Fuori90(gi1(1) + 36)
gi4(6) = Fuori90(gi1(1) + 45)
gi4(7) = Fuori90(gi1(1) + 54)
gi4(8) = Fuori90(gi1(1) + 63)
gi4(9) = Fuori90(gi1(1) + 72)
gi4(10) = Fuori90(gi1(1) + 81)
Call EliminaRipetuti(gi4)
co = co + 1
'ImpostaGiocata 4,gi4,ruote,posta,Clp,stpgiocata
gi5(1) = Fuori90(e & f)
gi5(2) = Vert(gi1(1))
If Cadenza(gi5(2)) = 0 Then gi5(2) = gi5(2) + 9
co = co + 1
Call EliminaRipetuti(gi5)
ImpostaGiocata 5,gi5,ruote,postaa,Clp,stpgiocata
gi6(1) = Fuori90(e & f)
gi6(2) = ComplAdX(gi1(1)) + 1
ImpostaGiocata 6,gi6,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi6)
gi7(1) = Fuori90(e & f)
gi7(2) = Vert(gi7(1))
gi7(3) = ComplAdX(gi7(1))
gi7(4) = 90 -(a)
gi7(5) = 90 -(b)
ImpostaGiocata 7,gi7,ruote,posta,Clp,stpgiocata
Call EliminaRipetuti(gi7)
co = co + 1
gi8(1) = Fuori90(e & f)
gi8(2) = ComplAdX(gi8(1)) + 1
ImpostaGiocata 8,gi8,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi8)
gi9(1) = Fuori90(e & f)
gi9(2) = ComplAdX(gi9(1)) - 1
ImpostaGiocata 9,gi9,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi9)
gi10(1) = Fuori90(e & f)
gi10(2) = ComplAdX(gi10(1)) + 1
ImpostaGiocata 10,gi10,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi10)
gi11(1) = Fuori90(e & f)
gi11(2) = ComplAdX(gi11(1)) - 1
ImpostaGiocata 11,gi11,ruote,posta,Clp,stpgiocata
co = co + 1
Call EliminaRipetuti(gi11)
gi12(1) = Fuori90(e & f)
gi12(2) = 90 -(a) + 1
Call EliminaRipetuti(gi12)
co = co + 1
ImpostaGiocata 12,gi12,ruote,posta,Clp,stpgiocata
gi13(1) = Fuori90(e & f)
gi13(2) = 90 -(a) - 1
Call EliminaRipetuti(gi13)
co = co + 1
ImpostaGiocata 13,gi13,ruote,posta,Clp,stpgiocata
gi14(1) = Fuori90(e & f)
gi14(2) =(90 - b) + 1
Call EliminaRipetuti(gi14)
co = co + 1
ImpostaGiocata 14,gi14,ruote,posta,Clp,stpgiocata
gi15(1) = Fuori90(e & f)
gi15(2) =(90 - b) - 1
Call EliminaRipetuti(gi15)
co = co + 1
ImpostaGiocata 15,gi15,ruote,posta,Clp,stpgiocata
For w = 2 To 7
For y = 2 To 7
ImpostaInterruzioni w,y,2
Next
Next
Gioca es,1,,1,1
'End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 1
Scrivi "casi trovati : " & co,True,False,06,00,02
ColoreTesto 0
Scrivi String(65,"•")
Scrivi
TestoInBandaPassante " ***** Script by Marco and friends Lottoced ***** ",1,3,0
ScriviResoconto
End Sub
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 07 gennaio 2025Bari2937095308Cagliari3356086120Firenze5533096028Genova5609785904Milano7351340670Napoli4930648005Palermo8908744830Roma4620138705Torino0585902816Venezia5142170509Nazionale8890722541Estrazione Simbolotto
Bari
0622291131
