Marco Elle |
|
| CODICE Sub Main()
ColoreTesto 1
Scrivi "3 AMBI + 1 terzina SU BA-PA "
ColoreTesto 1
Scrivi "DOPO L'USCITA DEL 85"
ColoreTesto 1
Scrivi "SULLA NZ IN 1° POSIZIONE"
ColoreTesto 1
Scrivi"METODO ELABORATO DA Marco"
Dim ruota(2)
Dim posta(1)
Dim poste(3)
Dim a1(3)
Dim a2(3)
Dim a3(3)
Dim a4(4)
poste(2) = 1
clp = 12
ini = EstrazioneFin - 800
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For p1 = 1 To 1
'For p2 = p1 + 1 To 5
a = Estratto(es,12,p1)
ok = 0
If a = 85 And p1 = 1 Then
a1(1) = 9
a1(2) = 5
a2(1) = 9
a2(2) = 8
a3(1) = 9
a3(2) = 54
a4(1) = 5
a4(2) = 8
a4(3) = 54
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 2
Scrivi String(80,"*") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " NZ " & a & " - " & p1 & "°" & " posizione"
Scrivi String(80,"*"),1
ColoreTesto 0
ruota(1) = 1
ruota(2) = 7
ImpostaGiocata 1,a1,ruota,poste,clp
ImpostaGiocata 2,a2,ruota,poste,clp
ImpostaGiocata 3,a3,ruota,poste,clp
ImpostaGiocata 4,a4,ruota,poste,clp
Gioca es,1
End If
'Next
Next
Next
ScriviResoconto
End Sub |
| | |
