rodrigo
Super Member >PLATINUM<
Buona serata a tutti, volevo chiedere se era possibile correggere questo script inserendo anche la cinquina per ambo e terno.
Grazie anticipatamente
Grazie anticipatamente
PHP:
Sub Main()
Dim es,Ini,Fin,ruote(10),posta(10),poste(10)
Dim r1,r2
Dim ee,Clp
Dim n1(2),n2(2),n3(2),n4(2)
Dim amb(1)
Dim co,p1,ok
posta(1) = 1
poste(2) = 1
ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - ee
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruote(1) = r1
For p1 = 1 To 5
For r1 = 1 To 9
For r2 = r1 + 1 To 10
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If a = Vert(b) Then
If pari(a) And dispari(b) Or pari(b) And dispari(a) Then
If a <> Diametrale(b) Then
c = Diametrale(a)
d = Diametrale(b)
ok = 0
If pari(a) And pari(c) Then
e =(a + c)
ok = 1
End If
If pari(a) And pari(d) Then
e =(a + d)
ok = 1
End If
If pari(b) And pari(c) Then
e =(b + c)
ok = 1
End If
If pari(b) And pari(d) Then
e =(b + d)
ok = 1
End If
If dispari(a) And dispari(c) Then
f =(a + c)
ok = 1
End If
If dispari(a) And dispari(d) Then
f =(a + d)
ok = 1
End If
If dispari(b) And dispari(c) Then
f =(b + c)
ok = 1
End If
If dispari(b) And dispari(d) Then
f =(b + d)
ok = 1
End If
If ok = 1 Then
g =(e / 2)
h =(f / 2)
i = ComplAdX(g,90)
l = ComplAdX(h,90)
m = Fuori90(g + 30)
n = Fuori90(m + 30)
o = Fuori90(i + 30)
p = Fuori90(o + 30)
q =(a * b)
r =(q/100)
s1 = Int(r)
s2 = q Mod 100
t = Fuori90(s2)
u = Fuori90(s1 + t)
v =(91 - u)
amb(1) = v
n1(1) = v
n1(2) = m
n2(1) = v
n2(2) = n
n3(1) = v
n3(2) = o
n4(1) = v
n4(2) = p
ruote(1) = r1
ruote(2) = r2
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ** " & " Ambo Vertibile : " & Format2(a) & " - " & Format2(b) & " In " & p1 & "° Pos.",1
ColoreTesto 1
Scrivi " " & c & "-" & d & "-" & e & "-" & f & "-" & g & "-" & h & "-" & i & "-" & l & "-" & m,1
Scrivi " " & n & "-" & o & "-" & p & "-" & q & "-" & r & "-" & s1 & "-" & s2 & "-" & t & "-" & u & "-" & v,1
ColoreTesto 0
Scrivi String(100,"°"),1
ImpostaGiocata 1,amb,ruote,posta,Clp,1
ImpostaGiocata 2,n1,ruote,poste,Clp,2
ImpostaGiocata 3,n2,ruote,poste,Clp,2
ImpostaGiocata 4,n3,ruote,poste,Clp,2
ImpostaGiocata 5,n4,ruote,poste,Clp,2
Gioca es,1,,1
End If
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" *** Listed By Lanfranco60 *** "),1,3,0
ScriviResoconto
End Sub
