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.
Listato per "Quale dei due"?
- Creatore Discussione tiberio1
- Data di inizio
-
- Tag
- quale dei 2
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Tiberio1, Red*One, Rudivall, Xeroxs.
Grazie
Nel metodo - Quale dei due - L'esempio nell'articolo è sbagliato perchè menziona il numero 21 nella ruota di Cagliari, che non esiste, di conseguenza tutta la previsione è sbagliata, cioè è basata su un errore iniziale, poi questo metodo per essere valido chiede una verifica a ritroso del vertice delle 2 corde, questa verifica l'ho predisposta ma l'ho spuntata, quindi chi vuole applicarla deve togliere la spunta, l'ho impostata così perchè toglie molte previsioni tutte vincenti. I colpi di gioco, per l'ambata ho messo 5 colpi fisso, per gli ambi si può cambiare alla seconda domanda.
La terza domanda chiede se si vogliono visualizzare i cerchi ciclometrici, per SI, inserire il numero 1, per NO un qualsiasi altro numero.
Alla quarta domanda chiede se si vogliono giocare gli ambetti, per SI, inserire il numero 1, per NO un qualsiasi altro numero.
Anche per gli ambetti non li ho predisposti fissi, perche il sistema giocando gli ambetti va molto di più in perdita.
Primo Metodo - Tre Numeri 3
Secondo metodo - Quale dei due
Tiberio1, Red*One, Rudivall, Xeroxs.
Grazie
Nel metodo - Quale dei due - L'esempio nell'articolo è sbagliato perchè menziona il numero 21 nella ruota di Cagliari, che non esiste, di conseguenza tutta la previsione è sbagliata, cioè è basata su un errore iniziale, poi questo metodo per essere valido chiede una verifica a ritroso del vertice delle 2 corde, questa verifica l'ho predisposta ma l'ho spuntata, quindi chi vuole applicarla deve togliere la spunta, l'ho impostata così perchè toglie molte previsioni tutte vincenti. I colpi di gioco, per l'ambata ho messo 5 colpi fisso, per gli ambi si può cambiare alla seconda domanda.
La terza domanda chiede se si vogliono visualizzare i cerchi ciclometrici, per SI, inserire il numero 1, per NO un qualsiasi altro numero.
Alla quarta domanda chiede se si vogliono giocare gli ambetti, per SI, inserire il numero 1, per NO un qualsiasi altro numero.
Anche per gli ambetti non li ho predisposti fissi, perche il sistema giocando gli ambetti va molto di più in perdita.
Primo Metodo - Tre Numeri 3
Codice:
Option Explicit
Sub Main
Dim Fin,Ini,Es,R1,R2,A,B,C,D,E,F,Abb1,Abb2
Dim Caso,Casi,Ruo,Salvo50,IniR,FinR,Clp
Dim Amba(1),Terno(3),Ru(2)
Dim Poste(3),Posta(1)
Posta(1) = 1
Poste(2) = 1
Poste(3) = 1
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9500)
Ruo = CInt(InputBox(" In quale ruota vuoi giocare?",,11))
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",Salvo50,6))
Scrivi Space(15) & " Tre Numeri 3 - Angelo Gargiulo - SCRIPT SALVO50" & Space(15),1,,4,,3,,1
Call ScegliRange(Ini,Fin,Ini,Fin)
If Ruo = 11 Then
IniR = 1
FinR = 12
Else
IniR = Ruo
FinR = Ruo
End If
For Es = Ini To Fin
Caso = 0
AvanzamentoElab Ini,Fin,Es
For R1 = IniR To FinR
If R1 = 11 Then R1 = 12
A = Estratto(Es,R1,1)
B = Estratto(Es,R1,2)
If Distanza(A,B) = 7 Then
If A > B Then C = Fuori90((90 + B) - 7)
If A < B Then C = Fuori90(B + 7)
If A <> C Then
D = Diametrale(C)
E = Fuori90(D + 1)
F = Fuori90(E + 1)
R2 = RuotaGemella(R1)
Amba(1) = D
Terno(1) = D : Terno(2) = E : Terno(3) = F
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi
Scrivi Space(17) & "1° e 2° Estratto ",1,,,7
Scrivi Space(17) & Format2(A) & "----------" & Format2(B) & "----------" & Format2(C),1,0
Scrivi " <-- Distanza 7 Dal 2° Estratto",1,,,7
Scrivi
Scrivi Space(16) & "Diametrale di " & Format2(C) & " = Ambata " & Format2(D),1
Scrivi Space(20) & "Terna = " & StringaNumeri(Terno," ",True),1
Scrivi
Ru(1) = R1 : Ru(2) = R2
ImpostaGiocata 1,Amba,Ru,Posta,Clp
ImpostaGiocata 2,Terno,Ru,Poste,Clp
Gioca Es
End If
End If
Next
Next
ScriviResoconto
End SubSecondo metodo - Quale dei due
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
Dim R1,R2,P1,P2,P3,P4,Salvo50
Dim DM12,DM23,DM34,DM41,Caso,Casi,Ambe
Dim Ambetto1(2),Ambetto2(2),Ambetto3(2),Ambetto4(2)
Dim Ambetto5(2),Ambetto6(2),Ambetto7(2),Ambetto8(2)
Dim Ambata(1),Ambo1(2),Ambo2(2),Ruo(2),Nu(1)
Dim Post1(1),Post2(2),L(5),M(4),N(3),Ruote(4)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Ambe = CInt(InputBox(" Vuoi Giocare Anche Per la Sorte di Ambetto? SI = 1, NO un qualsiasi altro numero",Salvo50,0))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "La Struttura Ciclometrica di Angelo Gargiulo - Script Salvo50" & Space(12),1,,4,,3,,1
Post1(1) = 1
Post2(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R1 <> R2 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 9 And DM23 = 36 And DM34 = 9 And DM41 = 36 _
Or DM23 = 9 And DM34 = 36 And DM41 = 9 And DM12 = 36 Then
'---------------------------------
If DM12 = 9 And DM23 = 36 And DM34 = 9 And DM41 = 36 Then
L(5) = Fuori90(M(4) + 18) : N(2) = Fuori90(M(4) + 9)
End If
If DM23 = 9 And DM34 = 36 And DM41 = 9 And DM12 = 36 Then
L(5) = Fuori90(M(3) + 18) : N(2) = Fuori90(M(3) + 9)
End If
Nu(1) = L(5)
Ruo(1) = R1 : Ruo(2) = R2
'Togliere la spunta alla riga seguente se si vuole fare il controllo a ritroso del vertice delle corde, anche al suo End If
'If SerieFreq (Es-4,Es,Nu,Ruo,1)> 0 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
N(1) = Diametrale(L(5)) : N(3) = Fuori90(N(2) + 18)
Ambata(1) = N(1)
Ambo1(1) = N(1) : Ambo1(2) = N(2)
Ambo2(1) = N(1) : Ambo2(2) = N(3)
If Ambe = 1 Then
Ambetto1(1) = N(1) : Ambetto1(2) = Fuori90(N(2) + 1)
Ambetto2(1) = N(1) : Ambetto2(2) = Fuori90((90 + N(2)) - 1)
Ambetto3(1) = N(2) : Ambetto3(2) = Fuori90(N(1) + 1)
Ambetto4(1) = N(2) : Ambetto4(2) = Fuori90((90 + N(1)) - 1)
'
Ambetto5(1) = N(1) : Ambetto5(2) = Fuori90(N(3) + 1)
Ambetto6(1) = N(1) : Ambetto6(2) = Fuori90((90 + N(3)) - 1)
Ambetto7(1) = N(3) : Ambetto7(2) = Fuori90(N(1) + 1)
Ambetto8(1) = N(3) : Ambetto8(2) = Fuori90((90 + N(1)) - 1)
End If
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R1
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(10) & " Vertice Delle 2 Corde Distanza 36 = " & Format2(L(5)),1,,,1
Scrivi
Scrivi Space(24) & " Ambata",1,,,2
Scrivi Space(17) & " Diametrale di " & Format2(L(5)) & " = ",1,0
Scrivi Format2(N(1)),1,,,2
Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
Scrivi Space(20) & Format2(N(2)) & " Abbinamento 1 ",1
Scrivi Space(20) & Format2(N(3)) & " Abbinamento 2 ",1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
ImpostaGiocata 1,Ambata,Ruo,Post1,5
ImpostaGiocata 2,Ambo1,Ruote,Post2,Clp
ImpostaGiocata 3,Ambo2,Ruote,Post2,Clp
Gioca Es,1
If Ambe = 1 Then
Scrivi Space(19) & "AMBETTI",1,,,1,5
ImpostaGiocata 4,Ambetto1,Ruo,Post2,Clp
ImpostaGiocata 5,Ambetto2,Ruo,Post2,Clp
ImpostaGiocata 6,Ambetto3,Ruo,Post2,Clp
ImpostaGiocata 7,Ambetto4,Ruo,Post2,Clp
ImpostaGiocata 8,Ambetto5,Ruo,Post2,Clp
ImpostaGiocata 9,Ambetto6,Ruo,Post2,Clp
ImpostaGiocata 10,Ambetto7,Ruo,Post2,Clp
ImpostaGiocata 11,Ambetto8,Ruo,Post2,Clp
Gioca Es,1
'Togliere la spunta alla riga seguente se si vuole fare il controllo a ritroso del vertice delle corde, anche al suo If
'End If
End If
End If
End If
End If
Next
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And C > 0 Then
If A <> C And A <> D And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 9 And DM23 = 36 And DM34 = 9 And DM41 = 36 _
Or DM23 = 9 And DM34 = 36 And DM41 = 9 And DM12 = 36 Then
'---------------------------------
If DM12 = 9 And DM23 = 36 And DM34 = 9 And DM41 = 36 Then
L(5) = Fuori90(M(4) + 18) : N(2) = Fuori90(M(4) + 9)
End If
If DM23 = 9 And DM34 = 36 And DM41 = 9 And DM12 = 36 Then
L(5) = Fuori90(M(3) + 18) : N(2) = Fuori90(M(3) + 9)
End If
Nu(1) = L(5)
Ruo(1) = R1 : Ruo(2) = R2
'Togliere la spunta alla riga seguente se si vuole fare il controllo a ritroso del vertice delle corde Anche al suo End if
'If SerieFreq (Es-4,Es,Nu,Ruo,1)> 0 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
N(1) = Diametrale(L(5)) : N(3) = Fuori90(N(2) + 18)
Ambata(1) = N(1)
Ambo1(1) = N(1) : Ambo1(2) = N(2)
Ambo2(1) = N(1) : Ambo2(2) = N(3)
If Ambe = 1 Then
Ambetto1(1) = N(1) : Ambetto1(2) = Fuori90(N(2) + 1)
Ambetto2(1) = N(1) : Ambetto2(2) = Fuori90((90 + N(2)) - 1)
Ambetto3(1) = N(2) : Ambetto3(2) = Fuori90(N(1) + 1)
Ambetto4(1) = N(2) : Ambetto4(2) = Fuori90((90 + N(1)) - 1)
'
Ambetto5(1) = N(1) : Ambetto5(2) = Fuori90(N(3) + 1)
Ambetto6(1) = N(1) : Ambetto6(2) = Fuori90((90 + N(3)) - 1)
Ambetto7(1) = N(3) : Ambetto7(2) = Fuori90(N(1) + 1)
Ambetto8(1) = N(3) : Ambetto8(2) = Fuori90((90 + N(1)) - 1)
End If
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(10) & " Vertice Delle 2 Corde Distanza 36 = " & Format2(L(5)),1,,,1
Scrivi
Scrivi Space(24) & " Ambata",1,,,2
Scrivi Space(17) & " Diametrale di " & Format2(L(5)) & " = ",1,0
Scrivi Format2(N(1)),1,,,2
Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
Scrivi Space(20) & Format2(N(2)) & " Abbinamento 1 ",1
Scrivi Space(20) & Format2(N(3)) & " Abbinamento 2 ",1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
ImpostaGiocata 1,Ambata,Ruo,Post1,5
ImpostaGiocata 2,Ambo1,Ruote,Post2,Clp
ImpostaGiocata 3,Ambo2,Ruote,Post2,Clp
Gioca Es,1
If Ambe = 1 Then
Scrivi Space(19) & "AMBETTI",1,,,1,5
ImpostaGiocata 4,Ambetto1,Ruo,Post2,Clp
ImpostaGiocata 5,Ambetto2,Ruo,Post2,Clp
ImpostaGiocata 6,Ambetto3,Ruo,Post2,Clp
ImpostaGiocata 7,Ambetto4,Ruo,Post2,Clp
ImpostaGiocata 8,Ambetto5,Ruo,Post2,Clp
ImpostaGiocata 9,Ambetto6,Ruo,Post2,Clp
ImpostaGiocata 10,Ambetto7,Ruo,Post2,Clp
ImpostaGiocata 11,Ambetto8,Ruo,Post2,Clp
Gioca Es,1
'Togliere la spunta alla riga seguente se si vuole fare il controllo a ritroso del vertice delle corde Anche al suo If
'End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
Bravissimo Salvo.
I metodi proposti dal Sig. A. Gargiulo li trovo proprio ottimi.
Salvo, perchè non ci proponi i listati della tua raccolta "solo quelli ciclometrici" di tutti i grandi esperti del Lotto però con anche i grafici, in modo tale da poterli studiare al meglio?
I metodi proposti dal Sig. A. Gargiulo li trovo proprio ottimi.
Salvo, perchè non ci proponi i listati della tua raccolta "solo quelli ciclometrici" di tutti i grandi esperti del Lotto però con anche i grafici, in modo tale da poterli studiare al meglio?
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Abasul, non ho raccolte di metodi, tutti gli script ciclometrici che ho sono quelli già postati in questo sito, cioè non ne faccio quasi mai per conto mio, e quando li faccio (quasi sempre prese da riviste di Lotto) li posto.
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 21 dicembre 2024Bari1941162075Cagliari4661093537Firenze7433698030Genova7416188852Milano2578107277Napoli7087833489Palermo1281473160Roma4542890840Torino7473567085Venezia0531353321Nazionale3919830668Estrazione Simbolotto
Venezia
2144083004
