Option Explicit
Sub Main
Dim qes,estraz,clp
Dim k1,r1,a(6),es,fin,nu,de,ca,Ini,c1
Dim anum,bnum,cnum,dnum,nnum,z,ruote(1)
Dim P1,P2,P3,P4,P5,P6,P7,np(22),fig(3)
ReDim num(3),num2(3),num3(5),xnp3(3),av(8),numeri(15)
Dim retesito,retcolpi,retestratti,retid',
fin = EstrazioneFin
qes = CInt(InputBox("Quante estrazioni controllare",estraz,20))
r1 = InputBox("Inserisci numero ruota ( 1 - 10 - NAZ 12)",es,6)
es = fin - qes
ruote(1) = r1
Scrivi
ReDim at(8)
at(1) = " data estraz. INIZIO "
at(2) = " Ruota "
at(3) = " Numeri in Gioco "
at(4) = " Conta Num "
at(5) = " Esito "
at(6) = " Colpo "
at(7) = " Estratti "
at(8) = " Data estraz. Fine "
Call InitTabella(at,1,,3,5)
Scrivi
For es = es To fin
Messaggio es
AvanzamentoElab es,fin,es
ReDim numeri(15) '<<<<<<<<<<<<<<<
a(1) = Estratto(es,r1,1)
a(2) = Estratto(es,r1,2)
a(3) = Estratto(es,r1,3)
a(4) = Estratto(es,r1,4)
a(5) = Estratto(es,r1,5)
For k1 = 1 To 5
'ReDim Preserve numeri(15)
If k1 = 1 Then : num(1) = a(1) : num(3) = a(2)
If k1 = 2 Then : num(1) = a(2) : num(3) = a(3)
If k1 = 3 Then : num(1) = a(3) : num(3) = a(4)
If k1 = 4 Then : num(1) = a(4) : num(3) = a(5)
If k1 = 5 Then : num(1) = a(5) : num(3) = a(1)
fig(1) = FuoriX(((num(1) + num(3)) + 9),9)
If fig(1) = 1 Then num(2) = 35
If fig(1) = 2 Then num(2) = 57
If fig(1) = 3 Then num(2) = 79
If fig(1) = 4 Then num(2) = 92
If fig(1) = 5 Then num(2) = 24
If fig(1) = 6 Then num(2) = 46
If fig(1) = 7 Then num(2) = 68
If fig(1) = 8 Then num(2) = 81
If fig(1) = 9 Then num(2) = 13
P1 = StringaNumeri(num,"",True)
np(4) = Piramide(P1,4)
' CALCOLI PIRAMIDI 2 E 3
fig(2) = FuoriX((Decina(np(4)) + Cadenza(np(4)) + 9),9)
P2 = fig(2)*100 + num(1)
np(5) = Piramide(P2,1)
P3 = fig(2)*100 + num(3)
np(6) = Piramide(P3,1)
' CALCOLI PIRAMIDI 4 E 5
P4 = np(4)*100 + np(5)
np(8) = Piramide(P4,2)
P5 = np(4)*100 + np(6)
np(10) = Piramide(P5,2)
' CALCOLI PIRAMIDI 6
num2(1) = np(8)
num2(3) = np(10)
fig(3) = FuoriX(((num2(1) + num2(3)) + 9),9)
If fig(3) = 1 Then num2(2) = 35
If fig(3) = 2 Then num2(2) = 57
If fig(3) = 3 Then num2(2) = 79
If fig(3) = 4 Then num2(2) = 92
If fig(3) = 5 Then num2(2) = 24
If fig(3) = 6 Then num2(2) = 46
If fig(3) = 7 Then num2(2) = 68
If fig(3) = 8 Then num2(2) = 81
If fig(3) = 9 Then num2(2) = 13
P6 = StringaNumeri(num2,"",True)
np(14) = Piramide(P6,4)
'CALCOLI PIRAMIDE 7
anum = FuoriX(((Decina(np(14)) + 6) + 9),9)
bnum = FuoriX(((Cadenza(np(14)) + 6) + 9),9)
cnum = FuoriX((((Decina(np(14))) + 3) + 9),9)
dnum = FuoriX((((Cadenza(np(14))) + 3) + 9),9)
num3(1) = np(14)
num3(2) = np(4)
num3(3) = anum & bnum
num3(4) = np(4)
num3(5) = cnum & dnum
P7 = StringaNumeri(num3,"",True)
np(22) = Piramide(P7,8)
de = Decina(np(22))
ca = Cadenza(np(22))
If de = 9 Then de = 0
np(22) = de & ca
If np(22) = 03 Then xnp3(1) = 01:xnp3(2) = 02 :xnp3(3) = 03
If np(22) = 06 Then xnp3(1) = 04:xnp3(2) = 05 :xnp3(3) = 06
If np(22) = 09 Then xnp3(1) = 07:xnp3(2) = 08 :xnp3(3) = 09
If np(22) = 11 Then xnp3(1) = 11:xnp3(2) = 12 :xnp3(3) = 13
If np(22) = 14 Then xnp3(1) = 14:xnp3(2) = 15 :xnp3(3) = 16
If np(22) = 17 Then xnp3(1) = 17:xnp3(2) = 18 :xnp3(3) = 19
If np(22) = 22 Then xnp3(1) = 21:xnp3(2) = 22 :xnp3(3) = 23
If np(22) = 25 Then xnp3(1) = 24:xnp3(2) = 25 :xnp3(3) = 26
If np(22) = 28 Then xnp3(1) = 27:xnp3(2) = 28 :xnp3(3) = 29
If np(22) = 33 Then xnp3(1) = 31:xnp3(2) = 32 :xnp3(3) = 33
If np(22) = 36 Then xnp3(1) = 34:xnp3(2) = 35 :xnp3(3) = 36
If np(22) = 39 Then xnp3(1) = 37:xnp3(2) = 38 :xnp3(3) = 39
If np(22) = 41 Then xnp3(1) = 41:xnp3(2) = 42 :xnp3(3) = 43
If np(22) = 44 Then xnp3(1) = 44:xnp3(2) = 45 :xnp3(3) = 46
If np(22) = 47 Then xnp3(1) = 47:xnp3(2) = 48 :xnp3(3) = 49
If np(22) = 52 Then xnp3(1) = 51:xnp3(2) = 52 :xnp3(3) = 53
If np(22) = 55 Then xnp3(1) = 54:xnp3(2) = 55 :xnp3(3) = 56
If np(22) = 58 Then xnp3(1) = 57:xnp3(2) = 58 :xnp3(3) = 59
If np(22) = 63 Then xnp3(1) = 61:xnp3(2) = 62 :xnp3(3) = 63
If np(22) = 66 Then xnp3(1) = 64:xnp3(2) = 65 :xnp3(3) = 66
If np(22) = 69 Then xnp3(1) = 67:xnp3(2) = 68 :xnp3(3) = 69
If np(22) = 71 Then xnp3(1) = 71:xnp3(2) = 72 :xnp3(3) = 73
If np(22) = 74 Then xnp3(1) = 74:xnp3(2) = 75 :xnp3(3) = 76
If np(22) = 77 Then xnp3(1) = 77:xnp3(2) = 78 :xnp3(3) = 79
If np(22) = 82 Then xnp3(1) = 81:xnp3(2) = 82 :xnp3(3) = 83
If np(22) = 85 Then xnp3(1) = 84:xnp3(2) = 85 :xnp3(3) = 86
If np(22) = 88 Then xnp3(1) = 87:xnp3(2) = 88 :xnp3(3) = 89
If k1 = 1 Then
numeri(1) =(xnp3(1))
numeri(2) =(xnp3(2))
numeri(3) =(xnp3(3))
End If
If k1 = 2 Then
numeri(4) =(xnp3(1))
numeri(5) =(xnp3(2))
numeri(6) =(xnp3(3))
End If
If k1 = 3 Then
numeri(7) =(xnp3(1))
numeri(8) =(xnp3(2))
numeri(9) =(xnp3(3))
End If
If k1 = 4 Then
numeri(10) =(xnp3(1))
numeri(11) =(xnp3(2))
numeri(12) =(xnp3(3))
End If
If k1 = 5 Then
numeri(13) =(xnp3(1))
numeri(14) =(xnp3(2))
numeri(15) =(xnp3(3))
End If
Next
Call EliminaRipetuti(numeri,True)
c1 = UBound(numeri)
Call VerificaEsito(numeri,ruote,es + 1,2,qes,Nothing,retesito,retcolpi,retestratti,retid)
ReDim av(8)
av(1) = DataEstrazione(es)
av(2) = NomeRuota(r1)
av(3) = StringaNumeri(numeri,,True)
av(4) = c1
av(5) = retesito
av(6) = retcolpi
av(7) = retestratti
If retesito = "" Then av(8) = " esito non verificato "
If retesito <> "" Then av(8) = DataEstrazione(retid)
Call AddRigaTabella(av,,,3)
Next
Call CreaTabella
End Sub