Novità

Script su Metodi Cabalistici, Ciclometrici & C.

genios

Advanced Member >PLATINUM<
ok salvo50 lo ritenevo interessante anche se non sono riuscito a trovare qualche puntata .Mi sono rivolto al direttore della rivista chissa se mi risponde .

ciao Eugenio
 
Salve X mike58 o altra anima buona che vorrà aiutarmi.


Buongiorno questo è il documento BYRON.

Ti chiedo è possibile uno script che trova la cinquina sopra ( Come da documento )

con 5 equazioni a 90 anche andando indietro sino al 1871. ( Intero archivio )

Quarta equazione = diagonale somma 90 ( B+D+F+H+L )

Quinta equazione = quarta\quinta e sesta colonna = somma 90.

download.png


Replica (Quote)
Report Modifica Elimina

P
pasqualino c
Junior Member

Messaggi11Punti reazione4Punti3
Oggi alle 14:28
prima equazione somma delle somme + somma delle differenze = 90
seconda equazione somma 2 cinquina + 1 estratto 1 cinquina = 90
terza equazione primo estratto prima cinquina + somma delle 7 colonne =90
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Sax71, grazie

Ciao Pasqualino

Qualche delucidazione

Quarta equazione = diagonale somma 90 ( B+D+F+H+L )
Non riesco a trovare le lettere della diagonale B D F H L , non riesco a capire qualè la diagonale

Poi cosa vuol dire
(Ti chiedo è possibile uno script che trova la cinquina sopra ( Come da documento ) )

che devo cercare la cinquina 76 28 65 77 33 oppure un'altra qualsiasi cinquina, perchè se devo cercare la cinquina 76 28 65 77 33, ammettendo che esista un doppione avrà sicuramente le cinque equazioni che hai menzionato, perchè sono gli stessi numeri.

Uno script su questo metodo Byron, io l'avevo già fatto, lo trovi in questo stesso topic al post 20, dagli un'occhiata, per me non è difficile aggiungere le 4 "equazioni" che hai menzionato, ma devo avere le idee chiare prima di procedere.
 
X Salvo50 chiedo un listato che trovi la cinquina che chiude il quadrato 7x5 con le cinque equazioni a 90 descritte anche andando indietro sino all'inizio archivio.
Le prime tre equazioni sono le classiche che ho elencato.
Le altre due sono ( la diagonale di somma 90 ) nel caso specifico del documento sarebbe 28+77+41+61+63=270-90=90.
Somma quarta \ quinta e sesta colonna= somma 90
Prova ad aggiungere le 4 equazioni sul listato che hai già fatto poi vediamo se è come richiesto.

Grazie.
 

salvo50

Advanced Member >PLATINUM PLUS<
Modificando lo script del post 20, ho preparato un altro script che più o meno dovrebbe essere come l'originale, vedi se va bene e scrivi quali sono i numeri che devo cercare


Codice:
Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S11a,S12,Ambata
   Dim Equ1,Equ2,Equ3,Equ4,Equ5,Salvo50
  
   Scrivi Space(1) & "BYRON ORIGINALE con 4 EQUAZIONI AGGIUNTE, RICHIESTE DA PASQUALINOC - SCRIPT Salvo50",1,,4,,3,,1
   Scrivi
   A1 = 76 : A2 = 28 : A3 = 65 : A4 = 77 : A5 = 33 : SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
   B1 = 41 : B2 = 60 : B3 = 61 : B4 = 59 : B5 = 63 : SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
   '-----------------------------------------
   S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
   S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
   S3 = Fuori90(A3 + 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
   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))
   '----------------------------
   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
   S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
   S11a = Fuori90(S11 + S7)
   S12 = Fuori90(S11 + S10)
   Equ2 = Fuori90(SoC2 + A1)
   Equ3 = Fuori90(A1 + S11a)
   Equ4 = Fuori90(A2 + A4 + B1 + B3 + B5)
   Equ5 = Fuori90(S4 + S5 + S6)
   If S12 = 90 Then
      Scrivi Space(20) &(" Estrazione del 14.01.1802 NA 76.28.65.77.33") & "  Somma = " & Format2(SoC1),1
      Scrivi Space(20) &(" Estrazione del 30.01.1802 NA 41.60.61.59.63") & "  Somma = " & Format2(SoC2),1
      Scrivi
      Scrivi
      Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
      Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " -  Distanze " & Format2(D1),1,0
      Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),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) & 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,0
      Scrivi " " & Format2(Ambata),1,0,,2
      Scrivi " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
      Scrivi Space(20) & String(20,"-")
      Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
      Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
      Scrivi Format2(S11),1,,,1
      Scrivi Space(38) & Format2(S7) & " -  Somma 7ª colonna ",1
      Scrivi
      Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " 1ª Equazione Perfetta",1
      Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione Perfetta",1
      Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(Equ3) & " 3ª Equazione Perfetta",1
      Scrivi Space(5) & Format2(A2) & " + " & Format2(A4) & " + " & Format2(B1),1,0
      Scrivi " + " & Format2(B3) & " + " & Format2(B5) & " = " & Format2(Equ4) & " 4ª Equazione Perfetta",1
      Scrivi Space(15) & Format2(S4) & " + " & Format2(S5) & " + " & Format2(S6) & " = " & Format2(Equ5) & " 5ª Equazione Perfetta",1
      Scrivi
      Scrivi
   End If
    
