antonio65
Super Member >PLATINUM<
Ciao Salvo, io ho fatto del mio meglio...mi sono personalizzato una tabella....ma ho qualche problema
con la funzione Call VerificaEsito(MEN,Ru,es+1,2,10,,,clp,es1) ho aggiunto dei colori per facilitare le ricerche...
Cortesemente se mi puoi dare un occhiata quando hai tempo...sul Call VerificaEsito(MEN,Ru,es+1,2,10,,,clp,es1)
che io ho variato cosi Call VerificaEsito(MEN,Ru,es+1,1,10,,esito,clp,estratti,id)
per potere inserire estratti perchè nel primo Call non riuscivo a tirare fuori gli esiti : estratto-ambo etc etc
Ti ringrazio...Antonio
Sub Main
Dim Nu(5),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5),SFF(3),Nn(5)
Dim m1(2),m2(2),m3(2),m4(2),m5(2),m6(2),m7(2),m8(2),m9(2),m10(2)
Dim Ru(12),T,x1,x2,x3,x4,x5
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
Ini = 9415
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
'Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
'smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"DATA","N.ESTRATTI","SommaEstratti","S_E / 5 ","Compl a 100","Compl a 100*5","DIFF.","C90 / 5","Num2 / 5","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Data","n1-n2","n1-n3","n1-n4","n1-n5","n2-n3","n2-n4","n2-n5","n3-n4","n3-n5","n4-n5")
Call InitTabella(T,6)
Call AvanzamentoElab(Ini,fin,es)
For es = Ini To fin
For p = 1 To 5
Nu(p) = Estratto(es,r,p) ' estrae i 5 numeri estratti
S_E = SommaEstratti(es,r) '184
S_E5 = Int(S_E/5) ' int restituisce il numero intero e arrotanda
C90 = ComplAdX(S_E5,100) ' complementa al numero scelto
C = c90*5
D = Differenza(S_E,C)
E = Int(d/5)
'------- ---------------
If S_E > c Then
MEN(1) = Fuori90(Abs(Nu(1) - e))
MEN(2) = Fuori90(Abs(Nu(2) - e))
MEN(3) = Fuori90(Abs(Nu(3) - e))
MEN(4) = Fuori90(Abs(Nu(4) - e))
MEN(5) = Fuori90(Abs(Nu(5) - e))
KK = "sottraz"
Else
MEN(1) = Fuori90(Abs(Nu(1) + e))
MEN(2) = Fuori90(Abs(Nu(2) + e))
MEN(3) = Fuori90(Abs(Nu(3) + e))
MEN(4) = Fuori90(Abs(Nu(4) + e))
MEN(5) = Fuori90(Abs(Nu(5) + e))
KK = "Addiz."
End If
Next
'************************************************************************************
m1(1) = MEN(1) : m1(2) = MEN(2)
m2(1) = MEN(1) : m2(2) = MEN(3)
m3(1) = MEN(1) : m3(2) = MEN(4)
m4(1) = MEN(1) : m4(2) = MEN(5)
m5(1) = MEN(2) : m5(2) = MEN(3)
m6(1) = MEN(2) : m6(2) = MEN(4)
m7(1) = MEN(2) : m7(2) = MEN(5)
m8(1) = MEN(3) : m8(2) = MEN(4)
m9(1) = MEN(3) : m9(2) = MEN(5)
m10(1) = MEN(4) : m10(2) = MEN(5)
'-------------------------------------------------
ReDim V(40)
V(1) = GetInfoEstrazione(es)
V(2) = StringaEstratti(es,r)
V(3) = S_E
V(4) = S_E5
V(5) = C90
V(6) = C
V(7) = D
V(8) = E
V(9) = kk
V(10) = MEN(1)
V(11) = MEN(2)
V(12) = MEN(3)
V(13) = MEN(4)
V(14) = MEN(5)
'Call VerificaEsito(MEN,Ru,es+1,2,10,,,clp,es1)
Call VerificaEsito(MEN,Ru,es+1,1,10,,esito,clp,estratti,id)
V(15) = esito
V(16) = estratti
V(17) = CLP & "°"
V(18) = data
V(19) = m1(1) & "." & m1(2)
V(20) = m2(1) & "." & m2(2)
V(21) = m3(1) & "." & m3(2)
V(22) = m4(1) & "." & m4(2)
V(23) = m5(1) & "." & m5(2)
V(24) = m6(1) & "." & m6(2)
V(25) = m7(1) & "." & m7(2)
V(26) = m8(1) & "." & m8(2)
V(27) = m9(1) & "." & m9(2)
V(28) = m10(1) & "." & m10(2)
rr = 11
If EstrattoFrequenza(rr,MEN(1),es + 1,es + 2) > 0 Then Call SetColoreCella(10,1,4)
If EstrattoFrequenza(rr,MEN(2),es + 1,es + 2) > 0 Then Call SetColoreCella(11,1,4)
If EstrattoFrequenza(rr,MEN(3),es + 1,es + 2) > 0 Then Call SetColoreCella(12,1,4)
If EstrattoFrequenza(rr,MEN(4),es + 1,es + 2) > 0 Then Call SetColoreCella(13,1,4)
If EstrattoFrequenza(rr,MEN(5),es + 1,es + 2) > 0 Then Call SetColoreCella(14,1,4)
'-------------------------------------------------------------
Call VerificaEsito(m1,Ru,es + 1,1,10,,esito1,colpi1,estratti1,id1)
Call VerificaEsito(m2,Ru,es + 1,1,10,,esito2,colpi2,estratti2,id2)
Call VerificaEsito(m3,Ru,es + 1,1,10,,esito3,colpi3,estratti3,id3)
Call VerificaEsito(m4,Ru,es + 1,1,10,,esito4,colpi4,estratti4,id4)
Call VerificaEsito(m5,Ru,es + 1,1,10,,esito5,colpi5,estratti5,id5)
Call VerificaEsito(m6,Ru,es + 1,1,10,,esito6,colpi6,estratti6,id6)
Call VerificaEsito(m7,Ru,es + 1,1,10,,esito7,colpi7,estratti7,id7)
Call VerificaEsito(m8,Ru,es + 1,1,10,,esito8,colpi8,estratti8,id8)
Call VerificaEsito(m9,Ru,es + 1,1,10,,esito9,colpi9,estratti9,id9)
Call VerificaEsito(m10,Ru,es + 1,1,10,,esito10,colpi10,estratti10,id10)
'-------------------------------------------------------------
Call AddRigaTabella(V)
'-------------------------------------------------------------
If esito1 = "Ambo" Then Call SetColoreCella(19,2,4)
If esito2 = "Ambo" Then Call SetColoreCella(20,2,4)
If esito3 = "Ambo" Then Call SetColoreCella(21,2,4)
If esito4 = "Ambo" Then Call SetColoreCella(22,2,4)
If esito5 = "Ambo" Then Call SetColoreCella(23,2,4)
If esito6 = "Ambo" Then Call SetColoreCella(24,2,4)
If esito7 = "Ambo" Then Call SetColoreCella(25,2,4)
If esito8 = "Ambo" Then Call SetColoreCella(26,2,4)
If esito9 = "Ambo" Then Call SetColoreCella(27,2,4)
If esito10 = "Ambo" Then Call SetColoreCella(28,2,4)
'------------------------------------------------------------
If V(15) = "Estratto" Then Call SetColoreCella(15,3,1)
If V(15) = "Ambo" Then Call SetColoreCella(15,2,4)
If V(15) = "Terno" Then Call SetColoreCella(15,7,4)
'If V(17) = DataEstrazione(id) Then Call SetColoreCella(17,,1)
Ru(2) = 1
Ru(3) = 2
Ru(4) = 3
Ru(5) = 4
Ru(6) = 5
Ru(7) = 6
Ru(8) = 7
Ru(9) = 8
Ru(10) = 9
Ru(11) = 10
Ru(12) = 12
'----------------------------------------------------------
ImpostaGiocata 1,MEN,Ru,posta,clp
Gioca es
'End If
Next
casi = 0
Call CreaTabella()
ScriviResoconto
End Sub
con la funzione Call VerificaEsito(MEN,Ru,es+1,2,10,,,clp,es1) ho aggiunto dei colori per facilitare le ricerche...
Cortesemente se mi puoi dare un occhiata quando hai tempo...sul Call VerificaEsito(MEN,Ru,es+1,2,10,,,clp,es1)
che io ho variato cosi Call VerificaEsito(MEN,Ru,es+1,1,10,,esito,clp,estratti,id)
per potere inserire estratti perchè nel primo Call non riuscivo a tirare fuori gli esiti : estratto-ambo etc etc
Ti ringrazio...Antonio
Sub Main
Dim Nu(5),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5),SFF(3),Nn(5)
Dim m1(2),m2(2),m3(2),m4(2),m5(2),m6(2),m7(2),m8(2),m9(2),m10(2)
Dim Ru(12),T,x1,x2,x3,x4,x5
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
Ini = 9415
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
'Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
'smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"DATA","N.ESTRATTI","SommaEstratti","S_E / 5 ","Compl a 100","Compl a 100*5","DIFF.","C90 / 5","Num2 / 5","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Data","n1-n2","n1-n3","n1-n4","n1-n5","n2-n3","n2-n4","n2-n5","n3-n4","n3-n5","n4-n5")
Call InitTabella(T,6)
Call AvanzamentoElab(Ini,fin,es)
For es = Ini To fin
For p = 1 To 5
Nu(p) = Estratto(es,r,p) ' estrae i 5 numeri estratti
S_E = SommaEstratti(es,r) '184
S_E5 = Int(S_E/5) ' int restituisce il numero intero e arrotanda
C90 = ComplAdX(S_E5,100) ' complementa al numero scelto
C = c90*5
D = Differenza(S_E,C)
E = Int(d/5)
'------- ---------------
If S_E > c Then
MEN(1) = Fuori90(Abs(Nu(1) - e))
MEN(2) = Fuori90(Abs(Nu(2) - e))
MEN(3) = Fuori90(Abs(Nu(3) - e))
MEN(4) = Fuori90(Abs(Nu(4) - e))
MEN(5) = Fuori90(Abs(Nu(5) - e))
KK = "sottraz"
Else
MEN(1) = Fuori90(Abs(Nu(1) + e))
MEN(2) = Fuori90(Abs(Nu(2) + e))
MEN(3) = Fuori90(Abs(Nu(3) + e))
MEN(4) = Fuori90(Abs(Nu(4) + e))
MEN(5) = Fuori90(Abs(Nu(5) + e))
KK = "Addiz."
End If
Next
'************************************************************************************
m1(1) = MEN(1) : m1(2) = MEN(2)
m2(1) = MEN(1) : m2(2) = MEN(3)
m3(1) = MEN(1) : m3(2) = MEN(4)
m4(1) = MEN(1) : m4(2) = MEN(5)
m5(1) = MEN(2) : m5(2) = MEN(3)
m6(1) = MEN(2) : m6(2) = MEN(4)
m7(1) = MEN(2) : m7(2) = MEN(5)
m8(1) = MEN(3) : m8(2) = MEN(4)
m9(1) = MEN(3) : m9(2) = MEN(5)
m10(1) = MEN(4) : m10(2) = MEN(5)
'-------------------------------------------------
ReDim V(40)
V(1) = GetInfoEstrazione(es)
V(2) = StringaEstratti(es,r)
V(3) = S_E
V(4) = S_E5
V(5) = C90
V(6) = C
V(7) = D
V(8) = E
V(9) = kk
V(10) = MEN(1)
V(11) = MEN(2)
V(12) = MEN(3)
V(13) = MEN(4)
V(14) = MEN(5)
'Call VerificaEsito(MEN,Ru,es+1,2,10,,,clp,es1)
Call VerificaEsito(MEN,Ru,es+1,1,10,,esito,clp,estratti,id)
V(15) = esito
V(16) = estratti
V(17) = CLP & "°"
V(18) = data
V(19) = m1(1) & "." & m1(2)
V(20) = m2(1) & "." & m2(2)
V(21) = m3(1) & "." & m3(2)
V(22) = m4(1) & "." & m4(2)
V(23) = m5(1) & "." & m5(2)
V(24) = m6(1) & "." & m6(2)
V(25) = m7(1) & "." & m7(2)
V(26) = m8(1) & "." & m8(2)
V(27) = m9(1) & "." & m9(2)
V(28) = m10(1) & "." & m10(2)
rr = 11
If EstrattoFrequenza(rr,MEN(1),es + 1,es + 2) > 0 Then Call SetColoreCella(10,1,4)
If EstrattoFrequenza(rr,MEN(2),es + 1,es + 2) > 0 Then Call SetColoreCella(11,1,4)
If EstrattoFrequenza(rr,MEN(3),es + 1,es + 2) > 0 Then Call SetColoreCella(12,1,4)
If EstrattoFrequenza(rr,MEN(4),es + 1,es + 2) > 0 Then Call SetColoreCella(13,1,4)
If EstrattoFrequenza(rr,MEN(5),es + 1,es + 2) > 0 Then Call SetColoreCella(14,1,4)
'-------------------------------------------------------------
Call VerificaEsito(m1,Ru,es + 1,1,10,,esito1,colpi1,estratti1,id1)
Call VerificaEsito(m2,Ru,es + 1,1,10,,esito2,colpi2,estratti2,id2)
Call VerificaEsito(m3,Ru,es + 1,1,10,,esito3,colpi3,estratti3,id3)
Call VerificaEsito(m4,Ru,es + 1,1,10,,esito4,colpi4,estratti4,id4)
Call VerificaEsito(m5,Ru,es + 1,1,10,,esito5,colpi5,estratti5,id5)
Call VerificaEsito(m6,Ru,es + 1,1,10,,esito6,colpi6,estratti6,id6)
Call VerificaEsito(m7,Ru,es + 1,1,10,,esito7,colpi7,estratti7,id7)
Call VerificaEsito(m8,Ru,es + 1,1,10,,esito8,colpi8,estratti8,id8)
Call VerificaEsito(m9,Ru,es + 1,1,10,,esito9,colpi9,estratti9,id9)
Call VerificaEsito(m10,Ru,es + 1,1,10,,esito10,colpi10,estratti10,id10)
'-------------------------------------------------------------
Call AddRigaTabella(V)
'-------------------------------------------------------------
If esito1 = "Ambo" Then Call SetColoreCella(19,2,4)
If esito2 = "Ambo" Then Call SetColoreCella(20,2,4)
If esito3 = "Ambo" Then Call SetColoreCella(21,2,4)
If esito4 = "Ambo" Then Call SetColoreCella(22,2,4)
If esito5 = "Ambo" Then Call SetColoreCella(23,2,4)
If esito6 = "Ambo" Then Call SetColoreCella(24,2,4)
If esito7 = "Ambo" Then Call SetColoreCella(25,2,4)
If esito8 = "Ambo" Then Call SetColoreCella(26,2,4)
If esito9 = "Ambo" Then Call SetColoreCella(27,2,4)
If esito10 = "Ambo" Then Call SetColoreCella(28,2,4)
'------------------------------------------------------------
If V(15) = "Estratto" Then Call SetColoreCella(15,3,1)
If V(15) = "Ambo" Then Call SetColoreCella(15,2,4)
If V(15) = "Terno" Then Call SetColoreCella(15,7,4)
'If V(17) = DataEstrazione(id) Then Call SetColoreCella(17,,1)
Ru(2) = 1
Ru(3) = 2
Ru(4) = 3
Ru(5) = 4
Ru(6) = 5
Ru(7) = 6
Ru(8) = 7
Ru(9) = 8
Ru(10) = 9
Ru(11) = 10
Ru(12) = 12
'----------------------------------------------------------
ImpostaGiocata 1,MEN,Ru,posta,clp
Gioca es
'End If
Next
casi = 0
Call CreaTabella()
ScriviResoconto
End Sub
