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.
Help!!! LISTATO
- Creatore Discussione Imaging
- Data di inizio
Zetrix
Advanced Premium Member
Codice:
Sub Main
Dim amb1(5),amb2(5),amb3(5),amb4(5),amb5(5),amb6(5),re(5),calc(10),ru(5),num(5),posta(2),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
Dim terzina(3)
Dim r1,r2
Dim caso
posta(1) = 1
poste(2) = 1
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
co = 0
'--------------------------------
For es = EstrazioneFin - rs To EstrazioneFin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
'If r2 = 11 Then r2 = 12 End If
For p1 = 1 To 5
For p2 = 1 To 5
'
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
'---------------------------------
w = Minimo(a,b)
j = Massimo(a,b)
'---------------------------------
z = Differenza(r1,r2)
y = Differenza(a,b)
'.---------------------------------
If j Then
x = Fuori90(b*2 - a)
Else
x = Fuori90(a*2 - b)
End If
'---------------------
amb1(1) = x
ambo1(1) = x
ambo1(2) = j
'------------------------------
terzina(1) = x
terzina(2) = w
terzina(3) = Vert(w)
'------------------------------
'
If p1 = p2 And a = DiametraleD(b) Then
'----------------------------------------------------------------------------
caso = caso + 1
Scrivi String(100,"-") & " gioco n. " & caso
'
ru(1) = r1
ru(2) = r2
re(1) = r1
re(2) = r2
re(3) = 11
re(4) = 12
'------------------------------
calc(1) = a
calc(2) = b
calc(3) = c
'------------------------------
' identifica ad esempio 4 caselle
ReDim MatriceCaselleDaEvid(4,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(1,1) = p1 ' Primo Estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r2 ' ruota di bari
MatriceCaselleDaEvid(2,1) = p2 ' secondo Estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi "diff r1-r2 = " & z & "",0,1,1,5,3
Scrivi "diff n1-n2 = " & y & "",0,1,1,5,3
Scrivi
'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
ImpostaGiocata 1,amb1,ru,posta,co,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 2,ambo1,re,poste,co,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 3,terzina,re,poste,co,0
Gioca es,1,,1
Scrivi
End If
Next
Next
Next
Next
Next
End Sub
Ultima modifica:
Zetrix
Advanced Premium Member
Codice:
Sub Main
Dim ambata(5),re(5),calc(10),ru(5),num(5),posta(2),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
Dim terzina(3)
Dim r1,r2
Dim caso
posta(1) = 1
poste(2) = 1
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
co = 0
'--------------------------------
For es = EstrazioneFin - rs To EstrazioneFin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
'-------------------
For p1 = 1 To 2
For p2 = 1 To 2
'
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
'---------------------------------
w = Minimo(a,b)
j = Massimo(a,b)
'---------------------------------
z = Distanza(r1,r2)
y = Distanza(a,b)
'.---------------------------------
If j Then
x = Fuori90(b*2 - a)
Else
x = Fuori90(a*2 - b)
End If
'---------------------
ambata(1) = x
ambo1(1) = x
ambo1(2) = j
'------------------------------
terzina(1) = x
terzina(2) = w
terzina(3) = Vert(w)
'------------------------------
If Distanza(r1,r2) = 1 Or r1 = RuotaDiametrale(r2) Or r1 = RuotaGemella(r2) Then
If p1 = p2 And a = DiametraleD(b) Then
'----------------------------------------------------------------------------
caso = caso + 1
Scrivi String(100,"-") & " gioco n. " & caso
'
ru(1) = r1
ru(2) = r2
re(1) = r1
re(2) = r2
re(3) = 11
re(4) = 12
'------------------------------
calc(1) = a
calc(2) = b
calc(3) = c
'------------------------------
' identifica ad esempio 4 caselle
ReDim MatriceCaselleDaEvid(4,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(1,1) = p1 ' Primo Estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r2 ' ruota di bari
MatriceCaselleDaEvid(2,1) = p2 ' secondo Estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi "dist r1-r2 = " & z & "",0,1,1,5,3
Scrivi "dist n1-n2 = " & y & "",0,1,1,5,3
Scrivi
'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
ImpostaGiocata 1,ambata,ru,posta,co,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 2,ambo1,re,poste,co,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 3,terzina,re,poste,co,0
Gioca es,1,,1
Scrivi
End If
End If
Next
Next
Next
Next
Next
End Subprova cosi calcola solo la 1 e 2 Pos e le ruote consecutive e alternate
ma questa tecnica e tua o no
ho una tecnica simile a questa ma di solito non faccio regali a nessuno..
questa tecnica con i diametrali in decina e una tecnica molto semplice..
ho piu di 5000 script qualcuno mi a detto che sono un dilettante del lotto..
e gia un dilettante del lotto..
se sei interessato alla mia tecnica posso spiegartela con qualche esempio di gioco..
cosi vedrai i miei prospetti e come calcola la tecnica..
potrei mettere anche lo script ma questi script sono miei scritti e ideati da me
Ultima modifica:
Imaging
Advanced Member >PLATINUM<
Perché ti piace........ hai notato l'ambo in terzina su GE al 2° colpo.......ma torniamo al metodo le ruote non devono essere Diametrali!!!
forse mi sono espresso male io Una ruota si e Una no come si nota statisticamente nelle previsioni con ruote Diametrali non ci sono vincite.....io credo che sei uno tra i migliori......o no.Grazie
forse mi sono espresso male io Una ruota si e Una no come si nota statisticamente nelle previsioni con ruote Diametrali non ci sono vincite.....io credo che sei uno tra i migliori......o no.Grazie
Zetrix
Advanced Premium Member
65______66________?
____(1)______(1)____
Numeri in gioco 67 su BA CA FI per Estratto
[FI] [.. .. .. 67 ..] C. 1 Estratto 01998 [ 91 - 30/07/2022] [81.60.87.67.68]
questa e la tecnica che ti avevo descritto ..
per ambo ci sono svariate combinazioni di calcolo..
come vedi la tecnica e simile la tua descritta..
ma i calcoli sono diversi..
Ultima modifica:
Zetrix
Advanced Premium Member
quindi per ruote alternate intendevi una ruota si e una no
si puo fare non e un problema con gli script si puo fare tutto..
te lo scrivo adesso lo script..
si puo fare non e un problema con gli script si puo fare tutto..
te lo scrivo adesso lo script..
Codice:
Sub Main
Dim ambata(5),re(5),calc(10),ru(5),num(5),posta(2),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
Dim terzina(3)
Dim r1,r2
Dim caso
posta(1) = 1
poste(2) = 1
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
co = 0
'--------------------------------
For es = EstrazioneFin - rs To EstrazioneFin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
'-------------------
For p1 = 1 To 2
For p2 = 1 To 2
'
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
'---------------------------------
w = Minimo(a,b)
j = Massimo(a,b)
'---------------------------------
z = Distanza(r1,r2)
y = Distanza(a,b)
'.---------------------------------
If j Then
x = Fuori90(b*2 - a)
Else
x = Fuori90(a*2 - b)
End If
'---------------------
ambata(1) = x
ambo1(1) = x
ambo1(2) = j
'------------------------------
terzina(1) = x
terzina(2) = w
terzina(3) = Vert(w)
'------------------------------
If Distanza(r1,r2) = 1 Or Distanza(r1,r2) = 2 Then
If p1 = p2 And a = DiametraleD(b) Then
'----------------------------------------------------------------------------
caso = caso + 1
Scrivi String(100,"-") & " gioco n. " & caso
'
ru(1) = r1
ru(2) = r2
re(1) = r1
re(2) = r2
re(3) = 11
re(4) = 12
'------------------------------
calc(1) = a
calc(2) = b
calc(3) = c
'------------------------------
' identifica ad esempio 4 caselle
ReDim MatriceCaselleDaEvid(4,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r2 ' ruota di bari
MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi "dist r1-r2 = " & z & "",0,1,1,5,3
Scrivi "dist n1-n2 = " & y & "",0,1,1,5,3
Scrivi
'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
ImpostaGiocata 1,ambata,ru,posta,co,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 2,ambo1,re,poste,co,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 3,terzina,re,poste,co,0
Gioca es,1,,1
Scrivi
End If
End If
Next
Next
Next
Next
Next
End Sub
Ultima modifica:
Imaging
Advanced Member >PLATINUM<
Io di script non ne capisco........ma come si dice......,meglio UBRIACO .....che MALATO........per me number one
Zetrix
Advanced Premium Member
lo modificato lo script ci sono poche condizioni di gioco con le ruote unite e alternate
grazie Imaging per il number one ma sono un dilettante con gli script ci sono altri che sono
piu esperti di me con gli script..
comunque ti piace la mia tecnica che ho messo..
grazie Imaging per il number one ma sono un dilettante con gli script ci sono altri che sono
piu esperti di me con gli script..
comunque ti piace la mia tecnica che ho messo..
Ultima modifica:
Imaging
Advanced Member >PLATINUM<
IO sono un grande appassionato e ci studio per intere giornate (Notte) io credo che sia Super buona ......
Imaging
Advanced Member >PLATINUM<
Correggi se sbaglio 16-------------19 ho capito?....
tre
Zetrix
Advanced Premium Member
7_____8________?
___(1)___(1)____
Numeri in gioco 09 su BA CA FI per Estratto
[BA] [09 .. .. .. ..] C. 3 Estratto [19/07/2022] [09.58.51.77.18]
Numeri in gioco 09.77 su TT per Ambo
[BA][09 .. .. 77 ..] C. 3 Ambo [19/07/2022] [09.58.51.77.18]
ok metto solo questo prospetto vedi come calcola la tecnica
Ultima modifica:
Zetrix
Advanced Premium Member
si la sequenza e progressiva 13+3=16+3=19
Imaging
Advanced Member >PLATINUM<
Per 'ambata io ne ho fatto uno sommativo prova 1° di BA meno 90
----------------------------------------------------------------------- 5° di CA più 45
------------------------------------------------------------------------1° di FI meno 90
------------------------------------------------------------------------5° di GE più 45
ogni numero estratto per ruota.....ma la quartina spacca.....,,.!!!!!!!!
----------------------------------------------------------------------- 5° di CA più 45
------------------------------------------------------------------------1° di FI meno 90
------------------------------------------------------------------------5° di GE più 45
ogni numero estratto per ruota.....ma la quartina spacca.....,,.!!!!!!!!
Zetrix
Advanced Premium Member
il listato contiene anche gli abb per ambo non posso mettere il listato
se no mi dici quanto sei collegato che metto il listato lo copi e dopo lo cancello
se no devo mettere solo il listato con l'ambata ma devo modificare tutto il listato
comunque ce la ruota nazionale che e un po difficile da calcolare perche
le ruote sono 10 e ce di mezzo sempre la ruota a tutte e dopo la nazionale
per questo motivo non la vorrei mettere la nazionale perche se calcola i numeri
sulla nazionale si deve scrivere lo script in un modo se invece si vuole disegnare
il prospetto sulla nazionale si deve scrivere lo script in un altro modo..
e non so come si fa a sistemare la ruota nazionale..
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 12
If r3 = 12 Then r3 = 12 End If -> cosi disegna il prospetto sulla NZ ma non calcola i numeri
If r3 = 11 Then r3 = 12 End If -> cosi calcola i numeri ma non disegna il prospetto sulla NZ
se no mi dici quanto sei collegato che metto il listato lo copi e dopo lo cancello
se no devo mettere solo il listato con l'ambata ma devo modificare tutto il listato
comunque ce la ruota nazionale che e un po difficile da calcolare perche
le ruote sono 10 e ce di mezzo sempre la ruota a tutte e dopo la nazionale
per questo motivo non la vorrei mettere la nazionale perche se calcola i numeri
sulla nazionale si deve scrivere lo script in un modo se invece si vuole disegnare
il prospetto sulla nazionale si deve scrivere lo script in un altro modo..
e non so come si fa a sistemare la ruota nazionale..
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 12
If r3 = 12 Then r3 = 12 End If -> cosi disegna il prospetto sulla NZ ma non calcola i numeri
If r3 = 11 Then r3 = 12 End If -> cosi calcola i numeri ma non disegna il prospetto sulla NZ
Ultima modifica:
Zetrix
Advanced Premium Member
diff (r1-r2) = 2
37_____38________?
____(1)____(1)____
Numeri in gioco 39 su PA TO TT per Estratto
[FI][.. 39 .. .. ..] C.3 Estratto [19/07/2022] [45.39.64.29.90]
Numeri in gioco 39.90 su TT per Ambo
[FI][.. 39 .. .. 90] C.3 Ambo [19/07/2022] [45.39.64.29.90]
questo prospetto dovrebbe calcolare la nazionale
ma calcola la ruota a tutte
Ultima modifica:
Rafele ‘o Ruoss’
Banned
perchè dovresti cancellarlo ..questa non l'ho capita proprio.
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 10 gennaio 2025Bari4061118637Cagliari3102516887Firenze7355345218Genova1140278220Milano8071651910Napoli5030030136Palermo6642437689Roma0522623539Torino1758628669Venezia4389140440Nazionale6476354019Estrazione Simbolotto
Bari
0807373338
