Per Mike58 e Salvo 50 o chi ama osare..

toon · 30 Giugno 2023

So che può sembrare difficile, ma lo è... almeno per me... e forse non solo..
Mi servirebbe uno script che da una predeterminata tabella, come nell'esempio di passo 8,
o anche con diverso moltiplicatore, mi trovi il risultato differenziale:
Esempio pratico:
-->08-16-24-32-40 ---> 05
-->48-56-64-72-80 ---> 05
-->88-06-14-22-30 ---> 05
-->38-46-54-62-70 ---> 05
-->78-86-04-12-20 ---> 05
-->28-36-44-52-60 ---> 02
-->68-76-84-02-10 ---> 05
-->18-26-34-42-50 ---> 05
-->58-66-74-82-90 ---> 05
distanza tra 52 e 20 = 42
Trovate due cifre, esempio 52 e 20 dovrei calcolarne la differenza posizionale, in questo caso, uguale a 42,
infatti partendo da 52 compreso, dovremo, andando verso destra, e sempre in avanti,
contare i numeri, comprendendo anche il 20 e giocheremo la distanza 42 con il vertibile 24.
se avessimo avuto il 20 come primo e 52 come secondo numero, la differenza sarebbe
stata 05 ed il vertibile 50. Se ci sono più di due numeri della tabella sulla o sulle ruote , si considerano i primi due
in ordine di posizione.
La ricerca si può fare su ruota singola o su due ruote consecutive, l'importante che i due
numeri siano uniti nel caso della singola ed isotopi in ruote consecutive.
I migliori risultati si ottengono dalla prima estrazione mensile.
Grazie in anticipo..

salvo50 · 30 Giugno 2023

Ciao Toon

della tabella da te postata hai preso i numeri 20 e 52, ma con quale criterio, non sono neanche isotopi, comunque uno script con queste caratteristiche è già stato richiesto e qualcuno non ricordo chi ha fatto lo script, ma non è semplice trovarlo nelle miriadi di script che ho, non mi ricordo neanche con che titolo l'ho salvato, comunque posso farti lo script, però ho bisogno di più informazioni, esempio se si cerca con ruota singola quante estrazioni bisogna mettere nella tabella, se si fa con ruote consecutive bisogna mettere tutte le estrazioni?
Nella tabella da te postata se faccio il calcolo solo con i numeri isotopi sono in totale 55 casi si devono calcolare tutti?

toon · 30 Giugno 2023

Era un esempio estrattivo casuale per farne capire la dinamica di calcolo, i numeri, nella Tabella dell'8 sono quelli che si devono cercare nella singola estrazione, meglio se la prima del mese, è quella che da i migliori risultati. nell'estrazione seguente :
giovedì 29 giugno 2023 Bari 59 22 52 32 68
prenderemo 22 e 52 i primi due numeri e quelli che troviamo nella tabella, e calcolando la distanza, avremo
16 da giocare con il vertibile 61 su Bari
Esempio su 2 ruote Bari Cagliari lo 01/06/2023 Bari 34 72 43 26 21
............................................................................Cagliari 05 49 08 80 38
avremo il 26 e 80 isotopi quindi calcolando la distanza avremo :
19 da giocare col vertibile 11 uscito al secondo colpo su Bari
ed il 19 sempre su Bari al sesto e settimo colpo.
Se hai altri dubbi dimmi pure... comunque grazie..

salvo50 · 1 Luglio 2023

Adesso è più chiaro,

toon · 1 Luglio 2023

Grazie Salvo per la pazienza...

Mike58 · 1 Luglio 2023

Raga, io non ho tempo, sono fuori sede e senza Pc.
Poi leggendovi non ho ben capito, spero che Salvo abbia compreso e soddisfi la richiesta.
Un saluto 👋

salvo50 · 1 Luglio 2023

Ciao Mike

Lo script con 2 ruote l'ho finito, volevo trovare un algoritmo (formuletta) , ma non ci sono riuscito, poi avevo pensato di mettere un FOR-NEXT con step 8, ma non ci ho neanche provato, alla fine ho scelto la strada più facile, ho messo 45 IF-THEN.
Se qualcuno escogita una formuletta sarò ben contento di togliere gli IF-THEN.

Appena posso faccio quello con una sola ruota

Ecco lo script salvo errori o dimenticanze

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Caso,Casi
   Dim R1,R2,P1,A1,B1,A,B,E1,E2,AA,BB
   Dim PP1,PP2,Ind_Men
   Dim Poste(2),Ruote(2),Num1(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10000)
   Ind_Men = CInt(InputBox("Quale IndiceMensile ",,1))
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata e l'ambo?",,9)
   Poste(1) = 1
   Poste(2) = 1
   Scrivi Space(5) & " METODO DISTANZA POSIZIONALE di TOON - 2 RUOTE - script SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      If IndiceMensile(Es) = 1 Then
         Caso = 0
         For R1 = 1 To 10
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               For P1 = 1 To 5
                  A1 = Estratto(Es,R1,P1)
                  B1 = Estratto(Es,R2,P1)
                  A = A1 + 270
                  B = B1 + 270
                  If A Mod 8 = 0 Then
                     If B Mod 8 = 0 Then
                        A = Fuori90(A)
                        B = Fuori90(B)
                        Call Calcoli(A,AA)
                        Call Calcoli(B,BB)

                        '
                        If AA < BB Then Num1(1) = BB - AA + 1
                        If AA > BB Then Num1(1) = FuoriX((BB + 45) - AA,45) + 1
                        If AA = BB Then Num1(1) = 46
                        Num1(2) = Vert(Num1(1))
                        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 = A1 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 = B1 Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi " Tra " & Format2(A1) & " e " & Format2(B1) & " La Distanza è " & Format2(Num1(1)),1,,,1
                        Scrivi
                        Ruote(1) = R1
                        Ruote(2) = R2
                        ImpostaGiocata 1,Num1,Ruote,Poste,Clp
                        Gioca Es,1
                     End If
                  End If
               Next
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Calcoli(x,xx)
   If x = 8 Then xx = 1
   If x = 16 Then xx = 2
   If x = 24 Then xx = 3
   If x = 32 Then xx = 4
   If x = 40 Then xx = 5
   If x = 48 Then xx = 6
   If x = 56 Then xx = 7
   If x = 64 Then xx = 8
   If x = 72 Then xx = 9
   If x = 80 Then xx = 10
   If x = 88 Then xx = 11
   If x = 6 Then xx = 12
   If x = 14 Then xx = 13
   If x = 22 Then xx = 14
   If x = 30 Then xx = 15
   If x = 38 Then xx = 16
   If x = 46 Then xx = 17
   If x = 54 Then xx = 18
   If x = 62 Then xx = 19
   If x = 70 Then xx = 20
   If x = 78 Then xx = 21
   If x = 86 Then xx = 22
   If x = 4 Then xx = 23
   If x = 12 Then xx = 24
   If x = 20 Then xx = 25
   If x = 28 Then xx = 26
   If x = 36 Then xx = 27
   If x = 44 Then xx = 28
   If x = 52 Then xx = 29
   If x = 60 Then xx = 30
   If x = 68 Then xx = 31
   If x = 76 Then xx = 32
   If x = 84 Then xx = 33
   If x = 2 Then xx = 34
   If x = 10 Then xx = 35
   If x = 18 Then xx = 36
   If x = 26 Then xx = 37
   If x = 34 Then xx = 38
   If x = 42 Then xx = 39
   If x = 50 Then xx = 40
   If x = 58 Then xx = 41
   If x = 66 Then xx = 42
   If x = 74 Then xx = 43
   If x = 82 Then xx = 44
   If x = 90 Then xx = 45
End Function

salvo50 · 1 Luglio 2023

Una sola ruota

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Caso,Casi
   Dim R1,R2,P1,P2,A1,B1,A,B,E1,E2,AA,BB
   Dim PP1,PP2,Ind_Men
   Dim Poste(2),Ruote(1),Num1(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10000)
   Ind_Men = CInt(InputBox("Quale IndiceMensile ",,1))
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata e l'ambo?",,9)
   Poste(1) = 1
   Poste(2) = 1
   Scrivi Space(5) & " METODO DISTANZA POSIZIONALE di TOON - una ruota - script SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      If IndiceMensile(Es) = Ind_Men Then
         Caso = 0
         For R1 = 1 To 12
            If R1 = 11 Then R1 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A1 = Estratto(Es,R1,P1)
                  B1 = Estratto(Es,R1,P2)
                  A = A1 + 270
                  B = B1 + 270
                  If A Mod 8 = 0 Then
                     If B Mod 8 = 0 Then
                        A = Fuori90(A)
                        B = Fuori90(B)
                        Call Calcoli(A,AA)
                        Call Calcoli(B,BB)
                        '
                        If AA < BB Then Num1(1) = BB - AA + 1
                        If AA > BB Then Num1(1) = FuoriX((BB + 45) - AA,45) + 1
                        If AA = BB Then Num1(1) = 46
                        Num1(2) = Vert(Num1(1))
                        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 = A1 Or E1 = B1 Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi " Tra " & Format2(A1) & " e " & Format2(B1) & " La Distanza è " & Format2(Num1(1)),1,,,1
                        Scrivi
                        Ruote(1) = R1
                        ImpostaGiocata 1,Num1,Ruote,Poste,Clp
                        Gioca Es,1
                     End If
                  End If
               Next
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Calcoli(x,xx)
   If x = 8 Then xx = 1
   If x = 16 Then xx = 2
   If x = 24 Then xx = 3
   If x = 32 Then xx = 4
   If x = 40 Then xx = 5
   If x = 48 Then xx = 6
   If x = 56 Then xx = 7
   If x = 64 Then xx = 8
   If x = 72 Then xx = 9
   If x = 80 Then xx = 10
   If x = 88 Then xx = 11
   If x = 6 Then xx = 12
   If x = 14 Then xx = 13
   If x = 22 Then xx = 14
   If x = 30 Then xx = 15
   If x = 38 Then xx = 16
   If x = 46 Then xx = 17
   If x = 54 Then xx = 18
   If x = 62 Then xx = 19
   If x = 70 Then xx = 20
   If x = 78 Then xx = 21
   If x = 86 Then xx = 22
   If x = 4 Then xx = 23
   If x = 12 Then xx = 24
   If x = 20 Then xx = 25
   If x = 28 Then xx = 26
   If x = 36 Then xx = 27
   If x = 44 Then xx = 28
   If x = 52 Then xx = 29
   If x = 60 Then xx = 30
   If x = 68 Then xx = 31
   If x = 76 Then xx = 32
   If x = 84 Then xx = 33
   If x = 2 Then xx = 34
   If x = 10 Then xx = 35
   If x = 18 Then xx = 36
   If x = 26 Then xx = 37
   If x = 34 Then xx = 38
   If x = 42 Then xx = 39
   If x = 50 Then xx = 40
   If x = 58 Then xx = 41
   If x = 66 Then xx = 42
   If x = 74 Then xx = 43
   If x = 82 Then xx = 44
   If x = 90 Then xx = 45
End Function

salvo50 · 2 Luglio 2023

Ciao a Tutti

I due script sono da riprendere perché li ho modificati, facendoli con meno righe

toon · 3 Luglio 2023

Perdonami se non Ti ho risposto prima ma sono stato 2 giorni in un posto dove non c'era campo telefonico.
Grazie, mi pare, come sempre, un tuo ottimo lavoro, mo lo provo, grazie per essere riuscito a ridurre le righe
fai quasi l'impossibile e lo ottimizzi pure, Grandissimo.
Ancora un grande grazie, anche a nome di chi lo utilizzerà in silenzio. 💪

salvo50 · 3 Luglio 2023

Ciao a Tutti

Ciao Toon

Rudivall, Mike58, Toon, Alien
GRAZIE

Purtroppo come ho già scritto non sono riuscito ad escogitare un algoritmo, quindi se si agisce su una tavola diversa dalla sequenza 8 che hai postato, si deve modificare lo script oppure farne un altro.

Comunque se vuoi fare verifiche su altre tavole postale che ti modifico lo script oppure ne faccio un altro, ci sarebbe solo da modificare gli IF-THEN son sicuro che dopo averne modificato qualcuno, dato che ho capito che un po' smanetti anche tu, puoi essere in grado di farteli da te.

i legend · 3 Luglio 2023

Ciao a tutti

👍

toon · 3 Luglio 2023

Ho fatto qualche modifica per altre tavole con moltiplicatori diversi, con minime modifiche gli acript funzionano benissimo..
Nuovamente grazie, non riuscivo proprio a cavare un ragno dal buco, non sapevo come impostare la tabella nel modo giusto.
Grazie i legend, lo script di salvo è perfetto, ma i consigli sono sempre ben accetti..

💪

salvo50 · 3 Luglio 2023

i legend ha scritto:
Ciao Salvo , per poter costruire una formula bisognerebbe partire dalla costruzione della tabella.

Potresti provare questo codice?
Arig(45)
Acol(45)
an(45)
Passo = 8
N=k=0
For i= 1 to 9
For j= to 5
K=k+1
Acol(k)= i
aRig(k)=j

N= fuori90(n+ passo)
an(k)=n
Scrivi format2&" ",,0
Next
Scrivi
Next
Scrivi stringanumeri(an,,1)
scricvi stringanumeri(acol,,1)
scrivi stringanumeri(arig,,1)

Questo pezzo ricostruisce la tabella?
Le colonne e le righe corrispondono alla posizione del numero?
Si può utilizzare per altri passi?
Se non funziona bisogna trovare un modo per standardizzarla.
Credo che bisognerebbe partire dalla tabella.
Poi potrebbe essere piu semplice, se possibile, costruire una formula

Altrimenti lo script che hai fatto funzia soli con i numeri specifici

sono senza PC pertanto non posso testare codice.
A dopo, ora vado a trovare un parente che non sta bene.
P.s:
Toon quando si chiede uno script, bisogna essere molto dettagliati altrimenti diventa davvero difficile arrivare ad un risultato.
se hai altre specifiche dillo pure.

Ciao ILegend

Infatti io volevo trovare una formula, per esempio per la progressione del 7 c'è nel web una formula di Domenico Manna, mi sembra adesso non ricordo bene saranno 2 o tre righe.

Comunque la tua esposizione mi sembra buonissima, appena ho tempo e voglia me la studio bene, basta cambiare il passo e i limiti dei FOR-NEXT magari da InputBox e creare qualunque tabella

Grazie

i legend · 3 Luglio 2023

salvo50 ha scritto:
appena o tempo e voglia

Parole sante, se fosse diversamente sarebbe un lavoro.
Complimenti come sempre per i tuoi listati.

👍

Ciao a tutti

salvo50 · 4 Luglio 2023

Ciao a Tutti

Con l'aiuto di ILegend ho modificato i due script

Adesso si possono inserire i parametri della tabella tramite InputBox, gli InputBox aggiunti sono

Passo
Righe
Colonne
e
Tabel

Con passo si modifica la distanza tra un numero e il successivo
con righe si modifica il numero delle righe
con colonne si modifica il numero delle colonne
e con tabel si decide se visualizzare la tabella oppure no

Naturalmente sono da controllare se funzionano bene, nel titolo ho messo che le distanze calcolate sono state stabilite da Toon, perché sono un po' diverse da come le conosco io

Due ruote

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Caso,Casi,Tabel,K2,K3
   Dim R1,R2,P1,A1,B1,A,B,E1,E2,AA,BB,RIxCO
   Dim PP1,PP2,Ind_Men,Passo,Righe,Colonne
   Dim Poste(2),Ruote(2),Num1(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10320)
   Ind_Men = CInt(InputBox("Quale IndiceMensile ",,1))
   Passo = CInt(InputBox("Inserire il numero del passo",,7))
   Righe = CInt(InputBox("Inserire il numero delle righe ",,9))
   Colonne = CInt(InputBox("Inserire il numero delle colonne ",,10))
   Tabel = CInt(InputBox("Se si Vuole Visualizzare la Tabella Inserire il numero 1 Altrimenti un qualsiasi altro numero ",,1))
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata e l'ambo?",,9)
   Poste(1) = 1
   Poste(2) = 1
   Scrivi Space(5) & " METODO DISTANZA POSIZIONALE di TOON - 2 RUOTE - script SALVO50",1,,4,,3,,1
   Scrivi Space(5) & " LA DISTANZA CALCOLATA E' STABILITA da TOON ",1,,4,,3,,1
   Scrivi
   RIxCO = Righe * Colonne
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      If IndiceMensile(Es) = Ind_Men Then
         Caso = 0
         For R1 = 1 To 10
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               For P1 = 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R2,P1)
                  K2 = 0 : K3 = 0
                  Call Calcoli(A,B,AA,BB,Passo,Righe,Colonne,Tabel,Casi,K2,K3)
                  If K2 = 1 And K3 = 1 Then
                     If AA < BB Then Num1(1) = BB - AA + 1
                     If AA > BB Then Num1(1) = FuoriX((BB + RIxCO) - AA,RIxCO) + 1
                     If AA = BB Then Num1(1) = FuoriX(RIxCO + 1,RIxCO)
                     Num1(2) = Vert(Num1(1))
                     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 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 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi
                     Scrivi " Tra " & Format2(A) & " e " & Format2(B) & " La Distanza è " & Format2(Num1(1)),1,,,1
                     Scrivi
                     Ruote(1) = R1
                     Ruote(2) = R2
                     ImpostaGiocata 1,Num1,Ruote,Poste,Clp
                     Gioca Es,1
                  End If
                  If ScriptInterrotto Then Exit Sub
               Next
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Calcoli(A,B,AA,BB,Passo,Righe,Colonne,Tabel,Casi,K2,K3)
   Dim an(90)
   Dim N,K,i,j
   N = 0
   K = 0
   For i = 1 To Righe
      For j = 1 To Colonne
         K = K + 1
         N = Fuori90(N + Passo)
         an(K) = N
         If A = an(K) Then AA = K : K2 = 1
         If B = an(K) Then BB = K : K3 = 1
         If Tabel = 1 And Casi = 0 Then Scrivi Format2(N) & " ",,0
      Next
      If Tabel = 1 And Casi = 0 Then Scrivi
   Next
End Function

Una ruota

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Caso,Casi,Tabel,RIxCO
   Dim R1,R2,P1,P2,A1,B1,A,B,E1,E2,AA,BB,K2,K3
   Dim PP1,PP2,Ind_Men,Passo,Righe,Colonne
   Dim Poste(2),Ruote(1),Num1(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10300)
   Ind_Men = CInt(InputBox("Quale IndiceMensile ",,1))
   Passo = CInt(InputBox("Inserire il numero del passo",,8))
   Righe = CInt(InputBox("Inserire il numero delle righe ",,9))
   Colonne = CInt(InputBox("Inserire il numero delle colonne ",,5))
   Tabel = CInt(InputBox("Se si Vuole Visualizzare la Tabella Inserire il numero 1 Altrimenti un qualsiasi altro numero ",,1))
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata e l'ambo?",,9)
   Poste(1) = 1
   Poste(2) = 1
   Scrivi Space(5) & " METODO DISTANZA POSIZIONALE di TOON - una ruota - script SALVO50",1,,4,,3,,1
   Scrivi Space(5) & " LA DISTANZA CALCOLATA E' STABILITA da TOON ",1,,4,,3,,1
   Scrivi
   RIxCO = Righe * Colonne
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      If IndiceMensile(Es) = Ind_Men Then
         Caso = 0
         For R1 = 1 To 12
            If R1 = 11 Then R1 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  K2 = 0 : K3 = 0
                  Call Calcoli(A,B,AA,BB,Passo,Righe,Colonne,Tabel,Casi,K2,K3)
                  If K2 = 1 And K3 = 1 Then
                     '
                     If AA < BB Then Num1(1) = BB - AA + 1
                     If AA > BB Then Num1(1) = FuoriX((BB + RIxCO) - AA,RIxCO) + 1
                     If AA = BB Then Num1(1) = FuoriX(RIxCO + 1,RIxCO)
                     Num1(2) = Vert(Num1(1))
                     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
                     Scrivi " Tra " & Format2(A) & " e " & Format2(B) & " La Distanza è " & Format2(Num1(1)),1,,,1
                     Scrivi
                     Ruote(1) = R1
                     ImpostaGiocata 1,Num1,Ruote,Poste,Clp
                     Gioca Es,1
                  End If
               Next
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Calcoli(A,B,AA,BB,Passo,Righe,Colonne,Tabel,Casi,K2,K3)
   Dim an(90)
   Dim N,K,i,j
   N = 0
   K = 0
   For i = 1 To Righe
      For j = 1 To Colonne
         K = K + 1
         N = Fuori90(N + Passo)
         an(K) = N
         If A = an(K) Then AA = K : K2 = 1
         If B = an(K) Then BB = K : K3 = 1
         If Tabel = 1 And Casi = 0 Then Scrivi Format2(N) & " ",,0
      Next
      If Tabel = 1 And Casi = 0 Then Scrivi
   Next
End Function

i legend · 4 Luglio 2023

Ciao Salvo
Non ho fatto nulla, sei bravo davvero.
Adesso sta a toon verificare se va bene.
Mi spiace non poterlo provare

P.s
Anche quando avevo il pc , tanti script non mi mettevo a farli , perché non erano chiari , o perché si partiva da un punto per andare verso l ignoto.
Anche per questo ti faccio i miei complimenti.
🙂👍

toon · 4 Luglio 2023

Voi due mi fate paura...
Siete paurosamente bravi..
Salvo, riesci sempre ad arrivare oltre..💪

Provati, funzionano perfettamente

salvo50 · 23 Aprile 2024

Ciao a Tutti

Mi sono accorto che negli script del post #16, ci sono degli errori,
così come sono impostati non calcolano tutte le distanze possibili,
ho tolto l'addizione che avevo impostato ed ho messo dei
filtri K2 e K3, inoltre mettendo la modifica di poter cambiare il tipo
di tabella impostando da InputBox il passo, le righe e le colonne,
avevo lasciato il limite massimo di 45 non va bene perché se voglio
impostare come esempio la tabella della tavola settenaria, il limite
massimo è 90 quindi l'ho corretto. Purtroppo riguardo i filtri k2 e k3
che ho messo per poter calcolare tutte le distanze possibili, fa difetto
che a volte la tabella viene visualizza più di una volta, ho capito
perché avviene ma non sono riuscito a trovare un rimedio, questo non ah
importanza ai fini del calcolo perché l'errore è solo nella visualizzazione,
(visualizza più di una tabella), ho messo anche che la tabella la deve
visualizzare solo all'inizio, è inutile visualizzarla ad ogni estrazione,
quindi gli script del post #16 sono da riprendere

toon · 23 Aprile 2024

Grazie per la cortesia, l'attenzione e la rettifica..
Grazie.. 💪

Per Mike58 e Salvo 50 o chi ama osare..

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member