Autore |
Discussione ![Discussione successiva Discussione successiva](images/lightgreen/icon_go_right.gif) |
|
vinci
Utente Sfegatato
![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif)
Italy
1363 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
![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif) ![](images/lightgreen/icon_star_cyan.gif)
Italy
1363 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 |
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
franca46
Amministratore
![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif) ![](images/lightgreen/icon_star_gold.gif)
Italy
24349 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 |
![Vai ad inizio pagina Vai ad inizio pagina](images/lightgreen/icon_go_up.gif) |
|
|
Discussione ![Discussione successiva Discussione successiva](images/lightgreen/icon_go_right.gif) |
|
|
|