si potrebbe realizzare uno script tabellare come di seguito?

[i legend]

Buona giornata a tutti


Premessa:


vorrei sapere se fosse possibile la realizzazione di uno script, che mi aiuterebbe
nella selezione degli estratti da giocare.
Le mie previsioni sono realizzate con metodi di matematica sommativa,
Solitamente procedo con il trovare più metodi che soddisfano la mia ricerca,e
per la scelta delle ambate mi affido


1)al maggio numero di convegenze numeriche.


es :


5 diversi metodi mi estrapolano il numero 10, 3metodi il numero 12 ( prima scrematura)


2) vedo il numero che ha un ritardo non superiore alle 36 estazioni.(mio limite personale ho il terrore dei ritardatari)


3) vedo quale numero è più frequente nel mese di gioco degli ultimi 10 anni


4) cerco i numeri che hanno peceduto l'uscita delle mie ambate negli ultimi dieci casi


in base al maggior numero di requisiti soddisfatti scelgo il Capogioco.


Richiesta:


Studiando spaziometria nel modulo estratti ho trovato qualcosa di davvero interessante.


Posto Figura del modulo



Sarebbe possibile ottenere uno script tabellare con le voci aggiuntive della seconda figura postata?


al posto del numero , la ricerca si potrebbe effettuare sul metodo della previsione?
si potrebbero anche inserire i numeri che precedono l'uscita del numero ottenuto? Spie al contrario.
In pratica trovare la statistica del metodo nel continuo.
la data di partenza inizio ricerca potrebbe essere scelta da noi con un input box?


la diseguaglianza delle probabilità potrebbe essere un ulteriore suggerimento.


spero di essere stato sufficientemente esaustivo altrimenti sono qui.

se invece anche questo tipo di ricerca è già implementata mi scuso per la richiesta.

P.S
mi è venuto in mente tutto questo leggendo (e sperando di aver assimilato correttamente) i post sui sistemi virtuali che studiano e cambiano le ambate
ad ogni estrazione utilizzando sempre lo stesso sommativo. tutto ciò Vorrebbe essere una via di mezzo delle due statistiche ottenute.
studiare il ritardo di un sistema virtuale con range diversi. non la singola estrazione ma un range da noi scelto.
se non ho compreso il concetto dei sistemi virtuali non me ne vogliano gli esperti che gentilmente hanno condiviso le loro teorie,e i loro studi.

Cordiali saluti

I Legend

 

[LuigiB]

ciao fare lo script è certamente possibile , ora io non è che ognuno che fa la richiesta di uno script lo assecondo anche perche oltre a me ci sono altri bravi scripter
che possono aiutare , tuttavia ogni tanto intervengo. Lo faccio o quando il metodo proposto mi solletica la fantasia o quando vedo che l'utente che lo ha chiesto è disposto ad imparare come si fa.
Ora di te vedo che ti interessi anche se minimamente di programmazione , è quanto basta per approcciare agli script il resto dell'esperienza naturalmente verrà esercitandosi .
Lo script che proponi non è difficile ma nemmeno semplicissimo piu che altro richiede il calcolo di diversi parametri , ora ho letto sommariamente per sistemi virutali che si intende ? La statistica sugli archivi L1 L2 ec ecc ?
Comunque leggero il tutto con piu attenzione e se ancora nessuno lo ha fatto cercherò di aiutarti sperando di seminare bene..

ciao

 

[i legend]

ciao LuigiB, l'interesse è tantissimo la conoscenza purtroppo è minima.
La voglia d'imparare? è come respirare non se ne può fare a meno.
Ho visto che su spaziometria c'è una guida html sugli script,fsarà la fonte dei miei studi.
Per quanto riguarda i sistemi virtuali ho inteso che sono basati su piu archivi, di cui uno reale e gli altri ottenuti da quest'ultimo sommando
dei numeri primi.Ad ogni estrazione viene sommato lo stesso fisso e si costruisce una statistica sui ritardi (r1= ritardo a ruota; r2=ritardo a tutte,r3 = ritardo su più archivi.)
Ora anzicchè impostare la statistica su ogni estrazione, per me sarebbe importante valutare ogni ciclo.

