B
Blackmore
Guest
Codice:
Sub Main()
Dim aruo(1)
Dim ambata(1)
Dim anum(2)
Dim anum2(2)
Dim aposta(1)
Dim aposte(2)
aposta(1) = 2
aposte(2) = 2
Scrivi
ColoreTesto 1
TestoInBandaPassante " AMBATA + ABBINAMENTI PER AMBO ALLA 1° E 7° DEL MESE SU BARI ",1,4,1
Scrivi String(49," ") & " METODO BY BLACKMORE ",1
ColoreTesto 0
Scrivi
ru = InputBox("SCEGLI LA RUOTA SU CUI GIOCARE",,1)
rs = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE? ",,80)
k = InputBox("SCEGLI I COLPI DI GIOCO",,5)
im = InputBox("INSERISCI L'INDICE MENSILE" & Chr(10) & "1 = PRIMA DEL MESE" & Chr(10) & "7 = SETTIMA DEL MESE",,1)
im = CInt(im)
If im = 1 Or im = 7 Then
ini = EstrazioneFin - rs
fin = EstrazioneFin
aruo(1) = ru
For es = ini To fin
If IndiceMensile(es) = im Then
If im = 1 Then
ambata(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,TO_,2) + 03)
ImpostaGiocata 1,ambata,aruo,aposta,k,1
anum(1) = ambata(1)
anum(2) = Fuori90(Estratto(es,CA_,4) + 24)
ImpostaGiocata 2,anum,aruo,aposte,k,2
anum2(1) = ambata(1)
anum2(2) = Fuori90(Estratto(es,CA_,4) + 67)
ImpostaGiocata 3,anum2,aruo,aposte,k,2
End If
'----------------------------------------------------------------------
If im = 7 Then
ambata(1) = Fuori90(Estratto(es,BA_,2) + Estratto(es,CA_,5) + 65)
ImpostaGiocata 1,ambata,aruo,aposta,k,1
anum(1) = ambata(1)
anum(2) = Fuori90(Estratto(es,RO_,4) + 06)
ImpostaGiocata 2,anum,aruo,aposte,k,2
anum2(1) = ambata(1)
anum2(2) = Fuori90(Estratto(es,RO_,4) + 72)
ImpostaGiocata 3,anum2,aruo,aposte,k,2
End If
For x = 1 To 3
For xx = 1 To 3
ImpostaInterruzioni x,2,2
ImpostaInterruzioni xx,3,2
Next
Next
casi = casi + 1
Scrivi String(96,"*") & " Caso n° " & casi,1
ColoreTesto 1
Scrivi "Indice Mensile: " & im & "°",1
ColoreTesto 0
Call DisegnaEstrazione(es)
Gioca es
End If
Next
ScriviResoconto
End If
End Sub
Ultima modifica:
