Script su Metodi Cabalistici, Ciclometrici & C.

EVERITA C · 25 Agosto 2023

Buonasera Salvo appena tornata da lavoro.

Ho fatto girare lo script e mi sono accorta che non ci sono piu' le condizioni richieste dal metodo.

Ora non vorrei essere piu' opprimente e opterei per l'ultima spiaggia.

Allo script con le condizioni richieste io suggerirei di aggiungere un imput- box dove aggiungere a mano il numero fino a quando non si trova quello che soddisfa le tre equazioni.

Se si grazie infinite se no grazie ugualmente per la pazienza nei miei confronti.

i legend · 25 Agosto 2023

Ciao,
Salvo appena ho il PC, se indicate il post dove è spiegato il passaggio provo a darci un occhio.

Ciao.

EVERITA C · 26 Agosto 2023

Buongiorno a tutti.

Se e' possibile risolvere lo script vi ringrazio dal profondo del cuore.

salvo50 · 26 Agosto 2023

Ciao a Tutti

Io direi di aspettare che lo script lo faccia ILegend

Ma voglio dire come la penso per questo script, se il mio ragionamento è sbagliato, ditemi dove sto sbagliando.

ipotizziamo che partendo da una estrazione ad esempio l'ultima in archivio, e che per andare fino all'estrazione n1 del 1871, lo script impieghi 1 secondo, incrementando il terzo estratto della seconda cinquina si arrivi a 90 senza aver raggiunto la condizione delle 3 equivalenze, (la condizione delle 3 equivalenze ce ne sono pochissime che possiamo trascurare quando escono) ci abbiamo impiegato 1 minuto e 30 secondi per controllare una sola estrazione, però voglio togliere anche quei 30 secondi e quindi diciamo che per controllare una sola estrazione per tutte e 90 i numeri incrementati ci impieghiamo un minuto, lo sto facendo propri super veloce questo script. Le estrazioni sono più di 10000, ma diciamo che io ne voglio controllare solo mille quindi un minuto per ogni estrazione dato che voglio controllare solo 1000 estrazioni lo script impiega 1000 minuti.
Quindi 1000/ 60 = 16 ore per controllare solo 1000 estrazioni. Con uno script super veloce che secondo me può farlo solo ILegend

i legend · 26 Agosto 2023

Salvo , se tutto va bene prima di tre settimane non avrò il pc.
Da chiunque ordinerò non hanno i componenti e devono ordinarli.
Mi spiace .

salvo50 · 27 Agosto 2023

Ciao a Tutti

Come chiesto da Everita inserimento incremento da InputBox quindi il numero che metti lo sommo al terzo estratto della seconda ruota le equazioni sono le tre che mi hai detto al post 607, il numero delle combinazioni in uscita l'ho messo a 1 se vuoi vederne di più cambialo, provalo e dimmi se ci sono errori

Codice:

Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim R1,R2,Es1,Es2,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
   Dim FIn,Ini,S12,S13,S11a,S14
   Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
   Dim Ambata,Salvo50,FInx,Comb
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   xB3 = InputBox("Inserisci un numero per incrementare il terzo estratto della seconda cinquina",Salvo50,1)
   Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,1))
   Scrivi Space(8) & " Modifica al Metodo Byron di Matematico - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FInx,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
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               A1 = Estratto(Es1,R1,1)
               If A1 > 0 Then
                  A2 = Estratto(Es1,R1,2)
                  A3 = Estratto(Es1,R1,3)
                  A4 = Estratto(Es1,R1,4)
                  A5 = Estratto(Es1,R1,5)
                  Diam_B3 = Diametrale(A3)
                  SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     B1 = Estratto(Es2,R2,1)
                     If B1 > 0 Then
                        B2 = Estratto(Es2,R2,2)
                        B3 = Estratto(Es2,R2,3)
                        B4 = Estratto(Es2,R2,4)
                        B5 = Estratto(Es2,R2,5)
                        XX = Fuori90(B3 + xB3)
                        SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
                        '-----------------------------------------
                        S1 = Fuori90(B1 + B2 + XX + B4 + B5) : If S1 < 10 Then S1 = S1 + 90
                        S2 = Fuori90(B2 + XX + B4 + B5 + A1) : If S2 < 10 Then S2 = S2 + 90
                        S3 = Fuori90(XX + B4 + B5 + A1 + A2) : If S3 < 10 Then S3 = S3 + 90
                        S4 = Fuori90(B4 + B5 + A1 + A2 + A3) : If S4 < 10 Then S4 = S4 + 90
                        S5 = Fuori90(B5 + A1 + A2 + A3 + A4) : If S5 < 10 Then S5 = S5 + 90
                        S6 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S6 < 10 Then S6 = S6 + 90
                        Som_S2_S6 = Fuori90(S2 + S6)
                        Ok = 0
                        D1 = Fuori90(90 +(B1 - B2))
                        D2 = Fuori90(90 +(B2 - XX))
                        D3 = Fuori90(90 +(XX - B4))
                        D4 = Fuori90(90 +(B4 - B5))
                        D5 = Fuori90(90 +(B5 - A1))
                        D6 = Fuori90(90 +(A1 - A2))
                        '----------------------------
                        D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
                        D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
                        D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
                        D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
                        D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
                        S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)'somma delle differenze
                        Ambata = Fuori90(S10 + A1)
                        S7 = Fuori90(Ambata + A2 + A3 + A4 + A5)
                        If S7 < 10 Then S7 = S7 + 90 'somma settima colonna
                        S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
                        S11a = Fuori90(S11 + S7) 'somma delle Sette somme
                        S12 = Fuori90(S11a + S10) '1a Equazione
                        S13 = Fuori90(SoC2 + B1) '2a Equazione
                        S14 = Fuori90(S11 + S10)' 3a Equazione
                        If S12 = 90 And S13 = 90 And S14 = 90 Then Ok = 1 'And S13 = 90 And S14 = 90 Then Ok = 1
                        If Ok = 1 Then
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                           Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & " Somma = " & Format2(SoC2),1,0
                           Scrivi " Seconda Ruota",1
                           Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                           Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1,0
                           Scrivi " Prima ruota",1
                           Scrivi
                           Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
                           Scrivi " " & Format2(D5) & " " & Format2(D6) & " - Somma Delle 11 Distanze = ",1,0
                           Scrivi Format2(S10),1,,,1
                           Scrivi Space(20) & String(20,"-"),1
                           Scrivi Space(20) & Format2(B1) & " " & Format2(B2) & " " & Format2(XX) & " " & Format2(B4),1,0
                           Scrivi " " & Format2(B5) & " " & Format2(A1) & " " & Format2(A2),1
                           Scrivi Space(20) & Format2(B2) & " " & Format2(XX) & " " & Format2(B4) & " " & Format2(B5),1,0
                           Scrivi " " & Format2(A1) & " " & Format2(A2) & " " & Format2(A3),1
                           Scrivi Space(20) & Format2(XX) & " " & Format2(B4) & " " & Format2(B5) & " " & Format2(A1),1,0
                           Scrivi " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1
                           Scrivi Space(20) & Format2(B4) & " " & Format2(B5) & " " & Format2(A1) & " " & Format2(A2),1,0
                           Scrivi " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
                           Scrivi Space(20) & Format2(B5) & " " & Format2(A1) & " " & Format2(A2) & " " & Format2(A3),1,0
                           Scrivi " " & Format2(A4) & " " & Format2(A5),1,0
                           Scrivi " " & Format2(Ambata),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) & " ",1,0
                           Scrivi Format2(S7),1,0,,1
                           Scrivi " - Somma delle 6 Colonne ",1,0
                           Scrivi Format2(S11),1,,,1
                           Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                           Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
                           Scrivi
                           Scrivi Space(20) & Format2(S11a) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
                           Scrivi " Somma Delle somme più Somma Delle Distanze ",1,,,1
                           Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(S13) & " 2ª Equazione ",1,0
                           Scrivi " Somma 2ª cinquina più 1° Estratto 1ª cinquina",1,,,2
                           Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S14) & " 3ª Equazione ",1,0
                           Scrivi " Somma di tutte le differenze più somma delle sei colonne",1,,,1
                           Scrivi
                           Scrivi
                           If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
                           '---------------------------------------------------------------------------------------------------
                           If Casi = Comb Then Exit Sub
                        End If
                     End If
                  Next
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

EVERITA C · 27 Agosto 2023

Ciao Salvo lo script mi da errore la riga dov'e' scritto:

Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,1)

L'ho tolta e ho fatto girare lo script per circa mezz'ora ma niente.

Non so dirti niente finche' non vedo lo script.

EVERITA C · 27 Agosto 2023

Non riesco a capire perche' questo script pur essendo quasi perfetto ed essendoci le condizioni descritte dal metodo

non si concretizza il passaggio della seconda equazione:

Seconda equazione:

Somma seconda cinquina + primo estratto prima cinquina = 90

Option Explicit
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
Dim R1,R2,Es1,Es2,Casi,SoC1,SoC2
Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
Dim FIn,Ini,S12,S13,S11a,S14
Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
Dim Ambata,Salvo50,FInx,Comb
FIn = EstrazioneFin
FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
Scrivi Space(8) & " Modifica al Metodo Byron di Matematico - SCRIPT SALVO50",1,,4,,3,,1
For Es1 = FInx To Ini Step - 1
AvanzamentoElab FInx,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
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)
Diam_B3 = Diametrale(B3)
SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
A1 = Estratto(Es2,R2,1)
If A1 > 0 Then
A2 = Estratto(Es2,R2,2)
A3 = Estratto(Es2,R2,3)
A4 = Estratto(Es2,R2,4)
A5 = Estratto(Es2,R2,5)
XX = Fuori90((A3 * 6) + A1)
SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
If Distanza(B3,A4) = 45 Then
'-----------------------------------------
S1 = Fuori90(A1 + A2 + XX + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + XX + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(XX + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
Som_S2_S6 = Fuori90(S2 + S6)
Ok = 0
If Som_S2_S6 = 45 Then
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - XX))
D3 = Fuori90(90 +(XX - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
Ambata = Fuori90(S10 + B1)
S7 = Fuori90(Ambata + B2 + B3 + B4 + B5)
If S7 < 10 Then S7 = S7 + 90 'somma settima colonna
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
S11a = Fuori90(S11 + S7) 'somma delle Sette somme
S12 = Fuori90(S11 + S10)' 1a Equazione
S13 = Fuori90(A1 + S11a) '2a Equazione
S14 = Fuori90(B1 + Ambata) '3a Equazione
If S12 = 90 Then Ok = 1 'And S13 = 90 And S14 = 90 Then Ok = 1
If Ok = 1 Then
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & " Somma = " & Format2(SoC2),1,0
Scrivi " Seconda Ruota",1
Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1,0
Scrivi " Prima ruota",1
Scrivi
Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
Scrivi " " & Format2(D5) & " " & Format2(D6) & " - Somma Delle 11 Distanze = ",1,0
Scrivi Format2(S10),1,,,1
Scrivi Space(20) & String(20,"-"),1
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(XX) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
Scrivi Space(20) & Format2(A2) & " " & Format2(XX) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(XX) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),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,0
Scrivi " " & Format2(Ambata),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) & " ",1,0
Scrivi Format2(S7),1,0,,1
Scrivi " - Somma delle 6 Colonne ",1,0
Scrivi Format2(S11),1,,,1
Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
Scrivi
Scrivi Space(20) & Format2(S11) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
Scrivi " Somma Tra Somma Delle 6 colonne e Somma Delle Distanze ",1,,,1
Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(S13) & " 2ª Equazione ",1,0
Scrivi " Somma Del 1° Estratto 2ª Ruota, Somma Delle 7 colonne",1,,,2
Scrivi Space(20) & Format2(B1) & " + " & Format2(Ambata) & " = " & Format2(S14) & " 3ª Equazione ",1,0
Scrivi " Somma tra 1° Estratto 1ª Ruota più Ambata",1,,,1
Scrivi
Scrivi
If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
'---------------------------------------------------------------------------------------------------
If Casi = Comb Then Exit Sub
End If
End If
End If
End If
Next
End If
If ScriptInterrotto Then Exit Sub
Next
End If
If ScriptInterrotto Then Exit Sub
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub

questi sono esempi reali di estrazioni con condizioni perfette e tre equazioni a 90:

21/12/1946 CA 67-22-26-65-28 8 ( il 26 diventa 30)

20/04/2023 NAZ. 57-62-20-78-76

23/02/2012 NA 67-18-48-65-71 ( il 48 diventa 81 )

20/04/2023 NAZ. 57-62-20-78-76

19/04/1958 FI 4-19-36-31-65 ( il 36 diventa 45 )

22/04/2023 BA 69-64-76-90-57

31/01/1981 NA 83-15-23-71-49 ( il 23 diventa 53 )

22/04/2023 VE 30-57-26-89-75

salvo50 · 27 Agosto 2023

Scaricalo di nuovo c'era un errore perché io l'avevo corretto nel post
in questo ci sono le tre equazioni che mi hai dato tu

Codicebinario · 27 Agosto 2023

Buon pomerggio SALVO50,scusa l'intrusione.

Dovrei verificare questo metodo,a penna e calamaio dovrebbe essere buono,ma ho bisogno di verificare alcune cose...mi aiuti?

Terno secco Metodo di LEON

Come prima cosa dovete prendere l’ultima estrazione del mese, della ruota nazionale e seguire sette semplici regole che andrò ad elencare qui sotto.

1 – Prendiamo l’ultima estrazione del mese.

2 – Prendiamo in esame solo la ruota Nazionale.

3 – Sommiamo il primo e il terzo estratto per ricavare il primo numero che chiameremo A. Logicamente se la somma dei due numeri supera il 90 allora dovete sottrarre il numero 90 al totale della somma del primo e terzo estratto.

4 – Prendete il secondo estratto, sempre dell’ultima estrazione del mese della ruota nazionale. E smembratelo in questo modo, per esempi se il numero e 79 allora dovete fare 7+9 =16. E il secondo numero da giocare e 16 che noi chiameremo B.

5 – Dobbiamo prendere il quarto e quinto estratto sempre della ruota nazionale, e calcolare la differenza fra i due numeri. Per esempio sei il quarto e quinto estratto sono 49 e 70 la differenza e di 21, e lo specchio di 21 e 12 che sarà il terzo numero da giocare che noi chiameremo C.

6 – Ora abbiamo i numeri A B C che potremo giocarli per realizzare una serie di Ambi. e un terno secco.

7 – Giocate i numeri A B C su la ruota nazionale e tutte per tutto intero mese.

Mi aiuti? GRAZIE sin d'ora.

EVERITA C · 27 Agosto 2023

Scusami Salvo ma come faccio a sapere il numero da incrementare se non ho le due cinquine visualizzate?

Sakti · 27 Agosto 2023

Non è un gran che di script, ma è il mio massimo, mi pare dia errore sulla differenza tra il quarto e il quinto estratto, se qualche scripter , come ce ne sono tanti, migliore di me riesce a migliorarlo...Grazie..
Ho aggiunto qualche parametro in più che può essere modificato quando vuoi..

Sub Main
ColoreTesto 2
Scrivi "Da un'idea di binarycode "
Scrivi "Ricerca su Nazionale da giocare anche su TT "
ColoreTesto 0
Dim n(7),Ru(12),posta(5),ini,fin
posta(2) = 1
'posta(3) = 1
ini = EstrazioneFin - 300
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
If IsUltimaDelMese(es) Then
'If IndiceMensile(es) = 1 Then
'--- Nazionale
k = k + 1
a = Fuori90(Estratto(es,12,1) + Estratto(es,12,3))'----------------------- A
b = Decina(Estratto(es,12,2)) + Cadenza(Estratto(es,12,2))'--------------- B
c = Estratto(es,12,4)
d = Estratto(es,12,5)
e = Differenza(c,d)
f = Vert(e)'-------------------------------------------------------------- C
'---
n(1) = a
n(2) = b
n(3) = f
'n(4) = e
EliminaRipetuti n
'---
Ru(1) = 12
Ru(2) = 11
'---
ImpostaGiocata 1,n,Ru,posta,14',2
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
k = 0
End If
Next
ScriviResoconto
End Sub

salvo50 · 27 Agosto 2023

EVERITA C ha scritto:
Scusami Salvo ma come faccio a sapere il numero da incrementare se non ho le due cinquine visualizzate?

Me l'hai chiesto tu nel post 621 per me era una richiesta assurda, comunque te l'ho fatta lo stesso.

salvo50 · 27 Agosto 2023

toon ha scritto:
Non è un gran che di script, ma è il mio massimo, mi pare dia errore sulla differenza tra il quarto e il quinto estratto, se qualche scripter , come ce ne sono tanti, migliore di me riesce a migliorarlo...Grazie..
Ho aggiunto qualche parametro in più che può essere modificato quando vuoi..

Sub Main
Dim n(7),Ru(12),posta(5),ini,fin
posta(2) = 1
'posta(3) = 1
ini = EstrazioneFin - 300
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
If IsUltimaDelMese(es) Then
'If IndiceMensile(es) = 1 Then
'--- Nazionale
k = k + 1
a = Fuori90(Estratto(es,12,1) + Estratto(es,12,3))'----------------------- A
b = Decina(Estratto(es,12,2)) + Cadenza(Estratto(es,12,2))'--------------- B
c = Estratto(es,12,4)
d = Estratto(es,12,5)
e = Distanza(c,d)
f = Vert(e)'-------------------------------------------------------------- C
'---
n(1) = a
n(2) = b
n(3) = f
'n(4) = d
EliminaRipetuti n
'---
Ru(1) = 12
Ru(2) = 11
'---
ImpostaGiocata 1,n,Ru,posta,14',2
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
k = 0
End If
Next
ScriviResoconto
End Sub

Ciao Toon

devi fare
e = differenza((c,d)

La distanza non è mai superiore a 45

Sakti · 27 Agosto 2023

Grazie Salvo, da Te si può sempre imparare.. Modificato il listato ...
Grazie.

Codicebinario · 28 Agosto 2023

toon ha scritto:
Grazie Salvo, da Te si può sempre imparare.. Modificato il listato ...
Grazie.

Grazie TOON ,salvo50 !!! Ancora grazie !!!!!!

EVERITA C · 29 Agosto 2023

Ciao Salvo questo script e' quasi perfetto:

c'e' da correggere una cosa semplicissima:

somma seconda cinquina si riferisce alla cinquina sotto e il primo estratto prima cinquina quella sopra.

Credo che dopo questa sia tutto risolto.

EVERITA C · 29 Agosto 2023

Praticamente il contrario.

EVERITA C · 29 Agosto 2023

Questo e' lo script da aggiustare:

Option Explicit
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
Dim R1,R2,Es1,Es2,Casi,SoC1,SoC2
Dim S1,S2,S3,S4,S5,S6,S7,S10,S11
Dim FIn,Ini,S12,S13,S11a,S14
Dim Ok,xB3,XX,Diam_B3,Som_S2_S6
Dim Ambata,Salvo50,FInx,Comb
FIn = EstrazioneFin
FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
Comb = CInt(InputBox("Inserisci il numero delle combinazioni da visualizzare ",Salvo50,10))
Scrivi Space(8) & " Modifica al Metodo Byron di Matematico - SCRIPT SALVO50",1,,4,,3,,1
For Es1 = FInx To Ini Step - 1
AvanzamentoElab FInx,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
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)
Diam_B3 = Diametrale(B3)
SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
A1 = Estratto(Es2,R2,1)
If A1 > 0 Then
A2 = Estratto(Es2,R2,2)
A3 = Estratto(Es2,R2,3)
A4 = Estratto(Es2,R2,4)
A5 = Estratto(Es2,R2,5)
XX = Fuori90((A3 * 6) + A1)
SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
If Distanza(B3,A4) = 45 Then
'-----------------------------------------
S1 = Fuori90(A1 + A2 + XX + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + XX + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(XX + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
Som_S2_S6 = Fuori90(S2 + S6)
Ok = 0
If Som_S2_S6 = 45 Then
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - XX))
D3 = Fuori90(90 +(XX - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
Ambata = Fuori90(S10 + B1)
S7 = Fuori90(Ambata + B2 + B3 + B4 + B5)
If S7 < 10 Then S7 = S7 + 90 'somma settima colonna
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) 'somma delle 6 somme
S11a = Fuori90(S11 + S7) 'somma delle Sette somme
S12 = Fuori90(S11 + S10)' 1a Equazione
S13 = Fuori90(A1 + S11a) '2a Equazione
S14 = Fuori90(B1 + Ambata) '3a Equazione
If S12 = 90 Then Ok = 1 'And S13 = 90 And S14 = 90 Then Ok = 1
If Ok = 1 Then
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & " Somma = " & Format2(SoC2),1,0
Scrivi " Seconda Ruota",1
Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1,0
Scrivi " Prima ruota",1
Scrivi
Scrivi Space(10) & "Distanze *" & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
Scrivi " " & Format2(D5) & " " & Format2(D6) & " - Somma Delle 11 Distanze = ",1,0
Scrivi Format2(S10),1,,,1
Scrivi Space(20) & String(20,"-"),1
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(XX) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
Scrivi Space(20) & Format2(A2) & " " & Format2(XX) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(XX) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4),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,0
Scrivi " " & Format2(Ambata),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) & " ",1,0
Scrivi Format2(S7),1,0,,1
Scrivi " - Somma delle 6 Colonne ",1,0
Scrivi Format2(S11),1,,,1
Scrivi Space(10) & "Distanze *" & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
Scrivi Space(44) & "Somma Delle 7 colonne " & Format2(S11a),1
Scrivi
Scrivi Space(20) & Format2(S11) & " + " & Format2(S10) & " = " & Format2(S12) & " 1ª Equazione ",1,0
Scrivi " Somma Tra Somma Delle 6 colonne e Somma Delle Distanze ",1,,,1
Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(S13) & " 2ª Equazione ",1,0
Scrivi " Somma Del 1° Estratto 2ª Ruota, Somma Delle 7 colonne",1,,,2
Scrivi Space(20) & Format2(B1) & " + " & Format2(Ambata) & " = " & Format2(S14) & " 3ª Equazione ",1,0
Scrivi " Somma tra 1° Estratto 1ª Ruota più Ambata",1,,,1
Scrivi
Scrivi
If Casi = Comb Then Scrivi " Tempo Trascorso " & TempoTrascorso
'---------------------------------------------------------------------------------------------------
If Casi = Comb Then Exit Sub
End If
End If
End If
End If
Next
End If
If ScriptInterrotto Then Exit Sub
Next
End If
If ScriptInterrotto Then Exit Sub
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub

salvo50 · 29 Agosto 2023

Ciao Everita

In questo script operativa c'è solo la prima equazione , quindi le altre equazioni anche se sono sbagliate non influiscono nel risultato, comunque appena posso do un occhiata

Script su Metodi Cabalistici, Ciclometrici & C.

Member

Premium Member

Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Member

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM<

Member

Member

Member

Advanced Member >PLATINUM PLUS<