Lanfranco60
Super Member >GOLD<
La richiesta è stata fatta qui da vecchione
http://forum.lottoced.com/f13/la-bufala-delle-estrazioni-indipendenti-107185/index22.html
ma la metto in questa sezione dove giusto che stia.
i calcoli li fa giusti secondo la spiegazione data, con il pezzo di output
dell'esempio postato in basso.
L'unica cosa che non ho fatto in tempo e la scomposizione del numero moltiplicato
in caso sia di 3 cifre.( non vi erano spiegazioni in merito e lo lasciato così.
caso mai in seguito lo aggiusto
http://forum.lottoced.com/f13/la-bufala-delle-estrazioni-indipendenti-107185/index22.html
ma la metto in questa sezione dove giusto che stia.
i calcoli li fa giusti secondo la spiegazione data, con il pezzo di output
dell'esempio postato in basso.
L'unica cosa che non ho fatto in tempo e la scomposizione del numero moltiplicato
in caso sia di 3 cifre.( non vi erano spiegazioni in merito e lo lasciato così.
caso mai in seguito lo aggiusto
Codice:
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(" *** Da Ettore Tenuta Listed By Lanfranco60 *** "),1,3,0
ScriviResoconto
End Sub
Codice:
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°
03.03.2001 -- NA - 40.56.76.43.75
03.03.2001 -- TO - 50.63.67.15.11 ** Ambo Vertibile : 76 - 67 In 3° Pos.
31 22 98 98 49 49 41 41 79
19 71 11 5092 50.92 50 92 2 52 39
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 06999 [ 18 - 03/03/2001]
G 0001 Numeri in gioco : 39 su NA TO per Estratto
V N. [39 ] [NA] [39 .. .. .. ..] C. 2 Estratto 07001 [ 20 - 10/03/2001] [39.42.79.71.02]
Interrotta per esito verificato
G 0002 Numeri in gioco : 39.79 su NA TO per Ambo
V N. [39.79 ] [NA] [39 .. 79 .. ..] C. 2 Ambo 07001 [ 20 - 10/03/2001] [39.42.79.71.02]
Interrotta per esito verificato
G 0003 Numeri in gioco : 39.19 su NA TO per Ambo
Interrotta per raggiunta durata
G 0004 Numeri in gioco : 39.71 su NA TO per Ambo
V N. [39.71 ] [NA] [39 .. .. 71 ..] C. 2 Ambo 07001 [ 20 - 10/03/2001] [39.42.79.71.02]
Interrotta per esito verificato
G 0005 Numeri in gioco : 39.11 su NA TO per Ambo
Interrotta per raggiunta durata