per i programmatori

[Croupier]

grazie

 

[Cinzia27]

la ricerca dovrebbe estrapolare i numeri uguali e contare la frequenza
alla fine o evento per evento dovrebbe dare un riepilogo...
parziale o totale
esempio :
18 uscito 2 volte
66 uscito 2 volte
70 uscito 2 volte

Ciao, Croupier. Lo script che ti ho fatto lo fa già tutto questo, numero per numero ti dà il resoconto.
Capisco che preferisci un altro output più leggibile.
Ho riadattato uno script che avevo fatto molto tempo fà per un altra persona.
Ci sono anche gli ambi, li ho lasciati, basta ignorarli.

Scrivi Space(10)&"Per Croupier :AMBO SPIA CONDIZIONE A SCELTA SU UNA RUOTA(Cinzia)"
Scrivi Space(10)&"ambi e ambate più frequenti nei cicli"
Sub main()
Dim ru(1),nn(2),nu(4005,4),nn1(2),nu1(90,3)
ee=InputBox("controllo le ultime estrazioni  :",,1000)
If ee="" Then Exit Sub
cl=InputBox("quanti colpi :",,5)
If cl="" Then Exit Sub
fg=CInt(InputBox("quale figura :",,7))
If fg="" Then Exit Sub
rr=InputBox("Scegli ruota  :",,5)
If rr="" Then Exit Sub
qq=InputBox("Quanti ambi ed estratti vuoi visualizzare  :",,15)
If qq="" Then Exit Sub
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
ok=0
'-----------------------------
r=rr :ru(1)=r
For p=1 To 4
For pp=p+1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r,pp)
If a>0 Then
If  figura(a)=fg And Figura(b)=fg  Then
Messaggio es&" "& NomeRuota(r)&":"&Stringaestratti(es,r)
cc=cc+1
Scrivi
Scrivi String (100,"=")
Scrivi
Scrivi Space(12)&"estrazione : " &es&" del "&dataestrazione(es)
Scrivi Space(12)&nomeRuota(r)&" "&Format2(a)&" "&Format2(b)
'-----------------------------
If cc>0 Then  ok=1
If ok=1 Then
'-----------------------------------------------------------------
Scrivi
ColoreTesto 2
Scrivi Space(12)&dataestrazione(es)&" "&es&" "&siglaruota(r)&":"&stringaestratti(es,r)
For i=es+1 To es+cl
ColoreTesto 0
Scrivi Space(12)&dataestrazione(i)&" "&i&" "&siglaruota(r)&":"&stringaestratti(i,r)
Next
'-----------------------------------------------------------------
ok=0
casi=casi+1
ww=cl
ess=es+ww
     If ess>fin Then ess=fin End If

'------------------------------------------------
co=0
       For x1=1 To 89 :For y1=x1+1 To 90
              co=co+1
              nu(co,1)=co:nu(co,2)=x1:nu(co,3)=y1
              nn(1)=x1:nn(2)=y1:ru(1)=r
              k1=SerieFreq (es+1,ess,nn,ru,2)
              If k1<0 Then k1=0
              nu(co,4)=nu(co,4)+ k1
                     Next
                         Next
'-------------------------------------------
co=0
                               For xx=1 To 90
                               co=co+1
                               nu1(co,1)=co:nu1(co,2)=xx
                               nn1(1)=xx:ru(1)=r:
                               k10=SerieFreq (es+1,ess,nn1,ru,1)
                               If k10<0 Then k10=0
                               nu1(co,3)=nu1(co,3)+ k10
             
                             Next
                         End If
                      End If
                    End If
                  Next
              Next
           Next
OrdinaMatrice nu,-1,4
OrdinaMatrice nu1,-1,3
Scrivi
Scrivi
ColoreTesto 2
Scrivi Space(23)&"   Condizione-Spia Cercata su :"& NomeRuota  (r)
ColoreTesto 0:Scrivi Space(23)& "   AMBO DI NUMERI FIGURA "&fg,1
Scrivi
Scrivi Space(20)&"dal "& DataEstrazione(ini)&" ,estr. n."&ini&",  al "& _
 DataEstrazione(fin)&" ,estr. n."&fin&""
ColoreTesto 1
Scrivi Space(20)&" Casi riscontrati "& CInt(casi) &" - Analisi effettuata sulle "& _
ww& " estrazioni successive "
                 
ColoreTesto 2
Scrivi "                          CONTENUTO DELLE COLONNE SOTTOSTANTI "
ColoreTesto 1
Scrivi Space(16)&qq&" AMBI ED ESTRATTI PIU' FREQUENTI  NEI    CICLI "
Scrivi
ColoreTesto 2
Scrivi Space(14)&formatspace( "Ambo",4,True)&Space(14)&FormatSpace("Tot.",4,True)&Space(10)& _
FormatSpace("Estratti",4,True)&Space(10)&FormatSpace("Tot.",4,True)
ColoreTesto 0
        For wx=1 To qq '  puoi variare il numero di ambi e estratti
        riga=Space(3)&Format2(nu(wx,2))&"-"& Format2(nu(wx,3))&Space(12)&Formatspace((nu(wx,4)),4,True)& _
        Space(15)&Format2(nu1(wx,2))&Space(12)&Formatspace((nu1(wx,3)),4,True)
        Scrivi Space(10)& riga,1
        riga=""
     Next
Scrivi String(90,"*")
End Sub

 

[Croupier]

RINGRAZIO te o altri non sò, PER LA TUA DISPONIBILITA' o Vs disponibilità , cercherò di adattare questo
ho una grande stima e rispetto per Voi ( che non ho il piacere di conoscer Vi ) e per questo tipo di lavoro Vi ho sempre ammirato.
grazie a Voi tutti

 

[Cinzia27]

Ciao, Croupier, grazie per le belle parole.
Però lo script l'ho fatto io, di solito non uso l'identazione, allora qualche volta lo facevo.
Lo so, la forma ha la sua importanza, ma io faccio una cosa e il resto lo può fare chi desidera.
Non conosco esattamente la professione di analista ma dovrebbe essere Interessante
Chi è l'amica in comune? Forse la lottologia?
C'è ancora da migliorare ? Io più di così non so.
Buona domenica

 

[Croupier]

Grazie ancora ..io sono per la collaborazione fattiva, amichevole e leale e soprattutto sincera.

 

[genios]

Ciao, Genios.
L'ho fatto per un numero alla volta per una migliore visualizzazione.
Credo tu abbia voluto dire dato che è per ciascun numero il ritardo per la sorte dell'ambata.

Sub main()
Dim n1(1)
Dim ru(1)
'Per Genios: somma ritardi e ritardi attuali
'Scrip Cinzia27
n1(1)=01

For r=1 To 11
If r=11 Then r=12
Scrivi
ru(1)=r
rtt=0
For es=EstrazioneFin-200 To EstrazioneFin
If SerieFreq(es,es,n1,ru,1)>0 Then
rt=SerieRitardo(es-300,es-1,n1,ru,1)
rtt=rtt+rt
at=SerieRitardo(EstrazioneFin-300,EstrazioneFin,n1,ru,1)
Scrivi SiglaRuota(r)&" "&Format2(n1(1))&" "&rt
End If
Next
Scrivi "Somma ritardi "&rtt&" ritardo attuale "&formatspace(at,4,1)
Next

End Sub

Cinzia qualcosa non quadra io mi riferisco al conteggio dei ritardi dei singoli numeri che formano la decina naturale 0 . e quindi trovare il ritardo dell' ambo nella decina naturale 0 . Ti posto un esempio :

Ruota di BA ESTRAZIONE 10382 DEL 03 02 2024

Numeri 01 02 03 04 05 06 07 08 09 10

Ritardo 40 13 44 15 21 35 07 01 02 07 somma ritardi singoli numeri 225

ritardo per ambo nella decina naturale 0 07 estrazioni.

Spero di essermi spiegato bene.

Ciao Eugenio

 

[Cinzia27]

Ho questa matrice di numeri:

01 02 03 04 05 06 07 08 09 10

In out dovremmo avere:

