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
Matematico
Advanced Member >PLATINUM<
| 9 | 33 | 43 | 25 | 69 | 68 | Differenze |
| a | b | c | d | e | f | g |
| 64 | 55 | 22 | 69 | 44 | 65 | 87 |
| 55 | 22 | 69 | 44 | 65 | 87 | 14 |
| 22 | 69 | 44 | 65 | 87 | 14 | 14 |
| 69 | 44 | 65 | 87 | 14 | 14 | 26 |
| 44 | 65 | 87 | 14 | 14 | 26 | XX |
| 74 | 75 | 17 | 9 | 44 | 26 | il 2° quadro |
| 89 | 58 | 8 | 55 | 18 | Differenza delle somme |
74+75+17+9+44+26 = 65
87+14+14+26 = 51
51+65 = 26 + 1° estratto 64 = 90
salvo50
Advanced Member >PLATINUM PLUS<
Fatto, però le equazioni non sono 3 ma una sola, quella che recita
la somma delle 7 colonne + il primo estratto, le altre 2 equazioni
ci sono sempre a 90 perchè non hanno condizioni
Lo script alla prima domanda chiede l'estrazione di partenza
alla seconda domanda chiede l'estrazione di arrivo
quindi il numero messo alla prima domanda deve essere
più grande di quello messo alla seconda domanda
le altre 3 domande sono le esclusioni delle equazioni
con numero 1 sono inserite con qualsiasi altro numero
sono disinserite
Alla sesta domanda si impostano i colpi di gioco dell'ambo
la somma delle 7 colonne + il primo estratto, le altre 2 equazioni
ci sono sempre a 90 perchè non hanno condizioni
Lo script alla prima domanda chiede l'estrazione di partenza
alla seconda domanda chiede l'estrazione di arrivo
quindi il numero messo alla prima domanda deve essere
più grande di quello messo alla seconda domanda
le altre 3 domande sono le esclusioni delle equazioni
con numero 1 sono inserite con qualsiasi altro numero
sono disinserite
Alla sesta domanda si impostano i colpi di gioco dell'ambo
Codice:
Option Explicit
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13,D14,D15,D16
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,Clp,Caso
Dim R1,Es1,Es2,Casi,SoC1,SoC2,Compl90_1,Compl90_2
Dim S1,S2,S3,S4,S5,S6,S7,S8,S11
Dim FIn,Ini,Equ2,Equ3,Equ4,Equ5,S11a
Dim S21,S22,S23,S24,S25,Ok,X1
Dim Ambata,Salvo50,FInx,Equ1
Dim Ins1,Ins2,Ins3
Dim A(5),B(5),S(14),D(16)
Dim Ambo(2),Ruo(2),Posta(2)
FIn = EstrazioneFin
FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)'10577
Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,10000)'10559
Ins1 = InputBox("Se vuoi includere la prima equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
Ins2 = InputBox("Se vuoi includere la seconda equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
Ins3 = InputBox("Se vuoi includere la terza equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
Clp = InputBox("Quanti colpi di gioco? ",Salvo50,13)
Posta(2) = 1
Scrivi Space(8) & " Modifica al Metodo Byron Chiesta da Everita C - Script Salvo50",1,,4,,3,,1
For Es1 = FInx To Ini Step - 1
AvanzamentoElab FIn,Ini,Es1
For Es2 = FInx To Ini Step - 1
Messaggio " Prima Estrazione " & Es1 & " Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
If(Es1 <> Es2) And(Es2 < Es1) Then
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
B1 = Estratto(Es1,R1,1)
If B1 > 0 Then
B2 = Estratto(Es1,R1,2)
B3 = Estratto(Es1,R1,3)
B4 = Estratto(Es1,R1,4)
B5 = Estratto(Es1,R1,5)
SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
A1 = Estratto(Es2,R1,1)
If A1 > 0 Then
A2 = Estratto(Es2,R1,2)
A3 = Estratto(Es2,R1,3)
A4 = Estratto(Es2,R1,4)
A5 = Estratto(Es2,R1,5)
SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
'-----------------------------------------
S1 = Fuori90(A1 + A2 + A3 + A4 + A5)
S2 = Fuori90(A2 + A3 + A4 + A5 + B1)
S3 = Fuori90(A3 + A4 + A5 + B1 + B2)
S4 = Fuori90(A4 + A5 + B1 + B2 + B3)
S5 = Fuori90(A5 + B1 + B2 + B3 + B4)
S6 = Fuori90(B1 + B2 + B3 + B4 + B5)
S7 = Fuori90(B2 + B3 + B4 + B5)
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6 + S7) 'le sette somme
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - A3))
D3 = Fuori90(90 +(A3 - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D12 = Fuori90((90 + S1) - S2)
D13 = Fuori90((90 + S2) - S3)
D14 = Fuori90((90 + S3) - S4)
D15 = Fuori90((90 + S4) - S5)
D16 = Fuori90((90 + S5) - S6)
If D1 = D6 And D12 = D13 Then
' INIZIO CALCOLI SECONDO QUADRO
B(1) = SoC1
B(2) = Fuori90((D1 * 2) + A4)
B(3) = Fuori90((SoC1 * 2) + A1)
' B(4) = Fuori90((D12 * 2) +(SoC1 * 2))
' B(5) = Fuori90(D2 + D3 + D4 + D5)
A(1) = A1
A(2) = A2
A(3) = A3
A(4) = A4
A(5) = A5
X1 = Fuori90(B(1) + B(2) + B(3))
Compl90_1 = ComplAdX(X1)
Compl90_2 = ComplAdX(A1)
B(4) = Compl90_1
B(5) = Compl90_2
'-----------------------------------------
S(1) = Fuori90(A(1) + A(2) + A(3) + A(4) + A(5))
S(2) = Fuori90(A(2) + A(3) + A(4) + A(5) + B(1))
S(3) = Fuori90(A(3) + A(4) + A(5) + B(1) + B(2))
S(4) = Fuori90(A(4) + A(5) + B(1) + B(2) + B(3))
S(5) = Fuori90(A(5) + B(1) + B(2) + B(3) + B(4))
S(6) = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
S(7) = Fuori90(B(2) + B(3) + B(4) + B(5))
S(8) = Fuori90(S(7) + A(1))
S(9) = Fuori90(S(8) + B(1))'1a Ambata
S(10) = Fuori90(S(6) + S(7))
S(11) = Fuori90(S(1) + S(2) + S(3) + S(4) + S(5) + S(6) + S(7))'somme delle 7 colonne
S(12) = Fuori90((S(9) + 90) - S(10))'2a Ambata
D(1) = Fuori90(90 +(A(1) - A(2)))
D(2) = Fuori90(90 +(A(2) - A(3)))
D(3) = Fuori90(90 +(A(3) - A(4)))
D(4) = Fuori90(90 +(A(4) - A(5)))
D(5) = Fuori90(90 +(A(5) - B(1)))
D(6) = Fuori90(90 +(B(1) - B(2)))
'----------------------------
D(12) = Fuori90((90 + S(1)) - S(2))
D(13) = Fuori90((90 + S(2)) - S(3))
D(14) = Fuori90((90 + S(3)) - S(4))
D(15) = Fuori90((90 + S(4)) - S(5))
D(16) = Fuori90((90 + S(5)) - S(6))
'
Equ1 = Fuori90(X1 + Compl90_1)
Equ2 = Fuori90(A1 + Compl90_2)
Equ3 = Fuori90(A1 + S(11))
Ambo(1) = S(9) : Ambo(2) = S(12)
If((Ins1 = 1 And Equ1 = 90)Or(Ins1 <> 1))And((Ins2 = 1 And Equ2 = 90)Or(Ins2 <> 1)) _
And((Ins3 = 1 And Equ3 = 90)Or(Ins3 <> 1)) Then
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
Scrivi(" Estrazione n." & FormattaStringa(Es2,"0000") & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1) & " Somma = " & Format2(SoC2),1
Scrivi(" Estrazione n." & FormattaStringa(Es1,"0000") & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1
Scrivi
Scrivi Space(16) & " Primo Quadro" & Space(24),1,,4,,3,,1
Scrivi Space(8) & "Differenze (" & Format2(D1) & ")" & Format2(D2) & " " & Format2(D3),1,0
Scrivi " " & Format2(D4) & " " & Format2(D5) & "(" & Format2(D6) & ")",1
Scrivi Space(20) & String(20,"-")
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),1' & Space(33) & "Somma Distanze = ",1,0
' Scrivi Format2(S10),1,,,1
Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
Scrivi " " & Format2(B4) & " " & Format2(B5),1
' Scrivi " " & Format2(XX),1,,,2
Scrivi Space(20) & String(20,"-")
Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
Scrivi " " & Format2(S5) & " " & Format2(S6) & " " & Format2(S7) & " Somma delle 7 colonne = ",1,0
Scrivi Format2(S11),1,,,1
Scrivi "Differ. delle somme(" & Format2(D12) & " " & Format2(D13) & ")" & Format2(D14) & " " & Format2(D15),1,0
Scrivi " " & Format2(D16),1
Scrivi String(68,"X"),1
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'
Scrivi Space(15) & " Secondo Quadro" & Space(24),1,,4,,3,,1
Scrivi Space(8) & "Differenze (" & Format2(D(1)) & ")" & Format2(D(2)) & " " & Format2(D(3)),1,0
Scrivi " " & Format2(D(4)) & " " & Format2(D(5)) & "(" & Format2(D(6)) & ")",1
Scrivi Space(20) & String(20,"-")
Scrivi Space(20) & Format2(A(1)) & " " & Format2(A(2)) & " " & Format2(A(3)) & " " & Format2(A(4)),1,0
Scrivi " " & Format2(A(5)) & " " & Format2(B(1)) & " " & Format2(B(2)),1
Scrivi Space(20) & Format2(A(2)) & " " & Format2(A(3)) & " " & Format2(A(4)) & " " & Format2(A(5)),1,0
Scrivi " " & Format2(B(1)) & " " & Format2(B(2)) & " " & Format2(B(3)),1
Scrivi Space(20) & Format2(A(3)) & " " & Format2(A(4)) & " " & Format2(A(5)) & " " & Format2(B(1)),1,0
Scrivi " " & Format2(B(2)) & " " & Format2(B(3)) & " " & Format2(B(4)),1' & Space(33) & "Somma Distanze = ",1,0
Scrivi Space(20) & Format2(A(4)) & " " & Format2(A(5)) & " " & Format2(B(1)) & " " & Format2(B(2)),1,0
Scrivi " " & Format2(B(3)) & " " & Format2(B(4)) & " " & Format2(B(5)),1
Scrivi Space(20) & Format2(A(5)) & " " & Format2(B(1)) & " " & Format2(B(2)) & " " & Format2(B(3)),1,0
Scrivi " " & Format2(B(4)) & " " & Format2(B(5)),1
' Scrivi " " & Format2(XX),1,,,2
Scrivi Space(20) & String(20,"-")
Scrivi Space(13) & " Somme " & Format2(S(1)) & " " & Format2(S(2)) & " " & Format2(S(3)) & " " & Format2(S(4)),1,0
Scrivi " " & Format2(S(5)) & " " & Format2(S(6)) & " " & Format2(S(7)) & " Somma delle 7 colonne ",1,0
Scrivi Format2(S(11)),1,,,1
Scrivi "Differ. delle somme(" & Format2(D(12)) & " " & Format2(D(13)) & ")" & Format2(D(14)) & " " & Format2(D(15)),1,0
Scrivi " " & Format2(D(16)),1
Scrivi
Scrivi Space(20) & Format2(X1) & " + " & Format2(Compl90_1) & " = " & Format2(Equ1) & " 1ª Equazione ",1
Scrivi Space(20) & Format2(A(1)) & " + " & Format2(Compl90_2) & " = " & Format2(Equ2) & " 2ª Equazione ",1
Scrivi Space(20) & Format2(A(1)) & " + " & Format2(S(11)) & " = " & Format2(Equ3) & " 3ª Equazione ",1
Scrivi
Scrivi Space(20) & Format2(S(7)) & " + " & Format2(A(1)) & " = " & Format2(S(8)),1
Scrivi Space(20) & Format2(S(8)) & " + " & Format2(B(1)) & " = " & Format2(S(9)),1,0
Scrivi " Ambata ",1'Ambata 1
Scrivi Space(20) & Format2(S(6)) & " + " & Format2(S(7)) & " = " & Format2(S(10)),1
Scrivi Space(20) & Format2(S(9)) & " - " & Format2(S(10)) & " = " & Format2(S(12)),1,0
Scrivi " Ambata ",1'Ambata 2
Ruo(1) = R1 : Ruo(2) = TU_
ImpostaGiocata 1,Ambo,Ruo,Posta,Clp
Gioca Es1
End If
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
End If
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
Ultima modifica:
Inserendo il 90 nel quadratino vuoto si ha la somma 51.
Poi sommando 51 + 64 ( primo numero cinquina sopra ) = somma 25.
25 + 65 ( primo numero cinquina sotto ) = somma 90 ( prima ambata ).
Poi si sommano 26 + 51 ( ultimi 2 numeri somma colonne ) = somma 77
90 - 77 = somma 13 ( seconda ambata ).
Poi sommando 51 + 64 ( primo numero cinquina sopra ) = somma 25.
25 + 65 ( primo numero cinquina sotto ) = somma 90 ( prima ambata ).
Poi si sommano 26 + 51 ( ultimi 2 numeri somma colonne ) = somma 77
90 - 77 = somma 13 ( seconda ambata ).
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 22 marzo 2025Bari5537894851Cagliari0834322326Firenze0364743390Genova0359776470Milano5245412729Napoli4109174970Palermo6882654144Roma6708877079Torino8012325944Venezia2275068315Nazionale1284443834Estrazione Simbolotto
Firenze
1827171501