Esempio
Data una tale condizione filtro n casi( solitamente mai più di 15)
trovo due metodi che mi danno copertura al100% nei n casi-1
ora i due metodi sono legati solo ed esclusivamente alla mia ricerca pertanto non posso cambiarli ad ogni estrazione,
ma saranno vincolati all'ultimo caso rilevato.
ora eseguendo un ciclo n costruirò la mia statistica.
posto la mia ultima ricerca.


L'elemento E4 ha già dato riscontro positivo, ma tutti gli elementi hanno la stessa identica percentuale successo.
l'82 è stato selezionato in base ai criteri su detti.
La mia intenzione(intuizione?) è quella di creare un sistema per ogni metodo quindi magari 6 oppure solo 3 (una singola terzina) per studiare il maggior accumulo di ritardo r3 nei tot cicli e selezionare l'ambata in base ai criteri dei sistemi virtuali. che ad onor del vero devo ancora comprendere nella sua totalità.E' un argomento molto interessante nonostante (o forse proprio per questo ) la sua complessità.
E' solo un idea .per verificarne la bontà bisogna studiarla e verificarla, e molto probabilmente limarla.Spero che intervengano i guru di tale disciplina ad illuminarci.

In tutto questo grazie per la tua disponibilità.

Cordiali saluti

I Legend

 

[LuigiB]

Da quanto ho capito lo script dovrebbe implementare piu metodi e far confluire i risultati pr una valutazione finale e in piu calcolare altri valori statistici.
Ora bisognerebbe scendere piu nel dettaglio , hai parlato di diversi metodi lo script deve ovviamente implementarne le regole quindi devi fare degli esempi
dall'immagine che hai postaot non si capisce molto

 

[i legend]

Ciao LuigiB, più tardi ti posto degli esempi più chiari di un immagine illeggibile.
Organizzo qualcosa di concreto per poterci studiare su.
ancora grazie mille

Cordiali saluti

I Legend

 

[i legend]

Buona giornata a tutti gli utenti

Ciao Luigi, spero che la dimensione di questa immagine risulti più leggibile.


Questa è un ipotesi di previsione .


Tutti i metodi hanno un riscontro pregresso del 100%


E1.E2.E3= Terzina per il gioco di ambo e terno


E4.E5.E6= Come sopra.


Le basi che utilizzo per svilupparli sono gli estratti semplici,
gli operatori sono (+),(-),(*)
i calcoli vengono svolti come se fosse un equazione.
le parentisi danno le indicazioni.
es
1) [(CA4-FI2)+(NA2)]+57.....=>[(48-10)+15]+57=20

2) (BA1+CA2+NA2+VE2)+38.....=>(53+36+15+7)+38=88


3) (NA2*RM1)+38 ............=>(15*54)+38=38




1)Fuori90{Fuori90[(abs(CA4-FI2)+15]+57}


2)Fuori90{Fuori90(BA1+CA2+NA2+VE2)+38}


3)Fuori90{Fuori90(NA2*RM1)+38}


Per quanto riguarda lo script, esso dovrebbe aiutarmi a filtrare tra i sei numeri derivati dai metodi ,


o tra i gruppi di tre se troppo pesante da analizzare la sestina, la previsione migliore per ambata.


Qualora fosse possibile magari confrontare ed analizzare tra le due anche la terzina per ambo, per restringere il gioco.









quindi la base è identica al modulo che già c'e in spaziometria,

in più c'e soltanto la statistica per estratto determinato,p1,p2,p3 ,p4,p5


e la diseguaglianza di cebjcev che ci dice ( non quando purtroppo) il picco massimo

del prossimo ritardo che avrà l'estratto o la combinazione.


ritardo al 75%= (Media dei ritardi escluso l'ultimo)+2*Dev.St(dei ritardi escluso l'ultimo)


