salvo50
Advanced Member >PLATINUM PLUS<
Scusa Tiberio1, credevo d'averlo ringraziato, invece l'avevo fatto solo col pensiero, ho provveduto stamattina
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
tiberio1
Member
salvo50
Advanced Member >PLATINUM PLUS<
In questo forum non si possono mettere le mail è proibito, rischio bannamento, ma io non posseggo nessun metodo, ho solo qualche immagine della rivista -LottoPiù- e -Il Lotto Vincere è Facile-.
tiberio1
Member
OK ALLORA SI SONO ANCHE CARTACEI MA QUI I MESS PERSONALI NN SI POSSONO USARE?
tiberio1
Member
INTENDO I MESS PRIVATI
tiberio1
Member
Allegati
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao Tiberio1, ti ho già detto che li faccio quando ho tempo e voglia, io ho anche la mia vita privata, se hai premura (questo è un consiglio) postalo da un'altra parte e chiedi a Tutti gli scripters (non ti rivolgere solo a uno) di farti lo script, e un'altra cosa quando io ho bisogno di aiuto, lo chiedo io, non devi chiederlo tu per me.
Ciao Tiberio1, ti ho già detto che li faccio quando ho tempo e voglia, io ho anche la mia vita privata, se hai premura (questo è un consiglio) postalo da un'altra parte e chiedi a Tutti gli scripters (non ti rivolgere solo a uno) di farti lo script, e un'altra cosa quando io ho bisogno di aiuto, lo chiedo io, non devi chiederlo tu per me.
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
ILegend, MarcoElle, Mister1729, Rudivall, Xeroxs
Grazie
Chiedo un favore a Tiberio1, le tue richieste in futuro di non postarle in questo topic, grazie.
IL METODO LIBRA
Con controllo a ritroso
ILegend, MarcoElle, Mister1729, Rudivall, Xeroxs
Grazie
Chiedo un favore a Tiberio1, le tue richieste in futuro di non postarle in questo topic, grazie.
IL METODO LIBRA
Codice:
Option Explicit
Sub Main
Dim Fin,Ini,Es,Clp,Salvo50,Caso,Casi
Dim R1,R2,A,B,C,D,P1,P2,P3,P4,E1,E2,X
Dim Media,xMedia,DiamMedia,D1,D2,Sp
Dim Somma,Ambata,S1,S2,So1,So2,Diag1
Dim Diag2,DD1,DD2,DiVe1,DiVe2
Dim Amba(1),Ruo(2),Posta(1)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9865)'6444
Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi Space(8) & "IL METODO LIBRA - SCRIPT SALVO50",1,,4,,3,,1
Sp = " "
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
P2 = P1 + 1
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If(pari(A) And pari(B)) Or(dispari(A) And dispari(B)) Then
xMedia = A + B
Media = xMedia \ 2
DiamMedia = Diametrale(Media)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
S1 = ""
S2 = ""
If C = Media Or C = DiamMedia Or D = Media Or D = DiamMedia Then
If C = Media Or C = DiamMedia Then X = C
If D = Media Or D = DiamMedia Then X = D
D1 = Fuori90(90 + X - A)
D2 = Fuori90(90 + B - X)
If D1 = D2 Then
S1 = Format2(A) & Space(10) & Format2(D1) & Space(10) & Format2(X) & Space(10) & Format2(D2) & Space(10) & Format2(B)
Somma = X + B : Ambata = Fuori90((90 + Somma) - A)
S2 = Format2(X) & " + " & Format2(B) & " = " & Format2(Somma)
S2 = S2 & Space(15) & Format2(Somma) & " - " & Format2(A) & " = " & Format2(Ambata)
So1 = Fuori90(Ambata + A) : So2 = Fuori90(X + B)
Diag1 = Distanza(Ambata,B) : Diag2 = Distanza(X,A)
DD1 = Diag1 * 2 : DD2 = Diag2 * 2
DiVe1 = Fuori90((90 + Ambata) - X) : DiVe2 = Fuori90((90 + A) - B)
If DiVe1 = DD1 Then DiVe1 = DiVe1 Else DiVe1 = ComplAdX(DiVe1)
If DiVe2 = DD2 Then DiVe2 = DiVe2 Else DiVe2 = ComplAdX(DiVe2)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
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(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = X Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(8) & Format2(A) & " + " & Format2(B) & " = " & Format2(xMedia) & " / 2 = Media ",1,0
Scrivi Format2(Media),1,0,,2
Scrivi " Diamrtrale di ",1,0
Scrivi Format2(DiamMedia),1,,,2
Scrivi Space(10) & " LE DUE DISTANZE DEVONO ESSERE UGUALI",1,,,1
Scrivi Space(4) & "Primo" & Space(6) & "Prima" & Space(6) & "Diametrale" & Space(2) & "Seconda" & Space(5) & "Secondo",1
Scrivi Space(3) & "Estratto" & Space(3) & "Distanza" & Space(5) & "o Media" & Space(4) & "Distanza" & Space(4) & "Estratto",1
Scrivi Space(5) & S1,1
Scrivi
Scrivi Space(8) & S2,1
Scrivi
Scrivi Space(3) & " Quadrato " & Space(9) & "Somme " & Space(7),1,0
Scrivi "Distanze" & Space(6) & "Distanze",1
Scrivi Space(2) & "Equidistanze " & Space(3) & " Orizzontali" & Space(5),1,0
Scrivi "Diagonali Verticali",1
Scrivi Space(5) & Format2(Ambata) & Sp & Format2(A) & Space(13),1,0
Scrivi Format2(So1) & Space(13) & Format2(Diag1) & Space(12) & Format2(DiVe1),1
Scrivi Space(5) & Format2(X) & Sp & Format2(B) & Space(13) & Format2(So2),1,0
Scrivi Space(13) & Format2(Diag2) & Space(12) & Format2(DiVe2),1
Scrivi
Amba(1) = Ambata
Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,Amba,Ruo,Posta,Clp
Gioca Es
End If
End If
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubCon controllo a ritroso
Codice:
Option Explicit
Sub Main
Dim Fin,Ini,Es,Clp,Salvo50,Caso,Casi
Dim R1,R2,A,B,C,D,P1,P2,P3,P4,E1,E2,X
Dim Media,xMedia,DiamMedia,D1,D2,Sp
Dim Somma,Ambata,S1,S2,So1,So2,Diag1
Dim Diag2,DD1,DD2,DiVe1,DiVe2,Ind
Dim Amba(1),Ruo(2),Posta(1)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)'6444
Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,9)
Ind = InputBox("Quante estrazioni vuoi andare a ritroso per controllo uscita ambata ?",,9)
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi Space(8) & "IL METODO LIBRA (con Controllo a ritroso) - SCRIPT SALVO50",1,,4,,3,,1
Sp = " "
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
P2 = P1 + 1
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If(pari(A) And pari(B)) Or(dispari(A) And dispari(B)) Then
xMedia = A + B
Media = xMedia \ 2
DiamMedia = Diametrale(Media)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
S1 = ""
S2 = ""
If C = Media Or C = DiamMedia Or D = Media Or D = DiamMedia Then
If C = Media Or C = DiamMedia Then X = C
If D = Media Or D = DiamMedia Then X = D
D1 = Fuori90(90 + X - A)
D2 = Fuori90(90 + B - X)
If D1 = D2 Then
S1 = Format2(A) & Space(10) & Format2(D1) & Space(10) & Format2(X)
S1 = S1 & Space(10) & Format2(D2) & Space(10) & Format2(B)
Somma = X + B : Ambata = Fuori90((90 + Somma) - A)
Amba(1) = Ambata
Ruo(1) = R1 : Ruo(2) = R2
If SerieFreq(Es - Ind,Es,Amba,Ruo,1) = 0 Then
S2 = Format2(X) & " + " & Format2(B) & " = " & Format2(Somma)
S2 = S2 & Space(15) & Format2(Somma) & " - " & Format2(A) & " = " & Format2(Ambata)
So1 = Fuori90(Ambata + A) : So2 = Fuori90(X + B)
Diag1 = Distanza(Ambata,B) : Diag2 = Distanza(X,A)
DD1 = Diag1 * 2 : DD2 = Diag2 * 2
DiVe1 = Fuori90((90 + Ambata) - X) : DiVe2 = Fuori90((90 + A) - B)
If DiVe1 = DD1 Then DiVe1 = DiVe1 Else DiVe1 = ComplAdX(DiVe1)
If DiVe2 = DD2 Then DiVe2 = DiVe2 Else DiVe2 = ComplAdX(DiVe2)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
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(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = X Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(8) & Format2(A) & " + " & Format2(B) & " = " & Format2(xMedia) & " / 2 = Media ",1,0
Scrivi Format2(Media),1,0,,2
Scrivi " Diamrtrale di ",1,0
Scrivi Format2(DiamMedia),1,,,2
Scrivi Space(10) & " LE DUE DISTANZE DEVONO ESSERE UGUALI",1,,,1
Scrivi Space(4) & "Primo" & Space(6) & "Prima" & Space(6) & "Diametrale" & Space(2) & "Seconda" & Space(5) & "Secondo",1
Scrivi Space(3) & "Estratto" & Space(3) & "Distanza" & Space(5) & "o Media" & Space(4) & "Distanza" & Space(4) & "Estratto",1
Scrivi Space(5) & S1,1
Scrivi
Scrivi Space(8) & S2,1
Scrivi
Scrivi Space(3) & " Quadrato " & Space(9) & "Somme " & Space(7),1,0
Scrivi "Distanze" & Space(6) & "Distanze",1
Scrivi Space(2) & "Equidistanze " & Space(3) & " Orizzontali" & Space(5),1,0
Scrivi "Diagonali Verticali",1
Scrivi Space(5) & Format2(Ambata) & Sp & Format2(A) & Space(13),1,0
Scrivi Format2(So1) & Space(13) & Format2(Diag1) & Space(12) & Format2(DiVe1),1
Scrivi Space(5) & Format2(X) & Sp & Format2(B) & Space(13) & Format2(So2),1,0
Scrivi Space(13) & Format2(Diag2) & Space(12) & Format2(DiVe2),1
Scrivi
ImpostaGiocata 1,Amba,Ruo,Posta,Clp
Gioca Es
End If
End If
End If
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
tiberio1
Member
Allegati
salvo50
Advanced Member >PLATINUM PLUS<
Nelle ultime pagine per completare il metodo, ci sono ulteriori esempi, il controllo a ritroso dell'ambata (pronostico), il controllo in avanti della eventuale uscita di almeno 2 dei 3 numeri base, ed i consigli per come giocare.
Per il controllo a ritroso ho messo un altro script, il controllo per default l'ho impostato a 9 colpi, come chiede il metodo, ma dato che ho messo un InputBox si può anche cambiare a piacere.
Per il controllo in avanti di almeno 2 dei numeri base, ed eventualmente interrompere il gioco , non so se si può fare e
NON MI INTERESSA SAPERLO
Saluti
Per il controllo a ritroso ho messo un altro script, il controllo per default l'ho impostato a 9 colpi, come chiede il metodo, ma dato che ho messo un InputBox si può anche cambiare a piacere.
Per il controllo in avanti di almeno 2 dei numeri base, ed eventualmente interrompere il gioco , non so se si può fare e
NON MI INTERESSA SAPERLO
Saluti
tiberio1
Member
Ok ti ringrazio tanto
Marco-elle
Banned
Buona Domenica Salvo50 e tutti....
ho dato una sbirciatina al listato che ho inserito e ho notato che la scorsa estrazione ha dato la Quaterna in decina.Per chi non crede a questa metodologia,
dico che è un metodo come altri visto che la certezza non esiste ma.....4 numeri su 10,non sono mica bruscolini!
ho dato una sbirciatina al listato che ho inserito e ho notato che la scorsa estrazione ha dato la Quaterna in decina.Per chi non crede a questa metodologia,
dico che è un metodo come altri visto che la certezza non esiste ma.....4 numeri su 10,non sono mica bruscolini!
Matematico
Advanced Member >PLATINUM<
Matematico
Advanced Member >PLATINUM<
Grazie salvo50
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Mister1729, Rudivall, Tiberio1, Xeroxs.
Grazie.
SEQUENZA CICLOMETRICA
Regola per avere un numero solo per estratto
Regola per Rinvenire Due Numeri Infallibili
Con solo Estrazione del 1842
Con archivio Attuale
Riguardo al -Metodo per Scegliere 5 Numeri- di Nicola Russo, non ci ho capito una mazza, se me lo spiegate bene, numero per numero come è ottenuto, proverò a fare lo script
Mister1729, Rudivall, Tiberio1, Xeroxs.
Grazie.
SEQUENZA CICLOMETRICA
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,Clp,Es1,Salvo50,R1,R2
Dim P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi,Diam_M3
Dim SAB,SAC,SBC,DM1M2,DM2M3,FA,FB,FC,Diam_M1,Diam_M2
Dim Amba(1),Ambo1(2),Ambo2(2),Terno(3)
Dim Ruo(2),Po1(1),Po2(2),L(4),M(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9863))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,8))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(5) & " La Sequenza Ciclometrica - Angelo Gargiulo - Script Salvo50",1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
For Es1 = Ini To FIn
Messaggio Es1
AvanzamentoElab Ini,FIn,Es1
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es1,R1,P1)
B = Estratto(Es1,R1,P2)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 5
If P3 = P1 Or P3 = P2 Then
C = Estratto(Es1,R2,P3)
If A > 0 And C > 0 Then
If A <> C And B <> C Then
FA = Figura(A) : FB = Figura(B) : FC = Figura(C)
If FA = FB And FA = FC Then
M(1) = A : M(2) = B : M(3) = C
Call OrdinaMatrice(M,1)
DM1M2 = Distanza(M(1),M(2)) : DM2M3 = Distanza(M(2),M(3))
If DM1M2 = DM2M3 Then
Diam_M1 = Diametrale(M(1)): Diam_M2 = Diametrale(M(2)) : Diam_M3 = Diametrale(M(3))
'
Amba(1) = Diam_M2
Ambo1(1) = Diam_M2 : Ambo1(2) = M(1)
Ambo2(1) = Diam_M2 : Ambo2(2) = M(3)
Terno(1) = Diam_M2 : Terno(2) = Diam_M1 : Terno(3) = Diam_M3
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es1,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(Es1) & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es1,R2,P6)
If E2 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(19) & " Figura " & FA,1,,,7,4
Scrivi Space(19) & "Distanza " & Format2(DM1M2) & Space(6) & "Distanza " & Format2(DM2M3),1,,,1
Scrivi Space(15) & Format2(M(1)) & String(15,"-") & Format2(M(2)) & String(15,"-"),1,0,,2
Scrivi Format2(M(3)),1,,,2
Scrivi
Scrivi Space(18) & "Diametrale di " & Format2(M(2)) & " = Ambata " & Format2(Diam_M2),1
Scrivi
Ruo(1) = R1
Ruo(2) = R2
ImpostaGiocata 1,Amba,Ruo,Po1,Clp
ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp
ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp
ImpostaGiocata 4,Terno,Ruo,Po2,Clp
Gioca Es1,1
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubRegola per avere un numero solo per estratto
Regola per Rinvenire Due Numeri Infallibili
Con solo Estrazione del 1842
Codice:
Option Explicit
Sub Main
Dim A,B,C,D,E,F,G,H,I,Sp
Dim S1,S2,D1,DD,EE,FF,GG,HH,II
Sp = " "
Scrivi Space(5) & " Regola per Rinvenire Due Numeri Infallibili - Felice Davenal ",1,,4,,3,,1
Scrivi Space(13) & " Procedimento Originale - Script Salvo50" & Space(13),1,,4,,3,,1
A = 72
B = 12
C = 27
'Calcoli per Quadro 1
D = Differenza(A,B)
E = Differenza(A,C)
S1 = Fuori90(A + B + C)
S1 = Fuori90(S1 * 3)
S1 = ComplAdX(S1)
D1 = Differenza(D,E)
F = Fuori90(S1 + D1)
G = Differenza(B,F)
H = Fuori90((90 + C) - F)
I = Fuori90((90 + G) - E)
'Calcoli per Quadro 2
S2 = Fuori90(E + E)
FF = S2 - B
GG = Differenza(B,FF)
HH = Fuori90((90 + C) - FF)
II = Differenza(D,HH)
Scrivi "Estrazione del 22.01.1842 NAPOLI 10 23 58 06",1,0
Scrivi " 72",1,,,2
Scrivi "Estrazione del 29.01.1842 NAPOLI",1,0
Scrivi " 12 ",1,0,,2
Scrivi "08 33 22",1,0
Scrivi " 27",1,,,2
Scrivi Space(5) & "Quadro 1" & Space(15) & "Quadro 2",1,,,1,5
Scrivi Space(5) & Format2(A),1,0,,2,5
Scrivi Sp & Format2(D),1,0,,,5
Scrivi Sp & Format2(B),1,0,,2,5
Scrivi Space(15) & Format2(A),1,0,,2,5
Scrivi Sp & Format2(D),1,0,,,5
Scrivi Sp & Format2(B),1,,,2,5
Scrivi Space(5) & Format2(E) & Sp & Format2(I) & Sp & Format2(G),1,0,,,5
Scrivi Space(15) & Format2(E) & Sp & Format2(II) & Sp & Format2(GG),1,,,,5
Scrivi Space(5) & Format2(C),1,0,,2,5
Scrivi Sp & Format2(H) & Sp,1,0,,,5
Scrivi Format2(F),1,0,,2,5
Scrivi Space(15) & Format2(C),1,0,,2,5
Scrivi Sp & Format2(HH) & Sp,1,0,,,5
Scrivi Format2(FF),1,,,2,5
Scrivi
Scrivi
End SubCon archivio Attuale
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp,Salvo50,R1,Caso,Casi
Dim A,B,C,D,E,F,G,H,I,P1,E1,S1,S2,D1
Dim FF,GG,HH,II,Sp
Dim Posta(2),Ruota(1),Amba(2)
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9868)
Clp = InputBox("Per quanti colpi vuoi giocare?",,10)
Posta(1) = 1
Posta(2) = 1
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(5) & " Regola per Avere un Numero Solo per Estratto - Felice Davenal - Script Salvo50",1,,4,,3,,1
Scrivi Space(5) & " Regola per Rinvenire Due Numeri Infallibili - Felice Davenal - Script Salvo50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
A = Estratto(Es - 1,R1,5)
B = Estratto(Es,R1,1)
C = Estratto(Es,R1,5)
'Calcoli per Quadro 1
D = Differenza(A,B)
E = Differenza(A,C)
S1 = Fuori90(A + B + C)
S1 = Fuori90(S1 * 3)
S1 = ComplAdX(S1)
D1 = Differenza(D,E)
F = Fuori90(S1 + D1)
G = Differenza(B,F)
H = Fuori90((90 + C) - F)
I = Fuori90((90 + G) - E)
'Calcoli per Quadro 2
S2 = Fuori90(E + E)
FF = Fuori90((90 + S2) - B)
GG = Differenza(B,FF)
HH = Fuori90((90 + C) - FF)
II = Differenza(D,HH)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P1 = 1 To 5
E1 = Estratto(Es - 1,R1,P1)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P1 = 1 To 5
E1 = Estratto(Es,R1,P1)
If E1 = B Or E1 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(5) & "Quadro 1" & Space(15) & "Quadro 2",1,,,1,5
Scrivi Space(5) & Format2(A),1,0,,2,5
Scrivi Sp & Format2(D),1,0,,,5
Scrivi Sp & Format2(B),1,0,,2,5
Scrivi Space(15) & Format2(A),1,0,,2,5
Scrivi Sp & Format2(D),1,0,,,5
Scrivi Sp & Format2(B),1,,,2,5
Scrivi Space(5) & Format2(E) & Sp & Format2(I) & Sp & Format2(G),1,0,,,5
Scrivi Space(15) & Format2(E) & Sp & Format2(II) & Sp & Format2(GG),1,,,,5
Scrivi Space(5) & Format2(C),1,0,,2,5
Scrivi Sp & Format2(H) & Sp,1,0,,,5
Scrivi Format2(F),1,0,,2,5
Scrivi Space(15) & Format2(C),1,0,,2,5
Scrivi Sp & Format2(HH) & Sp,1,0,,,5
Scrivi Format2(FF),1,,,2,5
Scrivi
Ruota(1) = R1
Amba(1) = F : Amba(2) = FF
ImpostaGiocata 1,Amba,Ruota,Posta,Clp
Gioca Es
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubRiguardo al -Metodo per Scegliere 5 Numeri- di Nicola Russo, non ci ho capito una mazza, se me lo spiegate bene, numero per numero come è ottenuto, proverò a fare lo script
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 23 novembre 2024Bari3380865225Cagliari6757590580Firenze3132588877Genova4039233681Milano2858452538Napoli2082234457Palermo7656886231Roma1281597472Torino4653724523Venezia0412426420Nazionale6344781055Estrazione Simbolotto
Torino
4342123922
