Cerca
 
 

Risultati secondo:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Vediamo se mi ripago le ferie
Ven Feb 16, 2018 5:11 pm Da spike5

» Da Ambo spia 09-90 a tutte
Ven Feb 16, 2018 8:40 am Da spike5

» Ultima del Mese BARI
Sab Feb 10, 2018 9:12 pm Da vinci

» Palermo-Torino
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5

» Firenze-Genova (chiusa)
Gio Gen 18, 2018 1:09 pm Da Lory

» ambo a tutte
Lun Gen 08, 2018 9:50 pm Da Mara*

» 2 ambi a Venezia
Lun Gen 08, 2018 1:49 pm Da spike5


DOVE SBAGLIO? piccolo aiuto

Andare in basso

DOVE SBAGLIO? piccolo aiuto

Messaggio Da roy62 il Gio Ago 28, 2014 3:11 pm

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




Ultima modifica di roy62 il Gio Ago 28, 2014 8:11 pm, modificato 1 volta
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da DjNomade il Gio Ago 28, 2014 6:10 pm

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
avatar
DjNomade

Messaggi : 240
Data d'iscrizione : 03.07.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da Blackmore il Gio Ago 28, 2014 7:10 pm

E' da rifare tutto, spiega il metodo per filo e per segno
ciao

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da roy62 il Gio Ago 28, 2014 8:19 pm

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da Blackmore il Gio Ago 28, 2014 8:33 pm

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 Shocked
ciao

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da DjNomade il Gio Ago 28, 2014 10:49 pm


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 Ago 29, 2014 5:00 pm, modificato 1 volta
avatar
DjNomade

Messaggi : 240
Data d'iscrizione : 03.07.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da Mara* il Ven Ago 29, 2014 1:15 pm

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 Smile

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]  
avatar
Mara*
moderatore

Messaggi : 1016
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da Blackmore il Ven Ago 29, 2014 1:32 pm

Codice:
Sistema questa riga mara

e = Fuori90(a

con

e = Fuori90(a + 8)

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da Mara* il Ven Ago 29, 2014 3:19 pm

Blackmore ha scritto:
Codice:
Sistema questa riga mara

e = Fuori90(a

con

e = Fuori90(a +

fatto Black ...adesso funziona
grazie mille Smile
avatar
Mara*
moderatore

Messaggi : 1016
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da roy62 il Sab Ago 30, 2014 7:15 am

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Tornare in alto Andare in basso

Tornare in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum