PER GLI AMANTI DELL'AMBATA ..... SU BARI ...

[Roby]

Controlla in basso il range di ricerca delle estrazioni...
CIAO !!!

SUERTE !!!!

 

[FedePa]

quote:Originally posted by artemisio

Controlla in basso il range di ricerca delle estrazioni...
CIAO !!!

SUERTE !!!!

Ciao Arte .. si l'ho controllato è a posto ma nn mi da' la previsione nuova ... cmq .. l'ho fatta manualmente

 

[Roby]

FedePa, hai ragione scusami, ho sbagliato io lo script, questo è quello giusto, provalo........

Sub Main()
Scrivi : ColoreTesto 1 : Scrivi "All'ultima del mese 1 Cinquina Su Bari ____________________ By FedePa (Abbinamenti By Blackmore)"
Scrivi : ColoreTesto 0 : Scrivi

Dim pt(4),rt(1),nn(5),pta(4)
pt(2)=1
pt(3)=1
pt(4)=1
pta(2)=1
pta(3)=0.40
pta(4)=0.10

clp=7 'colpi di gioco
rt(1)=1 '1a ruota di gioco >>>>>> Bari

ini=EstrazioneFin -88
fin=EstrazioneFin
co=co+1
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)= 1 Or IndiceMensile (es+1)= 0 Then 'Ultima estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])

a=Estratto(es,5,2)'>>>>>>> 2° di Milano
b=Estratto(es,1,5)'>>>>>>> 5° di Bari
c=Estratto(es,2,5)'>>>>>>> 5° di Cagliari

'------------------------------ Cinquina
nn(1)=Fuori90 (a+23)
nn(2)=Fuori90 (a+81)
nn(3)=Fuori90 (a+83)
nn(4)=Fuori90 (b)
nn(5)=Fuori90 (c)

ImpostaGiocata 1,nn,rt,pt,clp,2

Gioca es

End If
Next
Scrivi : Scrivi "Casi Rilevati" & CInt (co)

ScriviResoconto

End Sub

Blackmore

 

[FedePa]

quote:Originally posted by Blackmore


FedePa, hai ragione scusami, ho sbagliato io lo script, questo è quello giusto, provalo........

Sub Main()
Scrivi : ColoreTesto 1 : Scrivi "All'ultima del mese 1 Cinquina Su Bari ____________________ By FedePa (Abbinamenti By Blackmore)"
Scrivi : ColoreTesto 0 : Scrivi

Dim pt(4),rt(1),nn(5),pta(4)
pt(2)=1
pt(3)=1
pt(4)=1
pta(2)=1
pta(3)=0.40
pta(4)=0.10

clp=7 'colpi di gioco
rt(1)=1 '1a ruota di gioco >>>>>> Bari

ini=EstrazioneFin -88
fin=EstrazioneFin
co=co+1
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)= 1 Or IndiceMensile (es+1)= 0 Then 'Ultima estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])

a=Estratto(es,5,2)'>>>>>>> 2° di Milano
b=Estratto(es,1,5)'>>>>>>> 5° di Bari
c=Estratto(es,2,5)'>>>>>>> 5° di Cagliari

'------------------------------ Cinquina
nn(1)=Fuori90 (a+23)
nn(2)=Fuori90 (a+81)
nn(3)=Fuori90 (a+83)
nn(4)=Fuori90 (b)
nn(5)=Fuori90 (c)

ImpostaGiocata 1,nn,rt,pt,clp,2

Gioca es

End If
Next
Scrivi : Scrivi "Casi Rilevati" & CInt (co)

ScriviResoconto

End Sub
90 (c)

ImpostaGiocata 1,nn,rt,pt,clp,2

Gioca es

End If
Next
Scrivi : Scrivi "Casi Rilevati" & CInt (co)

ScriviResoconto

End Sub


Blackmore

TOGLIENDO QUESTA PARTE :

90 (c)
ImpostaGiocata 1,nn,rt,pt,clp,2
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati" & CInt (co)
ScriviResoconto
End Sub

FUNZIONA ... ALTRIMENTI MI DA' ERRORE ...

GRAZIE

 

[Roby]

Ho corretto lo script, quando inserisco un messaggio a volte mi si sdoppia, non so perché, forse sarà un problema del sito boh, comunque lo script finisce con End Sub, il resto si è aggiunto da solo.... Mah

Blackmore

 

[FedePa]

quote:Originally posted by Blackmore

Ho corretto lo script, quando inserisco un messaggio a volte mi si sdoppia, non so perché, forse sarà un problema del sito boh, comunque lo script finisce con End Sub, il resto si è aggiunto da solo.... Mah

Blackmore

TI RINGRAZIO NUOVAMENTE ..... ORA FUNZIONA TUTTO

 

[mirko]

scusate potete postare gia' la previsione io non ci riesco grazie, e bravi sempre

mirko

 

[maria72]

quote:Originally posted by mirko

scusate potete postare gia' la previsione io non ci riesco grazie, e bravi sempre

mirko

METODO SEMPLICISSIMO ... BASTA PRENDERE IL QUINTO ESTRATTO DELLE RUOTE DI BARI E CAGLIARI ALL'ULTIMA ESTRAZIONE MENSILE E RIMETTERLI IN GIOCO NELLA RUOTA BARESE

 

[Roby]

Ragazzi il metodo si è evoluto in una cinquina

http://forum.lottoced.com/topic.asp?TOPIC_ID=134932

Blackmore

 

[FedePa]

AMBATA 30 AL 2° COLPO

QUALCUNO L'HA PRESA ??

 

[FedePa]

quote:Originally posted by maria72

quote:Originally posted by mirko

scusate potete postare gia' la previsione io non ci riesco grazie, e bravi sempre

mirko

METODO SEMPLICISSIMO ... BASTA PRENDERE IL QUINTO ESTRATTO DELLE RUOTE DI BARI E CAGLIARI ALL'ULTIMA ESTRAZIONE MENSILE E RIMETTERLI IN GIOCO NELLA RUOTA BARESE

MARIA LA PREVISIONE E' POSTATA ALL'INIZIO

 

[FedePa]

Ambata 2 ........ Al 3 colpo.