Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Gio Mag 24, 2018 6:58 pm Da DjNomade

» Ultima del Mese BARI
Gio Mag 17, 2018 8:44 pm Da Mara*

» Da Ambo spia 09-90 a tutte
Mar Apr 03, 2018 6:22 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

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

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


Alla decima estrazione mensile su BA e CA......

Andare in basso

Alla decima estrazione mensile su BA e CA......

Messaggio Da sax71 il Mer Ott 15, 2014 11:47 am

Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS AMBATA-AMBO-TERNO SU BARI CAGLIARI ALLA 10^ ESTRAZIONE MENSILE - COLPI 4",1
Scrivi
ColoreTesto 0
Dim ruote(2)
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
ruote(2) = 2
klp = 4
ini = 8700
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 10 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS AMBATA-AMBO-TERNO SU BARI - CAGLIARI ALLA 10^ ESTRAZIONE MENSILE - COLPI 4",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,VE_,2) + 25)
ImpostaGiocata 1,ambata,ruote,poste,klp,5
ambo1(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,VE_,2) + 25)
ambo1(2) = Fuori90(Estratto(es,CA_,2) + Estratto(es,MI_,3) + 05)
ImpostaGiocata 2,ambo1,ruote,posta,klp,5
terno(1) = Fuori90(Estratto(es,CA_,5) * Estratto(es,VE_,2) + 25)
terno(2) = Fuori90(Estratto(es,CA_,2) + Estratto(es,MI_,3) + 05)
terno(3) = Fuori90(Estratto(es,FI_,4) + Estratto(es,VE_,2) + 64)
ImpostaGiocata 3,terno,ruote,postee,klp,5
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 dell'utente

Torna in alto Andare in basso

Re: Alla decima estrazione mensile su BA e CA......

Messaggio Da giandy il Mer Ott 15, 2014 3:37 pm

Grazie sax ne faremo buon uso Smile
avatar
giandy

Messaggi : 43
Data d'iscrizione : 27.12.13

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: Alla decima estrazione mensile su BA e CA......

Messaggio Da domenico1 il Mer Ott 15, 2014 10:36 pm

Grazie !!!
avatar
domenico1

Messaggi : 393
Data d'iscrizione : 26.12.13
Età : 58

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: Alla decima estrazione mensile su BA e CA......

Messaggio Da Mara* il Gio Ott 16, 2014 8:00 am

Grazie sax
l'ultima previsione ha dato buca
speriamo nella prossima  

    [Devi essere iscritto e connesso per vedere questa immagine]                          
avatar
Mara*
moderatore

Messaggi : 1018
Data d'iscrizione : 27.12.13

Visualizza il profilo dell'utente

Torna in alto Andare in basso

Re: Alla decima estrazione mensile su BA e CA......

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto


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