Novità

per i programmatori

Croupier ha scritto:
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
Clicca per espandere...
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.

Codice: 
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
 
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
 
Ultima modifica:
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
 
Grazie ancora ..io sono per la collaborazione fattiva, amichevole e leale e soprattutto sincera.
 
Ultima modifica:
Cinzia27 ha scritto:
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.

Codice: 
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
Clicca per espandere...
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
 
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 ha scritto:
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.

Codice: 
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
Clicca per espandere...
 
Ultima modifica:
L'ho modificato così i numeri li hai tutti e 10 insieme.
Codice: 
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
 
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
 
Ultima modifica:
Eu ...

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

invece di dare il tormento a sta gentil pulzella.

Codice: 
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

:)
 
joe ha scritto:
Eu ...

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

invece di dare il tormento a sta gentil pulzella.

Codice: 
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

:)
Clicca per espandere...

🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂 🙂

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",
Clicca per espandere...

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
 
Codice: 
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

:)
 
Grazie Joe

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

Ciao Eugenio
 
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.

:)
 
Ultima modifica:
questi scrivi (Format/String) non sono strettamente necessari ma facilitano la lettura.
Clicca per espandere...

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

🙂
 
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.

Codice: 
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.

Immagine.jpg

:)
 
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

🙂
 
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.

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 gennaio 2025
    Bari
    47
    06
    65
    72
    48
    Cagliari
    75
    33
    52
    59
    73
    Firenze
    08
    05
    35
    74
    81
    Genova
    33
    59
    68
    27
    07
    Milano
    68
    12
    60
    51
    65
    Napoli
    49
    17
    10
    71
    87
    Palermo
    31
    64
    45
    04
    47
    Roma
    18
    84
    43
    28
    31
    Torino
    14
    23
    33
    16
    84
    Venezia
    39
    41
    08
    02
    86
    Nazionale
    63
    41
    58
    16
    01
    Estrazione Simbolotto
    Bari
    45
    03
    38
    41
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto