LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.
Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
DOVE SBAGLIO? piccolo aiuto EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
DOVE SBAGLIO? piccolo aiuto EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
DOVE SBAGLIO? piccolo aiuto EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
DOVE SBAGLIO? piccolo aiuto EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
DOVE SBAGLIO? piccolo aiuto EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
DOVE SBAGLIO? piccolo aiuto EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
DOVE SBAGLIO? piccolo aiuto EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
DOVE SBAGLIO? piccolo aiuto EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
DOVE SBAGLIO? piccolo aiuto EmptyMar 2 Apr - 20:57:27 Da DjNomade


DOVE SBAGLIO? piccolo aiuto

4 partecipanti

Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty DOVE SBAGLIO? piccolo aiuto

Messaggio 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




Ultima modifica di roy62 il Gio 28 Ago - 22:11:11 - modificato 1 volta.
roy62
roy62

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

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

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

Messaggi : 335
Data d'iscrizione : 03.07.14

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da Blackmore Gio 28 Ago - 21:10:42

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

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

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

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

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

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

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

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

Messaggi : 335
Data d'iscrizione : 03.07.14

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

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

Messaggi : 1041
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

Messaggio 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

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

Messaggio 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 Smile
Mara*
Mara*
moderatore

Messaggi : 1041
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

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

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

Torna in alto Andare in basso

DOVE SBAGLIO? piccolo aiuto Empty Re: DOVE SBAGLIO? piccolo aiuto

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

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