Novità

Uno script dalla ruota verso l'ambata

Paki144

Paki144

Super member
Ciao una richiesta
per gli esperti Scripter
faccio un esempio:
* * * * * * * * * * * *
Estrazione del 10/12/2020
BARI ______ 80_71_22_85_17
CAGLIARI _ 18_84_02_37_62
FIRENZE __ 18_17_66_30_46
GENOVA __ 19_26_01_69_17
MILANO __ 05_84_29_81_61
NAPOLI ___ 19_49_80_16_09
PALERMO _ 51_85_84_29_40
ROMA _____03_53_17_64_58
TORINO ___10_18_33_36_43
VENEZIA ___38_07_81_20_15
* * * * * * * * * * * * *
1° di Bari___80_xx_xx_xx_xx
dal 1° di Bari 80 = si contano 80 posizioni partendo
Dal 1° di BA al 5° di BA = 01.02.03.04.05
Dal 1° di CA al 5° di CA = 06.07.08.09.10
Dal 1° di FI al 5° di FI = 11.12.13.14.15
Dal 1° di GE al 5° di GE = 16.17.18.19.20
Dal 1° di MI al 5° di MI = 21.22.23.24.25
Dal 1° di NA al 5° di NA = 26.27.28.29.30
Dal 1° di PA al 5° di PA = 31.32.33.34.35
Dal 1° di RO al 5° di RO = 36.37.38.39.40
Dal 1° di TO al 5° di TO = 41.42.43.44.45
Dal 1° di VE al 5° di VE = 46.47.48.49.50
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Nel contare le posizioni se arriviamo al 5° di Venezia
( la Ruota Nazionale non si usa nel conteggio )
Si continua il conteggio ripartendo dal 1° di Bari <<<<
AL 5° di Venezia ci troviamo a 50 nel conteggio
per arrivare a 80, torniamo di nuovo dal 1° di Bari
Dal 1° di BA al 5° di BA = 51.52.53.54.55
Dal 1° di CA al 5° di CA = 56.57.58.59.60
Dal 1° di FI al 5° di FI = 61.62.63.64.65
Dal 1° di GE al 5° di GE = 66.67.68.69.70
Dal 1° di MI al 5° di MI = 71.72.73.74.75
Dal 1° di NA al 5° di NA = 76.77.78.79.80

il 1° di Bari ( contando 80 )
con il conteggio arriviamo a 80 alla ruota di Napoli in 5°
IL 80 sarà ambata verso la ruota di Napoli
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Poi si passa al 2° di Bari (71) e contiamo fino
a “71” come l’esempio sopra.
poi il 3° di Bari (22) e contiamo fino a “22”.
poi il 4° di Bari (85) e contiamo fino a “85”.
poi il 5° di Bari (17) e contiamo fino a “17”.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
anche se il numero da contare si trova
in 2°-3°-4°-5° si inizia a contare sempre
partendo dalla 1° posizione della Ruota
dove si trova il numero da contare.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
P.S. Se fosse possibile poter
scegliere la Ruota con un inputbox
BA.CA.FI.GE.MI.NA.PA.RO.TO.VE.
(senza la Ruota Nazionale)
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
P.S. Sulla ruota di Bari iniziamo il conteggio dal 1° di Bari.
Se scegliamo un altra Ruota per esempio: Genova_19_26_01_69_17
Esempio: GE_19= iniziamo a contare
dal 1° di GE=01.02.03.04.05
dal 1° di MI=06.07.08.09.10
dal 1° di NA=11.12.13.14.15
dal 1° di PA=16.17.18.19.
IL 19 sarà ambata verso la Ruota di Palermo.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
P.S. Scelta la Ruota, il conteggio
del numero 1°_2°_3°_4°_5°
inizia sempre dal 1° estratto della Ruota scelta
dove si trova il numero che scegliamo in quella Ruota.
Vi ringrazio in anticipo
saluti ciao
 
