Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Antonio di quale script parli? mi metteresti il n° del post. Grazieantonio65;n2114502 ha scritto:Ciao a tutti...dallo script postato da me stasera uscita quaterna su ruota Nazionale.....
65.04.09.85.61
Antonio, non ti seguo spiegati meglio.antonio65;n2114544 ha scritto:Grazie, peccato non aver giocato...è in sperimento....ci sono cose da sistemare....Claudio nell'ultimo script cambia solo la posizione del nn ma i risultati sono tutti uguali...facci caso...
Antonio, le elaborazioni sono tue, io ho solo sistemato lo script non darmi meriti che non ho.antonio65;n2114505 ha scritto:Sulle elaborazioni di Claudio invece sortiti. ambo su Genova 85 09 08 31 39
terno ruota Di Palermo 38 23 39 72 58 e ancora un terno su Roma 33 14 37 74 27
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(2) = 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
antonio65;n2114789 ha scritto:Ciao a tutti, cari amici anche stasera il metodo ha colpito con un terno su Cagliari [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR="class: cke_show_border"]
[TD="width: 192, colspan: 3"]60.61.59.57.58 teniamo d'occhio sempre questo metodo...sembra attendibile...[/TD]
[/TR]
[/TABLE]
antonio65;n2114838 ha scritto:Ciao Claudio, io non ho motivo di dire cose false...ieri sera aprendo spaziometria ho verificato lo script quello mio ...e prima dell'estrazione del 10/05/2018 su Cagliari c'era
[TD="width: 192, colspan: 3"]60.61.59.57.58 e successivamente dopo aver aggiornato si presentava il terno in Cinquina 60 - 61 -59-57- 58 [/TD]
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) ' Somma estratti COMPLETA
Numero1 = Estratto(es,r,p1)
Nuadd = Numero1*4' 248
Nuadd2 = Abs(Nuadd - 100)'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 - 100)'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
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
'************************************************************************************
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
antonio65;n2114838 ha scritto:Ciao Claudio, io non ho motivo di dire cose false...ieri sera aprendo spaziometria ho verificato lo script quello mio ...e prima dell'estrazione del 10/05/2018 su Cagliari c'era
[TD="width: 192, colspan: 3"]60.61.59.57.58 e successivamente dopo aver aggiornato si presentava il terno in Cinquina 60 - 61 -59-57- 58 [/TD]
antonio65;n2114882 ha scritto:Allora caro Claudio....Numero1 = Estratto(es,r,p4) e Call Abbinamenti(Nn(4),aRetAbb,Ini,fin,r,0) l'ho impostato io cosi per non confondermi
nel senso che rispettavo l'ordine dei numeri per far si che io sapevo che si elaborasse il 4 estratto....ma si può utilizzare benissimo nn(1) per tutti i 5 Numero1 = Estratto(es,r,p4)......io utilizzo il range ini fin delle ultime 40 estrazioni....se tu elabori quello che ho scritto io sopra com'è che sia giusto es-40 per avere i giusti esiti siamo apposto....perchè gli nn come li hai abbinati tu non corrispondono....prova ad accoppiare tutti gli nn
solo con il 1°estratto come base...se puoi....e alla fine di tutto utilizziamo solo il tuo script finale...