Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 Metodo Elisabetta Masi vedere cosa ha dato ieri
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore Discussione precedente Discussione Discussione successiva

vinci
Utente Sfegatato

Italy
1364 invii

Spedito - 24 luglio 2024 :  15:01:05  Mostra profilo  Rispondi con citazione
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Sp
Dim R1,R2,P1,P2,P3,P4,Unouno50,S1,DiamS1
Dim FA,FB,FAB,SAB,DiCap12,SoCap12,Caso,Casi,Ok
Dim DiamSab,DiamFab,DiamSoCap12,Elem23,DiamElem23
Dim Ambo1(2),Ambo2(2),Ambo3(2),Qua1(4),Qua2(4)
Dim Post1(2),Post2(4),Ruo(2),Num(7)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Unouno50,10363))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Unouno50,9))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(1) & "Ambo Ripetuto di Elisabetta Masi modificato per 2 quartine e 1 settina su 2 Ruote" & Space(1),1,,4,,3,,1
Post2(2) = 1
Post2(3) = 1
Post2(4) = 1
Sp = " "
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
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 B = D Then
FA = Figura(A) : FB = Figura(B)
FAB = CInt(FA & FB) : FAB = Fuori90(FAB)
SAB = Fuori90(A + B)
If FAB <> SAB Then
DiCap12 = Distanza(FAB,SAB)'DIST CICLOMETRICA
SoCap12 = Fuori90(FAB + SAB)
S1 = Fuori90(DiCap12 + SAB)
DiamS1 = Diametrale(S1)
DiamSab = Diametrale(SAB)
DiamFab = Diametrale(FAB)
DiamSoCap12 = Diametrale(SoCap12)
Elem23 = Fuori90((FAB + 90) - DiCap12)
DiamElem23 = Diametrale(Elem23)
Num(1) = A : Num(2) = B : Num(3) = FAB : Num(4) = SAB
Num(5) = DiamElem23 : Num(6) = SoCap12 : Num(7) = Elem23
Ruo(1) = R1 : Ruo(2) = R2
If SerieFreqTurbo(Es - 30,Es - 1,Num,Ruo,3) = 0 Then
Ambo1(1) = FAB : Ambo1(2) = SAB
Ambo2(1) = SAB : Ambo2(2) = S1
Ambo3(1) = FAB : Ambo3(2) = Elem23
If FAB <> S1 And FAB <> Elem23 And SAB <> S1 And SAB <> Elem23 Then
Qua1(1) = FAB : Qua1(2) = SAB : Qua1(3) = S1 : Qua1(4) = Elem23
Qua2(1) = DiamFab : Qua2(2) = DiamSab : Qua2(3) = DiamS1 : Qua2(4) = DiamElem23
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(17) & "La Figura di " & Format2(A) & " = " & FA,1,0
Scrivi Space(11) & "La Figura di " & Format2(B) & " = " & FB,1
Scrivi Space(10) & "Unione delle 2 figure = " & Format2(FAB),1,0
Scrivi Space(7) & "<-- 1° Capogioco e 1° Elemento 1° Ambo",1
Scrivi Space(10) & "Estratto " & Format2(A) & " + " & "Estratto ",1,0
Scrivi Format2(B) & " = " & Format2(SAB) & " <-- 2° Capogioco e 2° Elemento 1° Ambo",1
Scrivi Space(10) & "La Distanza Ciclometrica tra " & Format2(SAB) & " e ",1,0
Scrivi Format2(FAB) & " = " & Format2(DiCap12),1 ' & Space(6) & " <-- 1° Elemento 3° Ambo",1
Scrivi Space(10) & "La Somma tra " & Space(16) & Format2(SAB) & " e ",1,0
Scrivi Format2(DiCap12) & " = " & Format2(S1) & Space(6) & " <-- 2° Elemento 2° Ambo",1
Scrivi Space(10) & "Il Primo Capog. " & Format2(FAB) & " - Dist. Ciclo " & Format2(DiCap12) & " = ",1,0
Scrivi Format2(Elem23) & Space(7) & "<-- 2° Elemento 3° Ambo",1
Scrivi
Scrivi Space(10) & "I Diametrali della Quartina " & StringaNumeri(Qua1," ",True),1,0
Scrivi " sono " & StringaNumeri(Qua2," ",True),1
Scrivi
Scrivi Space(25) & " Pronostico Per " & NomeRuota(R1) & " e " & NomeRuota(R2),1,,,1
Scrivi Space(24) & "Ambi Secchi " & Format2(FAB) & Sp & Format2(SAB),1,0
Scrivi Space(4) & Format2(SAB) & Sp & Format2(S1) & Space(4) & Format2(FAB) & Sp,1,0
Scrivi Format2(Elem23),1
Scrivi Space(15) & " Per Ambo e Terno e Quaterna " & StringaNumeri(Num," ",True),1
Scrivi Space(26) & " Per Ambo e Terno e Quaterna",1,,,2
Scrivi Space(28) & StringaNumeri(Qua1," ",True) & Space(5) & StringaNumeri(Qua2," ",True),1
Scrivi
EliminaRipetuti Qua1
ImpostaGiocata 1,Qua1,Ruo,Post2,Clp
EliminaRipetuti Qua2
ImpostaGiocata 2,Qua2,Ruo,Post2,Clp
EliminaRipetuti Num
ImpostaGiocata 3,Num,Ruo,Post2,Clp
Gioca Es,1
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub



----------------------------------------------------------------------------------------

Estrazione generatrice del pronostico 10473 [111 - 12/07/2024]
G 0001 Numeri in gioco : 16.25.52.79 su NA RO per Ambo,Terno,Quaterna
V N. [16.25.52.79 ] [RO] [.. 79 .. 25 52] C. 6 Terno 10479 [117 - 23/07/2024]

In corso per altre 3 estrazioni
G 0002 Numeri in gioco : 07.34.61.70 su NA RO per Ambo,Terno,Quaterna
In corso per altre 3 estrazioni
G 0003 Numeri in gioco : 02.25.41.52.70.77.79 su NA RO per Ambo,Terno,Quaterna
V N. [02.25.41.52.70.77.79 ] [RO] [.. 79 70 25 52] C. 6 Quaterna 10479 [117 - 23/07/2024]

In corso per altre 3 estrazioni




Roberto Vinci

Modificato da - vinci su 24 luglio 2024 15:03:28

vinci
Utente Sfegatato

Italy
1364 invii

Spedito - 24 luglio 2024 :  15:50:36  Mostra profilo  Rispondi con citazione
QUESTO E' QUELLO ORIGINALE


Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Sp
Dim R1,R2,P1,P2,P3,P4,Unouno50,S1,DiamS1
Dim FA,FB,FAB,SAB,DiCap12,SoCap12,Caso,Casi,Ok
Dim DiamSab,DiamFab,DiamSoCap12,Elem23,DiamElem23
Dim Ambo1(2),Ambo2(2),Ambo3(2),Qua1(4),Qua2(4)
Dim Post1(2),Post2(4),Ruo(2),Num(7)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Unouno50,9870))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Unouno50,9))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(9) & "Ambo Ripetuto di Elisabetta Masi - Script Unouno50 (Alias Salvo50)" & Space(10),1,,4,,3,,1
Post1(2) = 1
Post2(2) = 1
Post2(3) = 1
Post2(4) = 1
Sp = " "
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
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 B = D Then
FA = Figura(A) : FB = Figura(B)
FAB = CInt(FA & FB) : FAB = Fuori90(FAB)
SAB = Fuori90(A + B)
If FAB <> SAB Then
DiCap12 = Distanza(FAB,SAB)'DIST CICLOMETRICA
SoCap12 = Fuori90(FAB + SAB)
S1 = Fuori90(DiCap12 + SAB)
DiamS1 = Diametrale(S1)
DiamSab = Diametrale(SAB)
DiamFab = Diametrale(FAB)
DiamSoCap12 = Diametrale(SoCap12)
Elem23 = Fuori90((FAB + 90) - DiCap12)
DiamElem23 = Diametrale(Elem23)
Num(1) = A : Num(2) = B : Num(3) = FAB : Num(4) = SAB
Num(5) = DiamElem23 : Num(6) = SoCap12 : Num(7) = Elem23
Ruo(1) = R1 : Ruo(2) = R2
If SerieFreqTurbo(Es - 30,Es - 1,Num,Ruo,3) = 0 Then
Ambo1(1) = FAB : Ambo1(2) = SAB
Ambo2(1) = SAB : Ambo2(2) = S1
Ambo3(1) = FAB : Ambo3(2) = Elem23
If FAB <> S1 And FAB <> Elem23 And SAB <> S1 And SAB <> Elem23 Then
Qua1(1) = FAB : Qua1(2) = SAB : Qua1(3) = S1 : Qua1(4) = Elem23
Qua2(1) = DiamFab : Qua2(2) = DiamSab : Qua2(3) = DiamS1 : Qua2(4) = DiamElem23
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(17) & "La Figura di " & Format2(A) & " = " & FA,1,0
Scrivi Space(11) & "La Figura di " & Format2(B) & " = " & FB,1
Scrivi Space(10) & "Unione delle 2 figure = " & Format2(FAB),1,0
Scrivi Space(7) & "<-- 1° Capogioco e 1° Elemento 1° Ambo",1
Scrivi Space(10) & "Estratto " & Format2(A) & " + " & "Estratto ",1,0
Scrivi Format2(B) & " = " & Format2(SAB) & " <-- 2° Capogioco e 2° Elemento 1° Ambo",1
Scrivi Space(10) & "La Distanza Ciclometrica tra " & Format2(SAB) & " e ",1,0
Scrivi Format2(FAB) & " = " & Format2(DiCap12),1 ' & Space(6) & " <-- 1° Elemento 3° Ambo",1
Scrivi Space(10) & "La Somma tra " & Space(16) & Format2(SAB) & " e ",1,0
Scrivi Format2(DiCap12) & " = " & Format2(S1) & Space(6) & " <-- 2° Elemento 2° Ambo",1
Scrivi Space(10) & "Il Primo Capog. " & Format2(FAB) & " - Dist. Ciclo " & Format2(DiCap12) & " = ",1,0
Scrivi Format2(Elem23) & Space(7) & "<-- 2° Elemento 3° Ambo",1
Scrivi
Scrivi Space(10) & "I Diametrali della Quartina " & StringaNumeri(Qua1," ",True),1,0
Scrivi " sono " & StringaNumeri(Qua2," ",True),1
Scrivi
Scrivi Space(25) & " Pronostico Per " & NomeRuota(R1) & " e " & NomeRuota(R2),1,,,1
Scrivi Space(24) & "Ambi Secchi " & Format2(FAB) & Sp & Format2(SAB),1,0
Scrivi Space(4) & Format2(SAB) & Sp & Format2(S1) & Space(4) & Format2(FAB) & Sp,1,0
Scrivi Format2(Elem23),1
Scrivi Space(15) & " Per Ambo e Terno e Quaterna " & StringaNumeri(Num," ",True),1
Scrivi Space(26) & " Per Ambo e Terno e Quaterna",1,,,2
Scrivi Space(28) & StringaNumeri(Qua1," ",True) & Space(5) & StringaNumeri(Qua2," ",True),1
Scrivi
ImpostaGiocata 1,Ambo1,Ruo,Post1,Clp
ImpostaGiocata 2,Ambo2,Ruo,Post1,Clp
ImpostaGiocata 3,Ambo3,Ruo,Post1,Clp
ImpostaGiocata 4,Qua1,Ruo,Post2,Clp
ImpostaGiocata 5,Qua2,Ruo,Post2,Clp
ImpostaGiocata 6,Num,Ruo,Post2,Clp
Gioca Es,1
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

Roberto Vinci
Vai ad inizio pagina

franca46
Amministratore

Italy
24560 invii

Spedito - 24 luglio 2024 :  17:03:13  Mostra profilo  Rispondi con citazione
Ciao Roberto, domani lo provo per curiosità

grazie per averlo postato

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

vinci
Utente Sfegatato

Italy
1364 invii

Spedito - 03 ottobre 2024 :  19:58:58  Mostra profilo  Rispondi con citazione
Sicuramente sarà un caso ma il metodo ha ancora dato nella settina
1 terno al 1° colpo
e
1 Quaterna al 9° colpo


G 0006 Numeri in gioco : 24.62.68.86.05.64.50 su BA NA per Ambo,Terno,Quaterna
V N. [24.62.68.86.05.64.50 ] [BA] [.. .. 64 86 50] C. 1 Terno 10510 [148 - 14/09/2024]
V N. [24.62.68.86.05.64.50 ] [NA] [.. 68 24 62 05] C. 9 Quaterna 10518 [156 - 28/09/2024]

SE VOLETE VERIFICATE


Roberto Vinci
Vai ad inizio pagina

DjNomade
Utente Molto Appassionato

333 invii

Spedito - 03 ottobre 2024 :  22:10:37  Mostra profilo  Rispondi con citazione
WOOW
Vai ad inizio pagina

franca46
Amministratore

Italy
24560 invii

Spedito - 03 ottobre 2024 :  23:01:03  Mostra profilo  Rispondi con citazione
Interessante , domani lo riguardo

Grazie dell'aggiornamento

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000