| R E V I S I O N E D E L L A D I S C U S S I O N E |
| vinci |
Posted - 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
|
| 2 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 24 luglio 2024 : 17:03:13
Ciao Roberto, domani lo provo per curiosità
grazie per averlo postato |
| vinci |
Posted - 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 |
|
|