End Sub
 
Ultima modifica:
X Salvo50.Il listato racchiude ciò che ho richiesto.
Adesso in una qualsiasi estrazione e qualsiasi cinquina il listato cerca ( andando indietro sino al 07\ 01 \ 1871) la cinquina giusta che chiude il quadrato BYRON con le 5 equazioni elencate.
Grazie.
 
Immaginiamo l'ultima estrazione in una cinquina con le 11 ruote il listato va indietro per tutto l'archivio sino a trovare la cinquina giusta che chiude il quadrato con le 5 equazioni a 90.
Se non la trova si passa alla prossima estrazione.
 

salvo50

Advanced Member >PLATINUM PLUS<
Avevo delle perplessità riguardo al fatto che parte da una estrazione fa la ricerca in tutte le estrazioni all'indietro non trova niente, riparte di nuovo con un'altra estrazione e rifà di nuovo la ricerca fino alla prima estrazione del 1871 e così di seguito, le perplessità erano sul fattore tempo, ma ho pensato faccio lo script, può darsi che mi sto sbagliando, ho fatto lo script e l'ho lanciato, nella finestrella che si vede quando si lancia uno script, ho visualizzato la prima estrazione e la seconda, in più il tempo che passa, ed ho notato che passano circa 6 secondi per fare la ricerca di una estrazione fino alla data del 1871, per una sola ruota, calcolando che questi 6 secondi possono essere di meno quando la prima ruota sarà sotto i 5000, ad occhio faccio una media di 3 secondi, quindi calcoliamo 3 secondi per ogni estrazione ed una sola ruota,

Le estrazioni ad oggi sono 9791 * 3 secondi = 29373 secondi

29373 / 60 = 489 minuti
489 / 60 = 8,15 ore

Quindi più o meno 8 ore per fare questo tipo di controllo su una sola ruota, col mio script, poi le equazioni sono troppe, secondo me sarà difficile che ci sia un riscontro comunque se vuoi togliere qualche equazione basta che gli metti un apice, nello script ho indicato le righe dove mettere l'apice.

Io non riesco a fare di meglio.

Comunque se devi continuare a chiedere aiuto per questo script, ti chiedo un favore, apri un tuo topic, se non sei capace te lo apro io a nome tuo.

Ecco lo script

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,Ruo
   Dim R1,Es1,Es2,Esq,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12
   Dim FIn,Ini,Equ2,Equ3,Equ4,Equ5,S11a
   Dim Ambata,Salvo50
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Ruo = InputBox("Inserisci il numero della ruota ",Salvo50,6)
   For Es1 = FIn To Ini Step - 1
      AvanzamentoElab FIn,Ini,Es1
      For Es2 = FIn To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & "  Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            For R1 = Ruo To Ruo
               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)
               SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
               B1 = Estratto(Es2,R1,1)
               B2 = Estratto(Es2,R1,2)
               B3 = Estratto(Es2,R1,3)
               B4 = Estratto(Es2,R1,4)
               B5 = Estratto(Es2,R1,5)
               SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
               '-----------------------------------------
               S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
               S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
               S3 = Fuori90(A3 + 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
               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))
               '----------------------------
               D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90
               D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90
               D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90
               D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90
               D11 = Fuori90(90 +(B4 - B5)) : 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
               S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
               S11a = Fuori90(S11 + S7)
               S12 = Fuori90(S11 + S10)'
               Equ2 = Fuori90(SoC1 + A1)
               Equ3 = Fuori90(A1 + S11a)
               Equ4 = Fuori90(A2 + A4 + B1 + B3 + B5)
               Equ5 = Fuori90(S4 + S5 + S6)
               If(S12 = 90)Then 'Per eliminare la prima equazione mettere un apice qui, ed anche al End If corrispondente
                  If(Equ2 = 90)Then 'Per eliminare la seconda equazione mettere un apice qui, ed anche al End If corrispondente
                     If(Equ3 = 90) Then 'Per eliminare la terza equazione mettere un apice qui, ed anche al End If corrispondente
                        If(Equ4 = 90) Then 'Per eliminare la quarta equazione mettere un apice qui, ed anche al End If corrispondente
                           If(Equ5 = 90) Then 'Per eliminare la quinta equazione mettere un apice qui, ed anche al End If corrispondente
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi(" Estrazione n." & FormattaStringa(Es1,"0000") & " del " & DataEstrazione(Es1)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1
                              Scrivi(" Estrazione n." & FormattaStringa(Es2,"0000") & " del " & DataEstrazione(Es2)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1) & "  Somma = " & Format2(SoC2),1
                              Scrivi
                              Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
                              Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " -  Distanze " & Format2(D1),1,0
                              Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),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) & 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,0
                              Scrivi " " & Format2(Ambata),1,0,,2
                              Scrivi " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                              Scrivi Space(20) & String(20,"-")
                              Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                              Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
                              Scrivi Format2(S11),1,,,1
                              Scrivi Space(38) & Format2(S7) & " -  Somma 7ª colonna ",1
                              Scrivi
                              Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " 1ª Equazione Perfetta",1
                              Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione Perfetta",1
                              Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(Equ3) & " 3ª Equazione Perfetta",1
                              Scrivi Space(5) & Format2(A2) & " + " & Format2(A4) & " + " & Format2(B1),1,0
                              Scrivi " + " & Format2(B3) & " + " & Format2(B5) & " = " & Format2(Equ4) & " 4ª Equazione Perfetta",1
                              Scrivi Space(15) & Format2(S4) & " + " & Format2(S5) & " + " & Format2(S6) & " = " & Format2(Equ5) & " 5ª Equazione Perfetta",1
                              Scrivi
                              Scrivi
                              '---------------------------------------------------------------------------------------------------
                           End If 'Per eliminare la quinta equazione mettere un apice qui
                        End If 'Per eliminare la quarta equazione mettere un apice qui
                     End If 'Per eliminare la terza equazione mettere un apice qui
                  End If 'Per eliminare la seconda equazione mettere un apice qui
               End If 'Per eliminare la prima equazione mettere un apice qui
            End If
         Next
      End If
   Next
   If ScriptInterrotto Then Exit Sub
Next

Scrivi TempoTrascorso
End Sub

Definitivo

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,Es1,Es2,Esq,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12
   Dim FIn,Ini,Equ2,Equ3,Equ4,Equ5,S11a
   Dim S21,S22,S23,S24,S25,Ok
   Dim Ambata,Salvo50,FInx,Equ1
   Dim Ins1,Ins2,Ins3,Ins4,Ins5
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   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)
   Ins4 = InputBox("Se vuoi includere la quarta equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Ins5 = InputBox("Se vuoi includere la quinta equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
   Scrivi Space(8) & " Modifica al Metodo Byron di Pasqualino 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
            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)
                  SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
                  B1 = Estratto(Es2,R1,1)
                  If B1 > 0 Then
                     B2 = Estratto(Es2,R1,2)
                     B3 = Estratto(Es2,R1,3)
                     B4 = Estratto(Es2,R1,4)
                     B5 = Estratto(Es2,R1,5)
                     SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
                     '-----------------------------------------
                     S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                     S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                     S3 = Fuori90(A3 + 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
                     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))
                     '----------------------------
                     D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90
                     D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90
                     D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90
                     D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90
                     D11 = Fuori90(90 +(B4 - B5)) : 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
                     S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
                     S11a = Fuori90(S11 + S7)
                     S12 = Fuori90(S11 + S10)'
                     Equ1 = S12
                     Equ2 = Fuori90(SoC1 + A1)
                     Equ3 = Fuori90(A1 + S11a)
                     Equ4 = Fuori90(A2 + A4 + B1 + B3 + B5)
                     Equ5 = Fuori90(S4 + S5 + S6)
                     Ok = 0
                     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))And((Ins4 = 1 And Equ4 = 90)Or(Ins4 <> 1)) _
                        And((Ins5 = 1 And Equ5 = 90)Or(Ins5 <> 1)) Then
                        Ok = 1
                        Casi = Casi + 1
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                        Scrivi(" Estrazione n." & FormattaStringa(Es1,"0000") & " del " & DataEstrazione(Es1)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1
                        Scrivi(" Estrazione n." & FormattaStringa(Es2,"0000") & " del " & DataEstrazione(Es2)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1) & "  Somma = " & Format2(SoC2),1
                        Scrivi
                        Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
                        Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " -  Distanze " & Format2(D1),1,0
                        Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),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) & 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,0
                        Scrivi " " & Format2(Ambata),1,0,,2
                        Scrivi " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                        Scrivi Space(20) & String(20,"-")
                        Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                        Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
                        Scrivi Format2(S11),1,,,1
                        Scrivi Space(38) & Format2(S7) & " -  Somma 7ª colonna ",1
                        Scrivi
                        Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " 1ª Equazione ",1
                        Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione ",1
                        Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(Equ3) & " 3ª Equazione ",1
                        Scrivi Space(5) & Format2(A2) & " + " & Format2(A4) & " + " & Format2(B1),1,0
                        Scrivi " + " & Format2(B3) & " + " & Format2(B5) & " = " & Format2(Equ4) & " 4ª Equazione ",1
                        Scrivi Space(15) & Format2(S4) & " + " & Format2(S5) & " + " & Format2(S6) & " = " & Format2(Equ5) & " 5ª Equazione ",1
                        Scrivi
                        Scrivi
                        '---------------------------------------------------------------------------------------------------
                        If Ok = 1 Then Exit Sub
                     End If
                  End If
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   Scrivi TempoTrascorso
End Sub
 
Ultima modifica:
Buongiorno Salvo50 se mi apri un mio topic ti ringrazio.
poi riguardo il listato si può provare a togliere un'equazione.( Diciamo la quinta )
Grazie.
 

Daab

Advanced Member >PLATINUM<
Buongiorno Salvo50, ho visto che in questo tuo topic vi sono inseriti vari metodi di gioco, puoi consigliarmene qualcuno tenendo presente che non sono un esperto e che il gioco che cerco è per ambo in terzina o quartina? Grazie per l'attenzione.
 

salvo50

Advanced Member >PLATINUM PLUS<
Buongiorno Salvo50, ho visto che in questo tuo topic vi sono inseriti vari metodi di gioco, puoi consigliarmene qualcuno tenendo presente che non sono un esperto e che il gioco che cerco è per ambo in terzina o quartina? Grazie per l'attenzione.

Ciao Daab, pure io non sono un esperto, e non sò cosa consigliarti, faccio questi script per imparare qualcosina in più di quello che sò, e quello che sò l'ho imparato in questo forum con gli aiuti di LuigiB, Joe, ILegend, Master, Magia, Mike58, ecc... mi perdonino gli altri che in questo momento non ricordo i loro Nickname.
 
Ultima modifica:

Daab

Advanced Member >PLATINUM<
Ciao Daab, pure io non sono un esperto, e non sò cosa consigliarti, faccio questi script per imparare qualcosina in più di quello che sò, e quello che sò l'ho imparato in questo forum con gli aiuti di LuigiB, Joe, ILegend, Master, Magia, Mike58, ecc... mi perdonino gli altri che in questo momento non ricordo i loro Nickname.
Ok Salvo50 ti ringrazio comunque (y)
 

mastrogino

Advanced Premium Member
CIAO sALVO50
MI TROVO CON QUESTO FANTASTICO LIBRO DI RACCOLTA
DEL STUDIOSO DI LOTTO GRAZIANO TANTUCCI
CHE NE DICI DI FARE UN LISTATO DI QUESTO METODO?
SCUSA IN ANTICIPO PER LE FOTO
 

Allegati

  • 109834825_2986030191452611_2578634958410181302_n.jpg
    109834825_2986030191452611_2578634958410181302_n.jpg
    73,4 KB · Visite: 68
  • 109241360_2986030078119289_2129059413584489771_n.jpg
    109241360_2986030078119289_2129059413584489771_n.jpg
    95,8 KB · Visite: 66
  • 108755365_2986029974785966_142575967332895178_n.jpg
    108755365_2986029974785966_142575967332895178_n.jpg
    101,9 KB · Visite: 58

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Mastrogino, purtroppo mi si è guastato il video del computer, provvisoriamente l'ho sostituito con un televisore, riesco a scrivere a vedere immagini o filmati, riesco anche a scrivere gli script, ma quando li lancio non appare niente e sono arrivato alla conclusione che deve essere la differenza di velocità tra il computer e il televisore, mi dispiace ma per il momento non posso fare lo script.