per ciascun numero il ritardo attuale la somma dei ritardi e il ritardo della sorte per ambo

Ciao

Mi sembra che sia diverso da ciò che dici qua, manca solo il ritardo della sorte per ambo.

 

[genios]

Cinzia questo è l' out del tuo script

BA 01 20
BA 01 6
BA 01 6
BA 01 17
BA 01 28
BA 01 17
BA 01 5
BA 01 4
BA 01 7
BA 01 1
BA 01 4
BA 01 1
BA 01 9
BA 01 26
03.02.2024 10383
Somma ritardi 151 ritardo attuale 40

sinceramente non riesco a decifrarlo

Vedo che hai preso tutti i ritardi del numero 1 e non i ritardi dei 10 numeri che compongono la decina naturale .
ciao eugenio

 

[Cinzia27]

Ciao, Genios.
L'ho fatto per un numero alla volta per una migliore visualizzazione.
Credo tu abbia voluto dire dato che è per ciascun numero il ritardo per la sorte dell'ambata.

Sub main()
Dim n1(1)
Dim ru(1)
'Per Genios: somma ritardi e ritardi attuali
'Scrip Cinzia27
n1(1)=01' qui metti il numero

For r=1 To 11
If r=11 Then r=12
Scrivi
ru(1)=r
rtt=0
For es=EstrazioneFin-200 To EstrazioneFin
If SerieFreq(es,es,n1,ru,1)>0 Then
rt=SerieRitardo(es-300,es-1,n1,ru,1)
rtt=rtt+rt
at=SerieRitardo(EstrazioneFin-300,EstrazioneFin,n1,ru,1)
Scrivi SiglaRuota(r)&" "&Format2(n1(1))&" "&rt
End If
Next
Scrivi "Somma ritardi "&rtt&" ritardo attuale "&formatspace(at,4,1)
Next

End Sub

 

[Cinzia27]

L'ho modificato così i numeri li hai tutti e 10 insieme.

Sub main()
Dim n1(1)
Dim ru(1)
'Per Genios: somma ritardi e ritardi attuali - n. da 1 a 10
'Scrip Cinzia27

For i=1 To 10
n1(1)=i
rtt=0
For r=1 To 11
If r=11 Then r=12
Scrivi
ru(1)=r
rtt=0
For es=EstrazioneFin-200 To EstrazioneFin
If SerieFreq(es,es,n1,ru,1)>0 Then
rt=SerieRitardo(es-300,es-1,n1,ru,1)
rtt=rtt+rt
at=SerieRitardo(EstrazioneFin-300,EstrazioneFin,n1,ru,1)
Scrivi SiglaRuota(r)&" "&Format2(n1(1))&" "&rt
End If
Next
Scrivi "Somma ritardi "&rtt&" ritardo attuale "&formatspace(at,4,1)
Next
Next
End Sub

 

[genios]

Cinzia non ci siamo tu prendi i ritardi consecutivi del numero 1 .

Te lo scrivo in pseudo codice

Quale ruota esamino ?

esamino la ruota di BA

quale lunghetta di numeri esamino ?

esamino la lunghetta composta dai numeri 1 2 3 4 5 6 7 8 9 10

Quale è il ritardo attuale del numero 1 ?

Quale è il ritardo attuale del numero 2 ?

Quale è il ritardo attuale del numero 3 ?

Quale è il ritardo attuale del numero 4 ?

Quale è il ritardo attuale del numero 5 ?

Quale è il ritardo attuale del numero 6 ?

Quale è il ritardo attuale del numero 7 ?

Quale è il ritardo attuale del numero 8 ?

Quale è il ritardo attuale del numero 9 ?

Quale è il ritardo attuale del numero 10 ?

Fai la somma del ritardo attuale di tutti e 10 i numeri sulla ruota di BA e scrivilo in out

trova il ritardo per la sorte di ambo della lunghetta 1 2 3 4 5 6 7 8 9 10 e scrivilo in out

se puoi in aut i valori delle variabili scrivile in orizzontale .

Spero di essere stato chiaro

Ciao Eugenio

 

[joe]

Eu ...

