Novità

Modifica BYRON da PasqualinoC

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao PasqualinoC

Ti rispondo qua alla domanda che mi hai fatto nell'altro topic, se sei pratico un pochino di script puoi togliere velocissimo tutte le equazioni che vuoi, ti dirò, io ho fatto delle prove nella ruota di Napoli e per avere dei riscontri ho dovuto togliere le ultime 3 equazioni, nello script ci sono queste righe

Codice:
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



                          '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

nei quali alle ultime 3 ho messi degli apici ad inizio riga, quindi in questo modo li ho eliminati, quindi puoi togliere e mettere le equazioni che vuoi, poi alla prima domanda nello script ti chiedo dove vuoi finire la ricerca di defolt l'ho messa (col numero 1) alla prima estrazione del 1871, alla seconda domanda chiedo la ruota, per defoult col numero 6 ho messo la ruora di Napoli perchè sono sicuro che c'è nella prima estrazione del 1871.

Comunque continua a chiedere ad altri di fare questo script, io sono un dilettante, sono sicuro che altri, ad esempio ILegend, riescono a fare meglio di me.

Ti metto qua lo script, con le tre equazioni tolte, ho tolto la scritta perfette per ovvi motivi
per avere dei riscontri lo devi far girare per almeno 10 minuti, poi premi su STOP e si ferma.
Oppure fermarlo quando la prima ruota segna 9735
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,FInx
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Ruo = InputBox("Inserisci il numero della ruota ",Salvo50,6)
   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 = 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) : 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)'
               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
         End If
      Next
   End If
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi TempoTrascorso
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ho messo le 11 ruote ed ho aggiunto anche l'estrazione di dove iniziare, ho fatto delle prove con tutte e cinque le equazioni iniziando dall'estrazione 1000 fino a 1 e dopo 20 minuti non ne ha trovata neanche una, ho tolto le equazioni 3, 4, 5, son partito di nuovo da 1000 e ne sono uscite parecchie anche in ruote diverse.

L'estrazione di dove iniziare l'ho aggiunta anche nel primo script di questo topic

Ricordarsi che l'estrazione di dove inizia deve essere superiore all'estrazione di dove finisce altrimenti non fa nessuna ricerca


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,FInx
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,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)'
               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 ",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
                              '---------------------------------------------------------------------------------------------------
                      '     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
         End If
      Next
   End If
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi TempoTrascorso
End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Salvo50 scusa ma eliminando l'apice e facendolo girare su Spaziometria mi da una serie di errori.

Quando togli l'apice al IF
Devi togliere l'apice anche al corrispondente END IF
altrimenti è naturale che va in errore

oppure se metti l'apice all'IF
devi metterlo anche al corrispondente END IF
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao salvo50 , gran bel lavoro complimenti :)...gira anche su L8 lo script?
Ciao Matematico, non ho l8, però funzioni strane non c'è ne sono, quindi dovrebbe girare anche con l8, io ho fatto solo lo script, l'idea di aggiungere delle equazioni in più (al metodo Byron) e di fare la ricerca all'indietro è di PasqualinoC
 
Ultima modifica:
Buongiorno Salvo scusa se disturbo di Domenica ma si dovrebbe rivedere lo script che hai fatto.La ricerca a ritroso dovrebbe partire dall'ultima estrazione.
 

salvo50

Advanced Member >PLATINUM PLUS<
Buongiorno Salvo scusa se disturbo di Domenica ma si dovrebbe rivedere lo script che hai fatto.La ricerca a ritroso dovrebbe partire dall'ultima estrazione.

Ciao a Tutti.

Ciao Pasqualino, la ricerca a ritroso parte dall'ultima estrazione che hai in archivio.

Se quando visualizzi la ricerca non è all'ultima estrazione è perchè prima non ha trovato riscontri.

Per vedere che parte dall'ultima estrazione escludi tutte le equazioni, fallo girare per 30 secondi poi fai lo stop e vedrai che parte dall'ultima estrazione, naturalmente dato che la ricerca la fa nella stessa ruota, la prima estrazione è l'ultima e la seconda estrazione è la penultima

pasqualino.PNG
 
Ciao Salvo si può fare che il listato cerca a ritroso la cinquina giusta e la evidenzia.

Mi spiego meglio ( es. ) parte la ricerca e si ferma trovando la cinquina indietro di X estrazioni che chiude il quadrato con la ruota di Bari ( es. ) o ( cagliari ) ecc...
 

salvo50

Advanced Member >PLATINUM PLUS<
Ho messo l'esclusione delle equazioni da InputBox, con il numero 1 sono incluse, con qualsiasi altro numero sono escluse, poi come da tua richiesta appena trova la prima cinquina con le equazioni che hai impostato la visualizza, se vuoi cercarne un'altra devi impostare la prima estrazione da dove si è fermata e rilanciare 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
   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 Salvo ottimo lavoro era quello che cercavo.

Se fosse possibile risolvere l'errore evidenziato bene altrimenti ok lo stesso.

Grazie infinite per la pazienza che hai avuto nei miei confronti.

A presto se avrò bisogno approfitterò della tua gentilezza e professionalità.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao PasqualinoC, Mariella Pepe, l'errore evidenziato è su una riga che non influisce sul programma, è strano a me non la dà, comunque dato che non influisce nel programma la potete togliere mettendo l'apice a quella riga


A presto se avrò bisogno approfitterò della tua gentilezza e professionalità.
Grazie, fai pure, se hai delle immagini per i metodi futuri, che spiegano il metodo, puoi chiederli nell'altro topic, avendo le immagini che spiegano il metodo, io posso dirti subito se sono in grado di farlo.

Script su Metodi Cabalistici, Ciclometrici & C.

Come vedi dal titolo, devono essere metodi, cabalistici, ciclometrici, triangoli, quadrati, piramidi ecc...

NO STATISTICA - NO FREQUENZE - NO RITARDI
 

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

Ultimi Messaggi

Alto