In data 17-07-20, posto lo script

Ciclodecine e Ciclounità

Per le 2 ruote, ho messo 2 Inputbox, per defoult sono su Bari e Cagliari, come da metodo, quindi se si vuole provare con altre ruote si può.

Codice:
Option Explicit
Sub Main
   Dim Caso,Casi,R1,R2,P3,P4,A,B,C,D,E1,E2
   Dim PP1,PP2,DAB,DCD,DAB_CD,G,k,Salvo50
   Dim FIn,Es,Ini,Clp1,Clp2,Dec,Ca
   Dim Posta(1),Poste(2),Ruote(2),Abb(9),Amba(2),Num(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9700)'6281 primo esempio nell'articolo
   R1 = CInt(InputBox(" Inserisci il numero della prima ruota",Salvo50,1))
   R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",Salvo50,2))
   Clp1 = InputBox("Per quanti colpi vuoi giocare le ambate?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,10)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(15) & " Ciclodecine e Ciclounità - Script Salvo50                  ",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      If IsUltimaDelMese(Es) Then
         Messaggio Es & "                 " & TempoTrascorso
         AvanzamentoElab Ini,FIn,Es
         Caso = 0
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R1,2)
         DAB = Differenza(A,B)
         Amba(1) = ""
         C = Estratto(Es,R2,1)
         D = Estratto(Es,R2,2)
         DCD = Differenza(C,D)
         DAB_CD = Differenza(DAB,DCD)
         Amba(1) = ComplAdX(DAB_CD)
         Ruote(1) = R1
         Ruote(2) = R2
         If Gemello(Amba(1)) Then Amba(1) = Amba(1) - 1
         If SerieFreq(Es,Es,Amba,Ruote,1) = 1 Then Amba(1) = Vert(Amba(1))
         Amba(2) = Fuori90(Amba(1) + 45)
         Dec = DecinaNaturale(Amba(2))
         For Ca = 1 To 9
            Abb(Ca) = Dec & Ca
         Next
         Caso = Caso + 1
         Casi = Casi + 1
         ColoreTesto 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
         ColoreTesto 2
         Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
         ColoreTesto 0
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For PP1 = 1 To 5
            E1 = Estratto(Es,R1,PP1)
            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 PP2 = 1 To 5
            E2 = Estratto(Es,R2,PP2)
            If E2 = C Or E2 = D Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi
         Scrivi Space(15) & " Differenza tra " & Format2(A) & " e " & Format2(B) & " = " & Format2(DAB),1
         Scrivi Space(15) & " Differenza tra " & Format2(C) & " e " & Format2(D) & " = " & Format2(DCD),1
         Scrivi Space(15) & " Differenza tra " & Format2(DAB) & " e " & Format2(DCD) & " = " & Format2(DAB_CD),1
         Scrivi Space(15) & " Il Complemento a  90  di " & Format2(DAB_CD) & " Se è un Gemello va diminuito di 1,",1,,,2
         Scrivi Space(15) & " Se si trova nelle Ruote di calcolo si prende il vertibile",1,,,2
         Scrivi Space(15) & " Il Complemento a  90  di " & Format2(DAB_CD) & "  è  " & Format2(Amba(1)),1,0
         Scrivi Space(3) & " 1ª Ambata è 1° Elemento Ambo ",1
         Scrivi Space(27) & " 1ª Ambata " & Format2(Amba(1)) & " + 45 = " & Format2(Amba(2)),1,0
         Scrivi Space(3) & " 2ª Ambata ",1
         Scrivi
         Scrivi Space(15) & "Abbinamenti per Ambo al Numero " & Format2(Amba(1)),1,0
         Scrivi Space(2) & StringaNumeri(Abb," ",True),1,0,,2
         Scrivi " <-- Decina 2ª Ambata",1
         ImpostaGiocata 1,Amba,Ruote,Posta,Clp1
         G = 2
         For k = 1 To 9
            Num(1) = Amba(1)
            Num(2) = Abb(k)
            ImpostaGiocata G,Num,Ruote,Poste,Clp2
            G = G + 1
            Gioca Es
         Next
         If ScriptInterrotto Then Exit Sub
      End If
   Next
   ScriviResoconto
