LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.
Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
Convergenze BA-CA alla 10° del mese EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
Convergenze BA-CA alla 10° del mese EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
Convergenze BA-CA alla 10° del mese EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
Convergenze BA-CA alla 10° del mese EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
Convergenze BA-CA alla 10° del mese EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
Convergenze BA-CA alla 10° del mese EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
Convergenze BA-CA alla 10° del mese EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
Convergenze BA-CA alla 10° del mese EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Convergenze BA-CA alla 10° del mese EmptyMar 2 Apr - 20:57:27 Da DjNomade


Convergenze BA-CA alla 10° del mese

Andare in basso

Convergenze BA-CA alla 10° del mese Empty Convergenze BA-CA alla 10° del mese

Messaggio Da Blackmore Sab 28 Giu - 11:04:50

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

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

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