antonio65
Super Member >PLATINUM<
Buonasera cari amici....sono assente sul web da circa 9 giorni per problemi di salute...ora sto meglio...
Volevo chiedere qualora qualcuno ...sopratutto per gli esperti se e' possibile mettere un contatore con il ciclo for next...senza che esso sia abbinato a nessun estratto ....ma un contatatore
che vada da 1 a 120 da sottrarre da calcolo dove nello script in allegato c'e scritto 100 ...e' possibile grazie in anticipo Antonio!!!
Volevo chiedere qualora qualcuno ...sopratutto per gli esperti se e' possibile mettere un contatore con il ciclo for next...senza che esso sia abbinato a nessun estratto ....ma un contatatore
che vada da 1 a 120 da sottrarre da calcolo dove nello script in allegato c'e scritto 100 ...e' possibile grazie in anticipo Antonio!!!
Codice:
Sub Main
Dim Nu(5),Nn(5),Ru(12),T,V,Numero1,Numero2,Numero3,Numero4,Numero5,SommaE,SommaEx4,Nuadd,Nuadd2,NumSom,Numalti,Risnumalti,Quartonumero1,Quartonumerodiviso,Quintonumero1
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
Ini = EstrazioneFin - 40
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
T = Array(T,"Data Estraz."," Num.Estratti","SommaEstratti","Estr.x 4","2 Estratto","SommaEx4","NumSom","Numalti","nu1","nu2","nu3","nu4","nu5","Esito","Estratti","clp")
Call InitTabella(T,1,3,,5)
For es = Ini To fin
Call AvanzamentoElab(Ini,fin,es)
p1 = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
SommaE = SommaEstratti(es,r)
Numero1 = Estratto(es,r,p1)
Nuadd = Numero1*4
Nuadd2 = Abs(Nuadd - 100)'contatore
Numero2 = Fuori90(Abs(SommaE - Nuadd2))
SommaEx4 = SommaE*4
NumSom = Nuadd + SommaE
Numalti = Abs(SommaEx4 - NumSom)
Risnumalti = Abs(Numalti - 100)'contatore
Numero3 = Abs(SommaE - Risnumalti)
Quartonumero1 = Numero1 + Numero2 + Numero3
Quartonumerodiviso = Quartonumero1/2
Numero4 = Quartonumerodiviso + Numero3
Quintonumero1 = Numero2 + Numero3 + Numero4
Numero5 = Abs(SommaE - Quintonumero1)
Ru(5) = 4
'************************************************************************************
Nn(1) = Fuori90(Numero1)
Nn(2) = Fuori90(Numero2)
Nn(3) = Fuori90(Numero3)
Nn(4) = Fuori90(Numero4)
Nn(5) = Fuori90(Numero5)
'************************************************************************************
Call VerificaEsito(Nn,Ru,es + 1,1,1,,es1,clp,estratti)
'.......................................
V = Array(V,GetInfoEstrazione(es) & " = " & SiglaRuota(r),StringaEstratti(es,r),SommaE,Nuadd2,Numero1,SommaEx4,NumSom,Numalti,Nn(1),Nn(2),Nn(3),Nn(4),Nn(5),es1,estratti,clp & "°")
Call AddRigaTabella(V)
ImpostaGiocata 1,Nn,Ru,posta,clp
Gioca es
Call SetColoreCella(15,,7)
Call SetColoreCella(1,,1)
Call SetColoreCella(2,,1)
If V(14) = "Estratto" Then Call SetColoreCella(14,7,5)
If V(14) = "Ambo" Then Call SetColoreCella(14,1,5)
If V(14) = "Terno" Then Call SetColoreCella(14,4,7)
If V(14) = "Quaterna" Then Call SetColoreCella(14,2,4)
If V(14) = "Cinquina" Then Call SetColoreCella(14,2,4)
rr = 11
If EstrattoFrequenza(rr,Nn(1),es + 1,es + clp) > 0 Then Call SetColoreCella(9,2,5)
If EstrattoFrequenza(rr,Nn(2),es + 1,es + clp) > 0 Then Call SetColoreCella(10,2,5)
If EstrattoFrequenza(rr,Nn(3),es + 1,es + clp) > 0 Then Call SetColoreCella(11,2,5)
If EstrattoFrequenza(rr,Nn(4),es + 1,es + clp) > 0 Then Call SetColoreCella(12,2,5)
If EstrattoFrequenza(rr,Nn(5),es + 1,es + clp) > 0 Then Call SetColoreCella(13,2,5)
Next
SetTableTitle " Listato Antonio65 ","Arial",12
SetTableWidth("100%")
SetTableHeight("100%")
Call CreaTabella()
ScriviResoconto
End Sub