ritardo al 88%= (Media dei ritardi escluso l'ultimo)+3*Dev.St(dei ritardi escluso l'ultimo)


ritardo al 93%= (Media dei ritardi escluso l'ultimo)+4*Dev.St(dei ritardi escluso l'ultimo)


ritardo al 96%= (Media dei ritardi escluso l'ultimo)+5*Dev.St(dei ritardi escluso l'ultimo)


Tutto tratto da wikipedia. Ma vado a memoria e spero di aver compreso bene la formula.




Spero che pe quanto riguarda i metodi mi sia spiegato chiaramente.

ora cerco di realizzare degli esempi per la parte che riguarda la ricerca per cicli.

l'idea c'è devo trovare un modo pe metterla su carta


Cordiali saluti

I Legend

 

[i legend]

ciao LuigiB ,ecco un esempio della ricerca nei cicli,ho scelto 9 estrazioni perchè corrispondono al range della mia ricerca.

Ultima data utile condizione è estrazione zero,la 10 estrazioni a ritroso diventa nuovamente l'estrazione zero ossia quella di calcolo

Quindi

ini =estrazione Iniziale da input box
fin= estrazione ultima data utile condizione da input box

che ne dici se provo tracciare il tutto in pseudo codifica?

dimmi se potrebbe essere utile.

Ancora grazie

Cordiali saluti

I Legend

 

[LuigiB]

come no magari .. sarebbe tutto molto piu chiaro , io vorrei in verità dare a te la possibilita di fare lo script , ti spiegerei i semplici mattoncini con degli esempi in modo che una volta che hai capito la logica con i mattoncini ci potrai costruire quello che vuoi.
In pratica l'ambiente di script dispone di una notevole quantita di funzioni precostituite specifiche per le necessita inerenti alla scrittura sdi codice per fare statistiche sul gioco del lotto o anche altri giochi, il linguaggio di base è il vbscript , l'insieme tra vbscript e tutte le funzioni che spaziometria offre per la scrittura del codice viene definito SpazioScript


inizio con una semplice infarinatura.
Questo script legge le estrazioni della ruota di bari

Option Explicit
Sub Main
	' queste sono variabili
	Dim idEstr,Ruota
	Dim Inizio,Fine
	Dim sRiga
	Dim e
	' le variabili vengono valorizzate
	Inizio = EstrazioneIni ' è valorizzata con il range impostato nel programma barra rosa in basso
	Fine = EstrazioneFin ' valorizzata con il range impostato nel programma barra rosa In basso
	Ruota = BA_ ' imposto la ruota
	
	' faccio un ciclo per leggere tutte le estrazioni del range previsto
	For idEstr = Inizio To Fine 
		 
		' costruisco la riga da scrivere in output
		sRiga = GetInfoEstrazione(idEstr) & " - "
		For e = 1 To 5 ' ciclo per leggere i 5 estratti
			sRiga = sRiga & Estratto(idEstr,Ruota,e) & " " ' mano mano la stringa si costruisce 
		Next
		Call Scrivi(sRiga) ' scrive la riga in output
		Call AvanzamentoElab(Inizio,Fine,idEstr) ' mestione della progressbar dell'avanzamento
		If ScriptInterrotto Then Exit For ' gestione dell'uscita forzata
	Next
End Sub

in quest'altro script si elencano i ritarid per estratto su bari

Option Explicit
Sub Main
	' queste sono variabili
	Dim idEstr,Ruota
	Dim Fine
	Dim sRiga
	Dim SorteAnalizzata
	Dim n
	' le variabili vengono valorizzate
	 
	Fine = EstrazioneFin ' valorizzata con il range impostato nel programma barra rosa In basso
	Ruota = BA_ ' imposto la ruota
	SorteAnalizzata = 1 ' analizzo estratto
	
	' preparo un vettore che contien le ruote su cui agisce la statistica , in questo caso una sola ruota
	ReDim aRuote(1)
	aRuote(1) = BA_ ' imposto la ruota di bari per la statistica
	
	ReDim aNumeri(1) ' preparo un vettore da un elemento per fare la statistica degli estratti
	
	' faccio un ciclo per tutti i 90 numeri
	For n = 1 To 90
		
		aNumeri(1) = n  ' imposto il numero da analizzare

		sRiga = " Numero " & n & " Ritardo : " & RitardoCombinazione( aRuote, aNumeri,1  , Fine) ' costruisco la riga di output
		
		Call Scrivi (sRiga) ' scrivo in output
		
	Next
End Sub

ora questi sono esempi molto semplici che servono per darti un 'infarinatura , si possono fare cose molto piu complesse.
Prova a capire come funzionano e a vedere se ti trovi. ciao

 

[i legend]

ciao Luigi, grazie mille, per la tua cortesia.

Ora studio gli esempi che mi hai postato e metto giù qualche idea.

Ciao e buona serata.

 

[i legend]

Buona giornata a tutti

Luigi mi scuso per l'assenza,e per la pseudo codifica che ti invio,
oltre gli errori consueti sicuramente ci saranno orrori di metodo,
ed è proprio questo che vorrei imparare.
ad esempio imparare ad utilizzare i blocchi i contatori e dove è meglio collocarli.

grazie per la tua pazienza.

excusatio non petita ,accusatio manifesta?

bhe si è proprio cosi



Ti spiego il filo che ho seguito

1) mi sono chiesto cosa voglio?
2) per capirmi ho creato l'immagine
3)in base a questo ho cercato di costruire lo script in pseudoCodifica

4) sono riuscito a scrivere l'intestazione della tabella,Riempirla sara uno dei passi successivi.
5) in base al codice che mi hai dato tu il primo inserendo uno step sono riuscito a scrivere le estrazioni a passo 10 partendo dall'ultima e andando a ritroso
cosi posso utilizzare gli elemti per costruire E1,E2,E3 che sono i metodi.

 Option Explicit

Sub Main  '           qui scrivo tutto il codice


'blocco dichiarazione Variabili


Dim sAnalizza_Met,sAnalizza_Ult_Pron,sAna_1E,sAna_2E,sAna_3E,sSing_E  'queste sono le variabili di scelta
Dim aRuote(12)                                                        '  costruisco l'array delle ruote 
									'  che in seguito posso ridimensionare?


Dim  idEstr ,nEstr ,nUlt_Estr,nVal_Form    ' rispettivamente: numero di estrazioni da esaminare,num Estrazione inizio
				  ' ricerca, numero di default


Dim nEst_Cic                      ' numero di estrazioni da ciclare ,
		        	  'il numero dei cicli=Estrazioni Tot/nEst_Cic




Dim j,k,l,m,n                      ' variabili contatori per i cicli for che dovrò effettuare


Dim p,p1,p2,p3,p4,p5               ' variabili posizioni
Dim E1,E2,E3                       'variabili metodo




  'ora costruisco gli input box per la ricerca che voglio effettuare


'in questo blocco  ottengo i primi Dati da analizzare


input_box1  scegli il tipo di ricerca


	If input_box1= 1 Then
		input_Box1_1=scegli se analizzare 1,2,3  elementi
			If input_Box1_1=1 Then
				Analizza elemento E1(metodo)
				    ElseIf input_Box1_1=2 Then
					analizza elemento E1(metodo) ed E2(metodo)
						Else
						    analizza elemento (E1,E2,E3)metodo
	End If	' posso mettere qui la chiusura if?


		Else
		analizza(E1,E2,E3)Valori
         End If


' In questo blocco decido dove effettuare la ricerca
	
input_Box2  scegli dove effettuare la ricerca
  If input_Box2= "Ruota x Ruota" Then


	For  k =1 To 11			' ciclo ruota per ruota
		For p =1 To 5  			' ciclo tutte le posizioni
		    Calcola Estratto(nEstr,aRuote(),p)  ' funzione per calcolare l'estratto
		Next p
	Next k


End If


' sceglie il numero totale di estrazioni su cui effettuare l'analesi


 input_Box3   


nEst=input_Box3




'input_Box4


       If input_Box4=Val(numero) Then
		nUlt_Estr=input_Box4
                    Else
			nUlt_Estr=prende il valore dal form
		End If


'input_Box5
	questo mi dice dove ricercare i valori per i calcoli e i range di riscontro
	nEst_Cic=Input_Box5
For k= nUlt_Estr To nUlt_Estr- nEst Step -nEst_Cic


	'qui ricerco i valori per ottenere i valori che mi daranno E1,E2,E3
           For idEstr= nEst To nUlt_Estr
		a=Estratto(idEstr,aRuote(3),p5)
		
b=Estratto(idEstr,aRuote(4),p2)
c=Estratto(idEstr,aRuote(5),p1)


E1=Fuori90(a+b+c)


cosi anche per E2 ed E3
Next k
Next  idEstr
' qui scrivo la tabella
Tabella(22)            ' 23 elementi con le voci d'intestazione
tabella(1)="Metodo"
Tabella(2)="Ruota"
ecc...ecc


Call tabella


Call Scrivi Tabella


Function  per calcolare frequenza
Function per calcolare  rit
' eccc.....
'per calcolare i ritardi devo inizializzare una contatore a zero e per ogni riscontro positivo
'poi incrementare di uno
'conta=conta+1


End Sub


'In questo blocco scrivere tutte le funzioni che occorrono se non dovessero essere già presenti

Spero non ti venga mal di testa.

Grazie mille

cordiali saluti

I Legend

 

[i legend]

Ciao Luigi,
un piccolo passo................
Intestazione Tabella

Option ExplicitSub Main




ReDim at(24)


        at(0)="Metodo"
	at(1) = "Numero"
	at(2) = "Ruota"
	at(3) = "Freq._T"
	at(4) = "Freq_R "
	at(5) = "Freq_R-Freq_T"
	at(6) = "Freq_R/Freq_T"
	at(7) = "P1"
	at(8) = "P2"
	at(9) = "P3"
	at(10) = "P4"
	at(11) = "P5"
	at(12) = "Rc_A"
	at(13) = "Rc_S"
	at(14) = "Inc_MaxRc_S"
	at(15) = "Rc_A-RcS"
	at(16) = "Rp1"
	at(17) = "Rp2"
	at(18) = "Rp3"
	at(19) = "I.C"
	at(20) = "Media_Rit"
	at(21) = "Dev.ST(Rit)"
	at(22)="Proi.75%"
        at(23)="Proi.88%"
        at(24)="Proi.93%"
	Call InitTabella(at)


Call CreaTabella


End Sub

spero che la tua pazienza sia direttamente proporzionale alla tua voglia d'insegnare

Cordiali saluti

I Legend

 

[Joe91]

Ciao i legend,

seguo, questi sviluppi, interessato a come verranno

considerati e ed uilizzti i risultati in funzione della Deviazione Standard.

Buon proseguimento.

 

[i legend]

Ciao Joe91, come ho cercato di spiegare prima, la deviazione standard mi occorre per stabilire le previsioni dei limiti massimi che può raggiungere un ritardo.

La formula e' semplice ed ho riscontrato che per gli ambi in terzina su tutte mi aiuta a scremare i miei risultati.

La diseguaglianza di cebicev di cui sopra ci dice che un determinato evento (nel nostro caso una determinata formazione estratto ambo ecc) potrà ripetersi probabilmente entro un certo range.

l'unico neo è che non ci è dato sapere quando questo accadrà. E' molto utile per i ritardatari, quanto meno per affrontare il gioco con la dovuta progressione,e,per essere coscienti di quello a cui si va incontro.

Se hai altri suggerimenti riguardo la dev.st(), sono ben accetti. Più punti di vista possono fare la differenza tra un fiasco e un successo.

Per quanto riguarda lo script, sto studiando quelli di Luigi, quelli di mike, i tuoi e altri, il forum è ricco di spunti.
Vorrei imparare il metodo.
esempio per la sintassi italiana abbiamo
soggetto-verbo-complemento -> A.b.c
Subordinata principale, subordinata secondaria -> un gradino più in su.

Penso che per una buona programmazione sia importante il modo di pensare(cervello) e fare le cose nell'ordine giusto(regole).

Cordiali saluti
I Legend

 

[LuigiB]

ciao Ilegend , ho letto lo pseudocodice e continuo con i miei mattoncini
mirati alle cose che mi sembra tu voglia fare.

in questo esempio vediamo come si deve costruire uno script che propone una scelta all'utente
in base a quella fare una cosa o l'altra , analizzalo dimmi se ti trovi , poi passiamo agli altri problemi
Come vedi abbiamo fatto largo uso di sub e function
in tutti gli script c'è una sub che non manca mai la Sub Main
questa è la routine principale che viene richiamata per prima.
Suddividere il codice in piu sub e function consente una separazione logica migliore
e da luogo ad uno script piu elegante ed ordinato, facile da capire
Ogni sub o function ha un compito specifico e viene richiamata all'occorrenza.
Mentre le sub eseguono solo delle istruzioni le function oltre ad esegire delle
istruzioni possono pure tornare un valore , come vediamo nell'esempio.

io tra uno script e l'altro faccio pure un po' di teoria ..
fammi sapere ..

Option Explicit
Sub Main
	' in questo script vediamo come è possibile proporre una scelta
	' da menu a tendina 
	' in base alla scelta fatta lo script fara una certa cosa
	
	Dim TipoScelta  ' variabile che memorizza la scelta fatta
	
	' valorizzo la variabile con il risultato della funzione che
	' consente all'utente di fare una scelta
	TipoScelta = GetTipoScelta 
	
	' valuto la scelta fatta
	Select Case TipoScelta
	
	Case 1
		Call Metodo1
	Case 2
		Call Metodo2
	Case 3
		Call Metodo3
	Case Else
		Scrivi "Nessuan scelta"
	End Select
	
End Sub

Function GetTipoScelta 
	
	' questa funzione propone un menu a tendina per eseguire una scelta
	' le voci del meu si preparano tramite un vettore che puo 
	' essere alimentato coem si vuole in questo caso 3 elementi
	ReDim aVoci (3)
	aVoci (1) = "Scelta 1"
	aVoci (2) = "Scelta 2"
	aVoci (3) = "Scelta 3"
	
	' mostro la finestra col menu a tendina , mi ritorna un indice da 1 a 3
	' che indica la scelta fatta
	GetTipoScelta  = ScegliOpzioneMenu( aVoci ,1 , "Scegli metodo")
	
End Function

Sub Metodo1
	' codice del metodo 1 
	Scrivi "Scelta 1"
End Sub 
Sub Metodo2
	' codice del metodo 2 

	Scrivi "Scelta 1"
End Sub 
Sub Metodo3
	' codice del metodo 3 

	Scrivi "Scelta 1"
End Sub

in questo altro script che tra l'altro è presente nella directory script\test che avrai anche tu dopo l'installazione
vediam ocome i usa una tabella

