antonio65
Super Member >PLATINUM<
Ciao a tutti amici del forum, vi invito a tenere sotto occhio questo mio metodo che posto subito dopo....
Eseguite lo script cosi com'è ...per comodità e velocità tempo ho messo 40 estrazioni(casi)
Lo script nel suo contesto non si presenta bene perchè non sono bravo...ma l'output non mente...
come esito posta ho messo solo l'ambo ma ci sono tanti terni e quaterne....il tutto con 5 numeri a ruota....stasera sono sortiti 2 ambi
Palermo 83.54.32.35.37 Nazionale 23.27.29.22.16 Se volete migliorarlo qualora ne avete voglia perchè ne vale la pena.... N.B Come esito prendere la giocata numero 2 e guardare le previsioni e gli esiti fuori tabella... come tabella viene sempre la ruota nazionale volendo la potete togliere.... allego lo script grazie Antonio..
Eseguite lo script cosi com'è ...per comodità e velocità tempo ho messo 40 estrazioni(casi)
Lo script nel suo contesto non si presenta bene perchè non sono bravo...ma l'output non mente...
come esito posta ho messo solo l'ambo ma ci sono tanti terni e quaterne....il tutto con 5 numeri a ruota....stasera sono sortiti 2 ambi
Palermo 83.54.32.35.37 Nazionale 23.27.29.22.16 Se volete migliorarlo qualora ne avete voglia perchè ne vale la pena.... N.B Come esito prendere la giocata numero 2 e guardare le previsioni e gli esiti fuori tabella... come tabella viene sempre la ruota nazionale volendo la potete togliere.... allego lo script grazie 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 aRetAbb
Dim k,r
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
r = InputBox("Quale Ruota",,1)
For r = 1 To 12
If r = 11 Then r = 12
Ini = EstrazioneFin - 41
fin = EstrazioneFin
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
Ru(1) = r
SommaE = SommaEstratti(es,r)
Numero1 = Estratto(es,r,p4)
Nuadd = Numero1*4' 248
Nuadd2 = Abs(Nuadd - 70)'148
Numero2 = Fuori90(Abs(SommaE - Nuadd2))'8 2°Numero
SommaEx4 = SommaE*4'624
NumSom = Nuadd + SommaE'404
Numalti = Abs(SommaEx4 - NumSom)'220
Risnumalti = Abs(Numalti - 70)'120
Numero3 = Abs(SommaE - Risnumalti)'36 Terzo numero
Quartonumero1 = Numero1 + Numero2 + Numero3 '106
Quartonumerodiviso = Quartonumero1/2'53
Numero4 = Quartonumerodiviso + Numero3'89 Quarto numero
Quintonumero1 = Numero2 + Numero3 + Numero4
Numero5 = Abs(SommaE - Quintonumero1)'23 Quinto Numero
'************************************************************************************
Call Abbinamenti(Nn(4),aRetAbb,Ini,fin,r,0)
For k = 1 To 5
Scrivi Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2)
ReDim Preserve abb(k)
abb(k) = aRetAbb(k,1)
Nn(1) = Fuori90(Numero1)
Nn(2) = Fuori90(Numero2)
Nn(3) = Fuori90(Numero3)
Nn(4) = Fuori90(Numero4)
Nn(5) = Fuori90(Numero5)
Next
'************************************************************************************
Call VerificaEsito(Nn,Ru,es + 1,2,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
ImpostaGiocata 2,abb,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)
Scrivi "============================================"
Scrivi SiglaRuota(r) & vbTab & StringaNumeri(abb),1
Next
Next
SetTableTitle " Listato Antonio65 ","Arial",12
SetTableWidth("100%")
SetTableHeight("100%")
Call CreaTabella()
ScriviResoconto
End Sub
Ultima modifica:
