Uno script dalla ruota verso l'ambata

[Paki144]

Ciao Forum 🌟🌟🌟

 

[scythe]

Scythe, se guardi il mio esempio si vede che calcola la niova posizione anche a partire da quella occupata e non dalla prima.
Se non ti piace la soluzione degli array puoi scrivere una funzione che calcoli la ruota e la posizione in base alla colonna di arrivo.
Sono più calcoli ma se ti piace come soluzione prova così .
Ciao

Ciao e grazie, ma non credo di essere in grado, troppo avanti. Quello che volevo spiegare nel mio post è che sì, la posizione di caduta è corretta, ma non la ruota che a volte, rimane quella del conteggio dalla prima posizione, perchè nelle variabili letterali di Zetrix è inserito n1, che è l'estratto e non è quindi inserita la variazione dovuta allo spostamento, che nel mio script è quel q= 6-pos(x), che non è altro che il numero di posizioni occupate nella ruota di partenza. Quando n1 è in 1^ tutte le posizioni sono occupate( q= 6 -1) e la ruota si conta da quella di partenza. poi da 1^ in avanti la caduta varia secondo la cadenza. Quando la nuova posizione calcolata è inferiore a quella rispetto al calcolo dalla 1^, scatta la ruota successiva, salvo per la cadenza 1 che non cambia mai ruota mantenendo la stessa posizione, mentre la cadenza 6 rimane nella stessa posizione, ma ruota successiva.Nel mio calcolo della ruota di caduta, il q deve essere sottratto ad n1 e contare le ruote sottostanti divedendo il resto per 5. ed è appunto il resto di n1-q /5 che, se non è = 0, mi fa procedere di una ruota. Forse un po' cervellotico ma sono gli espedienti di chi è costretto ad applicare quel poco che sa.
Naturalmente cambiando ruota cambia il numero di = posizione, cioè proprio il numero che cerca zetrix.
ciao

 

[Paki144]

Ciao e grazie, ma non credo di essere in grado, troppo avanti. Quello che volevo spiegare nel mio post è che sì, la posizione di caduta è corretta, ma non la ruota che a volte, rimane quella del conteggio dalla prima posizione, perchè nelle variabili letterali di Zetrix è inserito n1, che è l'estratto e non è quindi inserita la variazione dovuta allo spostamento, che nel mio script è quel q= 6-pos(x), che non è altro che il numero di posizioni occupate nella ruota di partenza. Quando n1 è in 1^ tutte le posizioni sono occupate( q= 6 -1) e la ruota si conta da quella di partenza. poi da 1^ in avanti la caduta varia secondo la cadenza. Quando la nuova posizione calcolata è inferiore a quella rispetto al calcolo dalla 1^, scatta la ruota successiva, salvo per la cadenza 1 che non cambia mai ruota mantenendo la stessa posizione, mentre la cadenza 6 rimane nella stessa posizione, ma ruota successiva.Nel mio calcolo della ruota di caduta, il q deve essere sottratto ad n1 e contare le ruote sottostanti divedendo il resto per 5. ed è appunto il resto di n1-q /5 che, se non è = 0, mi fa procedere di una ruota. Forse un po' cervellotico ma sono gli espedienti di chi è costretto ad applicare quel poco che sa.
Naturalmente cambiando ruota cambia il numero di = posizione, cioè proprio il numero che cerca zetrix.
ciao

Ciao scythe Grazie per avermi letto avermi risposto, grazie per lo script che mi hai fatto dedicandomi il tuo tempo, e aver condiviso varie soluzioni con zetrix e poi con salvo50 e i Leggend e altri.
Grazie scythe per la tua pazienza e la tua disponibilità.🌟
Ciao scythe un Saluto e Buon Anno🌟

 

[Paki144]

Nel Salutare
scythe, salvo50, zetrix, i legend, claudio8, Mike58, LuigiB per il suo programma e avercelo Regalato..saluti a tutti gli altri del Forum
un saluto a tutti il Forum e
Buon Anno 🌟
Grazie a questo bel Forum
Ciao a tutti paki

 

[i legend]

ciao Paki
scythe a mio avviso hai fatto un buon lavoro
ancora complimenti

 

[i legend]

scythe lo script e ok non devi fare niente va bene cosi calcola tutte e cinque
le posizioni conteggiate ho gia calcolato diversi abb..
domani vi metto una previsione di gioco con l'ambata contata sempre se si
puo scrivere qui una previsione di gioco..

buonanotte

Ciao zetrix , io al lotto non gioco ,quindi per me la previsione non è importante, ma se hai fatto i calcoli, e sei sicuro posta pure come ottenere gli abbinamenti che ti finisco lo script.
ecco alcune cose da stabile
1) scelgo la ruota ok facile
2)prendosingolarmente i 5 estratti e li proietto sulla nuova ruota ok facile
domanda: da dove devo iniziare il conteggio?
es num 1: -> : 2* estratto = 5 comincio dalla posizione 1 -> Cade sulla stessa ruota
es num 2: -> : 2* estratto=5 comincio a contare dalla posizione di rilevamento( posizione 2) -> cade sulla ruota successiva
scelta del capogioco: quale deve essere?
3) per creare gli abbinamenti hai parlato di numeri spia , ma quali sono? i numeri della ruota base o quelli di caduta?
4) massimi abbinamenti da ricavare 4 , devono essere sempre gli stessi se vuoi fare una statistica ( quindi una formula per ogni abbinamento)
lo script decido io come impostarlo e scriverlo una volta che abbiamo tutti i passaggi.
se stabiliamo il tutto entro le 18.00 riesco a fare prima di cena , poi domani in famiglia e dopo domani rientro a lavoro e bye bye passatempo.
a dopo .
ciao.

 

[Zetrix]

ciao scythe,paki144,ilegend,

ilegend scusami se rispondo adesso non ho postato nessuna previsione perche
si deve vedere quale abb si abbina piu spesso per quanto riguarda gli abbinamenti
sono un professionista per fare questo lavoro a me basta che scythe fa lo script
e una volta rilevato il numero spia poi per me e facile calcolare gli abb ma ci sono diversi
abb che adesso non le scrivo qui perche ci sono i miei studi per iniziare si potrebbe fare una
statistica per vedere quale abb si abbina piu spesso, il primo pacchetto per fare
una statistica e il format con il numero spia che sviluppa 9 abb..
ogni numero sviluppa una formattazione diversa per questo si ricavano sempre
9 abb per ogni numero spia..

 

[pigano65]

Ciao zetrix , io al lotto non gioco ,quindi per me la previsione non è importante, ma se hai fatto i calcoli, e sei sicuro posta pure come ottenere gli abbinamenti che ti finisco lo script.
ecco alcune cose da stabile
1) scelgo la ruota ok facile
2)prendosingolarmente i 5 estratti e li proietto sulla nuova ruota ok facile
domanda: da dove devo iniziare il conteggio?
es num 1: -> : 2* estratto = 5 comincio dalla posizione 1 -> Cade sulla stessa ruota
es num 2: -> : 2* estratto=5 comincio a contare dalla posizione di rilevamento( posizione 2) -> cade sulla ruota successiva
scelta del capogioco: quale deve essere?
3) per creare gli abbinamenti hai parlato di numeri spia , ma quali sono? i numeri della ruota base o quelli di caduta?
4) massimi abbinamenti da ricavare 4 , devono essere sempre gli stessi se vuoi fare una statistica ( quindi una formula per ogni abbinamento)
lo script decido io come impostarlo e scriverlo una volta che abbiamo tutti i passaggi.
se stabiliamo il tutto entro le 18.00 riesco a fare prima di cena , poi domani in famiglia e dopo domani rientro a lavoro e bye bye passatempo.
a dopo .
ciao.

Buona sera sig i legend ,volevo chiederLa se era possibile queste modifiche: alla ruota di arrivo ,dopo il conteggio, di visualizzare tutte le 10 ruote, solo il nr, Esempio primo estratto di bari 15 va a cadere sulla ruota di firenze ,ecco che qui dovrebbe visualizzare tutte le 10 ruote e infine se per esempio abbiamo controllato 100 estrazioni, un riepilogo totale di uscite sulle singole ruote.
La ringrazio anticipatamente di tutto quello che potra fare.
cordiali saluti

 

[i legend]

👍
Ciao Zetrix , l importante che riesci a fare i tuoi calcoli , lo script di scythe è una scheggia. Va più che bene.buon lavoro
Ciao pigano , i legend va benissimo il sig non serve
Purtroppo credo di aver terminato il tempo per il mio passatempo.
Se riesco, provo ad inserire la funzione gioca.
Lo script funziona così, si parte da un numero è si va a controllare su che casella si sposta. La statistica si fa li . Non ha senso farla sulle 10 ruote. Sarebbe un altro metodo.
Quando esce il 2 su bari su quale delle 10 ruote esce? Classico esempio di numero spia.
se cerchi qui nel forum di script così ne trovi a bizzeffe. Alcuni sono gioiellini.
Se trovo il tempo faccio la statistica sul metodo originale di paki .
Magari per indice mensile e per posizione , il numero non importa è la casella che conta .
Magari così uno valuta squal è l indice mensile e la posizione migliore da utilizzare. E nel frattempo si diverte a fare le prove.ciao
.
.

 

[Zetrix]

Sub Main()

   'Scrivi : ColoreTesto 2 : Scrivi "Ambata contata  by Scythe"
   'Scrivi : ColoreTesto 0 : Scrivi
   Dim ruotaa(5),ruote(5),ambata1(2),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),posta(1),poste(2)
   Dim ambo6(2),ambo7(2),ambo8(2),ambo9(2)
   Dim n1(5)
   Dim CollAmbiTrovati
Dim sAmbo
Dim qEstrTrovate
Dim clsCoppia
Dim anum1,anum2,ruota
Dim p,pp,k,R,ex,es,v1,v2,v3
Dim A(5)
Dim B(5)
Dim C(5)
Dim D(5)
Dim E(5)
Dim Z(5)
Dim Pc1(5)
Dim pc(5)
Dim npc(5)


 
   posta(1) = 1
   poste(2) = 1
   'im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
   ex = InputBox("Quante estrazioni vuoi controllare ?",0)
   'rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",1))
  ' R = ScegliRuota
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
  For R = 1 To 10

  ruota = R
   '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,R,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) = R ' ruota di bari
         MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
         ' secondo elemento
         MatriceCaselleDaEvid(2,0) = R ' ruota di bari
         MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
         ' terzo elemento
         MatriceCaselleDaEvid(3,0) = R ' ruota di venezia
         MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
         ' quarto elemento
         MatriceCaselleDaEvid(4,0) = R ' ruota di venezia
         MatriceCaselleDaEvid(4,1) = 4 ' quarto Estratto
          ' quarto elemento
         MatriceCaselleDaEvid(5,0) = R ' ruota di venezia
         MatriceCaselleDaEvid(5,1) = 5 ' quarto 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)),0,0,6,2'True
         Scrivi
         Scrivi
         For x = 1 To 5
            A(x) = FuoriX(n1(x),50) 'numero da contare se n1 > 50
            B(x) =(50 -(R - 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) = R + Int(A(x)/5)
            Else
            If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 = 0 Then
            ruotaa(1) = R - 1 + Int(A(x)/5)
            Else
            If A(x) > B(x) And A(x) Mod 5 <> 0 Then
            ruotaa(1) = R + Int(A(x)/5)
            Else
            If A(x) > B(x) And A(x) Mod 5 = 0 Then
            ruotaa(1) = R - 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
         
           'aggiunto--------------------------------------------
         
            If n1(x) < 5 Then
               Pc1(x) =(n1(x) + 10) Mod 5
               npc(x) = Estratto(es,ruotaa(1),Pc1(x))
           End If
            Pc1(x) = n1(x) Mod 5
             
           
            If n1(x) Mod 5 = 0 Then
               Pc1(x) = 5
            End If
            npc(x) = Estratto(es,ruotaa(1),Pc1(x)) ' <----- numero spia conteggiato

            v1 = DiametraleD(npc(x))
            v2 = Diametrale(v1)
            v3 = DiametraleD(v2)
            '--------------------------------------------
         
            Z(x) = SiglaRuota(ruotaa(1)) & "  " & npc(x) ' <---- mettere il numero spia conteggiato
         
            sAmbo = sAmbo & Format2(n1(x)) & "   " & SiglaRuota(ruotaa(1)) & "" & vbCrLf

ReDim aruote(11)
aruote(1) = BA_
aruote(2) = CA_
aruote(3) = FI_
aruote(4) = GE_
aruote(5) = MI_
aruote(6) = NA_
aruote(7) = PA_
aruote(8) = RO_
aruote(9) = TO_
aruote(10) = VE_
aruote(11) = NZ_
       
         
            Scrivi Format2(n1(x)) & String(15," ") & "diretto a   " & SiglaRuota(ruotaa(1)) & String(35," ") & " ",0,0,1,4
            Scrivi
            Scrivi
           
        'Scrivi A(x) & " ",0,0,1,4
        'Scrivi B(x) & " ",0,0,1,4
        'Scrivi C(x) & " ",0,0,1,4
        'Scrivi D(x) & " ",0,0,1,4
        'Scrivi E(x) & " ",0,0,1,4
        Scrivi Z(x) & "   ",0,0,7,4

        Scrivi

             'ruotaa(2) = RuotaDiametrale(ruotaa(1))
            'ruote(1) = ruotaa(1)
            'ruote(2) = RuotaDiametrale(ruotaa(1))
            'ruote(1) = TT_
            'ruote(2) = NZ_
          ambata1(1) = n1(x)
          ambo1(1) = n1(x)
          ambo1(2) = Fuori90(10 - npc(x))
          ambo2(1) = n1(x)
          ambo2(2) = Fuori90(20 - npc(x))
          ambo3(1) = n1(x)
          ambo3(2) = Fuori90(30 - npc(x))
          ambo4(1) = n1(x)
          ambo4(2) = Fuori90(40 - npc(x))
          ambo5(1) = n1(x)
          ambo5(2) = Fuori90(50 - npc(x))
          ambo6(1) = n1(x)
          ambo6(2) = Fuori90(60 - npc(x))
          ambo7(1) = n1(x)
          ambo7(2) = Fuori90(70 - npc(x))
          ambo8(1) = n1(x)
          ambo8(2) = Fuori90(80 - npc(x))
          ambo9(1) = n1(x)
          ambo9(2) = Fuori90(90 - npc(x))



       
     
          ImpostaGiocata 1,ambata1,ruotaa,posta,k,0
          Gioca es,1,,1
          Scrivi
          Scrivi
          ImpostaGiocata 1,ambo1,aruote,poste,k,0
          ImpostaGiocata 2,ambo2,aruote,poste,k,0
          ImpostaGiocata 3,ambo3,aruote,poste,k,0
          ImpostaGiocata 4,ambo4,aruote,poste,k,0
          ImpostaGiocata 5,ambo5,aruote,poste,k,0
          ImpostaGiocata 6,ambo6,aruote,poste,k,0
          ImpostaGiocata 7,ambo7,aruote,poste,k,0
          ImpostaGiocata 8,ambo8,aruote,poste,k,0
          ImpostaGiocata 9,ambo9,aruote,poste,k,0

         Gioca es,1,,1
       
         
           Next
       
         Next
      'End If
   Next
 
 
'Scrivi Format2(sAmbo),1,0,0,3,4,8,8

 
End Sub

 

[Zetrix]

ciao ilegend lavoriamo con questo script che ho gia inserito tutti i format
per gli abb con l'ambata contata,
in pratica ogni numero spia sarà formattato a 10.20.30. sino a 90
adesso vedi un po se riesci a fare una statistica su tutti gli ambi che hanno
dato esito sia su ruota che a tutte e con quale format si verificano piu spesso
ho gia migliorato il listato ho messo ambo1 che corrisponde al format10
cosi ambo2 corrisponde al format20 ecc.. ecc..
vediamo un po che ci dice la statistica e quale format si abbina piu spesso
con l'ambata contata..
poi ce un altro pacchetto di abb con i diametrali ma prima vediamo questa
statistica..
buonanotte

 

[scythe]

X zetrix
scusa se insisto, ma ti confermo che hai inserito nel tuo script il codice del mio secondo, che funziona correttamente ma continua a darti il conteggio dalla prima posizione. La caduta in posizione è corretta ma la ruota è sbagliata. Se come chiedi devi contare dalla posizione di partenza bisogna inserire tutto il codice con una variazione dovuta alla posizione di partenza.
Nello script che segue ho inserito io tutto il codice ed eseguito la variazione necessaria. Controlla.
buona notte

Sub Main()
   Scrivi : ColoreTesto 7: Scrivi "Ambata contata  by Scythe",True,,,10
   Scrivi : ColoreTesto 0 : Scrivi
   Dim ruotaa(5),ruote(5),ruo(5),ambata1(2),ambo1(2),posta(1),poste(2)
   Dim n1(5)
   Dim CollAmbiTrovati
   Dim sAmbo
   Dim qEstrTrovate
   Dim clsCoppia
   Dim anum1,anum2,ruota
   Dim p,pp,k,R,ex,es
   Dim A(5)
   Dim B(5)
   Dim C(5)
   Dim D(5)
   Dim E(5)
   Dim Z(5)
   Dim Pc1(5)
   Dim pc(5)
   Dim npc(5)
   Dim pos(5)
   Dim q(6)
   Dim snc(5)
   Dim nwpo(5),nsp(5),Dnsp(5),Ddnsp(5),Iso(5),DIso(5),DdIso(5),Dn1(5),Ddn1(5),Dnpc(5),Ddnpc(5)
   posta(1) = 1
   poste(2) = 1
   'im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
   ex = InputBox("Quante estrazioni vuoi controllare ?",0)
   'rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",1))
   R = ScegliRuota
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   ruota = R
   '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,R,p)
         pos(p) = Posizione(es,R,n1(p))
         q(p) = 6 - pos(p)
         nwpo(p) =(n1(p) - q(p)) Mod 5
      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) = R ' ruota di bari
      MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
      ' secondo elemento
      MatriceCaselleDaEvid(2,0) = R ' ruota di bari
      MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
      ' terzo elemento
      MatriceCaselleDaEvid(3,0) = R ' ruota di venezia
      MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
      ' quarto elemento
      MatriceCaselleDaEvid(4,0) = R ' ruota di venezia
      MatriceCaselleDaEvid(4,1) = 4 ' quarto Estratto
      ' quarto elemento
      MatriceCaselleDaEvid(5,0) = R ' ruota di venezia
      MatriceCaselleDaEvid(5,1) = 5 ' quarto 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)),0,0,6,2'True
      Scrivi
      Scrivi
      For x = 1 To 5
         A(x) = FuoriX((n1(x) - q(x)),50) 'numero da contare se n1 > 50
         B(x) =(50 -(R - 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) = R + Int(A(x)/5)
         Else
            If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 = 0 Then
               ruotaa(1) = R - 1 + Int(A(x)/5)
            Else
               If A(x) > B(x) And A(x) Mod 5 <> 0 Then
                  ruotaa(1) = R + 1 + Int(A(x)/5)
               Else
                  If A(x) > B(x) And A(x) Mod 5 = 0 Then
                     ruotaa(1) = R + Int(A(x)/5)
                  End If
               End If
            End If
         End If
         If ruotaa(1) > 10 Then
            ruotaa(1) = ruotaa(1) - 10
         End If
         If n1(x) Mod 5 <> 0 Then
            ruotaa(x) = R + Int((n1(x)/5))
            If pos(x) = 1 And nwpo(x) <> 1 Then
               nwpo(x) = 1
            End If
            If nwpo(x) = 0 And pos(x) <> 1 Then
               nwpo(x) = 5
               ' End If
            End If
         End If
         If ruotaa(x) > 10 Then
            ruotaa(x) = FuoriX(ruotaa(x),10)
         End If
         If n1(x) Mod 5 = 0 Then
            ruotaa(x) =(R - 1) + Int((n1(x)/5))
            nwpo(x) =(n1(x) - q(x)) Mod 5
            If pos(x) = 1 Then
               nwpo(x) = 1
            End If
         End If
         If ruotaa(x) > 10 Then
            ruotaa(x) = FuoriX(ruotaa(x),10)
         End If
         ruo(x) = ruotaa(x)
         If nwpo(x) < pos(x) Then
            ruo(x) = ruo(x) + 1
            If Cadenza(n1(x)) = 6 Then
               ruo(x) = ruotaa(x) + 1
            End If
            If ruo(x) > 10 Then
               ruo(x) = FuoriX(ruo(x),10)
            End If
            If nwpo(x) < 0 Then
               If n1(x) = 1 Then
                  nwpo(x) = pos(x)
                  ruo(x) = ruotaa(x)
               End If
               If n1(x) = 2 Then
                  nwpo(x) = nwpo(x) + 5
                  ruo(x) = ruotaa(x)
               End If
               If n1(x) = 3 Then
                  nwpo(x) = nwpo(x) + 5
                  ruo(x) = ruotaa(x)
               End If
            End If
         End If
         ' End If
       
         Dnsp(x) = Diametrale(nsp(x)) 'num 2  diametrale di 1
         Ddnsp(x) = DiametraleD(nsp(x)) 'num 3  diametrale in decina di 1
         Iso(x) = Estratto(es,ruotaa(x),pos(x)) 'num 4  isotopo dell' estratto della ruota di inizio ricerca sulla posizione di caduta e ruota sec. Paki
         DIso(x) = Diametrale(Iso(x)) 'num 5  diametrale del num 4
         DdIso(x) = DiametraleD(Iso(x)) 'num 6  diametrale in decina di num 4
         Dn1(x) = Diametrale(n1(x)) 'num 7  diametrale  dell'estratto che ha determinato la conta (= n1)
         Ddn1(x) = DiametraleD(n1(x)) 'num 8  diametrale in decina dell'estratto che ha determinato la conta (= n1)
         If n1(x) < 5 Then ' condizione che stabilisce la posizione di caduta per estratto se minore di 5
            Pc1(x) =(n1(x) + 10) Mod 5
         End If
         nsp(x) = Estratto(es,ruo(x),nwpo(x)) '  sua Posizione di caduta e ruota: se npc con conta dalla prima posizione, se nsp conta dalla posizione
         Pc1(x) = n1(x) Mod 5 ' Posizione se n1 > 4
         If n1(x) Mod 5 = 0 And pos(x) = 1 Then
            nwpo(x) = 5
            'End If
            nsp(x) = Estratto(es,ruo(x),nwpo(x))
            Scrivi nsp(x)
            Dnpc(x) = Diametrale(nsp(x))
            Ddnpc(x) = DiametraleD(nsp(x))
            If ruo(x) > 10 Then
               ruo(x) = ruo - 10
            End If
           
         End If
         'End If
         ' Next
         '------------------------------------------
         Z(x) = SiglaRuota(ruo(x)) & "  " & nsp(x) ' <---- mettere il numero spia conteggiato
         ' sAmbo = sAmbo & Format2(n1(x)) & "   " & SiglaRuota(ruo(x)) & "" & vbCrLf
         Scrivi Format2(n1(x)) & String(15," ") & "diretto a   " & SiglaRuota(ruo(x)) & " in " & nwpo(x) & "^ posizione" & String(35," ") & " ",0,0,1,4
         Scrivi
         Scrivi
         Scrivi A(x) & " ",0,0,1,4
         Scrivi B(x) & " ",0,0,1,4
         Scrivi C(x) & " ",0,0,1,4
         Scrivi D(x) & " ",0,0,1,4
         Scrivi E(x) & " ",0,0,1,4
         Scrivi Z(x) & "   ",0,0,7,4
         Scrivi
         'ruotaa(2) = RuotaDiametrale(ruotaa(1))
         'ruote(1) = ruotaa(1)
         'ruote(2) = RuotaDiametrale(ruotaa(1))
         'End If
         ' Next
         ruote(1) = TT_
         ruote(2) = NZ_
         ambata1(1) = nsp(x)
         ambo1(1) = Vert(n1(x))
         ambo1(2) = Diametrale(n1(x))
         ImpostaGiocata 1,ambata1,ruo,posta,k,1
         ' Gioca es,1,,1
         Scrivi
         Scrivi
         ImpostaGiocata 2,ambo1,ruote,poste,k,2
         Gioca es,1,,1
      Next
      ' End If
   Next
   Scrivi Format2(sAmbo),1,0,0,3,4,8,8

   ScriviResoconto
End Sub

 

[Zetrix]

24 -----> diretto a MI

MI 8
Numeri in gioco : 24 su MI per Estratto
In corso


buona befana a tutti
scusa scythe ma lo script per me va bene cosi perche conteggia il 1 numero estratto
sempre dalla 1 pos
se conteggiamo sino a 24 l'ultimo numero conteggiato e l'8 su milano (numero spia)
il 2 numero estratto si dovrebbe conteggiare sempre dalla 1 pos almeno cosi
a scritto paki144..
e vero che avevo scritto se si poteva fare un altro conteggio dei numeri estratti
ma adesso vediamo questa e con quali abb si abbina piu spesso l'ambata contata
ma dovrebbe fare ilegend il report della statistica di tutti gli abb che ho scritto
nello script cosi vediamo se possiamo migliorare la seconda parte per fare ambo
poi se non ci soddisfa questa statistica possiamo fare un altra statistica con i diametrali
e altri abb che adesso non li scrivo ma ce ne sono altri abb ci sono anche i diametrali
trasposti ecc.ecc..

 

[Zetrix]

x ilegend se puoi inserire nella statistica anche l ambata su ruota così vediamo i tempi di sfaldamento che a quanto ho visto superano anche le 10 est di gioco..
ma a noi interessa sapere quale è la media di gioco per ambata così da scegliere le ambate più favorite..

 

[i legend]

Ciao Zetrix, come avevo detto ieri, oggi lo passo in famiglia, visto che anche la mia compagna non lavora e da domani riprendo a lavorare, e il lavoro che faccio è molto pesante e non mi lascia voglia ed energie per dedicarmi agli script.
Forse non hai letto il messaggio che avevo scritto ieri.
Ciao.

 

[pigano65]

👍
Ciao Zetrix , l importante che riesci a fare i tuoi calcoli , lo script di scythe è una scheggia. Va più che bene.buon lavoro
Ciao pigano , i legend va benissimo il sig non serve
Purtroppo credo di aver terminato il tempo per il mio passatempo.
Se riesco, provo ad inserire la funzione gioca.
Lo script funziona così, si parte da un numero è si va a controllare su che casella si sposta. La statistica si fa li . Non ha senso farla sulle 10 ruote. Sarebbe un altro metodo.
Quando esce il 2 su bari su quale delle 10 ruote esce? Classico esempio di numero spia.
se cerchi qui nel forum di script così ne trovi a bizzeffe. Alcuni sono gioiellini.
Se trovo il tempo faccio la statistica sul metodo originale di paki .
Magari per indice mensile e per posizione , il numero non importa è la casella che conta .
Magari così uno valuta squal è l indice mensile e la posizione migliore da utilizzare. E nel frattempo si diverte a fare le prove.ciao
.
.

Capisco il Suo punto di riflessione e credevo che almeno una statistica totale di quante volte abbia centrato la casella, questo sarebbe utile per una statistica.
La ringrazio per la risposta
ciao

 

[i legend]

Capisco il Suo punto di riflessione e credevo che almeno una statistica totale di quante volte abbia centrato la casella, questo sarebbe utile per una statistica.
La ringrazio per la risposta
ciao

lo apprezzo
ciao

 

[Zetrix]

x ilegend va bene se nessuno vuole più collaborare in questo progetto per me la discussione si può chiudere qui
il listato script con gli abb ve li ho messi poi ognuno si sceglie gli abb che vuole..
ciao

 

[i legend]

scythe complimenti anche per l ultimo listato che hai fatto (vista anche l ora )
Ciao Pigano, la modifica che hai chiesto , sono solo 3 righe di codice, entro questa sera posto la modifica
ciao a tutti

 

[i legend]

ciao ecco la modifica con la statistica per posizione. controllare che i risultati siano esatti. non ne garantisco la correttezza .

Option Explicit
' controllare che lo script dia risultati esatti, non se ne garantisce il funzionamento
' script richiesto dall utente Paki su lotto ced forum area downLoad

Sub Main
   Dim R
   Dim PosIni
   Dim aR,aP
   Dim IdCol,NewIdCol
   Dim IdEstr,EstrIni,EstrFin,nCasi
   Dim E,P,nColpi
   Dim aStat(5) ' Nuova Riga
   nColpi = 9
   R = ScegliRuota
   If R = 0 Or R = 11 Then Exit Sub ' controllo inserimento dati
   PosIni = eval(InputBox(" 1=conta sempre dal 1° estratto" & vbCrLf & " 2=conta dalla posizione di rilevamento","Scegli posizione da cui iniziare a contare",1))
   If Not IsNumeric(PosIni) Or(PosIni < 1 Or PosIni > 2) Then Exit Sub ' controllo inserimento dati
   If Not ScegliRange(EstrIni,EstrFin,EstrazioneFin - 199,EstrazioneFin) Then Scrivi "Ciao":Exit Sub
   Call ResetTimer
   Call GetArrayRuPos(aR,aP) ' carico array ruote e pos in base alla colonna
   nCasi = 0
   If PosIni = 1 Then
      IdCol =(R*5) -(4)
      For IdEstr = EstrIni To EstrFin
         nCasi = nCasi + 1
         Call GetTitTab(IdEstr,R)
         For P = 1 To 5
            E = Estratto(IdEstr,R,P)
            NewIdCol = FuoriX((IdCol - 1) + E,50)
            Call GetTab(IdEstr,aR,aP,E,P,NewIdCol,nColpi,PosIni,aStat) ' agginto aStat
         Next ' fine ciclo posizioni
         Scrivi String(52,"-")
         Call AvanzamentoElab(EstrIni,EstrFin,IdEstr)
      Next ' fine ciclo idestr
   ElseIf PosIni = 2 Then
      For IdEstr = EstrIni To EstrFin
         nCasi = nCasi + 1
         Call GetTitTab(IdEstr,R)
         For P = 1 To 5
            IdCol =(R*5) -(5 - P) ' calcolo colonna posizione iniziale
            E = Estratto(IdEstr,R,P)
            NewIdCol = FuoriX((IdCol - 1) + E,50)' calcolo nuova colonna
            Call GetTab(IdEstr,aR,aP,E,P,NewIdCol,nColpi,P,aStat) ' aggiunto aStat
         Next ' fine ciclo posizioni
         Scrivi String(52,"-")
         Call AvanzamentoElab(EstrIni,EstrFin,IdEstr)
      Next ' fine ciclo idestr
   End If
   Scrivi "Elaborazione in :" & TempoTrascorso
   Scrivi "Colpi di Verifica: "&nColpi&Space(6),1,,RGB(47,47,47),RGB(183,238,242)

   Scrivi "Pos    |  " & "CsCop su :" & FormatSpace(nCasi,5,1) & " | % Pos   ",1,,RGB(47,47,47),RGB(183,238,242)
   For P = 1 To 5
      Scrivi P & "      |  " & FormatSpace(aStat(P),15,1) & " |   " & Round((aStat(P)/nCasi)*100,2) & "%"
   Next
End Sub
Sub GetArrayRuPos(aR,aP)
   aR = Array(0,1,1,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4,5,5,5,5,5,6,6,6,6,6,7,7,7,7,7,8,8,8,8,8,9,9,9,9,9,10,10,10,10,10)
   aP = Array(0,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5)
End Sub
Sub GetTitTab(IdEstr,IniRu)
   Scrivi " Conc: " & GetInfoEstrazione(IdEstr) & "| " & SiglaRuota(IniRu) & " " & StringaEstratti(IdEstr,IniRu) & "  ",1,,RGB(47,47,47),RGB(183,238,242)
   Scrivi "|Pin| E | nRu |  Esito  |nColpo|    Estrazione     |",1,,RGB(47,47,47),vbGreen
End Sub
Sub GetTab(idestr,aR,aP,E,P,IdCol,nColpi,PosIni,aStat)
   Dim nClp,Esi,Colp,Estrazione
   Dim aN(1):aN(1) = E
   Dim aRuVer(1):aRuVer(1) = aR(IdCol)
   Call VerificaEsitoTurbo(aN,aRuVer,idestr + 1,1,nColpi,,Esi,Colp,Estrazione)
      If Esi = "Estratto" Then
      aStat(P) = aStat(P) + 1 ' agginto else
      
   Else
      If Colp < nColpi Then Esi = "In Corso" :Else Esi = "Negativo"
   End If
   Scrivi "  " & PosIni & " |" & FormatSpace(E,2) & "  (" & aP(IdCol) & SiglaRuota(aRuVer(1)) & ") " & FormatSpace(Esi,9) & "   " & FormatSpace(Colp,2) & "  | " & FormatSpace(Estrazione,17) & " | "
End Sub