Sub Main
	
	ReDim aTitoli(3) ' titoli tabella
	Dim k ' controllo cicli
	Dim rt ' ruota
	Dim idEstr 'estrazione inizio analisi
	
	
	' imposto l'estrazione sull'ultima disponibile
	idEstr = EstrazioniArchivio
	
	
	' faccio scorrere un testo che indica da quale estrazione parte l'analisi
	Call TestoInBandaPassante("Ritardo dei numeri all'estrazione " & GetInfoEstrazione(idEstr))
	
	
	
	
	' preimposto i titoli delle colonne
	aTitoli(1) = "Numero"
	aTitoli(2) = "Ruota"
	aTitoli(3) = "Ritardo"

	' inizializzo la tabella
	Call InitTabella(aTitoli,1,,,5)

	' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri	
	' mano mano aggiungo una nuova riga alla tabella


	For rt = 1 To 10 ' ciclo ruote
		For k = 1 To 90 ' ciclo numeri
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(3) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
			aValori(1) = Format2(k) ' numero
			aValori(2) = NomeRuota(rt) ' nome ruota
			aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
			
			' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
			If aValori(3) >= 0 And aValori(3) <= 30 Then
				Call AddRigaTabella(aValori,Verde_,"right")
			ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
				Call AddRigaTabella(aValori,Giallo_,"right")
			
			ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
				Call AddRigaTabella(aValori,Magenta_,"right")
			ElseIf aValori(3) > 80 Then
				Call AddRigaTabella(aValori,Rosso_,"right")
				Call SetColoreCella(3,vbYellow,vbRed)
				
			End If
			

		Next
	Next		
	
	' ora che ho terminato l'analisi e ho finito di accodare le righe
	' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
	
	'Call CreaTabella(3,,,,1) ' alimenta da sinistra a destra
	Call CreaTabella(3) ' alimenta dall'alto in basso
	
	

	
	
End Sub

 

[Mike58]

Per quanto riguarda lo script, sto studiando quelli di Luigi, quelli di mike, i tuoi e altri, il forum è ricco di spunti.

Visto che i legend sta da poco addentrandosi nell'approccio script con buona volontà(cosi come ho fatto io Buona Volontà) e appunto oggi sono anche copiato ad esempio, io ti posto lo script tuo iniziato ancora da completare con i tuoi meccanismi ma altri già elaborati.

Cosi da rendere + facile il percorso apprenditivo.

Ciao io sono quasi da pensione e c'è bisogno di nuove leve.

'Option Explicit
Sub Main
	Dim nu(1),ru(1),aretrit
	Ini = EstrazioneFin - 200
	fin = EstrazioneFin
	r = 1
	ru(1) = r
	ReDim at(24)
	at(0) = "Metodo"
	at(1) = "Numero"
	at(2) = "Ruota"
	at(3) = "Freq._T"
	at(4) = "Freq_R "
	at(5) = "Freq_R-Freq_T"
	at(6) = "Freq_R/Freq_T"
	at(7) = "P1"
	at(8) = "P2"
	at(9) = "P3"
	at(10) = "P4"
	at(11) = "P5"
	at(12) = "Rc_A"
	at(13) = "Rc_S"
	at(14) = "Inc_MaxRc_S"
	at(15) = "Rc_A-RcS"
	at(16) = "Rp1"
	at(17) = "Rp2"
	at(18) = "Rp3"
	at(19) = "I.C"
	at(20) = "Media_Rit"
	at(21) = "Dev.ST(Rit)"
	at(22) = "Proi.75%"
	at(23) = "Proi.88%"
	at(24) = "Proi.93%"
	Call InitTabella(at,2,,2,5)
	For x = 1 To 90
		nu(1) = x
		Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre,Ini,fin)
		'------- calcolo ritardi precedenti------------
		'For q = 1 To UBound(num)
		ReDim rp(4)
		Inizio = EstrazioneIni
		fine = EstrazioneFin
		somrit = 0
		For z = 1 To 4
			rp(z) = SerieRitardoTurbo(Inizio,fine,nu,ru,1)
			fine = fine -(rp(z) + 1)
			somrit = somrit + rp(z)
			Medrit = Int(somrit/z)
		Next
		'Next
		' fine calcolo----------------------------------
		ReDim att(24)
		att(1) = x
		att(2) = SiglaRuota(r)
		att(3) = Round((fin - Ini)/18,2)
		att(4) = fre
		att(5) = Round(fre - att(3),2)
		att(6) = Round(fre/att(3),2)
		att(7) = RitDiPos(nu,1,ru)
		att(8) = RitDiPos(nu,2,ru)
		att(9) = RitDiPos(nu,3,ru)
		att(10) = RitDiPos(nu,4,ru)
		att(11) = RitDiPos(nu,5,ru)
		att(12) = rit
		att(13) = max
		att(14) = Incr
		att(15) = rit - max
		att(16) = rp(2)
		att(17) = rp(3)
		att(18) = rp(4)
		att(19) = "I.C"
		att(20) = "Media_Rit"
		att(21) = "Dev.ST(Rit)"
		att(22) = "Proi.75%"
		att(23) = "Proi.88%"
		att(24) = "Proi.93%"
		Call AddRigaTabella(att,,,2)
		For xy = 7 To 11
		Call SetColoreCella((xy),4,0)
		Next
		For yy = 16 To 18
		Call SetColoreCella((yy),3,0)
		Next
		If Incr > 0 Then Call SetColoreCella(14,2,4)
	Next
	Call SetTableWidth("100%")
	Call CreaTabella
