METODI JUVENTUS - SCRIPT

salvo14 · 30 Aprile 2014

A GENTILE RICHIESTA POSTO GLI SCRIPT DEI METODI DI JUVENTUS. (CONTROLLARE SEMPRE PER EVENTUALI ERRORI)

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS AMBATA-AMBO-TERNO-QUATERNA SU ROMA ALLA 1^ ESTRAZIONE MENSILE - COLPI 5",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim terno(3) : Dim quaterna(4) : Dim poste(2) : Dim postee(4)
poste(1) = 1
postee(3) = 1
'------- nuovo ------------------
Dim posta(2) : Dim postae(4)
poste(1) = 1
posta(2) = 1
postee(3) = 1
postae(4) = 1
ruote(1) = 8
klp = 5
ini = 8570
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS AMBATA-AMBO-TERNO-QUATERNA SU ROMA ALLA 1^ ESTRAZIONE MENSILE - COLPI 5",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,FI_,2) + 33)
ImpostaGiocata 1,ambata,ruote,poste,klp,5
ambo1(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,FI_,2) + 33)
ambo1(2) = Fuori90(Estratto(es,FI_,4) + Estratto(es,GE_,2) + 62)
ImpostaGiocata 2,ambo1,ruote,posta,klp,5
terno(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,FI_,2) + 33)
terno(2) = Fuori90(Estratto(es,FI_,4) + Estratto(es,GE_,2) + 62)
terno(3) = Fuori90(Estratto(es,PA_,4) + Estratto(es,NZ_,4) + 4)
ImpostaGiocata 3,terno,ruote,postee,klp,5
quaterna(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,FI_,2) + 33)
quaterna(2) = Fuori90(Estratto(es,FI_,4) + Estratto(es,GE_,2) + 62)
quaterna(3) = Fuori90(Estratto(es,PA_,4) + Estratto(es,NZ_,4) + 4)
quaterna(4) = Fuori90(Estratto(es,PA_,5) + Estratto(es,VE_,2) + 34)
ImpostaGiocata 4,quaterna,ruote,postae,klp,5
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS SPIA 70 A PALERMO GIOCARE AMBATA AMBO TERNO SU PALERMO - COLPI 9",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim ambo2(2) : Dim terno(3) : Dim poste(2) : Dim postee(3)
'----- modifica ---------------
Dim posta(2)
poste(1) = 1
posta(2) = 1
postee(3) = 1
'-------------------------------
ruote(1) = 7
r = 7
spia = 70
klp = 9
ini = 8740
ee = 70
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS SPIA 70 A PALERMO GIOCARE AMBATA AMBO TERNO SU PALERMO - COLPI 9",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(90 + Estratto(es,CA_,3) + Estratto(es,NZ_,5) + 01)
ImpostaGiocata 1,ambata,ruote,poste,klp
ambo1(1) = Fuori90(90 + Estratto(es,CA_,3) + Estratto(es,NZ_,5) + 01)
ambo1(2) = Fuori90(Estratto(es,BA_,5) + Estratto(es,MI_,5) + 09)
ImpostaGiocata 2,ambo1,ruote,posta,klp
terno(1) = Fuori90(90 + Estratto(es,CA_,3) + Estratto(es,NZ_,5) + 01)
terno(2) = Fuori90(Estratto(es,BA_,5) + Estratto(es,MI_,5) + 09)
terno(3) = Fuori90(Estratto(es,RO_,3) + Estratto(es,NZ_,3) + 20)
ImpostaGiocata 3,terno,ruote,postee,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS SPIA 89 A BARI GIOCARE AMBATA E AMBO SU PALERMO - COLPI 3",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim poste(1) : Dim postee(2)
poste(1) = 1
postee(2) = 2
ruote(1) = 7
r = 1
spia = 89
klp = 3
ini = 8689
ee = 141
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS SPIA 89 A BARI GIOCARE AMBATA E AMBO SU PALERMO - COLPI 3",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(90 + Estratto(es,MI_,5) + Estratto(es,NA_,2) + 10)
ImpostaGiocata 1,ambata,ruote,poste,klp,3
ambo1(1) = Fuori90(90 + Estratto(es,MI_,5) + Estratto(es,NA_,2) + 10)
ambo1(2) = Fuori90(Estratto(es,GE_,5) + Estratto(es,NA_,4) + 62)
ImpostaGiocata 2,ambo1,ruote,postee,klp,3
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS SPIA 89 A MILANO PALERMO ROMA GIOCARE AMBATA AMBO TERNO SU BARI - COLPI 5",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim ambo2(2) : Dim terno(3) : Dim poste(2) : Dim postee(3)
'----- modifica ---------------
Dim posta(2)
poste(1) = 1
posta(2) = 1
postee(3) = 1
'-------------------------------
ruote(1) = 1
r = 5
r1 = 7
r2 = 8
spia = 89
klp = 5
ini = 8740
ee = 90
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Or Posizione(es,r1,spia) > 0 Or Posizione(es,r2,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS SPIA 89 A MILANO PALERMO ROMA GIOCARE AMBATA AMBO TERNO SU BARI - COLPI 5",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(90 + Estratto(es,VE_,1) + Estratto(es,NZ_,5) + 12)
ImpostaGiocata 1,ambata,ruote,poste,klp,5
ambo1(1) = Fuori90(90 + Estratto(es,VE_,1) + Estratto(es,NZ_,5) + 12)
ambo1(2) = Fuori90(Estratto(es,NA_,2) + Estratto(es,VE_,2) + 25)
ImpostaGiocata 2,ambo1,ruote,posta,klp,5
ambo2(1) = Fuori90(90 + Estratto(es,VE_,1) + Estratto(es,NZ_,5) + 12)
ambo2(2) = Fuori90(Estratto(es,PA_,2) * Estratto(es,TO_,1) + 45)
ImpostaGiocata 3,ambo2,ruote,posta,klp,5
terno(1) = Fuori90(90 + Estratto(es,VE_,1) + Estratto(es,NZ_,5) + 12)
terno(2) = Fuori90(Estratto(es,NA_,2) + Estratto(es,VE_,2) + 25)
terno(3) = Fuori90(Estratto(es,PA_,2) * Estratto(es,TO_,1) + 45)
ImpostaGiocata 4,terno,ruote,postee,klp,5
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS SPIA 90 A BARI GIOCARE AMBATA AMBO TERNO SU BARI - COLPI 7",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim ambo2(2) : Dim terno(3) : Dim poste(2) : Dim postee(3)
'----- modifica ---------------
Dim posta(2)
poste(1) = 1
posta(2) = 1
postee(3) = 1
'-------------------------------
ruote(1) = 1
r = 1
spia = 90
klp = 7
ini = 8740
ee = 90
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS SPIA 90 A BARI GIOCARE AMBATA AMBO TERNO SU BARI COLPI 7",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(90 + Estratto(es,NA_,1) + Estratto(es,RO_,5) + 22)
ImpostaGiocata 1,ambata,ruote,poste,klp
ambo1(1) = Fuori90(90 + Estratto(es,NA_,1) + Estratto(es,RO_,5) + 22)
ambo1(2) = Fuori90(Estratto(es,BA_,5) + Estratto(es,MI_,3) + 33)
ImpostaGiocata 2,ambo1,ruote,posta,klp
terno(1) = Fuori90(90 + Estratto(es,NA_,1) + Estratto(es,RO_,5) + 22)
terno(2) = Fuori90(Estratto(es,BA_,5) + Estratto(es,MI_,3) + 33)
terno(3) = Fuori90(Estratto(es,PA_,1) + Estratto(es,VE_,5) + 22)
ImpostaGiocata 3,terno,ruote,postee,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS SPIA 90 A MILANO GIOCARE AMBATA AMBO TERNO E QUATERNA SU BARI - COLPI 9",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim terno(3) : Dim quaterna(4) : Dim poste(2) : Dim postee(4)
poste(1) = 1
postee(3) = 1
'------- nuovo ------------------
Dim posta(2) : Dim postae(4)
poste(1) = 1
posta(2) = 1
postee(3) = 1
postae(4) = 1
'-------------------------------
ruote(1) = 1
r1 = 5
spia = 90
klp = 9
ini = 8740
ee = 90
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r1,spia) > 0 Or Posizione(es,r1,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS SPIA 90 A MILANO GIOCARE AMBATA AMBO TERNO E QUATERNA SU BARI - COLPI 9",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(90 + Estratto(es,FI_,4) * Estratto(es,VE_,5) + 80)
ImpostaGiocata 1,ambata,ruote,poste,klp
ambo1(1) = Fuori90(90 + Estratto(es,FI_,4) * Estratto(es,VE_,5) + 80)
ambo1(2) = Fuori90(Estratto(es,MI_,3) + Estratto(es,TO_,1) + 21)
ImpostaGiocata 2,ambo1,ruote,posta,klp
terno(1) = Fuori90(90 + Estratto(es,FI_,4) * Estratto(es,VE_,5) + 80)
terno(2) = Fuori90(Estratto(es,MI_,3) + Estratto(es,TO_,1) + 21)
terno(3) = Fuori90(Estratto(es,GE_,3) * Estratto(es,TO_,2) + 10)
ImpostaGiocata 3,terno,ruote,postee,klp
quaterna(1) = Fuori90(90 + Estratto(es,FI_,4) * Estratto(es,VE_,5) + 80)
quaterna(2) = Fuori90(Estratto(es,MI_,3) + Estratto(es,TO_,1) + 21)
quaterna(3) = Fuori90(Estratto(es,GE_,3) * Estratto(es,TO_,2) + 10)
quaterna(4) = Fuori90(Estratto(es,MI_,3) + Estratto(es,NZ_,1) + 07)
ImpostaGiocata 4,quaterna,ruote,postae,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS AMBATA-AMBO-TERNO-QUATERNA SU FIRENZE ALLA 13^ ESTRAZIONE MENSILE - COLPI 5",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim terno(3) : Dim quaterna(4) : Dim poste(2) : Dim postee(4)
poste(1) = 1
postee(3) = 1
'------- nuovo ------------------
Dim posta(2) : Dim postae(4)
poste(1) = 1
posta(2) = 1
postee(3) = 1
postae(4) = 1
ruote(1) = 3
klp = 5
ini = 7530
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 13 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS AMBATA-AMBO-TERNO-QUATERNA SU FIRENZE ALLA 13^ ESTRAZIONE MENSILE - COLPI 5",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(Estratto(es,PA_,5) * Estratto(es,VE_,3) + 19)
ImpostaGiocata 1,ambata,ruote,poste,klp,5
ambo1(1) = Fuori90(Estratto(es,PA_,5) * Estratto(es,VE_,3) + 19)
ambo1(2) = Fuori90(Estratto(es,BA_,5) * Estratto(es,VE_,3) + 40)
ImpostaGiocata 2,ambo1,ruote,posta,klp,5
terno(1) = Fuori90(Estratto(es,PA_,5) * Estratto(es,VE_,3) + 19)
terno(2) = Fuori90(Estratto(es,BA_,5) * Estratto(es,VE_,3) + 40)
terno(3) = Fuori90(Estratto(es,BA_,4) + Estratto(es,PA_,2) + 49)
ImpostaGiocata 3,terno,ruote,postee,klp,5
quaterna(1) = Fuori90(Estratto(es,PA_,5) * Estratto(es,VE_,3) + 19)
quaterna(2) = Fuori90(Estratto(es,BA_,5) * Estratto(es,VE_,3) + 40)
quaterna(3) = Fuori90(Estratto(es,BA_,4) + Estratto(es,PA_,2) + 49)
quaterna(4) = Fuori90(Estratto(es,CA_,4) + Estratto(es,TO_,5) + 77)
ImpostaGiocata 4,quaterna,ruote,postae,klp,5
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Alien. · 1 Maggio 2014

Ciao,Infinite grazie ,ma mi manca lo svolgimento dei metodi ///spia 90 ve gioco su Ba-///---spia 89 ba gioco su PA----///-------spia 89 pa in gioco su RO...///....dove li trovo questi? grazie per chi può indicare il link del post di juventus.

salvo14 · 1 Maggio 2014

Ciao, vai alla sezione ricerca avanzata e nella sezione nome utente scrivi juventus , avrai tutti i sistemi dello stesso.

boris · 1 Maggio 2014

buongiorno,
mi potete spiegare come inserire questi script
nel programma di spaziometria 1.4.5 grazie

salvo14 · 1 Maggio 2014

Ciao Boris, fai l'aggiornamento di Spaziometria al seguente link: SetupSpaziometria_1_4_70
Ciao

margot · 1 Maggio 2014

SPIA 90 VENEZIA SI GIOCA A BARI...

Ruote di gioco: Ba.
Colpi di gioco: 13
Algoritmi/Numeri in gioco:
...
Ambata: 1 di Ge - 5 di Ro + 33 *
Ambo: 3 di Nz + 5 di Nz + 83 *
Ambo: 1 di Ba + 3 di Na + 01 *

mar 19.03.2013
Ambata 30
Abbinamenti per ambo: 27.59.
Esiti:
gio 04.04.2013 al 7 colpo su Ba ambata 30
gio 04.04.2013 al 7 colpo su Ba ambo 30 - 27
mar 09.04.2013 al 9 colpo su Ba ambata 30
sab 13.04.2013 al 11 colpo su Ba ambata 30
mar 16.04.2013 al 12 colpo su Ba ambata 30
si attende script - grazie

dp58 · 2 Maggio 2014

ecco il listato

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS SPIA 90 A VENEZIA GIOCARE AMBATA AMBO TERNO SU BARI - COLPI 13",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim ambo2(2) : Dim ambo3(3) : Dim poste(2) : Dim postee(3)
'----- modifica ---------------
Dim posta(2)
poste(1) = 1
posta(2) = 1
postee(3) = 1
'-------------------------------
ruote(1) = 1
r = 10
spia = 90
klp = 13
ini = 8740
ee = 360
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS SPIA 90 A VENEIA GIOCARE AMBATA AMBO TERNO SU BARI COLPI 13",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(90 + Estratto(es,GE_,1) - Estratto(es,RO_,5) + 33)
ImpostaGiocata 1,ambata,ruote,poste,klp
ambo1(1) = Fuori90(90 + Estratto(es,GE_,1) - Estratto(es,RO_,5) + 33)
ambo1(2) = Fuori90(90 + Estratto(es,NZ_,3) + Estratto(es,NZ_,5) + 83)
ImpostaGiocata 2,ambo1,ruote,posta,klp
ambo2(1) = Fuori90(90 + Estratto(es,GE_,1) - Estratto(es,RO_,5) + 33)
ambo2(2) = Fuori90(90 + Estratto(es,BA_,1) + Estratto(es,NA_,3) + 01)
ImpostaGiocata 3,ambo2,ruote,posta,klp
ambo3(1) = Fuori90(90 + Estratto(es,GE_,1) - Estratto(es,RO_,5) + 33)
ambo3(2) = Fuori90(90 + Estratto(es,NZ_,3) + Estratto(es,NZ_,5) + 83)
ambo3(3) = Fuori90(90 + Estratto(es,BA_,1) + Estratto(es,NA_,3) + 01)
ImpostaGiocata 4,ambo3,ruote,posta,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

margot · 2 Maggio 2014

grazie x lo script, ma il metodo è di juventus.... ciao

dp58 · 2 Maggio 2014

corretto, grazie

farfalla2 · 2 Maggio 2014

CIAOOOOOO SALVO14 E CIAOOOO A TUTTI.....GRAZIEEEEEEEEEEEEEEEEE

vignoli · 2 Maggio 2014

buona sera salvo14 mi puoi spiegare come trovare ricerca avanzata x trovare i metidi di juventus gli scrpt non so leggerli grazie se puoi aitarmi grazie tina

salvo14 · 2 Maggio 2014

Ciao Tina, devi andare su ricerca avanzata e scrivere Juventus su nome utente, ti compariranno tutti i suoi post con i relativi metodi.

boris · 3 Maggio 2014

salvo14 ha scritto:
Ciao Boris, fai l'aggiornamento di Spaziometria al seguente link: SetupSpaziometria_1_4_70
Ciao

ciao Salvo grazie per la dritta, non riesco fare il setup
mi chiedono di comperare il rar o vinzip che mi sembra
esagerato ora vedo come fare
buon fine settimana

juventus · 3 Maggio 2014

Ciao Salvo,
Ti ringrazio per immane lavoro che stai facendo ora sono preso con degli impegni ma già Lunedì posero un metodo mensile oppure spia andrò per intuizione.

salvo14 · 3 Maggio 2014

boris ha scritto:
ciao Salvo grazie per la dritta, non riesco fare il setup
mi chiedono di comperare il rar o vinzip che mi sembra
esagerato ora vedo come fare
buon fine settimana

Ciao Boris ma guarda che lo si scarica gratis (non è a pagamento)...

salvo14 · 3 Maggio 2014

juventus ha scritto:
Ciao Salvo,
Ti ringrazio per immane lavoro che stai facendo ora sono preso con degli impegni ma già Lunedì posero un metodo mensile oppure spia andrò per intuizione.

Ciao Juventus non devi ringraziarmi! lo faccio con tutto il cuore!! stai tranquillo.

salvo14 · 3 Maggio 2014

METODO JUVENTUS SPIA 90 VENEZIA SI GIOCA A BARI

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS SPIA 90 A VENEZIA GIOCARE AMBATA E AMBO SU BARI - COLPI 13",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim ambo2(2) : Dim poste(2) : Dim postee(2)
poste(1) = 1
postee(2) = 1
'------- nuovo ------------------
Dim posta(2) : Dim postae(4)
poste(1) = 1
posta(2) = 1
postee(2) = 1
'-------------------------------
ruote(1) = 1
r1 = 10
spia = 90
klp = 13
ini = 7500
ee = 175
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r1,spia) > 0 Or Posizione(es,r1,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS SPIA 90 A VENEZIA GIOCARE AMBATA E AMBO SU BARI - COLPI 13",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(90 + Estratto(es,GE_,1) - Estratto(es,RO_,5) + 33)
ImpostaGiocata 1,ambata,ruote,poste,klp
ambo1(1) = Fuori90(90 + Estratto(es,GE_,1) - Estratto(es,RO_,5) + 33)
ambo1(2) = Fuori90(Estratto(es,NZ_,3) + Estratto(es,NZ_,5) + 83)
ImpostaGiocata 2,ambo1,ruote,posta,klp
ambo2(1) = Fuori90(90 + Estratto(es,GE_,1) - Estratto(es,RO_,5) + 33)
ambo2(2) = Fuori90(Estratto(es,BA_,1) + Estratto(es,NA_,3) + 01)
ImpostaGiocata 3,ambo2,ruote,postee,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

irepi · 4 Maggio 2014

Grazie Juventus, grazie Salvo14

boris · 4 Maggio 2014

ciao Salvo ora ho aggoirnato la spaziometriama
poi il tuo script copiaincolla non rimane dop aver aperto
il script sulla spaziometria in cima dice proseguire non memorizzato
forse devo aspettare (magari 2 minuti) e come leggere la previsione del script?
scusami ma ho difficoltà con queste tecniche mai fatte

buona domenica

salvo14 · 4 Maggio 2014

Ciao Boris, prima di incollare lo script nel programma, ricordati di cancellare
Option Explicit
Sub Main

End Sub
che compare nella videata perchè altrimenti ti da errore.
Poi una cosa non meno importante, è quella di copiare e incollare lo script
con partenza SUB MAIN() e finale END SUB

Prova e fammi sapere

METODI JUVENTUS - SCRIPT

Super Member >PLATINUM<

Advanced Premium Member

Super Member >PLATINUM<

Advanced Member

Super Member >PLATINUM<

Super member

Member

Super member

Member

Member

Super Member >GOLD<

Super Member >PLATINUM<

Advanced Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Junior Member

Advanced Member

Super Member >PLATINUM<