B
Blackmore
Guest
Indice mensile: 4° Estrazione del mese
Ruota di gioco: Napoli
Colpi di gioco: 9
Ambata: complemento a 90 del 2° di Ca + 4° di Fi + 59
1°Abb: diametrale 4° di Fi + 3° di Nz + 03
2°Abb: decina 5° di Ge + cadenza 5°Ge + 4° di Fi + 47
3°Abb: diametrale 2° di Ba + 3° di Ba + 01
Si è applicata la regola del fuori90
PREVISIONE IN CORSO PER ALTRE 5 ESTRAZIONI
Ambata: 54
Quartina: 54.66.56.34 *Per a/t/q*
Giocate con moderazione...nulla è sicuro
Ciao
Listato...
Ruota di gioco: Napoli
Colpi di gioco: 9
Ambata: complemento a 90 del 2° di Ca + 4° di Fi + 59
1°Abb: diametrale 4° di Fi + 3° di Nz + 03
2°Abb: decina 5° di Ge + cadenza 5°Ge + 4° di Fi + 47
3°Abb: diametrale 2° di Ba + 3° di Ba + 01
Si è applicata la regola del fuori90
PREVISIONE IN CORSO PER ALTRE 5 ESTRAZIONI
Ambata: 54
Quartina: 54.66.56.34 *Per a/t/q*
Giocate con moderazione...nulla è sicuro
Ciao
Listato...
Codice:
Sub Main()
Scrivi
ColoreTesto 2:Scrivi "METODO E LISTATO BY BLACKMORE"
Scrivi
ColoreTesto 1:Scrivi "Ambata: complemento 90 del 2° di Ca + 4° di Fi + 59"
Scrivi "1°Abb: diametrale 4° di Fi + 3° di Nz + 03"
Scrivi "2°Abb: decina 5° di Ge + cadenza 5°Ge + 4° di Fi + 47"
Scrivi "3°Abb: diametrale 2° di Ba + 3° di Ba + 01"
Scrivi
ColoreTesto 2:Scrivi "SI E'APPLICATA LA REGOLA DEL FUORI90"
ColoreTesto 0:Scrivi:Scrivi:Scrivi
Dim ruota(1)
Dim ambata(1)
Dim quartina(4)
Dim posta(1)
Dim poste(4)
posta(1) = 1
poste(2) = 1
poste(3) = 1
poste(4) = 0.50
ruo = CInt(InputBox("RUOTA DI GIOCO?","BLACKMORE",6))
ab = InputBox("DA QUALE ESTRAZIONE VUOI PARTIRE?","BLACKMORE",8505)
k = CInt(InputBox("PER QUANTI COLPI?","BLACKMORE",9))
ini = ab
fin = EstrazioneFin
co = 0
ruota(1) = ruo
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 4 Then
casi = casi + 1
Scrivi String(90,"-") & " Caso n° " & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " - Sommativo alla " & IndiceMensile(es) & "° Estrazione del mese su " & NomeRuota(ruo),1
ColoreTesto 0
Scrivi String(90,"-"),1
co = co + 1
'----------------------------------------------------------------------------------------------------- AMBATA
ambata(1) = Fuori90(90 -(Estratto(es,CA_,2)) + Estratto(es,FI_,4) + 59)
ImpostaGiocata 1,ambata,ruota,posta,k,1
'----------------------------------------------------------------------------------------------------- QUARTINA
quartina(1) = ambata(1)
quartina(2) = Fuori90(Diametrale(Estratto(es,FI_,4)) + Estratto(es,NZ_,3) + 03)
quartina(3) = Fuori90(Decina(Estratto(es,GE_,5)) + Cadenza(Estratto(es,GE_,5)) + Estratto(es,FI_,4) + 47)
quartina(4) = Fuori90(Diametrale(Estratto(es,BA_,2)) + Estratto(es,BA_,3) + 01)
ImpostaGiocata 2,quartina,ruota,poste,k,3
Gioca es
End If
Next
Scrivi
Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
Ultima modifica:
