richiesta script

pigano65 · 8 Aprile 2020

Richiesta script

Chiedo gentilmente a chi può dedicarmi un pò del suo tempo per la realizzazione di uno script che mi farebbe risparmiare la vista e qualche errore di trascrizione.

La ricerca consiste di analizzare 120-140 ambi per un numero x di estrazioni e verificandone l’esito a tutte, per adesso tutto a carta e matita.

Lo script in input: 1) chiede quanti ambi vuoi inserire = basterebbero anche 10-15 per volta .

2) da quale estrazione la partenza. 3) quante estrazioni la verifica- . 4) possibilità di scelta singola ruota e tutte .

In output, una analisi con le uscite degli ambi inseriti , segnalando l’ambo sortito- la ruota - il colpo di sortita - il nr. di estrazione .

Esempio: ambi inseriti 25-88, 44-54 ecc ecc. verifica a tutte ,estrazione di partenza 9700

Output:

ba 9705- 25-88(5) 9514- 25-88(14)

ca 9701-44-54(1) 9720-25-88(20)

fi 9780-44-54(80)

e se non chiedo troppo, un riepilogo degli ambi sortiti a ruota ed il totale di tutte le ruote.

Vista la complessità della mia richiesta e non conoscendo a chi rivolgermi resto fiducioso

nell’interessamento di qualche buon amico, che ringrazio comunque.

Mike58 · 8 Aprile 2020

Ciao PIgano giusto per non farti danneggiare la vista ti posto un piccolo script nel quale puoi inserire a piacere le combinazioni in array e verificarne la frequenza o il ritardo per ruota tramite una Tabella Visiva.
Le lunghette di lunghezza voluta si inseriscono nella sub Lunghette e secondo la quantità immessa ciclabile in un for next

Codice:

Sub Lunghetta(aLung,id,aN)
   '--- inserimento Lunghette -----------
   aLung(1) = Array(0,25,88)
   aLung(2) = Array(0,44,54)
   aLung(3) = Array(0,9,33,15)
   aLung(4) = Array(0,2,9,58)
   aLung(5) = Array(0,12,10,71)
   aLung(6) = Array(0,80,56,61)
   aLung(7) = Array(0,57,7,71)
   '----Fine Inserimento-----------------
   aN = aLung(id)
End Sub

for next

Codice:

'-------------------------------------------
   For Id = 1 To 7 ' variare il massimo  a secondo la q.tà di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------

script

Codice:

Sub Main
   Dim aN,aLung(7),Id
   Dim Nu,Ru(1),er(12)
   Ini = 8072' EstrazioneIni
   fin = EstrazioneFin
   filtro = CInt(InputBox("Quale scelta" & Chr(13) & Chr(13) & "1 - Frequenza" & Chr(13) & "2 - Ritardo",,1))
   If filtro = 1 Then Scrivi "Verifica Combinazioni per Frequenza",1
   If filtro = 2 Then Scrivi "Verifica Combinazioni per Ritardo",1
   Scrivi
   Scrivi "Range Inizio........ " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine.......... " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni... " & fin - Ini + 1
   Scrivi
   ReDim T(15)
   For x = 1 To 12
      T(1) = "Numeri"
      T(x + 1) = SiglaRuota(x)
   Next
   T(14) = "Max1"
   T(15) = "Min"
   'T(16) = "Valida/Non Valida"
   Call InitTabella(T,,,3,,"Arial Black")
   '-------------------------------------------
   For Id = 1 To 7 ' variare il massimo  a secondo la q.tà di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------
      ReDim V(15)
      V(1) = StringaNumeri(aN)
      For r = 1 To 12
         Ru(1) = r
         If filtro = 1 Then er(r) = SerieFreqTurbo(Ini,fin,aN,Ru,2)
         If filtro = 2 Then er(r) = SerieRitardoTurbo(Ini,fin,aN,Ru,2)
         V(r + 1) = er(r)
      Next
      Call OrdinaMatrice(er,- 1,1)
      V(14) = er(2)
      V(15) = er(12)
      Call AddRigaTabella(V,,,3,1,"Arial Black")
      '------------------------------------------
      For xx = 1 To 11
         If V(xx) = er(2) Then Call SetColoreCella((xx),2,4)
         If V(xx) = er(12) Then Call SetColoreCella((xx),4,2)
         'If V(xx) = er(1) And V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
      Next
   Next
   CreaTabella
End Sub
Sub Lunghetta(aLung,id,aN)
   '--- inserimento Lunghette -----------
   aLung(1) = Array(0,25,88)
   aLung(2) = Array(0,44,54)
   aLung(3) = Array(0,9,33,15)
   aLung(4) = Array(0,2,9,58)
   aLung(5) = Array(0,12,10,71)
   aLung(6) = Array(0,80,56,61)
   aLung(7) = Array(0,57,7,71)
   '----Fine Inserimento-----------------
   aN = aLung(id)
End Sub

Resta inteso che si può fare anche qualcosa di più, ma intanto comincia da qui.

ciao

joe · 8 Aprile 2020

Ciao, non si capisce

quali siano gli Ambi e soprattutto come sono organizzati.

Prima ancora di questo come sono entrati a far parte del tuo interesse.

Ovvero, richiedi uno script, ma questo potrebbe non essere lo strumento maggiormente adatto.

Perché se per esempio, questi ambi devi trascrivere ed inserire ... tutte le volte ...

a gruppi di 10-15 ... l'errore di trascrizione non può essere evitato.

Anzi, come ben sai, è proprio durante la trascrizione che avviene l'errore di trascrizione.

Qualche soluzione la si trova, ma è meglio avere prima un'idea del quadro generale.

Mike58 · 8 Aprile 2020

Invece con questo altro script si possono aggiungere gruppi di formazioni e verificarne la statistica su gruppo.

Codice:

Option Explicit
Sub Main
  
   ' dichiaro i valori di ritorno
   Dim RetRitardo,RetRitardoMax,Freq,sRetFormaz
  
   ' aggiungo le formazioni al gruppo
   ' N.B. in questo esempio  abbiamo tutti ambi ma possiamo inserire anche lunghette di classe differente
   ' e posso aggingere quante combinazioni voglio una sola come 100
  

  
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 12
   Call AddNumeriToGruppoStatistico(aN,VE_)
  
   ReDim aN(2)
   aN(1) = 15
   aN(2) = 83
   Call AddNumeriToGruppoStatistico(aN,FI_)
  
   ReDim aN(2)
   aN(1) = 34
   aN(2) = 90
   Call AddNumeriToGruppoStatistico(aN,MI_)
  
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 28
   Call AddNumeriToGruppoStatistico(aN,TO_)
  
   ReDim aN(2)
   aN(1) = 72
   aN(2) = 25
   Call AddNumeriToGruppoStatistico(aN,CA_)
  
   ReDim aN(2)
   aN(1) = 44
   aN(2) = 54
   Call AddNumeriToGruppoStatistico(aN,TT_)
  

  
   ' ho finito di aggiungere le formazioni l gruppo lancio la statistica del gruppo

   Call StatisticaGruppoFormazioni(2,RetRitardo,RetRitardoMax,Freq,sRetFormaz,EstrazioneIni,EstrazioneFin)
  
   ' risultati a video
  
   Call Scrivi("Analisi delle combinazioni : ")
   Call Scrivi(sRetFormaz)
   Call Scrivi("Ritardo attuale " & RetRitardo)
   Call Scrivi("Ritardo max     " & RetRitardoMax)
   Call Scrivi("Frequenza       " & Freq)
  

  
End Sub

Mike58 · 8 Aprile 2020

Raga, chiariamo dei punti chi fa uso di script dovrebbe sapere che ci possono essere vari modi di approcci alla costruzione di un determinato progetto, mentre chi lista lo script SA che ci sono tanti modi per svolgere un costrutto
script.
Tutte le vie sono percorribili tutto dipende da quello che si vuole vedere e raggiungere.
Niente è impossibile ma non tutto è possibile.

joe · 8 Aprile 2020

Mi scuso con Mike.

La mia risposta è stata scritta assieme alla sua (che a differenza della mia è anche più propositiva)

In effetti intendevo dire che se possono essere calcolati ...

potrebbe non essere necessario riscriverli evitando errori nella trascrizione.

Mentre se sono già una tabella, o un elenco ... o dei pronostici veri e propri,

potrebbero essere letti senza errori da uno script.

Dunque a parer mio solo sapendo "come stanno le cose"

si può proporre una soluzione preferibile tra le molte possibili.

Buona serata a tutte/i.

pigano65 · 9 Aprile 2020

ciao
Ringrazio i sigg. Mike, Joe e gcarlo per aver risposto alla mia richiesta, non mi aspettavo cosi tanto, visto i nomi che dire sono la storia di questa materia.
Cerco di rispondere con chiarezza. Per il sig gcarlo, si questa è una discussione in sistemistica Archivi rotanti in cui l’ideatore del sw ha spiegato più volte il suo funzionamento, un modo tutto nuovo di fare pronostici . Ho inviato tutti i risultati dei miei primi 2 test, ma aveva idee diverse da me, e per carità rispetto la Sua opinione .
Per quanto riguarda un inserimento con un file di testo e inserendo tutto il blocco ambi si avrebbe una situazione generale, invece , al momento mi servono i risultati singoli che da ogni pronostico.

Rispondo al sig.Mike, La ringrazio tanto di aver preso a cuore la mia vista ,difatti dopo aver analizzato due blocchi ,100 elaborati, trascritte le previsioni e controllati i pronostici per 100 estraz. ,dovrò stare lontano dal video per qualche giorno. La ringrazio degli script, devo ancora testarli e non so se riesco a fare qualche modifica, comunque La informerò, sono solo un appassionato che cerca raccogliere dati per farne poi un orientamento. il mio desiderio è “trovare 1 solo max 2 ambi da porre in gioco a ruota e a tutte in un limitato tempo.

Rispondo al Sig. Joe , che ringrazio della sua attenzione, rendendomi conto delle difficoltà della richiesta che cerco di spiegare .
Il mio interesse e come sono organizzati: l’interesse e quello di raccogliere dati . Eseguo su tutte le 11 ruote (una per volta) con 50 estrazioni consecutive le 50 elaborazioni .
Ogni elaborazione da un suo pronostico che può essere composto da 1 a max 7 ambi (questo il dato in solo 2 elaborazioni da 50 estr. ne restano 9) .
Per ogni pronostico si controlli il suo esito per 100 estrazioni consecutive ,raccogliendo i seguenti dati , la ruota di uscita e il colpo di uscita ed eventualmente il totale degli ambi sortiti di quella previsione. Quindi non devo pronosticarli sono già frutto di elaborazione devo solo inserirli in uno script e raccoglierne i dati.

Le allego una tabella fatta manualmente con i risultati della prova su milano e spiegandone I passaggi , a volte una tabella può fare più chiarezza delle parole.
Analizzo la prima elaborazione con ruota fissa MI da estraz . 9644 , la previsione da un solo ambo 51-78, quindi inizia la raccolta dei dati da estraz 9644 per 100 colpi e fino al 9743 :

gestione al momento manuale

BA estraz. 9645 del 20/6/19 al 1°colpo 51-78

CA estraz. 9648 del 27/6/19 al 4°colpo 51-78

BA estraz 9659 del 23/7/19 al 15 colpo 51-78

NA estraz. 9710 del 19/11/19 al 66 colpo 51-78

RO estraz 9722 del 17/12/19 al 78° colpo 51-78

Estraz. 9743= fine osservazione e queste insieme alle altre 49 elaborazioni vengono annotate per avere un orientamento . Manco farlo apposta alla estraz. 9745 su MI al 102° colpo 78-51!!!
dove dice colpi non ho inserito la ruota e dovrebbe essere, pre es. ge3
segnalerebbe la ruota ed il 3° colpo di uscita.
Credo che se fatta per le 10 o 11 ruote si avranno 550 elaborazioni con una buona mole di dati pre studiarci sopra .

Attendo per qualsiasi atro dato che possa esserLe utile .

Cordiali saluti a Joe, Mike, gcarlo.

Mike58 · 9 Aprile 2020

Ciao Pigano magari ti potrebbe aiutare nella ricerca anche un verificatore di lunghetta x sorte.

Codice:

Sub Main
   Dim T,V
   Ini = 9644'EstrazioneIni
   fin = EstrazioneFin
   'r = InputBox("Quale ruota",,1)
   s = InputBox("Quale Sorte di Verifica",,2)
   Scrivi "Range inizio........... " & GetInfoEstrazione(Ini)
   Scrivi "Range fine............. " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni in Esame.... " & fin-Ini+1
   ResetTimer
   ReDim Ru(0)
   ReDim L(0)
   ScegliRuote(Ru)
   'Ru(1) = r
   ScegliNumeri(L)
   so = NomeSorte(s)
   'L = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
   T = Array(T,"Ruota","Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica")
   Call InitTabella(T)
   Call StatisticaFormazioneTurbo(L,Ru,s,rit,max,Incr,fre,Ini,fin)
   V = Array(V,StringaRuote(Ru),StringaNumeri(L),fre,rit,max,Incr,so)
   Call AddRigaTabella(V)
   CreaTabella
   Scrivi ".............................................Verifica............................................................................................."
   For es = Ini To fin
      Call VerificaEsitoTurbo(L,Ru,es,s,1,,esito,clp,estr,id)
      If esito <> "" Then
         k = k + 1
         ReDim Preserve aRetRit(k)
         aRetRit(k) = es
         ReDim Preserve ess(k)
         ess(k) = aRetRit(k) - aRetRit(k - 1)
         Scrivi FormatSpace(k,4) & vbTab & GetInfoEstrazione(es) & vbTab,0,0
         Scrivi estr & vbTab & vbTab & "Colpo : " & id-Ini & vbTab & FormatSpace(fin - id,4) & " > Esrtazioni Trascorse < " & " Elenco Ritardi ... " & ess(k)
      End If
      If esito = "Ambo" Then k2 = k2 + 1
      If esito = "Terno" Then k3 = k3 + 1
      If esito = "Quaterna" Then k4 = k4 + 1
   Next
   Scrivi String(145,".")
   Scrivi "Ambi........ " & k2
   Scrivi "Terni....... " & k3
   Scrivi "Quaterne.... " & k4
   Scrivi "Tempo Trascorso : " & TempoTrascorso
End Sub

pigano65 · 10 Aprile 2020

Ringrazio il sig Mike
Con Il primo script ,Ha inquadrato bene la mia intenzione di tabella e raccolta dati, e un buon principio e chiedo se si può effettuare qualche modifiche, visto che ogni previsione da inserire sono da 1ambo a 7ambi (fino ad ora) e quindi ogni previsione e a se stante .

Poi , esempio uscita di 2 ambi a bari al 5 e 12 colpo = ba3c- ba12c

Nelle caselle min e max si potrebbero inserire , in una, gli ambi sortiti alla ruota fissa, e nell’altra il colpo di uscita es. mi3c mi25c , chiaramente in impostazione lo script dovrà chiedere quale è la ruota fissa? dato variabile, ed il controllo anche su tutte ruote

Se fossero stati pronostici di 1solo ambo sarebbe stato molto funzionale, i numeri in tabella sono ben visibili e comunque il lavoro di controllo grazie a Lei si è ridotto, ed anche se non sarà possibile modificarlo la ringrazio anticipatamente.

Vorrei spiegare meglio per questo Le invio una mia tabella con le prime 5 previsioni e di come raccolgo i dati.
Attendo una Sua valutazione in merito e provo lo scrip di sopra e anticipatamente ringrazio e saluto

Mike58 · 10 Aprile 2020

Ciao Pigano , chiaro che senza il rilevamento dei numeri diventa complesso fare una statistica e una raccolta dati efficace, e in specialmodo una raccolta come da tua tabella.
Bisognerebbe avere a secondo l'estrazione di rilevamento la procedura per ricavare gli ambi e ciclare poi le estrazioni per valutarne gli esiti e le varie statistiche.

Come puoi vedere da una bozza di mio script la statistica la puoi raccogliere immettendo dei dati manuali ma riferito ad un solo gruppo per volta.

Invece nell'altro script di inserimento lunghette era chiaro che bisognava inserire a mano nel listato le lunghette volute, e a proposito avevo spigato come fare.

Mi ripeto chi fa uso di script deve un pochetto avere la capacità di leggere e modificare lo script almeno nelle piccole correzioni, altrimenti non serve a nulla anche questa mia prova di verifica.

Ciao prova bozza.

Codice:

Sub Main
   Dim Ru(1),Rt(1),T,V
   Ini = 9640
   fin = EstrazioneFin
   Tot = fin - Ini + 1
   r = 6
   Ru(1) = r
   Rt(1) = 11
   T = Array(T,"Gruppo Ambi","Inizio-Fine","Fre Rel","Rit Rel","Freq a Ruota : " & SiglaRuota(r),"Ritardo","Esito Ruota","colpo","id","Esito TT","Colpo TT","id")
   Call InitTabella(T)
   ReDim aNumA(2)
   aNumA(1) = 67
   aNumA(2) = 70
   ReDim aNumB(2)
   aNumB(1) = 67
   aNumB(2) = 72
   Call AddNumeriToGruppoStatistico(aNumA,NA_)
   Call AddNumeriToGruppoStatistico(aNumB,NA_)
   Call StatisticaGruppoFormazioniTurbo(2,rit,max,fre,Gruppo,Ini,fin)
   sfA = SerieFreq(Ini,fin,aNumA,Ru,2)
   sfB = SerieFreq(Ini,fin,aNumB,Ru,2)
   srA = SerieRitardo(Ini,fin,aNumA,Ru,2)
   srB = SerieRitardo(Ini,fin,aNumB,Ru,2)
   Call VerificaEsito(aNumA,Ru,Ini + 1,2,Tot,,,clpA,esA,idA)
   Call VerificaEsito(aNumB,Ru,Ini + 1,2,Tot,,,clpB,esB,idB)
   Call VerificaEsito(aNumA,Rt,Ini + 1,2,Tot,,,clpAT,esAT,idAT)
   Call VerificaEsito(aNumB,Rt,Ini + 1,2,Tot,,,clpBT,esBT,idBT)
   ab = StringaNumeri(aNumA) & "<br>" & StringaNumeri(aNumB)
   sfT = sfA & "<br>" & sfB
   srT = srA & "<br>" & srB
   VeT = esA & "<br>" & esB
   clT = clpA & "<br>" & clpB
   idT = idA & "<br>" & idB
   VeTT = esAT & "<br>" & esBT
   clTT = clpAT & "<br>" & clpBT
   idTT = idAT & "<br>" & idBT
   V = Array(V,ab,Ini & " - " & fin,sfT,srT,fre,Rit,VeT,clT,idT,VeTT,clTT,idTT)
   Call AddRigaTabella(V)
   CreaTabella
End Sub

pigano65 · 11 Aprile 2020

ciao Mike e ammirevole la Sua benevolezza verso gli altri.
E se non si può non fa niente proseguirò manualmente, certo ci vorra piu tempo , ed essendo come S. Tommaso, alla fine di questo lavoro , lo vorrei toccare con mano. Poi è tutto da verificare con il futuro, visto che stiamo analizzando il passato. Le invio un ulteriore dato.
Avendo presente che devo leggere in tabella i dati delle 50 elaborazioni inserite , per poi manualmente farci la percentuali e avere un dettaglio visivo ,salvo errori di trascrizioni come dice il buon sig Joe.

Questo che invio è un dettaglio reale:

Con queste indicazioni si evince che, un ambo a tutte sortisce per il 59% nei 20 colpi passando

al 83% nei 30 colpi (dicono la media 40 colpi) . Si nota anche, aspettare una previsione oltre

i 50 colpi non sia conveniente .

Al momento un pensiero va a tutti quei morti e alle tragedie familiari che si sono avute in questo ultimo periodo augurando loro un po’ di pace.

Scusate lo sfogo.

Vorrei porgere a i sigg Mike, Joe, gcarlo e alle loro Famiglie gli auguri di Buona Pasqua