End Sub

Con IndiceMensile a Scelta

Codice:
Option Explicit
Sub Main
   Dim Caso,Casi,R1,R2,P3,P4,A,B,C,D,E1,E2
   Dim PP1,PP2,DAB,DCD,DAB_CD,G,k,Salvo50
   Dim FIn,Es,Ini,Clp1,Clp2,Dec,Ca,Ind_Me
   Dim Posta(1),Poste(2),Ruote(2),Abb(9),Amba(2),Num(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9700)'6281 primo esempio nell'articolo
   R1 = CInt(InputBox(" Inserisci il Numero della Prima Ruota",Salvo50,1))
   R2 = CInt(InputBox(" Inserisci il Numero della Seconda Ruota",Salvo50,2))
   Ind_Me = CInt(InputBox(" Inserisci il Numero dell'Indice Mensile",Salvo50,5))
   Clp1 = InputBox("Per quanti colpi vuoi giocare le ambate?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,10)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(15) & " Ciclodecine e Ciclounità - Script Salvo50                  ",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      If IndiceMensile(Es) = Ind_Me Then
         Messaggio Es & "         TEMPO TRASCORSO  " & TempoTrascorso
         AvanzamentoElab Ini,FIn,Es
         Caso = 0
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R1,2)
         DAB = Differenza(A,B)
         Amba(1) = ""
         C = Estratto(Es,R2,1)
         D = Estratto(Es,R2,2)
         DCD = Differenza(C,D)
         DAB_CD = Differenza(DAB,DCD)
         Amba(1) = ComplAdX(DAB_CD)
         Ruote(1) = R1
         Ruote(2) = R2
         If Gemello(Amba(1)) Then Amba(1) = Amba(1) - 1
         If SerieFreq(Es,Es,Amba,Ruote,1) = 1 Then Amba(1) = Vert(Amba(1))
         Amba(2) = Fuori90(Amba(1) + 45)
         Dec = DecinaNaturale(Amba(2))
         For Ca = 1 To 9
            Abb(Ca) = Dec & Ca
         Next
         Caso = Caso + 1
         Casi = Casi + 1
         ColoreTesto 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
         ColoreTesto 2
         Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
         ColoreTesto 0
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For PP1 = 1 To 5
            E1 = Estratto(Es,R1,PP1)
            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 PP2 = 1 To 5
            E2 = Estratto(Es,R2,PP2)
            If E2 = C Or E2 = D Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi
         Scrivi Space(15) & " Differenza tra " & Format2(A) & " e " & Format2(B) & " = " & Format2(DAB),1
         Scrivi Space(15) & " Differenza tra " & Format2(C) & " e " & Format2(D) & " = " & Format2(DCD),1,0
         Scrivi Space(15) & " Indice Mensile Scelto " & Ind_Me,1,,,1
         Scrivi Space(15) & " Differenza tra " & Format2(DAB) & " e " & Format2(DCD) & " = " & Format2(DAB_CD),1
         Scrivi Space(15) & " Il Complemento a  90  di " & Format2(DAB_CD) & " Se è un Gemello va diminuito di 1,",1,,,2
         Scrivi Space(15) & " Se si trova nelle Ruote di calcolo si prende il vertibile",1,,,2
         Scrivi Space(15) & " Il Complemento a  90  di " & Format2(DAB_CD) & "  è  " & Format2(Amba(1)),1,0
         Scrivi Space(3) & " 1ª Ambata è 1° Elemento Ambo ",1
         Scrivi Space(27) & " 1ª Ambata " & Format2(Amba(1)) & " + 45 = " & Format2(Amba(2)),1,0
         Scrivi Space(3) & " 2ª Ambata ",1
         Scrivi
         Scrivi Space(15) & "Abbinamenti per Ambo al Numero " & Format2(Amba(1)),1,0
         Scrivi Space(2) & StringaNumeri(Abb," ",True),1,0,,2
         Scrivi " <-- Decina 2ª Ambata",1
         ImpostaGiocata 1,Amba,Ruote,Posta,Clp1
         G = 2
         For k = 1 To 9
            Num(1) = Amba(1)
            Num(2) = Abb(k)
            ImpostaGiocata G,Num,Ruote,Poste,Clp2
            G = G + 1
            Gioca Es
         Next
         If ScriptInterrotto Then Exit Sub
      End If
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto