Cerca
ESTRAZIONI LOTTO
Ultimi argomenti attivi
DOVE SBAGLIO? piccolo aiuto
4 partecipanti
LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO
Pagina 1 di 1
DOVE SBAGLIO? piccolo aiuto
Da roy62 Gio 28 Ago - 17:11:43
CIAO A TUTTI,SE POSSIBILE UN PICCOLO AIUTO X FAVORE ,PREMETTO CHE SONO ALLE PRIME ARMI CON GLI SCRIPT, VORREI CAPIRE DOVE SBAGLIO NELLO SCRIPT ,NON MI Dà L'AMBATA NELLA STESSA POSIZIONE DEL NUMERO SPIA(a = spia)
GRAZIE
Sub Main() ColoreTesto 1
Scrivi " METODO TONIO SPIA 3 A BARI --------LISTATO BY ROY - COLPI 13",1
Scrivi
ColoreTesto 0
Dim ruota(1),ruote(11)
Dim ambata(1)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ottina(10)
Dim posta(1)
Dim poste(2),poste1(3)
posta(1) = 1
poste(2) = 1
poste1(3) = 1
ruota(1) = 1
ruote(1) = BA_
ruote(2) = CA_
ruote(3) = FI_
ruote(4) = GE_
ruote(5) = MI_
ruote(6) = NA_
ruote(7) = PA_
ruote(8) = RO_
ruote(9) = TO_
ruote(10) = VE_
ruote(11) = NZ_
r = 1
spia = 3
klp = 13
ini = 8740
ee = 190
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If Posizione(es,r,spia) > 0 Then
a = Fuori90(Estratto(es + 3,r,spia))
b = Fuori90(90 +(a - 8))
c = Fuori90(90 +(a - 19))
d = Fuori90(90 +(a - 10))
e = Fuori90(a + 8)
f = Fuori90(a + 19)
g = Fuori90(a + 10)
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO TONIO SPIA 3 A bARI -------- LISTATO BY ROY COLPI 13",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = a
ImpostaGiocata 1,ambata,ruota,posta,klp
ambo1(1) = a
ambo1(2) = b
ImpostaGiocata 2,ambo1,ruote,poste,klp
ambo2(1) = a
ambo2(2) = c
ImpostaGiocata 3,ambo2,ruote,poste,klp
ambo3(1) = a
ambo3(2) = d
ImpostaGiocata 4,ambo3,ruote,poste,klp
ambo4(1) = a
ambo4(2) = e
ImpostaGiocata 5,ambo4,ruote,poste,klp
ambo5(1) = a
ambo5(2) = f
ImpostaGiocata 6,ambo5,ruote,poste,klp
ambo6(1) = a
ambo6(2) = g
ImpostaGiocata 7,ambo6,ruote,poste,klp
ottina(1) = a
ottina(2) = b
ottina(3) = c
ottina(4) = d
ottina(5) = e
ottina(6) = f
ottina(7) = g
ottina(8) = spia
ImpostaGiocata 8,ottina,ruote,poste1,klp
Gioca es,True
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by ROY ***** ",1,3,0
ScriviResoconto
End Sub
GRAZIE
Sub Main() ColoreTesto 1
Scrivi " METODO TONIO SPIA 3 A BARI --------LISTATO BY ROY - COLPI 13",1
Scrivi
ColoreTesto 0
Dim ruota(1),ruote(11)
Dim ambata(1)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ottina(10)
Dim posta(1)
Dim poste(2),poste1(3)
posta(1) = 1
poste(2) = 1
poste1(3) = 1
ruota(1) = 1
ruote(1) = BA_
ruote(2) = CA_
ruote(3) = FI_
ruote(4) = GE_
ruote(5) = MI_
ruote(6) = NA_
ruote(7) = PA_
ruote(8) = RO_
ruote(9) = TO_
ruote(10) = VE_
ruote(11) = NZ_
r = 1
spia = 3
klp = 13
ini = 8740
ee = 190
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If Posizione(es,r,spia) > 0 Then
a = Fuori90(Estratto(es + 3,r,spia))
b = Fuori90(90 +(a - 8))
c = Fuori90(90 +(a - 19))
d = Fuori90(90 +(a - 10))
e = Fuori90(a + 8)
f = Fuori90(a + 19)
g = Fuori90(a + 10)
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO TONIO SPIA 3 A bARI -------- LISTATO BY ROY COLPI 13",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = a
ImpostaGiocata 1,ambata,ruota,posta,klp
ambo1(1) = a
ambo1(2) = b
ImpostaGiocata 2,ambo1,ruote,poste,klp
ambo2(1) = a
ambo2(2) = c
ImpostaGiocata 3,ambo2,ruote,poste,klp
ambo3(1) = a
ambo3(2) = d
ImpostaGiocata 4,ambo3,ruote,poste,klp
ambo4(1) = a
ambo4(2) = e
ImpostaGiocata 5,ambo4,ruote,poste,klp
ambo5(1) = a
ambo5(2) = f
ImpostaGiocata 6,ambo5,ruote,poste,klp
ambo6(1) = a
ambo6(2) = g
ImpostaGiocata 7,ambo6,ruote,poste,klp
ottina(1) = a
ottina(2) = b
ottina(3) = c
ottina(4) = d
ottina(5) = e
ottina(6) = f
ottina(7) = g
ottina(8) = spia
ImpostaGiocata 8,ottina,ruote,poste1,klp
Gioca es,True
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by ROY ***** ",1,3,0
ScriviResoconto
End Sub
Ultima modifica di roy62 il Gio 28 Ago - 22:11:11 - modificato 1 volta.
roy62- Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT
Re: DOVE SBAGLIO? piccolo aiuto
Da DjNomade Gio 28 Ago - 20:10:44
Vedo parecchie faccine nel listato dovresti disabilitare gli smile e poi puoi spiegare come trovi l'ambata?
a = Fuori90(Estratto(es + 3,r,spia))
che calcolo dovrebbe fare?
Ciauz
a = Fuori90(Estratto(es + 3,r,spia))
che calcolo dovrebbe fare?
Ciauz
DjNomade- Messaggi : 335
Data d'iscrizione : 03.07.14
Re: DOVE SBAGLIO? piccolo aiuto
Da Blackmore Gio 28 Ago - 21:10:42
E' da rifare tutto, spiega il metodo per filo e per segno
ciao
ciao
Blackmore- Messaggi : 387
Data d'iscrizione : 11.06.14
Re: DOVE SBAGLIO? piccolo aiuto
Da roy62 Gio 28 Ago - 22:19:42
CIAO A TUTTI E GRAZIE A VOI X AVER RISPOSTO,MI FUNZIONA TUTTO A PARTE IL FATTO CHE L'AMBATA(a) non c'è nessuna operazione(estratto dopo 3 estrazioni nella posizione dell'uscita del numero spia)....invece la posizione in questo script è errata,non mi dà la stessa posizione
ho provato nel mio piccolo a mettere
p = spia e cambiare in (p)la parola spia...a = Fuori90(Estratto(es + 3,r,spia))....e altro ma non riesco a capire dove sbaglio
...è la prima volta che mi cimento in scripti che l'ambata non è della stessa estrazione del numero spia
grazie
ho provato nel mio piccolo a mettere
p = spia e cambiare in (p)la parola spia...a = Fuori90(Estratto(es + 3,r,spia))....e altro ma non riesco a capire dove sbaglio
...è la prima volta che mi cimento in scripti che l'ambata non è della stessa estrazione del numero spia
grazie
roy62- Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT
Re: DOVE SBAGLIO? piccolo aiuto
Da Blackmore Gio 28 Ago - 22:33:57
Continuo a non capire..
se metti l'estratto es+3 poi devi mettere gioca es+3
se no non leggerà mai quel es+3
Boh.. io passo
ciao
se metti l'estratto es+3 poi devi mettere gioca es+3
se no non leggerà mai quel es+3
Boh.. io passo
ciao
Blackmore- Messaggi : 387
Data d'iscrizione : 11.06.14
Re: DOVE SBAGLIO? piccolo aiuto
Da DjNomade Ven 29 Ago - 0:49:11
Vedi ora.........
Comunque è come diceva black devi mettere gioca es+3
in piu ho modificato questa
a = Fuori90(Estratto(es + 3,r,Posizione(es,r,spia)))
Ciauzzzzzzzz
- Codice:
Sub Main() ColoreTesto 1
Scrivi " METODO TONIO SPIA 3 A BARI --------LISTATO BY ROY - COLPI 13",1
Scrivi
ColoreTesto 0
Dim ruota(1),ruote(11)
Dim ambata(1)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ottina(10)
Dim posta(1)
Dim poste(2),poste1(3)
posta(1) = 1
poste(2) = 1
poste1(3) = 1
ruota(1) = 1
ruote(1) = BA_
ruote(2) = CA_
ruote(3) = FI_
ruote(4) = GE_
ruote(5) = MI_
ruote(6) = NA_
ruote(7) = PA_
ruote(8) = RO_
ruote(9) = TO_
ruote(10) = VE_
ruote(11) = NZ_
r = 1
spia = 3
klp = 13
ini = 8740
ee = 190
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If Posizione(es,r,spia) > 0 Then
a = Fuori90(Estratto(es + 3,r,Posizione(es,r,spia)))
b = Fuori90(90 +(a - 8))
c = Fuori90(90 +(a - 19))
d = Fuori90(90 +(a - 10))
e = Fuori90(a + 8)
f = Fuori90(a + 19)
g = Fuori90(a + 10)
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO TONIO SPIA 3 A bARI -------- LISTATO BY ROY COLPI 13",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = a
ImpostaGiocata 1,ambata,ruota,posta,klp
ambo1(1) = a
ambo1(2) = b
ImpostaGiocata 2,ambo1,ruote,poste,klp
ambo2(1) = a
ambo2(2) = c
ImpostaGiocata 3,ambo2,ruote,poste,klp
ambo3(1) = a
ambo3(2) = d
ImpostaGiocata 4,ambo3,ruote,poste,klp
ambo4(1) = a
ambo4(2) = e
ImpostaGiocata 5,ambo4,ruote,poste,klp
ambo5(1) = a
ambo5(2) = f
ImpostaGiocata 6,ambo5,ruote,poste,klp
ambo6(1) = a
ambo6(2) = g
ImpostaGiocata 7,ambo6,ruote,poste,klp
ottina(1) = a
ottina(2) = b
ottina(3) = c
ottina(4) = d
ottina(5) = e
ottina(6) = f
ottina(7) = g
ottina(8) = spia
ImpostaGiocata 8,ottina,ruote,poste1,klp
Gioca es+3,True
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by ROY ***** ",1,3,0
ScriviResoconto
End Sub
Ultima modifica di DjNomade il Ven 29 Ago - 19:00:45 - modificato 1 volta.
DjNomade- Messaggi : 335
Data d'iscrizione : 03.07.14
Re: DOVE SBAGLIO? piccolo aiuto
Da Mara* Ven 29 Ago - 15:15:59
DjNomade ha scritto:
Vedi ora.........
Comunque è come diceva black devi mettere gioca es+3
in piu ho modificato questa
a = Fuori90(Estratto(es + 3,r,Posizione(es,r,spia)))
Ciauzzzzzzzz
- Codice:
Sub Main() ColoreTesto 1
Scrivi " METODO TONIO SPIA 3 A BARI --------LISTATO BY ROY - COLPI 13",1
Scrivi
ColoreTesto 0
Dim ruota(1),ruote(11)
Dim ambata(1)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ottina(10)
Dim posta(1)
Dim poste(2),poste1(3)
posta(1) = 1
poste(2) = 1
poste1(3) = 1
ruota(1) = 1
ruote(1) = BA_
ruote(2) = CA_
ruote(3) = FI_
ruote(4) = GE_
ruote(5) = MI_
ruote(6) = NA_
ruote(7) = PA_
ruote(8) = RO_
ruote(9) = TO_
ruote(10) = VE_
ruote(11) = NZ_
r = 1
spia = 3
klp = 13
ini = 8740
ee = 190
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If Posizione(es,r,spia) > 0 Then
a = Fuori90(Estratto(es + 3,r,Posizione(es,r,spia)))
b = Fuori90(90 +(a - 8))
c = Fuori90(90 +(a - 19))
d = Fuori90(90 +(a - 10))
e = Fuori90(a +
f = Fuori90(a + 19)
g = Fuori90(a + 10)
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO TONIO SPIA 3 A bARI -------- LISTATO BY ROY COLPI 13",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = a
ImpostaGiocata 1,ambata,ruota,posta,klp
ambo1(1) = a
ambo1(2) = b
ImpostaGiocata 2,ambo1,ruote,poste,klp
ambo2(1) = a
ambo2(2) = c
ImpostaGiocata 3,ambo2,ruote,poste,klp
ambo3(1) = a
ambo3(2) = d
ImpostaGiocata 4,ambo3,ruote,poste,klp
ambo4(1) = a
ambo4(2) = e
ImpostaGiocata 5,ambo4,ruote,poste,klp
ambo5(1) = a
ambo5(2) = f
ImpostaGiocata 6,ambo5,ruote,poste,klp
ambo6(1) = a
ambo6(2) = g
ImpostaGiocata 7,ambo6,ruote,poste,klp
ottina(1) = a
ottina(2) = b
ottina(3) = c
ottina(4) = d
ottina(5) = e
ottina(6) = f
ottina(7) = g
ottina(8) = spia
ImpostaGiocata 8,ottina,ruote,poste1,klp
Gioca es+3,True
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by ROY ***** ",1,3,0
ScriviResoconto
End Sub
ciao Dj
per curiosita' ho provato a scaricarlo anch'io pero' mi da un errore e nn si apre
[Devi essere iscritto e connesso per vedere questa immagine]
Mara*- moderatore
- Messaggi : 1041
Data d'iscrizione : 27.12.13
Re: DOVE SBAGLIO? piccolo aiuto
Da Blackmore Ven 29 Ago - 15:32:10
- Codice:
Sistema questa riga mara
e = Fuori90(a
con
e = Fuori90(a + 8)
Blackmore- Messaggi : 387
Data d'iscrizione : 11.06.14
Re: DOVE SBAGLIO? piccolo aiuto
Da Mara* Ven 29 Ago - 17:19:55
Blackmore ha scritto:
- Codice:
Sistema questa riga mara
e = Fuori90(a
con
e = Fuori90(a +
fatto Black ...adesso funziona
grazie mille
Mara*- moderatore
- Messaggi : 1041
Data d'iscrizione : 27.12.13
Re: DOVE SBAGLIO? piccolo aiuto
Da roy62 Sab 30 Ago - 9:15:38
ciao a tutti,ancora una volta grazie,ora va bene,blakmore e djnomade, da parte mia avevo provato a mettere la posizione nella condizione
if <<<<then in diversi modi,ma nulla di fatto,il mettere +3 a gioca es + 3,true.......non mi era passato nemmeno x l'anticamera del cervello ahahahha,....sono quasi all'inizio con questi script........di base DINOMADE ho il tuo mini corso postato in altro sito e tra vari copia incolla vado avanti
ps con questo script ho provato da parte mia a cambiare sia il numero spia che i numeri sia da sommare che da sottrarre allungando i colpi di gioco
........i risultati sono interessanti.....provateci ciaooooooo e ancora grazie
if <<<<then in diversi modi,ma nulla di fatto,il mettere +3 a gioca es + 3,true.......non mi era passato nemmeno x l'anticamera del cervello ahahahha,....sono quasi all'inizio con questi script........di base DINOMADE ho il tuo mini corso postato in altro sito e tra vari copia incolla vado avanti
ps con questo script ho provato da parte mia a cambiare sia il numero spia che i numeri sia da sommare che da sottrarre allungando i colpi di gioco
........i risultati sono interessanti.....provateci ciaooooooo e ancora grazie
roy62- Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT
LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO
Pagina 1 di 1
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.
» Ultima del Mese BARI
» N°Spia 50 R.S. Genova R.G. Torino
» il forum si è trasferito
» il forum si è trasferito
» il forum si è trasferito
» N°Spia 50 R.S. Genova R.G. Torino
» Ho aperto un nuovo sito
» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi