Autore |
Discussione |
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 24 luglio 2024 : 15:01:05
|
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
|
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 |
|
|
franca46
Amministratore
Italy
24560 invii |
Spedito - 24 luglio 2024 : 17:03:13
|
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 |
|
|
vinci
Utente Sfegatato
Italy
1364 invii |
Spedito - 03 ottobre 2024 : 19:58:58
|
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 |
|
|
DjNomade
Utente Molto Appassionato
333 invii |
Spedito - 03 ottobre 2024 : 22:10:37
|
|
franca46
Amministratore
Italy
24560 invii |
Spedito - 03 ottobre 2024 : 23:01:03
|
Interessante , domani lo riguardo
Grazie dell'aggiornamento |
Franca46 Cerca di essere sempre te stesso, così un giorno potrai dire di essere stato l'unico |
|
|
|
Discussione |
|
|
|