IL TERNO CICLOMETRICO
- Creatore Discussione tiberio1
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Rudivall, Tiberio1, Toon, Xeroxs.
Grazie
Questo metodo dopo aver trovato i quattro numeri di cui uno doppio, chiede ancora di trovare nell'estrazione precedente un'altra coppia di numeri risultata dai calcoli, ma con questo procedimento nelle 9900 estrazioni si sono verificati solo 2 casi, quindi ho tolto questa condizione.
Il metodo nei calcoli procede facendo delle sottrazioni in senso antiorario nel cerchio ciclometrico, ho fatto un altro script nel quale i calcoli li faccio con addizioni in senso orario.
Sperando di non aver fatto errori, perchè al 99% me ne accorgo dopo i 5 minuti
script metodo originale
script metodo con modifica
Rudivall, Tiberio1, Toon, Xeroxs.
Grazie
Questo metodo dopo aver trovato i quattro numeri di cui uno doppio, chiede ancora di trovare nell'estrazione precedente un'altra coppia di numeri risultata dai calcoli, ma con questo procedimento nelle 9900 estrazioni si sono verificati solo 2 casi, quindi ho tolto questa condizione.
Il metodo nei calcoli procede facendo delle sottrazioni in senso antiorario nel cerchio ciclometrico, ho fatto un altro script nel quale i calcoli li faccio con addizioni in senso orario.
Sperando di non aver fatto errori, perchè al 99% me ne accorgo dopo i 5 minuti
script metodo originale
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer,E1,E2
Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
Dim DM13,DM23,DM34,DM41,Caso,Casi,Dab,Dcd
Dim Amba(1),L(6),M(4),N(3)
Dim Pos1(1),Pos2(3),Ruote(2),Ruo(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9618))'Estrazione 9618 esempio nell'articolo
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(9) & "Il Terno Ciclometrico di Angelo Gargiulo - Script Salvo50" & Space(9),1,,4,,3,,1
Pos1(1) = 1
Pos2(2) = 1
Pos2(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)
Dab = Distanza(A,B)
If Dab = 18 Or Dab = 27 Then
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(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 Then
If(A = C And B <> D) Or(A = D And B <> C) Or(B = C And A <> D) Or(B = D And A <> C)Then
Dcd = Distanza(C,D)
If Dcd = 18 Or Dcd = 27 Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM13 = Distanza(M(1),M(3)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM13 = 09 And DM34 = 18 And DM41 = 27 _
Or DM13 = 27 And DM34 = 09 And DM41 = 18 _
Or DM13 = 18 And DM34 = 27 And DM41 = 09 Then
'---------------------------------
If DM13 = 9 And DM34 = 18 And DM41 = 27 Then
L(1) = M(1) : L(2) = M(3) : L(3) = M(4)
L(4) = Fuori90((90 + M(1)) - 9)
End If
If DM13 = 27 And DM34 = 9 And DM41 = 18 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1)
L(4) = Fuori90((90 + M(3)) - 9)
End If
If DM13 = 18 And DM34 = 27 And DM41 = 09 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(3)
L(4) = Fuori90((90 + M(4)) - 9)
End If
L(5) = Fuori90((90 + L(4)) - 9)
L(6) = Fuori90((90 + L(5)) - 18)
N(1) = L(6)
N(2) = Fuori90((90 + N(1)) - 36)
N(3) = Fuori90(N(1) + 36)
Amba(1) = L(6)
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 " Evidenziati Distanza " & Format2(Dab),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,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 " Evidenziati Distanza " & Format2(Dcd),1
Scrivi
Scrivi Space(21) & " Pronostico",1
Scrivi Space(22) & Format2(L(6)) & " Ambata",1,,,2
Scrivi Space(17) & StringaNumeri(N," ",True),1,0,,1
Scrivi " Ambo e Terno ",1,,,1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TU_
Ruote(1) = R1 : Ruote(2) = R2
ImpostaGiocata 1,Amba,Ruote,Pos1,Clp
ImpostaGiocata 2,N,Ruo,Pos2,Clp
Gioca Es,1
End If
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Subscript metodo con modifica
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer,E1,E2
Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
Dim DM13,DM23,DM34,DM41,Caso,Casi,Dab,Dcd
Dim Amba(1),L(6),M(4),N(3)
Dim Pos1(1),Pos2(3),Ruote(2),Ruo(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9618))'Estrazione 9618 esempio nell'articolo
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(9) & "Il Terno Ciclometrico di Angelo Gargiulo - Script Salvo50" & Space(9),1,,4,,3,,1
Scrivi Space(15) & "Con Somme in Senso Orario (Modifica Salvo50)" & Space(16),1,,4,,3,,1
Pos1(1) = 1
Pos2(2) = 1
Pos2(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)
Dab = Distanza(A,B)
If Dab = 18 Or Dab = 27 Then
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(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And D > 0 Then
If(A = C And B <> D) Or(A = D And B <> C) Or(B = C And A <> D) Or(B = D And A <> C)Then
Dcd = Distanza(C,D)
If Dcd = 18 Or Dcd = 27 Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM13 = Distanza(M(1),M(3)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM13 = 18 And DM34 = 9 And DM41 = 27 _
Or DM13 = 27 And DM34 = 18 And DM41 = 9 _
Or DM13 = 9 And DM34 = 27 And DM41 = 18 Then
'---------------------------------
If DM13 = 18 And DM34 = 9 And DM41 = 27 Then
L(1) = M(1) : L(2) = M(3) : L(3) = M(4)
L(4) = Fuori90(M(4) + 9)
End If
If DM13 = 27 And DM34 = 18 And DM41 = 9 Then
L(1) = M(3) : L(2) = M(4) : L(3) = M(1)
L(4) = Fuori90(M(1) + 9)
End If
If DM13 = 9 And DM34 = 27 And DM41 = 18 Then
L(1) = M(4) : L(2) = M(1) : L(3) = M(3)
L(4) = Fuori90(M(3) + 9)
End If
L(5) = Fuori90(L(4) + 9)
L(6) = Fuori90(L(5) + 18)
N(1) = L(6)
N(2) = Fuori90((90 + N(1)) - 36)
N(3) = Fuori90(N(1) + 36)
Amba(1) = L(6)
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 " Evidenziati Distanza " & Format2(Dab),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,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 " Evidenziati Distanza " & Format2(Dcd),1
Scrivi
Scrivi Space(21) & " Pronostico",1
Scrivi Space(22) & Format2(L(6)) & " Ambata",1,,,2
Scrivi Space(17) & StringaNumeri(N," ",True),1,0,,1
Scrivi " Ambo e Terno ",1,,,1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TU_
Ruote(1) = R1 : Ruote(2) = R2
ImpostaGiocata 1,Amba,Ruote,Pos1,Clp
ImpostaGiocata 2,N,Ruo,Pos2,Clp
Gioca Es,1
End If
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
Vittorio67
Junior Member
Vittorio67
Junior Member
Gentilmente qualcuno mi può spiegare quale programma si usa per fare funzionare questi script ??? Grazie anticipatamente!!
Vittorio67
Junior Member
Grazie Rudivall.... !!!!
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 17 maggio 2024Bari6335591269Cagliari1307232438Firenze3580907673Genova1154270620Milano0772483715Napoli6587825035Palermo1388446724Roma3105473346Torino3957848209Venezia0923495363Nazionale3743264881Estrazione Simbolotto
Milano
2607174439
