Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» N° Spia 50 R.Sp. GE R.Gio. TO
Quando esce il 90 a MILANO EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
Quando esce il 90 a MILANO EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
Quando esce il 90 a MILANO EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
Quando esce il 90 a MILANO EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
Quando esce il 90 a MILANO EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
Quando esce il 90 a MILANO EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
Quando esce il 90 a MILANO EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
Quando esce il 90 a MILANO EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Quando esce il 90 a MILANO EmptyMar 2 Apr - 20:57:27 Da DjNomade


Quando esce il 90 a MILANO

Andare in basso

Quando esce il 90 a MILANO Empty Quando esce il 90 a MILANO

Messaggio Da sax71 il Mar 14 Ott - 19:28:30

Questo Script si utilizza quando esce il 90 a Milano. Non è farina del mio sacco.......trovato in giro per il web.Spero di aver fatto cosa gradita!


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

sax71

Messaggi : 31
Data d'iscrizione : 17.02.14

Visualizza il profilo

Torna in alto Andare in basso

Torna in alto


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