| Ciao a Tutti. Credo che in questo articolo ci siano un bel po' di errori di stampa, altrimenti la quaterna 27-54-45-90 non è pronosticata, infatti  Il secondo 54 col circolettato deve essere 45, anche il 90 sotto deve essere 45, perchè i 4 numeri della seconda quaterna sono i diametrali della prima quaterna, nelle 2 quaterne pronosticate non c'è la Quaterna a meno che non si invertiscono di posto 81 con il 45. Il controllo nelle 30 estrazioni a ritroso dato che non è specificato come farlo, l'ho fatto con lunghetta di 7 numeri non ci deve essere il terno nelle 30 estrazioni a ritroso Riguardo ai numeri fissi mi sono sbagliato perchè ho interpretato male questo procedimento  Come mi ha fatto notare Enplein Quindi ho modificato lo script, però dato che (secondo me) la quaterna nelle quartine pronosticate non c'è, ho inserito nel pronostico anche la lunghetta, per ambo terno e quaterna, infatti la quaterna pronosticata si trova nella lunghetta (7 numeri) sperando di non aver fatto errori Ecco lo script, modificato 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 |