... come ti ho già scritto tante volte dovresti esercitarti con il "fai da te",

invece di dare il tormento a sta gentil pulzella.

Sub Main()
   'Per Genios: somma ritardi e ritardi attuali - n. da 1 a 10
   'Script
   For r = 1 To 12
      If r = 11 Then r = 12
      T = 0
      Scrivi NomeRuota(R)
      For i = 1 To 10
         E = EstrattoRitardo(R,I)
         Scrivi i & " Rit " & E
         T = T + E
      Next
      Scrivi String(10,"=") & "  tot " & T
   Next
End Sub

 

[genios]

Eu ...

... come ti ho già scritto tante volte dovresti esercitarti con il "fai da te",

invece di dare il tormento a sta gentil pulzella.

Sub Main()
   'Per Genios: somma ritardi e ritardi attuali - n. da 1 a 10
   'Script
   For r = 1 To 12
      If r = 11 Then r = 12
      T = 0
      Scrivi NomeRuota(R)
      For i = 1 To 10
         E = EstrattoRitardo(R,I)
         Scrivi i & " Rit " & E
         T = T + E
      Next
      Scrivi String(10,"=") & "  tot " & T
   Next
End Sub

🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂

Grazie Joe

Manca il ritardo attuale per la sorte di ambo nella decina .

... come ti ho già scritto tante volte dovresti esercitarti con il "fai da te",

Lo so ma nelle funzioni di spaziometria senza togliere nulla al grande lavoro fatto dal mitico LuigiB mancano esempi quindi ono po tardo come me si trova in enorme difficoltà .

Ad esempio io stavo usando la funzione serieriatrdo e mi dava sempre errore.

Ciao Eugenio

 

[joe]

Option Explicit
Sub Main()
   'Per Genios: somma ritardi e ritardi attuali - n. da 1 a 10
   'Script By Joe
   Dim R,Ru(1),Nu(10),T,I,E,S
   Scrivi String(21,"="),1,,,1
   For R = 1 To 12
      If R = 11 Then R = 12
      Ru(1) = R
      T = 0
      Scrivi NomeRuota(R),1
      For I = 1 To 10
         Nu(I) = I
         E = EstrattoRitardo(R,I)
         Scrivi FormatSpace(I,2,1) & " Rit " & FormatSpace(E,3,1)
         T = T + E
      Next
      S = SerieRitardo(1,EstrazioneFin,Nu,Ru,2)
      Scrivi String(8,"-") & " TOT Estr" & FormatSpace(T,4,1)
      Scrivi String(8,"-") & " RIT Ambo" & FormatSpace(S,4,1)
      Scrivi String(21,"="),1,,,1
   Next
End Sub

 

[genios]

Grazie Joe

Sapresti farmi qualche esempio sulle funzioni di VBAscript che si possono associare alla funzione scrivi di spaziometria ?

Ciao Eugenio

 

[joe]

Nel VBA la A sta per Applicazione.

In particolare ... quello più usato dai lottologi è Excel.

Però ti consiglio di usare Spaziometria perchè è molto più facile,

delle macro di Excel, ma il Basic (B) è quasi identico in tutti i contesti.

Devi cercare negli esempi e negli script di spaziometria.

Ed anche nei "Test" delle varie funzioni (dove ci sono esempi concreti di come usarle)

Ma devi soprattutto PROVARE ... perchè leggere ... non ti serve a niente.

Invece quando scrivi ... esegui ... ottieni un errore ....

correggi l'errore o gli errori ed hai imparato ... come si fa.

E' come per la bicicletta ... se non provi solo con la teoria ... non impari.

Invece se cadi ... ti rialzi e pedali ... impari a stare dritto, a non cadere, a non farti male.

Quando hai imparato ... hai imparato.

Scrivi ... è semplicemente il comando che si usa per inviare al video ... "il qualcosa" che si vuole visualizzato.

Nello script che ti ho dato

E è il ritardo del singolo numero

T è il totale dei 10 ritatdi

S è il ritardo degli Ambi

Quindi, ci sono in totale, una manciata di Scrivi

all'interno di 2 cicli nidificati (1 per le Ruote e l'altro per la decina)

Nel primo

Scrivi nomeruota Scrive il nome della Ruota.

Nel secondo

Scrivi E Scrive il ritado dell' Estratto

Ed alla fine c'è:

Scrivi T che Scrive il tolate dei ritardi dei 10 estratti

Scrivi S scrive il ritardo dell'ambo in decina

Altri 2 ... Scrivi String ecc.ecc. separano le ruote.

Come per la formattazione e l'incolonnamento degli output,

questi scrivi (Format/String) non sono strettamente necessari ma facilitano la lettura.

 

[genios]

questi scrivi (Format/String) non sono strettamente necessari ma facilitano la lettura.

è questa la mia richiesta quali sono e come si usano le funzioni in Vba script abbinata alla funzione scrivi di spaziometria.

🙂

 

[joe]

Come ti ho già scritto ... tra gli esempi cercando: Test_Scrivi

trovi alcuni esempi, anche complicati, come questo, sull' uso dei colori con l'istruzione scrivi.

Sub Main

   Dim k
   Dim aValori(10)
   Dim aColori(10)
  
  
   ' gli array vengono alimentati con un  ciclo per comodita esendo un esempio
   ' in un caso specifico ovviamente gli array devono essere valorizzati
   ' in base alle esigenze .. l'esempio serve solo a far capire come si fa
  
   ' N.B. l'array dei valori da scrivere parte da 0 !!!! non da 1 !!! Fare attenzione
  
   For k = 0 To 10
      If k Mod 2 <> 0 Then
         aValori(k) = "-" ' trattino separatore tras un numero e l'altro
         aColori(k) = Nero_ ' colore nero
        
      Else
         aValori(k) = Format2(NumeroCasuale(1,90)) ' scelgo un nmero casule
         aColori(k) = RGB(NumeroCasuale(0,255),NumeroCasuale(0,255),NumeroCasuale(0,255)) ' do un colore casuale
      End If
   Next
  
  
   ' gli elementi dell'array vengono scritti in output ognuno col suo colore
   ' e uno affianco all'altro come fosse un unico testo
  
   Call ScriviConColori(aValori,aColori)
  
End Sub

Ma semplicemente utilizzando il comando Scrivi

Ti vengono elencati i molti parametri dell'istruzione

ai quali in Spaziometria, corrispondono altrettanti settaggi possibili.

 

[genios]

Joe grazie per gli esempi e per le dritte .

Ti volevo chiedere quando hai tempo è voglia 🙂

il seguente script :

prendere in considerazione le ultime 500 estrazioni su una data ruota

prendere in considerazione i numeri 1 2 3 4 5 6 7 8 9 10

trovare l' uscita di un ambo nei numeri 1 2 3 4 5 6 7 8 9 10

calcolare quindi nell' estrazione precedente all' uscita dell' ambo il ritardo di ogni singolo numero della decina in questione

sommare i ritardi dei singoli numeri della decina in questione

in out dovremmo avere

dataestrazione e numero estrazione precedente l' uscita dell' ambo piu' la somma dei ritardi dei numeri della decina in questione.
dataestrazione e numero estrazione dell' uscita dell' ambo e ambo uscito o sorte superiore .

e non usare la proigrammazione a Spaghetti code .🙂🙂🙂🙂🙂🙂🙂🙂🙂🙂

Ciao Eugenio

🙂

 

[joe]

Ciao Eugenio.

No.

Non ho interesse a rifare script incentrati sui presupposti da te forniti.

Con alla base ricerche trite e ritrite, i cui esiti non possono che essere disastrosi,

come tutti quelli che hanno già dimostrato in passato d'esserlo.

Oltre a quelli matematicamente prevedibili di essere un disastro.

In ultimo ... per me ... le decine NON esistono che nella mente di qualcuno,

che ha la limitazione di arrivare fino a 10 ... se ci arriva.

Tant'è che di decine ne esistono 5'720'645'481'903 con appena 90 numeri.

Figurati se con naturale, cabalistica, ritardata, scompensata ed un paio d'altri nomi di fantasia,

hai considerato ... tutto ... cosa vorresti.