Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Oggi alle 6:50 pm Da DjNomade

» Ultima del Mese BARI
Gio Ago 09, 2018 7:08 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Mar Ago 07, 2018 7:28 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


Convergenze BA-CA alla 10° del mese

Andare in basso

Convergenze BA-CA alla 10° del mese

Messaggio Da Blackmore il Sab Giu 28, 2014 9:04 am

Codice:
Sub Main()
 'Ambate Blackmore BA-CA alla 10° del mese"
 Dim ruote(2),ambata(4),posta(3)
 posta(1) = 1 :posta(2) = 1:posta(3) = 1
 ini = CInt(InputBox("INZIO RICERCA ?","Blackmore",7500))
 r1 = CInt(InputBox("RUOTA N°1 ?","Blackmore",1))
 r2 = CInt(InputBox("RUOTA N°2 ?","Blackmore",2))
 im = CInt(InputBox("INDICE MENSILE ?","Blackmore",10))
 kl = CInt(InputBox("COLPI DI GIOCO ?","Blackmore",6))
 fin = EstrazioneFin : For es = ini To fin
 AvanzamentoElab ini,fin,es
 If IndiceMensile(es) = im Then
 cont = cont + 1:Scrivi String(99,"=") & " Caso n°" & Format2(cont),1
 Scrivi "[" & es & " ] " & DataEstrazione(es) & "   " & im & "°Estrazione Mensile : " & SiglaRuota(r1) & "-" & SiglaRuota(r2),1
 ruote(1) = r1 : ruote(2) = r2
 ambata(1) = Fuori90(Estratto(es,BA_,2) + Estratto(es,TO_,1) + Estratto(es,TO_,2) + 72)
 ambata(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,TO_,1) + Estratto(es,TO_,2) + 74)
 ambata(3) = Fuori90(90 +(Estratto(es,BA_,1)) - Estratto(es,BA_,4) + Estratto(es,NA_,3) + 58)
 ambata(4) = Fuori90(Estratto(es,BA_,2) + Estratto(es,BA_,3) + Estratto(es,RO_,2) + 23)
 ImpostaGiocata 1,ambata,ruote,posta,kl
 Gioca es
 End If
Next
Scrivi:Scrivi:ScriviResoconto
End Sub

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

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