e tanta serenità con tanta salute

cordiali saluti

Mike58 · 11 Aprile 2020

Ciao a Tutti, io che abito fra le provincie di Milano-Bergamo la tensione per queste tragedie si tocca e si sente davvero tanto e per questo auguro a tutti anch'io una Buona e serena Pasqua.
Poi per gli script finora postati che sono delle piccole utility si possono comunque analizzare e raccogliere dei dati utili allo scopo per poi magari riportarli in Excel e una volta memorizzato il dato calcolarne le dovute percentuali in risultanza.
Bisogna comunque ingegnarsi per i propri scopi e vedo che l'ingegno non ti manca.

Ciao e felice di esserti stato utile.

Mike

joe · 11 Aprile 2020

Ringrazio e ricambio graditissimi gli auguri.

Capisco l'angoscia, di chi è più vicino al contagio e geograficamente, meno fortunato.

Dunque coraggio ... e speriamo.

Anche se ci vuole un miracolo!

Auguriamoci tutti che i "nostri" politici non aggiungano altri danni a quelli già in essere.

Ci vorrà un miracolo pasquale dicevo ... ma nessun decreto (per ora) vieta di sperarlo.

Auguri a tutte/i.

pigano65 · 13 Aprile 2020

Mike58 ha scritto:

Ciao PIgano giusto per non farti danneggiare la vista ti posto un piccolo script nel quale puoi inserire a piacere le combinazioni in array e verificarne la frequenza o il ritardo per ruota tramite una Tabella Visiva.
Le lunghette di lunghezza voluta si inseriscono nella sub Lunghette e secondo la quantità immessa ciclabile in un for next

Codice:

Sub Lunghetta(aLung,id,aN)
   '--- inserimento Lunghette -----------
   aLung(1) = Array(0,25,88)
   aLung(2) = Array(0,44,54)
   aLung(3) = Array(0,9,33,15)
   aLung(4) = Array(0,2,9,58)
   aLung(5) = Array(0,12,10,71)
   aLung(6) = Array(0,80,56,61)
   aLung(7) = Array(0,57,7,71)
   '----Fine Inserimento-----------------
   aN = aLung(id)
End Sub

for next

Codice:

'-------------------------------------------
   For Id = 1 To 7 ' variare il massimo  a secondo la q.tà di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------

script

Codice:

Sub Main
   Dim aN,aLung(7),Id
   Dim Nu,Ru(1),er(12)
   Ini = 8072' EstrazioneIni
   fin = EstrazioneFin
   filtro = CInt(InputBox("Quale scelta" & Chr(13) & Chr(13) & "1 - Frequenza" & Chr(13) & "2 - Ritardo",,1))
   If filtro = 1 Then Scrivi "Verifica Combinazioni per Frequenza",1
   If filtro = 2 Then Scrivi "Verifica Combinazioni per Ritardo",1
   Scrivi
   Scrivi "Range Inizio........ " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine.......... " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni... " & fin - Ini + 1
   Scrivi
   ReDim T(15)
   For x = 1 To 12
      T(1) = "Numeri"
      T(x + 1) = SiglaRuota(x)
   Next
   T(14) = "Max1"
   T(15) = "Min"
   'T(16) = "Valida/Non Valida"
   Call InitTabella(T,,,3,,"Arial Black")
   '-------------------------------------------
   For Id = 1 To 7 ' variare il massimo  a secondo la q.tà di lunghette
      Call Lunghetta(aLung,Id,aN)
      '-------------------------------------------
      ReDim V(15)
      V(1) = StringaNumeri(aN)
      For r = 1 To 12
         Ru(1) = r
         If filtro = 1 Then er(r) = SerieFreqTurbo(Ini,fin,aN,Ru,2)
         If filtro = 2 Then er(r) = SerieRitardoTurbo(Ini,fin,aN,Ru,2)
         V(r + 1) = er(r)
      Next
      Call OrdinaMatrice(er,- 1,1)
      V(14) = er(2)
      V(15) = er(12)
      Call AddRigaTabella(V,,,3,1,"Arial Black")
      '------------------------------------------
      For xx = 1 To 11
         If V(xx) = er(2) Then Call SetColoreCella((xx),2,4)
         If V(xx) = er(12) Then Call SetColoreCella((xx),4,2)
         'If V(xx) = er(1) And V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
      Next
   Next
   CreaTabella
End Sub
Sub Lunghetta(aLung,id,aN)
   '--- inserimento Lunghette -----------
   aLung(1) = Array(0,25,88)
   aLung(2) = Array(0,44,54)
   aLung(3) = Array(0,9,33,15)
   aLung(4) = Array(0,2,9,58)
   aLung(5) = Array(0,12,10,71)
   aLung(6) = Array(0,80,56,61)
   aLung(7) = Array(0,57,7,71)
   '----Fine Inserimento-----------------
   aN = aLung(id)
End Sub

Resta inteso che si può fare anche qualcosa di più, ma intanto comincia da qui.

ciao

ciao, mike
la script come impostato va bene come controllo generale se si può aggiungere anche la estrazione di uscita sarebbe un buon aiuto.
Questo script nella fase di controllo mi verificato diversi errori fatti nella tebella di napoli che poi se vuole la invieroò con i dati aggiornati
cordiali saluti

pigano65 · 13 Aprile 2020

Mike58 ha scritto:

Invece con questo altro script si possono aggiungere gruppi di formazioni e verificarne la statistica su gruppo.

Codice:

Option Explicit
Sub Main
 
   ' dichiaro i valori di ritorno
   Dim RetRitardo,RetRitardoMax,Freq,sRetFormaz
 
   ' aggiungo le formazioni al gruppo
   ' N.B. in questo esempio  abbiamo tutti ambi ma possiamo inserire anche lunghette di classe differente
   ' e posso aggingere quante combinazioni voglio una sola come 100
 

 
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 12
   Call AddNumeriToGruppoStatistico(aN,VE_)
 
   ReDim aN(2)
   aN(1) = 15
   aN(2) = 83
   Call AddNumeriToGruppoStatistico(aN,FI_)
 
   ReDim aN(2)
   aN(1) = 34
   aN(2) = 90
   Call AddNumeriToGruppoStatistico(aN,MI_)
 
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 28
   Call AddNumeriToGruppoStatistico(aN,TO_)
 
   ReDim aN(2)
   aN(1) = 72
   aN(2) = 25
   Call AddNumeriToGruppoStatistico(aN,CA_)
 
   ReDim aN(2)
   aN(1) = 44
   aN(2) = 54
   Call AddNumeriToGruppoStatistico(aN,TT_)
 

 
   ' ho finito di aggiungere le formazioni l gruppo lancio la statistica del gruppo

   Call StatisticaGruppoFormazioni(2,RetRitardo,RetRitardoMax,Freq,sRetFormaz,EstrazioneIni,EstrazioneFin)
 
   ' risultati a video
 
   Call Scrivi("Analisi delle combinazioni : ")
   Call Scrivi(sRetFormaz)
   Call Scrivi("Ritardo attuale " & RetRitardo)
   Call Scrivi("Ritardo max     " & RetRitardoMax)
   Call Scrivi("Frequenza       " & Freq)
 

 
End Sub

Buongiorno, mike
mi scuso se non ho risposto in modo particolare e fin qui sono anche riuscito a fare qualche modifica e credo che lo script possa servire in futuro, ma è molto piu adatto quello di prima
ciao

pigano65 · 13 Aprile 2020

Mike58 ha scritto:

Ciao Pigano magari ti potrebbe aiutare nella ricerca anche un verificatore di lunghetta x sorte.

Codice:

Sub Main
   Dim T,V
   Ini = 9644'EstrazioneIni
   fin = EstrazioneFin
   'r = InputBox("Quale ruota",,1)
   s = InputBox("Quale Sorte di Verifica",,2)
   Scrivi "Range inizio........... " & GetInfoEstrazione(Ini)
   Scrivi "Range fine............. " & GetInfoEstrazione(fin)
   Scrivi "Totali Estrazioni in Esame.... " & fin-Ini+1
   ResetTimer
   ReDim Ru(0)
   ReDim L(0)
   ScegliRuote(Ru)
   'Ru(1) = r
   ScegliNumeri(L)
   so = NomeSorte(s)
   'L = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
   T = Array(T,"Ruota","Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica")
   Call InitTabella(T)
   Call StatisticaFormazioneTurbo(L,Ru,s,rit,max,Incr,fre,Ini,fin)
   V = Array(V,StringaRuote(Ru),StringaNumeri(L),fre,rit,max,Incr,so)
   Call AddRigaTabella(V)
   CreaTabella
   Scrivi ".............................................Verifica............................................................................................."
   For es = Ini To fin
      Call VerificaEsitoTurbo(L,Ru,es,s,1,,esito,clp,estr,id)
      If esito <> "" Then
         k = k + 1
         ReDim Preserve aRetRit(k)
         aRetRit(k) = es
         ReDim Preserve ess(k)
         ess(k) = aRetRit(k) - aRetRit(k - 1)
         Scrivi FormatSpace(k,4) & vbTab & GetInfoEstrazione(es) & vbTab,0,0
         Scrivi estr & vbTab & vbTab & "Colpo : " & id-Ini & vbTab & FormatSpace(fin - id,4) & " > Esrtazioni Trascorse < " & " Elenco Ritardi ... " & ess(k)
      End If
      If esito = "Ambo" Then k2 = k2 + 1
      If esito = "Terno" Then k3 = k3 + 1
      If esito = "Quaterna" Then k4 = k4 + 1
   Next
   Scrivi String(145,".")
   Scrivi "Ambi........ " & k2
   Scrivi "Terni....... " & k3
   Scrivi "Quaterne.... " & k4
   Scrivi "Tempo Trascorso : " & TempoTrascorso
End Sub

ciao ,mike
questo verificatore e perfetto ma devo inserire un ambo per volta e avento per esempio 5 ambi da verificare per poi manualmente trascriverne i risultati farei sicuramente errori.
certo anche questo se permetterebbe l'inserimento di un gruppo di ambi ,della previsione magari da 1 a 7-8 ,si potrebbe anche questo adattare
cordiali saluti

pigano65 · 13 Aprile 2020

Mike58 ha scritto:
Ciao Pigano , chiaro che senza il rilevamento dei numeri diventa complesso fare una statistica e una raccolta dati efficace, e in specialmodo una raccolta come da tua tabella.
Bisognerebbe avere a secondo l'estrazione di rilevamento la procedura per ricavare gli ambi e ciclare poi le estrazioni per valutarne gli esiti e le varie statistiche.

Come puoi vedere da una bozza di mio script la statistica la puoi raccogliere immettendo dei dati manuali ma riferito ad un solo gruppo per volta.

Invece nell'altro script di inserimento lunghette era chiaro che bisognava inserire a mano nel listato le lunghette volute, e a proposito avevo spigato come fare.

Mi ripeto chi fa uso di script deve un pochetto avere la capacità di leggere e modificare lo script almeno nelle piccole correzioni, altrimenti non serve a nulla anche questa mia prova di verifica.

Ciao prova bozza.

Codice:

Sub Main Dim Ru(1),Rt(1),T,V Ini = 9640 fin = EstrazioneFin Tot = fin - Ini + 1 r = 6 Ru(1) = r Rt(1) = 11 T = Array(T,"Gruppo Ambi","Inizio-Fine","Fre Rel","Rit Rel","Freq a Ruota : " & SiglaRuota(r),"Ritardo","Esito Ruota","colpo","id","Esito TT","Colpo TT","id") Call InitTabella(T) ReDim aNumA(2) aNumA(1) = 67 aNumA(2) = 70 ReDim aNumB(2) aNumB(1) = 67 aNumB(2) = 72 Call AddNumeriToGruppoStatistico(aNumA,NA_) Call AddNumeriToGruppoStatistico(aNumB,NA_) Call StatisticaGruppoFormazioniTurbo(2,rit,max,fre,Gruppo,Ini,fin) sfA = SerieFreq(Ini,fin,aNumA,Ru,2) sfB = SerieFreq(Ini,fin,aNumB,Ru,2) srA = SerieRitardo(Ini,fin,aNumA,Ru,2) srB = SerieRitardo(Ini,fin,aNumB,Ru,2) Call VerificaEsito(aNumA,Ru,Ini + 1,2,Tot,,,clpA,esA,idA) Call VerificaEsito(aNumB,Ru,Ini + 1,2,Tot,,,clpB,esB,idB) Call VerificaEsito(aNumA,Rt,Ini + 1,2,Tot,,,clpAT,esAT,idAT) Call VerificaEsito(aNumB,Rt,Ini + 1,2,Tot,,,clpBT,esBT,idBT) ab = StringaNumeri(aNumA) & " " & StringaNumeri(aNumB) sfT = sfA & " " & sfB srT = srA & " " & srB VeT = esA & " " & esB clT = clpA & " " & clpB idT = idA & " " & idB VeTT = esAT & " " & esBT clTT = clpAT & " " & clpBT idTT = idAT & " " & idBT V = Array(V,ab,Ini & " - " & fin,sfT,srT,fre,Rit,VeT,clT,idT,VeTT,clTT,idTT) Call AddRigaTabella(V) CreaTabella End Sub

Scusami ,Mike di tutto questo fastidio,
questa bozza va bene come schema e va bene anche l'inserimanto di un gruppo di ambi per volta in modo che ogni previsione avrò i dati completi. La coda che noto e che alla prima uscita si ferma e non rileva altre uscite, grazie dell'impegno.
Aggiungo che non sono riuscito ad incrementare a piu di due ambi
e se questo inserimento fosse automatica nel senso: quanti ambi vuoi controllare? per quante estrezioni? quale estrazione di partenza?
se Vuole e quando Vuole senza fretta ed anche se per questi dati ,risulta complicato inserirli in tabella , posso inserirli in modo manuale
l'importante avere dati certi in output, comunque si risparmierebbe tempo e errori in fase di controllo e resterebbe solo la trascrizione.
Grazie del tempo dedicatomi
Cordiali saluti

Mike58 · 13 Aprile 2020

Ciao Pigano chiaro che senza elementi di calcolo da cui partire non si può realizzare quello che il tuo schema vorrebbe.
Io ho cercato di fornirti delle piccole utility con il quale risalire a delle risultanze, seppur nei vari modi.
Comunque se non riesci ad utilizzarle per lo scopo aggiungendo manualmente le combinazioni volute non saprei altro come aiutarti.
in ogni script c'è un modus operandi e richiede anche l'intervento di modifiche ad oc da parte dell'utente per raggiungere e vedere le risultanze.
Prova questo ultimo script semplice e che richiede anch'esso l'inserimento manuale di combinazioni, che elenca gli esisti per sorte(ambo) senza interruzioni

Codice:

Sub Main
   Dim idEstr,Ruota
   Dim Inizio,Fine
   qt = InputBox("Quante estrazioni analizzo",,100)
   r = InputBox("Ruota Secca",,6)
   Inizio = EstrazioneFin - qt
   Fine = EstrazioneFin
   'Ruota = ScegliRuota
   ReDim aR(2)
   ReDim aP(2)
   aR(1) = r
   aR(2) = 11
   aP(2) = 1 ' posta Ambo
   Scrivi "Estrazione inizio..... " & GetInfoEstrazione(Inizio)
   Scrivi "Estrazione fine....... " & GetInfoEstrazione(Fine)
   Scrivi "Totali estrazioni analizzate.... " & Fine -Inizio + 1
   Scrivi "Colpi di Gioco........ " & qt
   Scrivi "Ruota Principale...... " & NomeRuota(r)
   Scrivi "Ruota Secondaria...... " & NomeRuota(aR(2))
   Scrivi
   'If Ruota > 0 Then
      For idEstr = Inizio To Inizio
         'qui si comincia ad inserire gli ambi in base al q.tà voluta
         '----------------------------------------------ambo 1
         ReDim aN(2)
         aN(1) = 67
         aN(2) = 70
         Call ImpostaGiocata(1,aN,aR,aP,qt)
         '---------------------------------------------ambo 2
         ReDim aN(2)
         aN(1) = 67
         aN(2) = 72
         Call ImpostaGiocata(2,aN,aR,aP,qt)
         '---------------------------------------------ambo 3
         ReDim aN(2)
         aN(1) = 17
         aN(2) = 34
         Call ImpostaGiocata(3,aN,aR,aP,qt)
         '---------------------------------------------
         ' se c'è bisogna di aggiungere ambi continuare col l'esempio sopra

         Call Gioca(idEstr,1,,1)' solo giocate positive
         Call AvanzamentoElab(Inizio,Fine,idEstr)
         If ScriptInterrotto Then Exit For
        
      Next
   'End If
   ScriviResoconto,0
End Sub

pigano65 · 14 Aprile 2020

Mike58 ha scritto:
Ciao Pigano chiaro che senza elementi di calcolo da cui partire non si può realizzare quello che il tuo schema vorrebbe.
Io ho cercato di fornirti delle piccole utility con il quale risalire a delle risultanze, seppur nei vari modi.
Comunque se non riesci ad utilizzarle per lo scopo aggiungendo manualmente le combinazioni volute non saprei altro come aiutarti.
in ogni script c'è un modus operandi e richiede anche l'intervento di modifiche ad oc da parte dell'utente per raggiungere e vedere le risultanze.
Prova questo ultimo script semplice e che richiede anch'esso l'inserimento manuale di combinazioni, che elenca gli esisti per sorte(ambo) senza interruzioni

Codice:

Sub Main Dim idEstr,Ruota Dim Inizio,Fine qt = InputBox("Quante estrazioni analizzo",,100) r = InputBox("Ruota Secca",,6) Inizio = EstrazioneFin - qt Fine = EstrazioneFin 'Ruota = ScegliRuota ReDim aR(2) ReDim aP(2) aR(1) = r aR(2) = 11 aP(2) = 1 ' posta Ambo Scrivi "Estrazione inizio..... " & GetInfoEstrazione(Inizio) Scrivi "Estrazione fine....... " & GetInfoEstrazione(Fine) Scrivi "Totali estrazioni analizzate.... " & Fine -Inizio + 1 Scrivi "Colpi di Gioco........ " & qt Scrivi "Ruota Principale...... " & NomeRuota(r) Scrivi "Ruota Secondaria...... " & NomeRuota(aR(2)) Scrivi 'If Ruota > 0 Then For idEstr = Inizio To Inizio 'qui si comincia ad inserire gli ambi in base al q.tà voluta '----------------------------------------------ambo 1 ReDim aN(2) aN(1) = 67 aN(2) = 70 Call ImpostaGiocata(1,aN,aR,aP,qt) '---------------------------------------------ambo 2 ReDim aN(2) aN(1) = 67 aN(2) = 72 Call ImpostaGiocata(2,aN,aR,aP,qt) '---------------------------------------------ambo 3 ReDim aN(2) aN(1) = 17 aN(2) = 34 Call ImpostaGiocata(3,aN,aR,aP,qt) '--------------------------------------------- ' se c'è bisogna di aggiungere ambi continuare col l'esempio sopra Call Gioca(idEstr,1,,1)' solo giocate positive Call AvanzamentoElab(Inizio,Fine,idEstr) If ScriptInterrotto Then Exit For Next 'End If ScriviResoconto,0 End Sub

buongiorno ,sig Mike
Bravo!!! Non avevo dubbi ,sia sulla Sua bravura che la Sua serietà.
Poco importa di inserire dati in tabella, ho sempre usato carta e matita.
Con questo capolavoro che Ha realizzato ho dei dati certi ed esenti di errori.
Sono riuscito a modificarlo alle esigenze grazie anche alle Sue gradite indicazioni.
RingraziarLa e' poco, pertanto Le mando un grande abbraccio, che possa arrivare fino a Lei .
grazie ancora per avermi aiutato
Cordiali saluti

richiesta script

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Allegati

Advanced Member >PLATINUM PLUS<

Member

Allegati

Advanced Member >PLATINUM PLUS<

Member

Allegati

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Member

Member

Member

Advanced Member >PLATINUM PLUS<

Member