Ultima modifica:
ciao. premetto che non sono uno scripter. Conosco solo le basi che ho cercato di carpire sfogliando il listati degli esperti. Mi ha incuriosito la tua richiesta e ,forse per una sfida con me stesso, ho analizzato la questione e ho prodotto questo listato. Sicuramentre troverai errori perchè non si riesce sempre a considerare tutte le possibilità. Quando troverai errori fammelo sapere.
Spero di aver fatto cosa gradita. Nel frattempo di auguro buona serata e Buon Natale
Codice: 
Sub Main()
   Scrivi : ColoreTesto 2 : Scrivi "Estratti verso ruota  by Scythe"
   Scrivi : ColoreTesto 0 : Scrivi
   Dim ruotaa(5)
   Dim n1(5)
   im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
   stra = InputBox("Quante estrazioni vuoi controllare ?","Estrazioni",100)
   rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",1))
   ini = EstrazioneFin - Stra
   fin = EstrazioneFin
   ruota = rr
   co = 0
   For es = ini To fin
      Messaggio(es)
      If IndiceMensile(es) = im Then
         For p = 1 To 5
            n1(p) = Estratto(es,rr,p)
         Next
         casi = casi + 1
         Scrivi String(90,"=") & " Caso n° " & casi,1
         co = co + 1
         Scrivi es & "    " & "  n° " & Format2(im) & " del " & DataEstrazione(es),True
         Scrivi String(90,"=") ,1
        
        
         Scrivi
         Scrivi "estratti  " & SiglaRuota(ruota) & "    " & Format2(n1(1)) & " " & Format2(n1(2)) & " " & Format2(n1(3)) & " " & Format2(n1(4)) & " " & Format2(n1(5)),True
         For pp = 1 To 5
            B = 50 - Abs(rr - 1) * 5
            C = 50 - B
            D = Abs(n1(pp) - b)
            If n1(pp) > B Or D < C Then
               ruotaa(1) = Int(D/5) + 1
            End If
            If(n1(pp) > B Or D < C) And n1(pp) Mod 5 = 0 Then
               ruotaa(1) = Int(D/5)
            End If
            If n1(pp) < 6 Then
               ruotaa(1) = rr
            End If
            If n1(pp) < B And n1(pp) > 6 Then
               ruotaa(1) = Int(rr + Int(n1(pp)/5))
            End If
            If ruotaa(1) = 11 Then
               ruotaa(1) = 1
            End If
            If n1(pp) < B And n1(pp) > 6 And D > 50 Then
               D = D - 50
               ruotaa(1) = rr + Int(n1(pp)/5): Scrivi d
            End If
            If ruotaa(1) > 10 Then
               ruotaa(1) = ruotaa(1) - 10
            End If
            Scrivi Format2(n1(pp)) & "      " & "  verso >>>>>>>>>>>>>> " & SiglaRuota(ruotaa(1)),True,,- 1,1
         Next
      End If
   Next
End Sub
 
Ciao scythe Grazie per aver letto la mia richiesta ed il tempo che mi hai dedicato per realizzare lo Script.
Va benissimo è quello che volevo.
Grazie ancora
Buon Natale 🌟
 
Ciao a Tutti.

Io ne ho controllato un centinaio e non ho riscontrato errori, forse si pensa all'errore perchè si parte a contare dalla posizione in cui sta l'estratto, ma Paki144, l'ha specificato bene

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
anche se il numero da contare si trova
in 2°-3°-4°-5° si inizia a contare sempre
partendo dalla 1° posizione della Ruota
dove si trova il numero da contare.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

in qualunque posizione si trova l'estratto iniziale si deve iniziare il conteggio sempre dalla prima posizione.


BUON NATALE!
 
Ciao a tutti e grazie per l'attenzione.
Grazie a Paki per l'idea.
Grazie a Claudio8 per la dritta che mi ha consentito di riscrivere il tutto senza incartarmi.
Grazie a Salvo50 per il controllo. In realtà ho trovato alcuni errori, per esempio : su cadenze 5 e zero, sul 25 in posizione a Milano, con un numero uguale di caselle da contare sopra e sotto la ruota di partenza, quando l'estratto ha lo stesso valore della casella da contare.
Ma grazie al consiglio di Claudio ho potuto far mente locale, riordinare la confusione e ripartire da capo.
Ora mi sembra che tutto vada liscio. Grato se vorrete controllare.
Grazie, buona serata e ancora Buon natale.
 