End Sub
Function RitDiPos(nu,pos,ru)
	ReDim apos(5)
	ReDim aruota(1)
	ReDim anum(1)
	anum(1) = nu
	apos(pos) = True
	aruota(1) = r
	RitDiPos = RitardoCombinazione(ru,nu,1,0,apos)
End Function

 

[i legend]

Ciao Luigi grazie per la spiegazione e la teoria.
E' proprio quello a cui accennavo sopra, il metodo per realizzare un buon codice.
Quindi se ho ben capito è come risolvere un problema di matematica?
se voglio trovare la soluzione al mio quesito devo trovare tutte le incognite della formula che mi occorrono per risolverlo.
Quindi per ogni incognita avrò delle sub(interrogazioni), e delle funzioni (operazioni)per risolvere queste sub.

la sub main è il procedimento (metto in ordine le sub )

Sei stato chiarissimo, grazie.

il secondo esempio di codice o molto simile l'ho trovato fra i vari esempi nelle cartelle.

ora assimilo e cercherò di "scriptare "qualcosa che non faccia venire il mal di testa per lunedì.

Domenica dedicata alla famiglia.

Ne approfitto per augurarti una buona e serena domenica.

Buona domenica a tutto il forum

Cordiali saluti

I Legend

 

[LuigiB]

si diciamo che è cosi , il problema va prima analizzato provarlo a scomporre in pezzi piu piccoli e in questo scrivere piu routine puo essere d'aiuto.
Nella directory test è pieno di script che possono esserti utili a capire
ciao

 

[LuigiB]

Ciao io sono quasi da pensione e c'è bisogno di nuove leve.


[/CODE]

ti piacerebeb andare in pensiione eh .. .. ma non lo sai che la legge fornero tocca pure gli scripter ...-)

 

[i legend]

Ciao mike, ne approfitto per salutare ed augurare buona domenica anche a te,
prima quando ho postato non avevo visto il tuo.
Ti ringrazio per l'esempio, sto già studiando i tuoi script . ho notato che piacciono anche a te tanto le tabelle.
Credo che Luigi abbia ragione, è sempre sicuramente troppo presto per la pensione.

ancora grazie mille

X Luigi
La directory test e metodi diventeranno i miei "10 piccoli indiani".
Ancora grazie mille anche a te


Cordiali saluti

I Legend

 

[i legend]

Ciao Mike ho lanciato lo script, praticamente mi hai dato una grandissima spinta, ora dove tu hai fatto il ciclo da 1 a 90

io dovrò trovare il codice corretto per fargli analizzare quello che mi serve.Allora ora ho i codici di Luigi per i menu a tendina , in base a quello che scrivo in questo blocco, potrò far fare al tuo script una qualsiasi ricerca. grazie mille.


Tanta carne sul fuoco, devo assimilare e capire per bene.
Grazie

Cordiali saluti

I Legend

P.S:

Studiando i vari codici a cui faceva riferimento Luigi ho trovato uno script molto complesso, che ordinava anche la tabella,
non ricordo il titolo, ma potrebbe tornare utile utilizzare quella funzione anche qui ,magari con un menu a tendina in base alla colonna che vogliamo valorizzare. lo cerco è lo studio con attenzione .I passaggi che non capisco magari chiedo chiarimenti.

Ciao