Pink_Panther |
|
| CODICE Sub Main()
Dim ruote(11)
Dim n1(4)
Dim ambata(1)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
'poste(3) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",50)
k = InputBox("per quanti colpi?","colpi di gioco",12)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 11
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 4
For p4 = p3 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
'---------------------------------------------
If r1 = 3 And r2 = 8 Then
If Decina(a) = Decina(b) And Decina(c) = Decina(d) Then
ok = 1
'-----------------------------------------------
If ok = 1 Then
nu1 = Fuori90(a + b)
nu2 = Fuori90(c + d)
nu3 = Abs(nu1 - nu2)
nu4 = ComplAdX(nu3)
ambata(1) = nu4
n1(1) = nu4
n1(2) = nu1
n1(3) = nu2
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,n1,ruote,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub |
| | |