Ops, dimenticavo di allegare lo script. S
Codice: 
Sub Main()
   Scrivi : ColoreTesto 2 : Scrivi "Estratti verso ruota  by Scythe"
   Scrivi : ColoreTesto 0 : Scrivi
   Dim ruotaa(5)
   Dim n1(5)
   Dim A(5)
   Dim B(5)
   Dim C(5)
   Dim D(5)
   Dim E(5)
  
   im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
   stra = InputBox("Quante estrazioni vuoi controllare ?","Estrazioni",100)
   rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",2))
   ini = EstrazioneFin - Stra
   fin = EstrazioneFin
   ruota = rr
   co = 0
   For es = ini To fin
    
      Messaggio(es)
      If IndiceMensile(es) = im Then
         For p = 1 To 5
            n1(p) = Estratto(es,rr,p)
        
         Next
        
         casi = casi + 1
         Scrivi String(90,"=") & " Caso n° " & casi,1
         co = co + 1
         Scrivi es & "    " & "  n° " & Format2(im) & " del " & DataEstrazione(es),True
         Scrivi String(90,"="),1
         Scrivi
         Scrivi "estratti  " & SiglaRuota(ruota) & "    " & Format2(n1(1)) & " " & Format2(n1(2)) & " " & Format2(n1(3)) & " " & Format2(n1(4)) & " " & Format2(n1(5)),True
         For x = 1 To 5
            A(x) = FuoriX(n1(x),50) 'numero da contare se n1 > 50
            B(x) =(50 -(rr - 1) * 5)'numero di caselle  a disposizione fino al 5° di venezia
            C(x) =(50 - B(x)) 'numero di caselle a disposizione per la continuazione del conteggio di n1
            D(x) = Abs(A(x) - B(x)) 'numero di caselle da contare restanti
            E(x) = Abs(D(x) - B(x)) 'scarto di caselle oltre la ruota di origine
            
            If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 <> 0 Then
            ruotaa(1) = rr + Int(A(x)/5)
            Else
            If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 = 0 Then
            ruotaa(1) = rr - 1 + Int(A(x)/5)
            Else
            If A(x) > B(x) And A(x) Mod 5 <> 0 Then
            ruotaa(1) = rr + Int(A(x)/5)
            Else
            If A(x) > B(x) And A(x) Mod 5 = 0 Then
            ruotaa(1) = rr - 1 + Int(A(x)/5)
            End If
            End If
            End If
            End If
            If ruotaa(1) > 10 Then
            ruotaa(1) = ruotaa(1) - 10
            End If
            
Scrivi Format2(n1(x)) & "      " & "  verso >>>>>>>>>>>>>> " & SiglaRuota(ruotaa(1)),True,,- 1,1
            
            'Scrivi Format2(A(x)) & " " & Format2(B(x)) & " " & Format2(C(x)) & " " & Format2(D(x)) & " " & Format2(E(x)) & "  verso >>>>>>>>>>>>>> " & SiglaRuota(ruotaa(1)),True,,- 1,1 Scrivi Format2(A(x)) & " " & Format2(B(x)) & " " & Format2(C(x)) & " " & Format2(D(x)) & " " & Format2(E(x)) & "  verso >>>>>>>>>>>>>> " & SiglaRuota(ruota
         Next
    
      End If
   Next
End Sub
cusate
 
ciao a tutti

lo script non da errori però in output ci sono alcune numeri non segnalati
nella previsione quindi ce qualche errore nello script
x scythe vorrei chiederti se puoi considerare una 2 versione
cioè conteggiando da dove e stato estratto il numero per vedere se ce
qualche differenza con l'altro e se si puo evidenziare o scrivere il numero dove
conteggia l'ultimo numero per vedere se quest ultimo lavora come numero
spia per eventuali abb per ambo

buon natale
 
zetrix ha scritto:
ciao a tutti

lo script non da errori però in output ci sono alcune numeri non segnalati
nella previsione quindi ce qualche errore nello script
x scythe vorrei chiederti se puoi considerare una 2 versione
cioè conteggiando da dove e stato estratto il numero per vedere se ce
qualche differenza con l'altro e se si puo evidenziare o scrivere il numero dove
conteggia l'ultimo numero per vedere se quest ultimo lavora come numero
spia per eventuali abb per ambo

buon natale
Clicca per espandere...
Ciao, quello che segnali era sì un altro errore. Il nuovo script mi sembra funzionare bene.
La prima parte della tua richiesta ok, la seconda non mi è chiara e ti chiedo di rifrasare la richiesta.
Inoltre, sono solo un principiante. Ma appena avrò un po di tempo, vedrò di aggiungere.
Buona serata e Buon natale
 
si intendevo il primo script adesso ho visto che ai allegato il nuovo script
devo vedere ancora questo script che ai messo
caspita sei un principiante ed ai fatto questo script guardi che e difficilissimo
fare questo script io non ci sarei riuscito a farlo per questo ti faccio
i miei complimenti per il lavoro che ai fatto
la seconda richiesta riguarda se era possibile individuare l'ultimo numero
che conteggia mi interessa proprio questo numero che puo lavorare come numero
spia ma questi sono i miei studi che seguo su determinati numeri spia sui prospetti
dopo ti faro sapere se ci sono errori oppure no

auguri e buon natale
 
Ultima modifica:
Codice: 
Sub Main()

   Scrivi : ColoreTesto 2 : Scrivi "Estratti verso ruota  by Scythe"
   Scrivi : ColoreTesto 0 : Scrivi
   Dim ruotaa(5),ruote(5),ambata1(2),ambo1(2),posta(1),poste(2)
   Dim n1(5)
   Dim CollAmbiTrovati
Dim sAmbo
Dim qEstrTrovate
Dim clsCoppia
Dim anum1,anum2
Dim p,pp,k,rr,extra



   posta(1) = 1
   poste(2) = 1
   'im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
   extra = InputBox("Quante estrazioni vuoi controllare ?",0)
   'rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",1))
   rr = ScegliRuota
   ini = EstrazioneFin - extra
   fin = EstrazioneFin
   ruota = rr
   'co = 0
   k = 0
   For es = ini To fin
      Messaggio(es)
      'If IndiceMensile(es) = im Then
         For p = 1 To 5
            n1(p) = Estratto(es,rr,p)
         Next
         'casi = casi + 1
         'Scrivi String(90,"=") & " Caso n° " & casi,1
         'co = co + 1
         'Scrivi es & "    " & "  n° " & Format2(im) & " del " & DataEstrazione(es),True
         'Scrivi String(90,"="),1
     
          ReDim MatriceCaselleDaEvid(5,1)
         ' Primo elemento
         MatriceCaselleDaEvid(1,0) = rr ' ruota di bari
         MatriceCaselleDaEvid(1,1) = 1 ' primo Estratto
         ' secondo elemento
         MatriceCaselleDaEvid(2,0) = rr ' ruota di bari
         MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
         ' terzo elemento
         MatriceCaselleDaEvid(3,0) = rr ' ruota di venezia
         MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
         ' quarto elemento
         MatriceCaselleDaEvid(4,0) = rr ' ruota di venezia
         MatriceCaselleDaEvid(4,1) = 4 ' quarto Estratto
          ' quarto elemento
         MatriceCaselleDaEvid(5,0) = rr ' ruota di venezia
         MatriceCaselleDaEvid(5,1) = 5 ' quinto Estratto
         Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
      
      
     
      
       Scrivi "Ruota di " & NomeRuota(ruota) & "    " & Format2(n1(1)) & " " & Format2(n1(2)) & " " & Format2(n1(3)) & " " & Format2(n1(4)) & " " & Format2(n1(5)),True
         Scrivi
         For pp = 1 To 5
            B = FuoriX(50 - Abs(rr - 1) * 5)
            C = 50 - B
            D = FuoriX(Abs(n1(pp) - b))
            If n1(pp) > B Or D < C Then
               ruotaa(1) = FuoriX(Int(D/5)) + 1
            End If
            If(n1(pp) > B Or D < C) And n1(pp) Mod 5 = 0 Then
               ruotaa(1) = FuoriX(Int(D/5))
            End If
            If n1(pp) < 6 Then
               ruotaa(1) = rr
            End If
            If n1(pp) < B And n1(pp) > 6 Then
               ruotaa(1) = Int(rr + Int(n1(pp)/5))
            End If
            If ruotaa(1) = 11 Then
               ruotaa(1) = 1
            End If
            If n1(pp) < B And n1(pp) > 6 And D > 50 Then
                 D = FuoriX(D - 50)
               ruotaa(1) = rr + Int(n1(pp)/5): Scrivi D
            End If
            If ruotaa(1) > 10 Then
               ruotaa(1) = ruotaa(1) - 10
            End If
         
        
            sAmbo = sAmbo & Format2(n1(pp)) & "   " & SiglaRuota(ruotaa(1)) & "" & vbCrLf

        
        
            Scrivi Format2(n1(pp)) & "       " & "diretto a   " & SiglaRuota(ruotaa(1)) & "                               ",0,0,1,4 'True,,- 1,1
            Scrivi
         
     

         
         
            'ruotaa(2) = RuotaDiametrale(ruotaa(1))
            'ruote(1) = ruotaa(1)
            'ruote(2) = RuotaDiametrale(ruotaa(1))
            ruote(1) = TT_
            ruote(2) = NZ_
          ambata1(1) = n1(pp)
          ambo1(1) = n1(pp)
          ambo1(2) = Diametrale(n1)

      
    
          ImpostaGiocata 1,ambata1,ruotaa,posta,k,0
          Gioca es,1,,1
          Scrivi
          Scrivi
          'ImpostaGiocata 1,ambo1,ruote,poste,k,0
          'Gioca es,1,,1
     

         Next
      'End If
   Next


Scrivi Format2(sAmbo),1,0,0,3,4,8,8


End Sub



















[CODE]
 
x Scythe questo e lo script che ho modificato e che non segnalava alcuni numeri

puoi vedere se riesci a inserire nello script che ho allegato la parte che ai
modificato mi sa che ho combinato un po di casini con l'altro script
ho fatto il copia e incolla ma mi da errore nello script
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto