Per salvo50 , una modifica al seguente listato

[Matematico]

Ciao salvo50, molto tempo fà mi avevi fatto questo listato , potresti cortesemente farmi la modifica per una sola ruota ?
In questo esempio la modifica è : BA- 20 in prima e Ba 50 in quinta posiz.
La ricerca si allarga su qualsiasi ruota a scelta...l'importante è che sia su una sola ruota la ricerca del primo e quinto desiderato.
--------------------------------------------------------------------------------------------------------------------
'Avrei bisogno di uno script che attraverso un imput box ,
'mi permetta di inserire 2 estratti a mia scelta ...
'il Primo su BARI In quinta Posizione e
'il secondo su MILANO In prima posizione.....
'questo per una statistica della stessa condizione a ritroso.
'Esempio : 31/10/2019
'BA-20 In quinta posiz
'MI-50 In prima posiz.
'Per i lgioco dell'ambata si fà la piramidazione:
'2050
'255
'71 vertibile 17
'Ambate 71-17 anche In 1/5 posiz.
'per ambo si fà il Diametrale In Decina del 71 = 76
'poi la Figura : 71 = 8
'Quindi ambi secchi : 71-76/ 71-8 principali e 17-76 / 17-8 secondari
Option Explicit
Sub Main
Dim FIn,Es,Es1,Es2,Ini,Clp,Salvo50,Ok
Dim R1,R2,P1,P2,E1,E2
Dim A,B,C,D,Caso,Casi,SS,Sp
Dim Pr_Mi,Qu_Ba,Cusp,Vert_Cusp
Dim DiamD_Cu,Fig_Cu
Dim Ruo(2),P(2),S(2),Amba(2)
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
Dim Posta(10),Poste(2)
Posta(1) = 1
Posta(6) = 1
Posta(10) = 1
Poste(2) = 1
Sp = " "
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9703))
Qu_Ba = CInt(InputBox("Inserisci il Quinto estratto di Bari",Salvo50,20))
Pr_Mi = CInt(InputBox("Inserisci il Primo estratto di Milano",Salvo50,50))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "PER MATEMATICO - SCRIPT SALVO50",1,,4,,3,,1
Ruo(1) = BA_
Ruo(2) = MI_
A = Qu_Ba
B = Pr_Mi
Es = Ini
For Es2 = Es - 1 To 1 Step - 1
Messaggio Es2
AvanzamentoElab Ini,1,Es2
Caso = 0
Ok = 0
C = Estratto(Es2,BA_,5)
D = Estratto(Es2,MI_,1)
If A = C And B = D Then Ok = 1
If Ok = 1 Then Exit For
Next
If Ok = 1 Then
S(1) = C
S(2) = D
SS = StringaNumeri(S,"",True)
P(1) = Piramide(SS,1)
P(2) = Piramide(SS,2)
Cusp = Fuori90(P(2))
Vert_Cusp = Vert(Cusp)
DiamD_Cu = DiametraleD(Cusp)
Fig_Cu = Figura(Cusp)
Amba(1) = Cusp : Amba(2) = Vert_Cusp
Ambo1(1) = Cusp : Ambo1(2) = DiamD_Cu
Ambo2(1) = Cusp : Ambo2(2) = Fig_Cu
Ambo3(1) = Vert_Cusp : Ambo3(2) = DiamD_Cu
Ambo4(1) = Vert_Cusp : Ambo4(2) = Fig_Cu
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi " Estrazione iniziale " & Format2(Es) & " del " & DataEstrazione(Es),1
Scrivi " Estratto da cercare in quinta posizione a Bari " & Format2(A),1
Scrivi " Estratto da cercare in prima posizione a Milano " & Format2(B),1
Scrivi Space(15) & "Trovati in ",1
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(BA_) & Sp,1,0
For P1 = 1 To 5
E1 = Estratto(Es2,BA_,P1)
If E1 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & Sp,1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(MI_) & Sp,1,0
For P2 = 1 To 5
E2 = Estratto(Es2,MI_,P2)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & Sp,1,0
ColoreTesto 0
Next
Scrivi
ColoreTesto 2
Scrivi Space(27) & SS,1
Scrivi Space(27) & P(1),1
Scrivi Space(27) & Format2(Cusp),1
ColoreTesto 0
Scrivi " 1ª Ambata " & Format2(Cusp) & " Vertibile di " & Format2(Cusp) & " = 2ª Ambata " & Format2(Vert_Cusp),1
Scrivi " 1° Abbinamento, Diametrale in Decina di " & Format2(Cusp) & " = " & Format2(DiamD_Cu),1
Scrivi " 2° Abbinamento, Figura di " & Format2(Cusp) & " = " & Format2(Fig_Cu),1
Scrivi
ImpostaGiocata 1,Amba,Ruo,Posta,Clp
ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
Gioca Es
Else
Scrivi
Scrivi " Dall'estrazione " & Format2(Es) & " fino alla prima estrazione, non ci sono stati riscontri per i numeri e posizioni indicate",1,,,,3,,1
End If
If Ok = 1 Then ScriviResoconto
End Sub

 

[salvo50]

Ciao Matematico, mi devo ricordare cosa ho fatto, appena posso lo faccio

 

[Matematico]

Ciao Matematico, mi devo ricordare cosa ho fatto, appena posso lo faccio

Grazie salvo50

 

[salvo50]

Ciao a Tutti
Ciao Matematico

Matematico, Rudivall, Serpico90
GRAZIE

Ho fatto 2 script, nel primo ho fatto la modifica che hai chiesto e tramite InputBox puoi cambiare la ruota
nel secondo oltre alla ruota puoi cambiare anche la posizione degli estratti cercati

Scelta ruota e posizioni prima e quinta

Option Explicit
Sub Main
   Dim FIn,Es,Es1,Es2,Ini,Clp,Salvo50,Ok
   Dim R1,R2,P1,P2,E1,E2
   Dim A,B,C,D,Caso,Casi,SS,Sp
   Dim Prim,Quint,Cusp,Vert_Cusp
   Dim DiamD_Cu,Fig_Cu
   Dim Ruo(2),P(2),S(2),Amba(2)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(10),Poste(2)
   Posta(1) = 1
   Posta(6) = 1
   Posta(10) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9703))
   R1 = CInt(InputBox("Inserisci il numero della ruota",Salvo50,1))
   Prim = CInt(InputBox("Inserisci il Primo estratto ",Salvo50,20))
   Quint = CInt(InputBox("Inserisci il Quinto estratto ",Salvo50,50))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "Per Matematico mod 1 - Script Salvo50",1,,4,,3,,1
   Ruo(1) = R1
   A = Prim
   B = Quint
   Es = Ini
   For Es2 = Es - 1 To 1 Step - 1
      Messaggio Es2
      AvanzamentoElab Ini,1,Es2
      Caso = 0
      Ok = 0
      C = Estratto(Es2,R1,1)
      D = Estratto(Es2,R1,5)
      If A = C And B = D Then Ok = 1
      If Ok = 1 Then Exit For
   Next
   If Ok = 1 Then
      S(1) = C
      S(2) = D
      SS = StringaNumeri(S,"",True)
      P(1) = Piramide(SS,1)
      P(2) = Piramide(SS,2)
      Cusp = Fuori90(P(2))
      Vert_Cusp = Vert(Cusp)
      DiamD_Cu = DiametraleD(Cusp)
      Fig_Cu = Figura(Cusp)
      Amba(1) = Cusp : Amba(2) = Vert_Cusp
      Ambo1(1) = Cusp : Ambo1(2) = DiamD_Cu
      Ambo2(1) = Cusp : Ambo2(2) = Fig_Cu
      Ambo3(1) = Vert_Cusp : Ambo3(2) = DiamD_Cu
      Ambo4(1) = Vert_Cusp : Ambo4(2) = Fig_Cu
      Caso = Caso + 1
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
      Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
      Scrivi " Estrazione iniziale " & Format2(Es) & " del " & DataEstrazione(Es),1
      Scrivi " Estratto da cercare in prima  posizione a " & NomeRuota(R1) & Sp & Format2(A),1
      Scrivi " Estratto da cercare in Quinta posizione a " & NomeRuota(R1) & Sp & Format2(B),1
      Scrivi Space(15) & "Trovati in ",1
      Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
      Scrivi " " & SiglaRuota(R1) & Sp,1,0
      For P1 = 1 To 5
         E1 = Estratto(Es2,R1,P1)
         If E1 = C Or E1 = D Then
            ColoreTesto 2
         Else
            ColoreTesto 0
         End If
         Scrivi Format2(E1) & Sp,1,0
         ColoreTesto 0
      Next
      Scrivi
      Scrivi
      Scrivi Space(27) & SS,1
      Scrivi Space(27) & P(1),1
      Scrivi Space(27) & Format2(Cusp),1,,,2
      Scrivi
      Scrivi " 1ª Ambata " & Format2(Cusp) & " Vertibile di " & Format2(Cusp) & " = 2ª Ambata " & Format2(Vert_Cusp),1
      Scrivi " 1° Abbinamento, Diametrale in Decina di " & Format2(Cusp) & " = " & Format2(DiamD_Cu),1
      Scrivi " 2° Abbinamento, Figura di " & Format2(Cusp) & " = " & Format2(Fig_Cu),1
      Scrivi
      ImpostaGiocata 1,Amba,Ruo,Posta,Clp
      ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
      ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
      ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
      ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
      Gioca Es
   Else
      Scrivi
      Scrivi " Dall'estrazione " & Format2(Es) & " fino alla prima estrazione, non ci sono stati riscontri per i numeri e posizioni indicate",1,,,,3,,1
   End If
   If Ok = 1 Then ScriviResoconto
End Sub

Scelta ruota ed anche posizioni estratti

Option Explicit
Sub Main
   Dim FIn,Es,Es1,Es2,Ini,Clp,Salvo50,Ok
   Dim R1,R2,P1,P2,E1,E2
   Dim A,B,C,D,Caso,Casi,SS,Sp
   Dim Num1,Num2,Cusp,Vert_Cusp
   Dim DiamD_Cu,Fig_Cu,Pos1,Pos2
   Dim Ruo(1),P(2),S(2),Amba(2)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(10),Poste(2)
   Posta(1) = 1
   Posta(6) = 1
   Posta(10) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn))
   R1 = CInt(InputBox("Inserisci il numero della ruota",Salvo50,1))
   Num1 = CInt(InputBox("Inserisci il Primo estratto da cercare",Salvo50,20))
   Pos1 = CInt(InputBox("Inserisci la posizione del primo estratto",Salvo50,1))
   Num2 = CInt(InputBox("Inserisci il secondo estratto da cercare ",Salvo50,50))
   Pos2 = CInt(InputBox("Inserisci la posizione del secondo estratto",Salvo50,5))
   If Pos1 <> Pos2 And Num1 <> Num2 Then
      Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
      Call ScegliRange(Ini,FIn,Ini,FIn)
      Scrivi Space(12) & "Per Matematici mod 2 - SCRIPT SALVO50",1,,4,,3,,1
      Ruo(1) = R1
      A = Num1
      B = Num2
      Es = Ini
      For Es2 = Es - 1 To 1 Step - 1
         Messaggio Es2
         AvanzamentoElab Es,1,Es2
         Caso = 0
         Ok = 0
         C = Estratto(Es2,R1,Pos1)
         D = Estratto(Es2,R1,Pos2)
         If A = C And B = D Then Ok = 1
         If Ok = 1 Then Exit For
      Next
      If Ok = 1 Then
         S(1) = C
         S(2) = D
         SS = StringaNumeri(S,"",True)
         P(1) = Piramide(SS,1)
         P(2) = Piramide(SS,2)
         Cusp = Fuori90(P(2))
         Vert_Cusp = Vert(Cusp)
         DiamD_Cu = DiametraleD(Cusp)
         Fig_Cu = Figura(Cusp)
         Amba(1) = Cusp : Amba(2) = Vert_Cusp
         Ambo1(1) = Cusp : Ambo1(2) = DiamD_Cu
         Ambo2(1) = Cusp : Ambo2(2) = Fig_Cu
         Ambo3(1) = Vert_Cusp : Ambo3(2) = DiamD_Cu
         Ambo4(1) = Vert_Cusp : Ambo4(2) = Fig_Cu
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi " Estrazione iniziale " & Format2(Es) & " del " & DataEstrazione(Es),1
         Scrivi " Estratto da cercare in " & Pos1 & "ª Posizione a " & NomeRuota(R1) & Sp & Format2(A),1
         Scrivi " Estratto da cercare in " & Pos2 & "ª Posizione a " & NomeRuota(R1) & Sp & Format2(B),1
         Scrivi Space(15) & "Trovati in ",1
         Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
         Scrivi " " & SiglaRuota(R1) & Sp,1,0
         For P1 = 1 To 5
            E1 = Estratto(Es2,R1,P1)
            If E1 = C Or E1 = D Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & Sp,1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi
         Scrivi Space(27) & SS,1
         Scrivi Space(27) & P(1),1
         Scrivi Space(27) & Format2(Cusp),1,,,2
         Scrivi
         Scrivi " 1ª Ambata " & Format2(Cusp) & " Vertibile di " & Format2(Cusp) & " = 2ª Ambata " & Format2(Vert_Cusp),1
         Scrivi " 1° Abbinamento, Diametrale in Decina di " & Format2(Cusp) & " = " & Format2(DiamD_Cu),1
         Scrivi " 2° Abbinamento, Figura di " & Format2(Cusp) & " = " & Format2(Fig_Cu),1
         Scrivi
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp
         ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
         ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
         ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
         ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
         Gioca Es
      Else
         Scrivi
         Scrivi " Dall'estrazione " & Format2(Es) & " fino alla prima estrazione, non ci sono stati riscontri per i numeri e posizioni indicate",1,,,,3,,1
      End If
      If Ok = 1 Then ScriviResoconto
   End If
   If Pos1 = Pos2 Or Num1 = Num2 Then Scrivi " Hai messo le posizioni dei numeri uguali oppure i numeri uguali",1,,4,,3,,1
End Sub

 

[Matematico]

Come sempre sei SUPER!

Grazie infinite

Buon weekend !

 

[EVERITA C]

Ciao Salvo non capisco perche' lo script non trova le estrazioni reali.

Puoi controllare grazie.

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(SoC2 + 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

 

[salvo50]

Ciao Everita

Se tu gli lasci tutte e cinque le equazione che devono essere a somma 90. Credo, (io non sono sicuro perché non ho modo di controllare perché il mio computer negli script è molto lento) che in tutte le estrazioni se ci sono riscontri saranno meno delle dita di una mano, quindi se vuoi avere qualche riscontro, secondo me massimo devi impostare 3 equazioni perfette, a PasqualinoC glielo avevo fatto così, in modo che poteva eliminare qualche equazione. Per non cercare tutte e cinque le equazioni devi procedere così, quando alla terza domanda lo script ti chiede se vuoi includere la prima equazione, se lasci 1 è inserita se metti un altro numero la prima equazione a somma 90 non la include nella ricerca, e così procedendo alla domanda dopo ti chiede se vuoi includere nella ricerca la seconda equazione anche qui se lasci 1 la cerca l'equazione a somma 90, se metti un altro numero la esclude dalla ricerca e così per la terza la quarta e la quinta equazione perfetta cioè con somma 90.

Non capisco perché hai postato questo script dove si ferma al primo riscontro che trova, se non ricordo male l'avevo modificato in modo che tramite imputbox potevi impostare di fermarsi a più riscontri, il numero di riscontri che avevi inserito

 

[EVERITA C]

Ciao Salvo forse mi sono espressa male io ho chiesto che lo script non cerca l'estrazione reale al di la' di 3 o 4 o 5 equazioni.

 

[salvo50]

Ciao Salvo forse mi sono espressa male io ho chiesto che lo script non cerca l'estrazione reale al di la' di 3 o 4 o 5 equazioni.

Ciao Everita

Allora spiegati meglio con qualche esempio, perché non riesco a capire la tua richiesta.

Dicendo che non trova le estrazioni reali, mi viene da fare una battuta, cosa trova le estrazioni irreali

 

[EVERITA C]

Queste due estrazioni esistono?

Io dico di no.

Estrazione n.10317 del 21.10.2023 GE 14.52.74.26.68 Somma = 54
Estrazione n.9629 del 14.05.2019 GE 35.17.90.84.30 Somma = 76

14 52 74 26 68 35 17 - Distanze 52 68 48 48 33 18
52 74 26 68 35 17 90
74 26 68 35 17 90 84 Somma Distanze = 35
26 68 35 17 90 84 30
68 35 17 90 84 30 70 - Distanze 33 18 17 96 54
--------------------
Somme 54 75 40 56 24 76 - Somma delle somme 55
21 - Somma 7ª colonna

35 + 55 = 90 1ª Equazione
76 + 14 = 90 2ª Equazione
14 + 76 = 90 3ª Equazione
52 + 26 + 35 + 90 + 30 = 53 4ª Equazione
56 + 24 + 76 = 66 5ª Equazione

 

[salvo50]

Ciao Everita

Ecco così si chiedono gli aiuti, metti l'estrazione strana, anomala, in modo che uno può capire a cosa ti riferisci.

Allora ho fatto un controllo ed a me l'estrazione inesistente che c'è nel tuo esempio non la dà, a me esce questa



come puoi notare la seconda data è più piccola di quella del tuo esempio, quindi quell'estrazione impostata da te con gli estratti impostati da te anche per me non esiste, cioè lanciando lo script nel mio computer non viene fuori, quindi non riesco a capire perché a te viene quell'estrazione fasulla, ripeto io non ho modo di controllare perché a me l'errore non lo dà.

Poi ho pensato che forse avevi impostato un archivio alternativo e quindi ho lanciato lo script con tutti e 5 gli archivi alternativi che ci sono in Spaziometria ed anche in quegli archivi la tua estrazione fasulla non c'è, quindi non so che dirti.
Se ci fosse un errore nello script, anche a me dovrebbe uscire l'estrazione fasulla, ma non è così.

E mi sono solo adesso accorto che anche in questo script la seconda e la terza equazione sono uguali

 

[EVERITA C]

Ciao Salvo avrei un metodo ( procedimento di calcolo ) da far scriptare ma dal momento che sono riuscita a capire la procedura di calcolo non mi sento di postarla qui per vari motivi.

Ora se qualche anima buona scriptologa si sente di contattarmi in privato ( facebook , watts-app) io posso condividere metodo e procedura.

Non me ne vogliano gli altri ma di avvoltoi in rete sono pieni e non mi va di divulgare un metodo che a mio parere e' piu' che valido allora solo a chi desidera avere la procedura in privato.

Grazie in anticipo a chi vuole cimentarsi.