mi sono permesso di inserire la DIM "stpgiocata" per verificare la differenza di spesa e guadagno fermando la previsione al primo esito positivo, oppure proseguire anche dopo la prima vincita...
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Script su Metodi Cabalistici, Ciclometrici & C.
- Creatore Discussione salvo50
- Data di inizio
mi sono permesso di inserire la DIM "stpgiocata" per verificare la differenza di spesa e guadagno fermando la previsione al primo esito positivo, oppure proseguire anche dopo la prima vincita...
Matematico
Advanced Member >PLATINUM<
Ciao salvo50, e a tutti quelli che seguono la sezione , ecco un'altra tecnica molto forte tratta dal forum di Enzob ,non sò se è stato già fatto lo script, ma non credo.
Allegati
salvo50
Advanced Member >PLATINUM PLUS<
Ecco lo script salvo errori o dimenticanze
Codice:
Sub Main
Dim T,Es,R1,R2,Fin,Ini,A,B,Ind_Me
Dim SomAB,SomAB_Z,DiffAB,A_Z,B_Z
T = Array(T,"Estrazione"," Bari 1a Pos"," Napoli 1a Pos "," Somma "," Somma Cad0 "," Differenza "," Bari Cad0 "," Napoli Cad0")
Call InitTabella(T)
Fin = EstrazioneFin
Ini = Fin - 300
R1 = BA_
R2 = NA_
Ind_Me = 1
Scrivi Space(1) & "Alla " & Ind_Me & "a Estrazione Mensile Somma e Differenza Primi estratti Bari e Napoli - Script Salvo50",1,,4,,3,,1
Scrivi
For Es = Ini To Fin
If IndiceMensile(Es) = Ind_Me Then
A = Estratto(Es,R1,1)
B = Estratto(Es,R2,1)
SomAB = Fuori90(A + B)
SomAB_Z =(SomAB -(Cadenza(SomAB)))
If SomAB_Z = 0 Then SomAB_Z = 90
DiffAB = Differenza(A,B)
A_Z =(A -(Cadenza(A)))
If A_Z = 0 Then A_Z = 90
B_Z =(B -(Cadenza(B)))
If B_Z = 0 Then B_Z = 90
T = Array(T,Es,A,B,SomAB,SomAB_Z,DiffAB,A_Z,B_Z)
Call AddRigaTabella(T)
End If
Next
CreaTabella
End SubGrazie, la tabella era un esempio di calcolo.... ma il mio intento era verificare gli esiti della giocata in base alle combinazioni.
Pertanto così va bene ma a completamento vorrei che controllasse le giocate di ambo terno quaterna cinquina
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ciao Phil79
In questo thread non faccio script statistici, frquenze, ritardi, attenersi al titolo
SCRIPT SU METODI CABALISTICI CICLOMETRICI & C.
Matematico
Advanced Member >PLATINUM<
Buongiorno salvo50 e tutto il forum , ecco a mio avviso un procedimento molto interessante del compianto e mitico D.Manna :
Allegati
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Bubù, Cicalotto,Matematico, Phil79, ScarfaceTony
Grazie
Le spiegazioni di questo metodo sono al post 1042
Nel metodo la prima condizione è che si devono eseguire solo gli estratti che appartengono alla stessa tripla figurale, questa condizione non l'ho messa, perché per me è un lavorone, comunque a pagina 8, l'autore fa un esempio e neanche lui rispetta questa condizione.
Siccome i calcoli sono tanti e se si fa una ricerca lunga possono rallentare lo script,
alla terza domanda ho predisposto che si possono non visualizzare
con 1 si visualizzano con un qualsiasi altro numero non si visualizzano
Come autore ho messo Domenico Manna se non è lui lo cambio
Bubù, Cicalotto,Matematico, Phil79, ScarfaceTony
Grazie
Le spiegazioni di questo metodo sono al post 1042
Nel metodo la prima condizione è che si devono eseguire solo gli estratti che appartengono alla stessa tripla figurale, questa condizione non l'ho messa, perché per me è un lavorone, comunque a pagina 8, l'autore fa un esempio e neanche lui rispetta questa condizione.
Siccome i calcoli sono tanti e se si fa una ricerca lunga possono rallentare lo script,
alla terza domanda ho predisposto che si possono non visualizzare
con 1 si visualizzano con un qualsiasi altro numero non si visualizzano
Come autore ho messo Domenico Manna se non è lui lo cambio
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp,R1,R2,Caso,Amba1,Amba2
Dim P1,P2,P3,P4,P,PP,E1,E2,A,B,C,D,Casi,Calcoli
Dim Som1,Som2,xSom3,Som3,Salvo50,Diff3,Diff4
Dim CadA,CadB,CadC,CadD,DecA,DecB,DecC,DecD
Dim xNoveA,xNoveB,xNoveC,xNoveD,NoveA,NoveB,NoveC,NoveD
Dim DAB,DCD,SomVe1,SomVe2,SomDi1,SomDi2,xAmba
Dim DistOr1,DistOr2,DistVe1,DistVe2,DistDi1,DistDi2
Dim DistOr1b,DistOr2b,DistVe3,DistVe4,DistDi3,DistDi4
Dim Amba(1),M(4),N(4),Ruote(2),Posta(1)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10660)'ESTRAZIONE 6346 ESEMPIO NELLE SPIEGAZIONI
Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,6)
Calcoli = InputBox("Vuoi visualizzare i calcoli? Per si metti 1 per no un quasiasi altro numero ",,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & " L'Ambata Mandoman di Domenico Manna - Script Salvo50",1,,4,,3,,1
Posta(1) = 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
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
DAB = Distanza(A,B) : DCD = Distanza(C,D)
If DAB = DCD Then
DecA = Decina(A) : DecB = Decina(B) : DecC = Decina(C) : DecD = Decina(D)
CadA = Cadenza(A) : CadB = Cadenza(B) : CadC = Cadenza(C) : CadD = Cadenza(D)
xNoveA = Fuori90(DecA * 9) : NoveA = Fuori90(xNoveA + CadA)
xNoveB = Fuori90(DecB * 9) : NoveB = Fuori90(xNoveB + CadB)
xNoveC = Fuori90(DecC * 9) : NoveC = Fuori90(xNoveC + CadC)
xNoveD = Fuori90(DecD * 9) : NoveD = Fuori90(xNoveD + CadD)
M(1) = NoveA : M(2) = NoveB : M(3) = NoveC : M(4) = NoveD
Call OrdinaMatrice(M,1)
'M4--M1
'| |
'M3--M2
DistOr1b = Distanza(M(4),M(1)) : DistOr2b = Distanza(M(3),M(2))
DistVe1 = Distanza(M(4),M(3)) : DistVe2 = Distanza(M(1),M(2))
DistDi1 = Distanza(M(4),M(2)) : DistDi2 = Distanza(M(1),M(3))
If(DistVe1 = DistVe2) And(DistDi1 = DistDi2) Then
SomVe1 = FuoriX((M(4) + M(3)),81) : SomVe2 = FuoriX((M(1) + M(2)),81)
SomDi1 = FuoriX((M(4) + M(2)),81) : SomDi2 = FuoriX((M(1) + M(3)),81)
N(1) = SomVe1 : N(2) = SomVe2 : N(3) = SomDi1 : N(4) = SomDi2
Call OrdinaMatrice(N,1)
'N4--N1
'| |
'N3--N2
DistVe3 = Distanza(N(4),N(3)) : DistVe4 = Distanza(N(1),N(2))'-------------
If(DistVe3 = DistVe4) And(DistOr1b = DistVe3 Or DistOr2b = DistVe3) Then
DistDi3 = Distanza(N(4),N(2)) : DistDi4 = Distanza(N(1),N(3))
DistOr1 = FuoriX((N(1) + 81) - N(4),81) : DistOr2 = FuoriX((N(3) + 81) - N(2),81)
Som1 = FuoriX((N(4) + DistOr2),81)
Som2 = FuoriX((N(2) + DistOr1),81)
xSom3 = FuoriX((DistDi3 * 2),81)
Som3 = 81 - xSom3
Diff3 = FuoriX(((81 + N(2)) - Som3),81)
Diff4 = FuoriX(((81 + Diff3) - Som1),81)
Amba1 = FuoriX(((81 + Som1) - M(2)),81)
Amba2 = FuoriX(((81 + Som2) - M(2)),81)
xAmba = FuoriX((M(4) * 2),81)
Amba(1) = FuoriX((81 + xAmba) - M(1),81)
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(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P = 1 To 5
E1 = Estratto(Es,R1,P)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati con Distanza " & Format2(DAB),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For PP = 1 To 5
E2 = Estratto(Es,R2,PP)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati con Distanza " & Format2(DCD),1,,,1
Scrivi
If Calcoli = 1 Then
Scrivi " Trasformazione dei 4 estratti con distanza uguale in sistema di numerazione novenario",1
Scrivi Space(17) & Format2(C) & " Diventa " & Format2(DecC) & " * 9 = " & Format2(xNoveC),1,0
Scrivi " + " & Format2(CadC) & " = " & Format2(NoveC),1
Scrivi Space(17) & Format2(D) & " Diventa " & Format2(DecD) & " * 9 = " & Format2(xNoveD),1,0
Scrivi " + " & Format2(CadD) & " = " & Format2(NoveD),1
Scrivi Space(17) & Format2(A) & " Diventa " & Format2(DecA) & " * 9 = " & Format2(xNoveA),1,0
Scrivi " + " & Format2(CadA) & " = " & Format2(NoveA),1
Scrivi Space(17) & Format2(B) & " Diventa " & Format2(DecB) & " * 9 = " & Format2(xNoveB),1,0
Scrivi " + " & Format2(CadB) & " = " & Format2(NoveB),1
Scrivi
Scrivi Space(1) & " Novenari in " & Space(5) & "Distanze " & Space(4) & "Distanze ",1,0
Scrivi Space(3) & " Distanze " & Space(4) & "Somme F81" & Space(4) & "Somme F81",1
Scrivi Space(1) & " Senso Orario" & Space(4) & "Orizontali " & Space(3) & "Verticali ",1,0
Scrivi Space(3) & "Diagonali " & Space(2) & " Verticali " & Space(2) & " Diagonali ",1
Scrivi Space(5) & Format2(M(4)) & " " & Format2(M(1)) & Space(11) & Format2(DistOr1b),1,0
Scrivi Space(11) & Format2(DistVe1) & Space(11) & Format2(DistDi1),1,0
Scrivi Space(11) & Format2(SomVe1) & Space(11) & Format2(SomDi1),1
Scrivi Space(5) & Format2(M(3)) & " " & Format2(M(2)) & Space(11) & Format2(DistOr2b),1,0
Scrivi Space(11) & Format2(DistVe2) & Space(11) & Format2(DistDi2),1,0
Scrivi Space(11) & Format2(SomVe2) & Space(11) & Format2(SomDi2),1
Scrivi String(70,"-")
Scrivi Space(2) & "Nuovo Quadr." & Space(4) & "Distanze " & Space(4) & "Distanze ",1,0
Scrivi Space(3) & "Dist. Or F81",1
Scrivi Space(1) & " Senso Orario" & Space(4) & "Verticali " & Space(3) & "Diagonali ",1,0
Scrivi Space(2) & " Orizontali ",1
Scrivi Space(5) & Format2(N(4)) & " " & Format2(N(1)) & Space(10) & Format2(DistVe3),1,0
Scrivi Space(11) & Format2(DistDi3) & Space(11) & Format2(DistOr1),1
Scrivi Space(5) & Format2(N(3)) & " " & Format2(N(2)) & Space(10) & Format2(DistVe4),1,0
Scrivi Space(11) & Format2(DistDi4) & Space(11) & Format2(DistOr2),1
Scrivi String(70,"-")
Scrivi Space(12) & " Da Qui tutti i Calcoli sono Col Fuori 81",1,,,1
Scrivi Space(17) & "Numeri più Distanze Orizontali ",1
Scrivi Space(15) & Format2(N(4)) & " + " & Format2(DistOr2) & " = ",1,0
Scrivi Format2(Som1),1,0,,2
Scrivi Space(10) & Format2(N(2)) & " + " & Format2(DistOr1) & " = ",1,0
Scrivi Format2(Som2),1,,,2
Scrivi Space(18) & " 81 Meno Diagonale per due ",1
Scrivi Space(15) & Format2(DistDi3) & " * 02" & " = " & Format2(xSom3),1,0
Scrivi Space(10) & "81 - " & Format2(xSom3) & " = " & Format2(Som3),1
Scrivi Space(15) & String(35,"-")
Scrivi Space(15) & Format2(N(2)) & " - " & Format2(Som3) & " = ",1,0
Scrivi Format2(Diff3),1,0,,2
Scrivi Space(10) & Format2(Diff3) & " - " & Format2(Som1) & " = ",1,0,,2
Scrivi Format2(Diff4),1,,,1
Scrivi Space(18) & " Il Numero Regolatore è ",1,0,,1
Scrivi Format2(M(2)),1,,,2
Scrivi Space(15) & Format2(Som1),1,0,,2
Scrivi " - " & Format2(M(2)) & " = " & Format2(Amba1),1,0
Scrivi Space(10) & Format2(Som2),1,0,,2
Scrivi " - " & Format2(M(2)) & " = " & Format2(Amba2),1
Scrivi
Scrivi " Per Stabilire tra " & Format2(Amba1) & " e " & Format2(Amba2),1,0
Scrivi " Qualè l'Ambata si Applica la Formula (2d-a)",1
Scrivi Space(20) & Format2(M(4)) & " * 2 = " & Format2(xAmba) & " - " & Format2(M(1)) & " = ",1,0
Scrivi Format2(Amba(1)),1,,,2
End If
Scrivi
Ruote(1) = R1
Ruote(2) = R2
ImpostaGiocata 1,Amba,Ruote,Posta,Clp
Gioca Es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
Matematico
Advanced Member >PLATINUM<
Grazie 1000 salvo 50, ottimo script ...si l'autore è Manna
Settenario
Super Member >PLATINUM<
bubù
Advanced Member >PLATINUM PLUS<
Ciao Salvo50, ho notato che spesso escono numeri che si ripetono ad esempio nell'ultima :
G 0010 Numeri in gioco : 40.58.58.31.22 su VE TT NZ per Ambo,Terno,Quaterna,Cinquina
V N. [40.58.58.31.22 ] [TT] [MI][31 .. .. 40 ..] C. 1 Ambo 10665 [ 94 - 13/06/2025]
V N. [40.58.58.31.22 ] [TT] [GE][.. 40 22 31 ..] C. 2 Terno 10666 [ 95 - 14/06/2025]
è possibile sostituire uno dei due 58 con il vertibile 85 in automatico?
Grazie e scusami ancora per averti disturbato ancora
bubù
Advanced Member >PLATINUM PLUS<
Ciao Salvo50, ho notato che spesso escono numeri che si ripetono ad esempio nell'ultima :
G 0010 Numeri in gioco : 40.58.58.31.22 su VE TT NZ per Ambo,Terno,Quaterna,Cinquina
V N. [40.58.58.31.22 ] [TT] [MI][31 .. .. 40 ..] C. 1 Ambo 10665 [ 94 - 13/06/2025]
V N. [40.58.58.31.22 ] [TT] [GE][.. 40 22 31 ..] C. 2 Terno 10666 [ 95 - 14/06/2025]
è possibile sostituire uno dei due 58 con il vertibile 85 in automatico? nel caso il vertibile è già presente se si può eliminare il doppione.
Grazie e scusami ancora per averti disturbato ancora
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Bubù
Nessun disturbo
Li ho corretti tuttie due quello con ruote consecutive e quello anche con ruote non consecutive
Praticamente errori non ce ne erano, ma a volte capita che i numeri pronosticati possono
avere dei doppioni.
Quindi adesso quando nella cinquina si verificano un numero doppio lo elimino se si verifica più di
un numero doppio elimino la giocata perchè mi sono accorto che i tre numeri rimasti ci sono già
come terno, quindi può capitare che la decima giocata a volte non c'è.
Per il momento non posso fare altro, appena mi libero da altri impegni, vedrò di sostituire
i numeri doppi come da te richiesto
Grazie per avere segnalato l'anomalia
Nessun disturbo
Li ho corretti tuttie due quello con ruote consecutive e quello anche con ruote non consecutive
Praticamente errori non ce ne erano, ma a volte capita che i numeri pronosticati possono
avere dei doppioni.
Quindi adesso quando nella cinquina si verificano un numero doppio lo elimino se si verifica più di
un numero doppio elimino la giocata perchè mi sono accorto che i tre numeri rimasti ci sono già
come terno, quindi può capitare che la decima giocata a volte non c'è.
Per il momento non posso fare altro, appena mi libero da altri impegni, vedrò di sostituire
i numeri doppi come da te richiesto
Grazie per avere segnalato l'anomalia
bubù
Advanced Member >PLATINUM PLUS<
Grazie a Te per la tua disponibilità e la tua gentilezza, e scusami ancora se ho approfittato ancora del tuo sapere. Grazie di
, non posso far altro che postare i miei pensieri per tutti Voi, a volte come ieri riesco a regalare qualche piccolo sorriso a chi mi segue sulla sezione specifica, a volte purtroppo no, ma continuerò finchè riesco, sperando di non essere frainteso perchè per scoraggiare scrivo sempre che NON SI GARANTISCE NESSUNA VINCITA anche perchè questo resta solo un bellissimo gioco e non paga bollette o affitti. Ciao e grazie
salvo50
Advanced Member >PLATINUM PLUS<
Le spiegazioni per questo script sono al post 1047
La Tavola Delle Progressioni Armoniche di D. Manna
La Tavola Delle Progressioni Armoniche di D. Manna
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Salvo50,I,K1
Dim R1,R2,P1,P2,P3,P4,P5,E1,Caso,Casi
Dim SomOr1,SomOr2,DistVe1,DistVe2,DistDi1,DistDi2
Dim M4x90,M4x90M1,M1x90,M1x90M4,M2x90,M2x90M3,M3x90,M3x90M2
Dim Tot1,Tot2,Diff,Resto7,Resto13,Tot7,Tot13,X7,X13
Dim Tot7x2,Tot7x4,Tot13x3,Tot13x9,Tot27,Tot272,Tot2724
Dim Tot17,Tot172,Tot1724,Tot213,Tot2133,Tot21339
Dim Tot113,Tot1133,Tot11339,Visuale
Dim A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16
Dim Re1,Re2,Re3,Re4,Re5,Re6,Re7,Re8,Re9,Re10,Re11,Re12,Re13,Re14,Re15,Re16
Dim Ru(2),Posta(2),M(4),L(16),Ambo(2)
Posta(2) = 1
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10600))'estrazione 6136 nell'esempio
Clp = CInt(InputBox("Inserisci i Colpi di Gioco per l'ambata",Salvo50,10))
Visuale = CInt(InputBox(" Se vuoi visualizzare i calcoli metti 1, altrimenti metti un qualsiasi altro numero ",Salvo50,1))
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(8) & " La Tavola Delle Progressioni Armoniche di D. Manna - Script Salvo50" & Space(8),1,,4,,3,,1
ResetTimer
For Es = Ini To FIn
Messaggio Es & " Tempo Trascorso " & TempoTrascorso
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 2
For P2 = P1 + 1 To 3
For P3 = P2 + 1 To 4
For P4 = P3 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
D = Estratto(Es,R1,P4)
If A > 0 Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
'M4--M1
'| |
'M3--M2
SomOr1 = Fuori90(M(4) + M(1)) : SomOr2 = Fuori90(M(3) + M(2))
If SomOr1 = SomOr2 Then
DistVe1 = Distanza(M(4),M(3)) : DistVe2 = Distanza(M(1),M(2))
If DistVe1 = DistVe2 Then
DistDi1 = Distanza(M(4),M(2)) : DistDi2 = Distanza(M(1),M(3))
If DistDi1 = DistDi2 Then
'Trasformazione Degli Ambi, Secondo il Senso Orario e L'equivalenza Delle Somme in Sistema Novantesimale
M4x90 =(M(4) * 90) : M4x90M1 =(M4x90 + M(1)) : M1x90 =(M(1) * 90) : M1x90M4 =(M1x90 + M(4))
M2x90 =(M(2) * 90) : M2x90M3 =(M2x90 + M(3)) : M3x90 =(M(3) * 90) : M3x90M2 =(M3x90 + M(2))
'
Tot1 = FuoriX((M4x90M1 + M2x90M3),8100)
Tot2 = FuoriX((M1x90M4 + M3x90M2),8100)
Diff = Differenza(Tot1,Tot2)
'Inizio calcoli per la divisione per 7
Resto7 = Diff Mod 7
If Resto7 = 0 Then
Tot7 = Diff / 7
Else
X7 = 7 - Resto7
X7 = X7 * 8100
X7 = X7 + Diff
Tot7 = X7 / 7
End If
'Inizio calcoli per la divisione per 13
Resto13 = Diff Mod 13
If Resto13 = 0 Then
Tot13 = Diff / 13
Else
X13 = 13 - Resto13
X13 = X13 * 8100
X13 = X13 + Diff
Tot13 = X13 / 13
End If
'Fine calcoli per la divisione per 13
Tot7x2 = FuoriX((Tot7 * 2),8100) : Tot7x4 = FuoriX((Tot7 * 4),8100)' progressioni del 7
Tot13x3 = FuoriX((Tot13 * 3),8100) : Tot13x9 = FuoriX((Tot13 * 9),8100)'progressioni del 13
'Calcolo progressioni Ascendenti Del 7
Tot27 = FuoriX((Tot2 + Tot7),8100)
Tot272 = FuoriX((Tot27 + Tot7x2),8100)
Tot2724 = FuoriX((Tot272 + Tot7x4),8100)
'Calcolo progressioni Discendenti Del 7
Tot17 = FuoriX((8100 + Tot1 - Tot7),8100)
Tot172 = FuoriX((8100 + Tot17 - Tot7x2),8100)
Tot1724 = FuoriX((8100 + Tot172 - Tot7x4),8100)
'Calcolo progressioni Ascendenti Del 13
Tot213 = FuoriX((Tot2 + Tot13),8100)
Tot2133 = FuoriX((Tot213 + Tot13x3),8100)
Tot21339 = FuoriX((Tot2133 + Tot13x9),8100)
'Calcolo progressioni Discendenti Del 13
Tot113 = FuoriX((8100 + Tot1 - Tot13),8100)
Tot1133 = FuoriX((8100 + Tot113 - Tot13x3),8100)
Tot11339 = FuoriX((8100 + Tot1133 - Tot13x9),8100)
A1 = Tot2\ 90 : Re1 = Tot2 Mod 90
If Re1 = 0 Then Re1 = 90
A2 = Tot27\ 90 : Re2 = Tot27 Mod 90
If Re2 = 0 Then Re2 = 90
A3 = Tot272\ 90 : Re3 = Tot272 Mod 90
If Re3 = 0 Then Re3 = 90
A4 = Tot2724\ 90 : Re4 = Tot2724 Mod 90
If Re4 = 0 Then Re4 = 90
'Calcolo pronostico Ambi settenari discendenti
A9 = Tot1\ 90 : Re9 = Tot1 Mod 90
If Re9 = 0 Then Re9 = 90
A10 = Tot17\ 90 : Re10 = Tot17 Mod 90
If Re10 = 0 Then Re10 = 90
A11 = Tot172\ 90 : Re11 = Tot172 Mod 90
If Re11 = 0 Then Re11 = 90
A12 = Tot2\ 90 : Re12 = Tot2 Mod 90
If Re12 = 0 Then Re12 = 90
'Calcolo pronostico Ambi tredicesimali ascendenti
A5 = Tot2\ 90 : Re5 = Tot2 Mod 90
If Re5 = 0 Then Re5 = 90
A6 = Tot213\ 90 : Re6 = Tot213 Mod 90
If Re6 = 0 Then Re6 = 90
A7 = Tot2133\ 90 : Re7 = Tot2133 Mod 90
If Re7 = 0 Then Re7 = 90
A8 = Tot1\ 90 : Re8 = Tot1 Mod 90
If Re8 = 0 Then Re8 = 90
'Calcolo pronostico Ambi tredicesimali discendenti
A13 = Tot1\ 90 : Re13 = Tot1 Mod 90
If Re13 = 0 Then Re13 = 90
A14 = Tot113\ 90 : Re14 = Tot113 Mod 90
If Re14 = 0 Then Re14 = 90
A15 = Tot1133\ 90 : Re15 = Tot1133 Mod 90
If Re15 = 0 Then Re15 = 90
A16 = Tot11339\ 90 : Re16 = Tot11339 Mod 90
If Re16 = 0 Then Re16 = 90
'
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
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 Or E1 = C Or E1 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
If Visuale = 1 Then
Scrivi Space(32) & " (In Ogni Gruppo Numeri Uguali)",1,,,1
Scrivi Space(10) & " Quadrato in " & Space(8) & "Somme " & Space(6) & " Distanze ",1,0
Scrivi Space(4) & " Distanze ",1
Scrivi Space(10) & "Senso Orario " & Space(5) & "Orizzontali" & Space(5),1,0
Scrivi "Verticali Diagonali",1
Scrivi Space(13) & Format2(M(4)) & " " & Format2(M(1)) & Space(14) & Format2(SomOr1),1,0
Scrivi Space(13) & Format2(DistVe1) & Space(12) & Format2(DistDi1),1
Scrivi Space(13) & Format2(M(3)) & " " & Format2(M(2)) & Space(14) & Format2(SomOr2),1,0
Scrivi Space(13) & Format2(DistVe2) & Space(12) & Format2(DistDi2),1
Scrivi
Scrivi "Trasformazione Degli Ambi, Secondo il Senso Orario e L'equivalenza Delle Somme in Sistema Novantesimale ",1,,,1
Scrivi
Scrivi Space(10) & Format2(M(4)) & " * 90 = " & Format2(M4x90) & " + ",1,0
Scrivi Format2(M(1)) & " = " & Format2(M4x90M1) & Space(3) & " Inversione ",1,0
Scrivi Space(3) & Format2(M(1)) & " * 90 = " & Format2(M1x90) & " + ",1,0
Scrivi Format2(M(4)) & " = " & Format2(M1x90M4),1
'Scrivi
Scrivi Space(10) & Format2(M(2)) & " * 90 = " & Format2(M2x90) & " + ",1,0
Scrivi Format2(M(3)) & " = " & Format2(M2x90M3) & Space(3) & " Inversione ",1,0
Scrivi Space(3) & Format2(M(3)) & " * 90 = " & Format2(M3x90) & " + ",1,0
Scrivi Format2(M(2)) & " = " & Format2(M3x90M2),1
Scrivi
Scrivi Space(64) & " Differenza ",1
Scrivi Space(10) & Format2(M4x90M1) & " + " & Format2(M2x90M3) & " = ",1,0
Scrivi Format2(Tot1),1,0
Scrivi Space(8) & Format2(M1x90M4) & " + " & Format2(M3x90M2) & " = ",1,0
Scrivi Format2(Tot2),1,0
Scrivi Space(8) & Format2(Tot1) & " - " & Format2(Tot2) & " = ",1,0
Scrivi Format2(Diff),1
Scrivi
Scrivi Space(9) & " Differenza diviso 7 ",1,0,,1
Scrivi Space(5) & " Formazione delle progressioni armoniche del 7",1,,,1
Scrivi Space(12) & Format2(Diff) & " / 07 = " & Format2(Tot7),1,0
Scrivi Space(15) & Format2(Tot7) & Space(10) & Format2(Tot7x2) & Space(10) & Format2(Tot7x4),1
Scrivi
Scrivi Space(9) & " Differenza diviso 13 ",1,0,,2
Scrivi Space(4) & " Formazione delle progressioni armoniche del 13",1,,,2
Scrivi Space(12) & Format2(Diff) & " / 13 = " & Format2(Tot13),1,0
Scrivi Space(15) & Format2(Tot13) & Space(10) & Format2(Tot13x3) & Space(10) & Format2(Tot13x9),1
Scrivi
Scrivi Space(9) & " Progressione Armonica Ascendente del 7",1,,,1
Scrivi Space(10) & "(" & Format2(Tot2) & ") + " & Format2(Tot7) & " = (" & Format2(Tot27),1,0
Scrivi ") + " & Format2(Tot7x2) & " = (" & Format2(Tot272) & ") + " & Format2(Tot7x4),1,0
Scrivi " = (" & Format2(Tot2724) & ")",1
Scrivi
Scrivi Space(9) & " Progressione Armonica Ascendente del 13",1,,,2
Scrivi Space(10) & "(" & Format2(Tot2) & ") + " & Format2(Tot13) & " = (" & Format2(Tot213),1,0
Scrivi ") + " & Format2(Tot13x3) & " = (" & Format2(Tot2133) & ") + " & Format2(Tot13x9),1,0
Scrivi " = (" & Format2(Tot21339) & ")",1
Scrivi
Scrivi Space(9) & " Progressione Armonica Discendente del 7",1,,,1
Scrivi Space(10) & "(" & Format2(Tot1) & ") - " & Format2(Tot7) & " = (" & Format2(Tot17),1,0
Scrivi ") - " & Format2(Tot7x2) & " = (" & Format2(Tot172) & ") - " & Format2(Tot7x4),1,0
Scrivi " = (" & Format2(Tot1724) & ")",1
Scrivi
Scrivi Space(9) & " Progressione Armonica Discendente del 13",1,,,2
Scrivi Space(10) & "(" & Format2(Tot1) & ") - " & Format2(Tot13) & " = (" & Format2(Tot113),1,0
Scrivi ") - " & Format2(Tot13x3) & " = (" & Format2(Tot1133) & ") - " & Format2(Tot13x9),1,0
Scrivi " = (" & Format2(Tot11339) & ")",1
Scrivi
End If
Scrivi Space(10) & " Pronostico Ambi settenari " & Space(8) & " Pronostico Ambi Tredicesimali",1,,,1
Scrivi Space(10) & "Ascendenti" & Space(6) & "Discendenti",1,0
Scrivi Space(10) & "Ascendenti" & Space(6) & "Discendenti",1
Scrivi Space(12) & Format2(A1) & " " & Format2(Re1),1,0
Scrivi Space(11) & Format2(A9) & " " & Format2(Re9),1,0
Scrivi Space(16) & Format2(A5) & " " & Format2(Re5),1,0
Scrivi Space(11) & Format2(A13) & " " & Format2(Re13),1
Scrivi Space(12) & Format2(A2) & " " & Format2(Re2),1,0
Scrivi Space(11) & Format2(A10) & " " & Format2(Re10),1,0
Scrivi Space(16) & Format2(A6) & " " & Format2(Re6),1,0
Scrivi Space(11) & Format2(A14) & " " & Format2(Re14),1
Scrivi Space(12) & Format2(A3) & " " & Format2(Re3),1,0
Scrivi Space(11) & Format2(A11) & " " & Format2(Re11),1,0
Scrivi Space(16) & Format2(A7) & " " & Format2(Re7),1,0
Scrivi Space(11) & Format2(A15) & " " & Format2(Re15),1
Scrivi Space(12) & Format2(A4) & " " & Format2(Re4),1,0
Scrivi Space(11) & Format2(A12) & " " & Format2(Re12),1,0
Scrivi Space(16) & Format2(A8) & " " & Format2(Re8),1,0
Scrivi Space(11) & Format2(A16) & " " & Format2(Re16),1
Scrivi
Ru(1) = R1 : Ru(2) = TT_
L(1) = A1 & Re1
L(2) = A2 & Re2
L(3) = A3 & Re3
L(4) = A4 & Re4
L(5) = A5 & Re5
L(6) = A6 & Re6
L(7) = A7 & Re7
L(8) = A8 & Re8
L(9) = A9 & Re9
L(10) = A10 & Re10
L(11) = A11 & Re11
L(12) = A12 & Re12
L(13) = A13 & Re13
L(14) = A14 & Re14
L(15) = A15 & Re15
L(16) = A16 & Re16
ReDim T(90,90)
ReDim Nu(2)
K1 = 0
For I = 1 To UBound(L)
Nu(1) = CInt(Left(L(I),2))
Nu(2) = CInt(Right(L(I),2))
Nu(1) = Fuori90(Nu(1))
Nu(2) = Fuori90(Nu(2))
If Nu(1) <> Nu(2) Then
' MsgBox(StringaNumeri(Nu,,True))
Call OrdinaMatrice(Nu,1)
If T(Nu(1),Nu(2)) = False Then
K1 = K1 + 1
T(Nu(1),Nu(2)) = True
'Scrivi K & " " & StringaNumeri(Nu,,True)
ImpostaGiocata K1,Nu,Ru,Posta,Clp,2
End If
End If
Next
If K1 > 0 Then Gioca Es,True
End If
End If
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End SubMatematico
Advanced Member >PLATINUM<
Grazie di cuore salvo50, devo ancora provarlo ...appena rientro poi ti dico
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 17 giugno 2025Bari5069292042Cagliari9018152470Firenze0153242536Genova8949670530Milano1716538756Napoli7828673055Palermo0869058522Roma2876197717Torino7156031509Venezia5782765262Nazionale8349071213Estrazione Simbolotto
Napoli
3033284411
