| 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 - 01 luglio 2024 : 16:42:48
Metodo di Noel modificato da me per cinquina ma si può anche giocare per ambata e vari ambi basta togliere le spunte '
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Es2,Cer,E1,E2,x
Dim R1,R2,P1,P2,P3,P4,P5,P6,Unouno50,g
Dim DM12,DM23,DM34,DM41,Caso,Casi,Ind
Dim Amba(1),Ambo(2),Penta(5),L(6),M(4)
Dim Pos1(1),Pos2(2),Pos3(5),Ruote(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Unouno50,10365))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Unouno50,13))
Ind = CInt(InputBox(" Per quante Estrazioni a Ritroso Vuoi fare la Ricerca del Secondo Ambo?",Unouno50,0))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Unouno50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(9) & "Metodo di Noel modificato da me per cinquina ma si può anche giocare per ambata e vari ambi" & Space(9),1,,4,,3,,1
Pos1(1) = 1
Pos2(2) = 1
Pos3(2) = 1
Pos3(3) = 1
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
For Es2 = Es To Es - Ind Step - 1
C = Estratto(Es2,R2,P3)
D = Estratto(Es2,R2,P4)
If A > 0 And D > 0 Then
If A <> C And A <> B And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 9 And DM23 = 18 And DM34 = 9 And DM41 = 36 _
Or DM23 = 9 And DM34 = 18 And DM41 = 9 And DM12 = 36 _
Or DM34 = 9 And DM41 = 18 And DM12 = 9 And DM23 = 36 _
Or DM41 = 9 And DM12 = 18 And DM23 = 9 And DM34 = 36 Then
'---------------------------------
If DM12 = 9 And DM23 = 18 And DM34 = 9 And DM41 = 36 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
L(5) = Fuori90(M(2) + 9)
End If
If DM23 = 9 And DM34 = 18 And DM41 = 9 And DM12 = 36 Then
L(1) = M(2) : L(2) = M(3) : L(3) = M(4) : L(4) = M(1)
L(5) = Fuori90(M(3) + 9)
End If
If DM34 = 9 And DM41 = 18 And DM12 = 9 And DM23 = 36 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1) : L(4) = M(2)
L(5) = Fuori90(M(4) + 9)
End If
If DM41 = 9 And DM12 = 18 And DM23 = 9 And DM34 = 36 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(2) : L(4) = M(3)
L(5) = Fuori90(M(1) + 9)
End If
L(6) = Diametrale(L(5))
Amba(1) = L(5)
Penta(1) = L(6) : Penta(2) = A : Penta(3) = B : Penta(4) = C : Penta(5) = D
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
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es2,R2,P6)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(17) & " Punto Medio = ",1,0
Scrivi Format2(L(5)) & " Ambata",1,,,2
Scrivi Space(18) & " Abbinamenti Per Ambo ",1,,,1
Scrivi Space(23) & StringaNumeri(M," ",True),1
Scrivi Space(23) & " Cinquina ",1,,,1
Scrivi Space(21) & StringaNumeri(Penta," ",True),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruote(1) = R1 : Ruote(2) = R2
g = 1
'ImpostaGiocata g,Amba,Ruote,Pos1,Clp
For x = 1 To UBound(M)
Ambo(1) = Amba(1): Ambo(2) = M(x)
If Ambo(2) > 0 Then
g = g + 1
'ImpostaGiocata g,Ambo,Ruote,Pos2,Clp
End If
Next
g = g + 1
EliminaRipetuti Penta
ImpostaGiocata g,Penta,Ruote,Pos3,Clp
Gioca Es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
|
| 1 U L T I M E R E P L I C H E (Newest First) |
| vinci |
Posted - 16 luglio 2024 : 23:26:33
SEGNALAZIONI ULTIME VINCITE DA DOPO POST
______________________________________________________________
Estrazione generatrice del pronostico 10463 [101 - 25/06/2024]
G 0006 Numeri in gioco : 03.21.30.57.84 su PA TO per Ambo,Terno
V N. [03.21.30.57.84 ] [PA] [84 .. .. 03 ..] C. 11 Ambo 10474 [112 - 13/07/2024]
In corso per altre 1 estrazioni
______________________________________________________________
Estrazione generatrice del pronostico 10469 [107 - 05/07/2024]
G 0006 Numeri in gioco : 26.53.62.80.89 su RO TO per Ambo,Terno
V N. [26.53.62.80.89 ] [RO] [.. 80 62 .. ..] C. 5 Ambo 10474 [112 - 13/07/2024]
In corso per altre 7 estrazioni
|
|
|
