Per LuigiB da rubino e abasul

abasul · 6 Giugno 2011

errore

miki55 · 7 Giugno 2011

ciao abasul, prima di tutto mi complimento
con te e rubino per il lavoro svolto per tutti noi,
però anche per capire meglio la logica del
procedimento, volevo chiederti,

- una volta scelta la formazione da porre in gioco,
dove bisogna trovare il RITARDO FUTURO da inserire
nel riquadro di qualsiasi formazione?

- dobbiamo fare calcoli preventivi?
- se è così fosse ci spieghi quali sono facendo con un esempio reale?

grazie per la risposta

Roby · 7 Giugno 2011

il precedente script "postato", contiene degli errori,
questo, essendo sempre una bozza attualmente,</u>

è comunque aggiornato e corretto, in attesa che emergano altre difformità.

Codice:

Sub Main
	''''-------------------------------------------------------------------------------------------
	''''scelta combinazioni dall'ambo secco alla decina x ambo    ABASULmultiAmbo
	''''-------------------------------------------------------------------------------------------
	ReDim aVoci(10)
	ReDim aVociSel(10)
	Dim k
	Dim numeri
	Dim LenghtcicloT
	For k = 0 To 10
	If k < 2 Then	aVoci(k) = "----"
	If k = 2 Then	aVoci(k) = "Ambo"
	If k = 3 Then	aVoci(k) = "Terzina"
	If k = 4 Then	aVoci(k) = "Quartina"
	If k = 5 Then	aVoci(k) = "Cinquina"
	If k = 6 Then	aVoci(k) = "Sestina"
	If k = 7 Then	aVoci(k) = "Settina"
	If k = 8 Then	aVoci(k) = "Ottina"
	If k = 9 Then	aVoci(k) = "Novina"
	If k = 10 Then	aVoci(k) = "Decina"
	Next
	
	If ScegliDaLista(aVoci,aVociSel) > 0 Then	
		For k = 2 To 10
			If aVociSel(k) Then
		
	Do While numeri = ""
		numeri = InputBox("inserire " & k & "   numeri suddivisi da virgola ",,"")
						ReDim av2(0)
					Call SplitByChar(numeri,",",av2)
		qta = UBound(av2) + 1
		
		If numeri = "" Or qta <> k Then
			MsgBox("Mancano numeri o numeri errati  " & qta & "  " & k & "...." & numeri)
			numeri = ""
		Else
			Exit Do
		End If
	Loop	
			If k = 2 Then LenghtcicloT = 400.5
			If k = 3 Then LenghtcicloT = 136.6046511628
			If k = 4 Then LenghtcicloT = 69.8998768978
			If k = 5 Then LenghtcicloT = 42.9265011828
			If k = 6 Then LenghtcicloT = 28.7918133849
			If k = 7 Then LenghtcicloT = 20.9186742695
			If k = 8 Then LenghtcicloT = 15.9462278131
			If k = 9 Then LenghtcicloT = 12.596876878
			If k = 10 Then LenghtcicloT = 10.2283345991
			Call Scrivi(aVoci(k))
			Call Scrivi(numeri)
			End If
		Next
	End If
	
	
'''''	-----------------------------------------------------------------------------------------------------------------------------
		
	'''abasul10
	Dim sfile
	Dim records
	Dim art(1)
	Dim dif(2000)
	Dim num(10)
	Dim anum(10)
	Dim t
	Dim t2
	Dim Media
	r = InputBox("Inserire Ruota ",,1)
	capo = numeri

	Do While futuroins = ""
		futuroins = InputBox("Inserire Ritardo Futuro..",,"")
		If futuroins = "" Then
			MsgBox("Manca valore ritardo futuro")
		Else
			Exit Do
		End If
	Loop
	ReDim av2(0)
	Call SplitByChar(numeri,",",av2)
	qta = UBound(av2) + 1
	For i = 0 To qta - 1
	fs = i + 1
	num(fs) = av2(i)
	anum(fs) = av2(i)
	Next
	'''preimposta inizio estrazioni per ruote nate recentemente
	''' per nazionale imposta dal conc.n. 7440
	dal = 1 ' inizio tutte le altre ruote
	If r = 12 Then dal = 7440 'inizio nazionale
	If r = 1 Then dal = 174 'inizio bari
	If r = 2 Then dal = 3649 'inizio cagliari
	If r = 4 Then dal = 3577 'inizio genova
	ReDim asvil(2000)
	art(1) = r
	ctr = 0
	Iniz = dal
	ini = dal
	al = Iniz - 1
	ciclicompleti =(EstrazioneFin - dal)/LenghtcicloT
	parziale = Int(ciclicompleti)*LenghtcicloT
	intermed =((EstrazioneFin - dal) - parziale) + 1
	Call Messaggio(NomeRuota(r) & "...Elabora Combinazione richiesta...." & capo)
	
	tq = 0
	ReDim atitoli(7)
	' preimposto i titoli delle colonne
	atitoli(1) = " Riferimenti estraz.passato "
	atitoli(2) = " Ritardo "
	atitoli(3) = " Totale Ritardo "
	atitoli(4) = " Media Ritardo "
	atitoli(5) = " scarto md.quadratico "
	atitoli(6) = " Diff.smdq Prec."
	atitoli(7) = " Es."
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	For Ini = Ini + 1 To EstrazioneFin
		ok = 0
		estratti = ""
		des2 = ""
		des1 = ""
		rambo = ""
		Call AvanzamentoElab(1,EstrazioneFin,ini)
		' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
		ReDim aValori(7) '	
			For h = 1 To 5
				For fr = 1 To 10
				If Int(num(fr)) > 0 And Int(num(fr)) = Estratto(Ini,r,h) Then
					ok = ok + 1
					des2 = des2 & Format2(Estratto(Ini,r,h))

keeper · 7 Giugno 2011

mamma mia che avete creato

Zagor · 7 Giugno 2011

quote:Originally posted by miki55

ciao abasul, prima di tutto mi complimento
con te e rubino per il lavoro svolto per tutti noi,
però anche per capire meglio la logica del
procedimento, volevo chiederti,

- una volta scelta la formazione da porre in gioco,
dove bisogna trovare il RITARDO FUTURO da inserire
nel riquadro di qualsiasi formazione?

- dobbiamo fare calcoli preventivi?
- se è così fosse ci spieghi quali sono facendo con un esempio reale?

grazie per la risposta

Richiedo cortesemente anche io , qual'è il valore del ritardo futuro da immettere.
Come lo si estrapola , magari potreste farci qualche esempio.

Un saluto e buona giornata.

Mauro

"Non datemi un pesce , ma insegnatemi a pescare"

LuigiB · 7 Giugno 2011

ciao Abasul gli script servono proprio per consentire agli utenti piu
esperti di implementare le proprie idee ma è impensabile che ogni script
possa diventare una funzione intrinseca del programma senno non si finirebbe mai.

Roby · 7 Giugno 2011

quote:Originally posted by LuigiB

ciao Abasul gli script servono proprio per consentire agli utenti piu
esperti di implementare le proprie idee ma è impensabile che ogni script
possa diventare una funzione intrinseca del programma senno non si finirebbe mai.

QUOTO.ciao LUIGGIONE MACROSOFT....e' bello rileggerti ogni tanto,vuol dire che in fondo al tuo grande cuore non ti sei scordato di noi....anzi,ci riservi le ultime energie della giornata...Grazie !

SUERTE !!!!

LuigiB · 7 Giugno 2011

e si d'altra parte sono un sentimentale

mica posso abbndonare tutto cosi ...il tempo è poco ma un salto lo faccio ogni tanto.
Ciao !

Roby · 8 Giugno 2011

aggiornamento script:

con ultimi 10 ritardi per singolo estratto:</u>

mi sembra che sia tutto okey.

Codice:

Sub Main
	''''-------------------------------------------------------------------------------------------
	''''scelta combinazioni dall'ambo secco alla decina x ambo    ABASULmultiAmbo
	''''-------------------------------------------------------------------------------------------
	ReDim aVoci(10)
	ReDim aVociSel(10)
	Dim k
	Dim numeri
	Dim LenghtcicloT
	For k = 0 To 10
		If k < 2 Then	aVoci(k) = "----"
		If k = 2 Then	aVoci(k) = "Ambo"
		If k = 3 Then	aVoci(k) = "Terzina"
		If k = 4 Then	aVoci(k) = "Quartina"
		If k = 5 Then	aVoci(k) = "Cinquina"
		If k = 6 Then	aVoci(k) = "Sestina"
		If k = 7 Then	aVoci(k) = "Settina"
		If k = 8 Then	aVoci(k) = "Ottina"
		If k = 9 Then	aVoci(k) = "Novina"
		If k = 10 Then	aVoci(k) = "Decina"
	Next
	If ScegliDaLista(aVoci,aVociSel) > 0 Then
		For k = 2 To 10
			If aVociSel(k) Then
				Do While numeri = ""
					numeri = InputBox("inserire " & k & "   numeri suddivisi da virgola ",,"")
					ReDim av2(0)
					Call SplitByChar(numeri,",",av2)
					qta = UBound(av2) + 1
					If numeri = "" Or qta <> k Then
						MsgBox("Mancano numeri o numeri errati  " & qta & "  " & k & "...." & numeri)
						numeri = ""
					Else
						Exit Do
					End If
				Loop
				If k = 2 Then LenghtcicloT = 400.5
				If k = 3 Then LenghtcicloT = 136.6046511628
				If k = 4 Then LenghtcicloT = 69.8998768978
				If k = 5 Then LenghtcicloT = 42.9265011828
				If k = 6 Then LenghtcicloT = 28.7918133849
				If k = 7 Then LenghtcicloT = 20.9186742695
				If k = 8 Then LenghtcicloT = 15.9462278131
				If k = 9 Then LenghtcicloT = 12.596876878
				If k = 10 Then LenghtcicloT = 10.2283345991
				Call Scrivi(aVoci(k))
				Call Scrivi(numeri)
			End If
		Next
	End If
	'''''	-----------------------------------------------------------------------------------------------------------------------------
	'''abasul10
	Dim sfile
	Dim records
	Dim art(1)
	Dim dif(2000)
	Dim num(10)
	Dim anum(10)
	Dim t
	Dim t2
	Dim Media
	r = InputBox("Inserire Ruota ",,1)
	capo = numeri
	Do While futuroins = ""
		futuroins = InputBox("Inserire Ritardo Futuro..",,"")
		If futuroins = "" Then
			MsgBox("Manca valore ritardo futuro")
		Else
			Exit Do
		End If
	Loop
	ReDim av2(0)
	Call SplitByChar(numeri,",",av2)
	qta = UBound(av2) + 1
	For i = 0 To qta - 1
		fs = i + 1
		num(fs) = av2(i)
		anum(fs) = av2(i)
	Next
	'''preimposta inizio estrazioni per ruote nate recentemente
	''' per nazionale imposta dal conc.n. 7440
	dal = 1 ' inizio tutte le altre ruote
	If r = 12 Then dal = 7440 'inizio nazionale
	If r = 1 Then dal = 174 'inizio bari
	If r = 2 Then dal = 3649 'inizio cagliari
	If r = 4 Then dal = 3577 'inizio genova
	ReDim asvil(2000)
	art(1) = r
	ctr = 0
	Iniz = dal
	ini = dal
	al = Iniz - 1
	ciclicompleti =(EstrazioneFin - dal)/LenghtcicloT
	parziale = Int(ciclicompleti)*LenghtcicloT
	intermed =((EstrazioneFin - dal) - parziale) + 1
	Call Messaggio(NomeRuota(r) & "...Elabora Combinazione richiesta...." & capo)
	tq = 0
	ReDim atitoli(7)
	' preimposto i titoli delle colonne
	atitoli(1) = " Riferimenti estraz.passato "
	atitoli(2) = " Ritardo "
	atitoli(3) = " Totale Ritardo "
	atitoli(4) = " Media Ritardo "
	atitoli(5) = " scarto md.quadratico "
	atitoli(6) = " Diff.smdq Prec."
	atitoli(7) = " Es."
	' inizializzo la tabella
	Call InitTabella(atitoli,1,"center",2,5)
	Dim cx
	For Ini = Ini + 1 To EstrazioneFin
		ok = 0
		estratti = ""
		des2 = ""
		des1 = ""
		rambo = ""
		Call AvanzamentoElab(1,EstrazioneFin,ini)
		' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
		ReDim aValori(7) '
		For h = 1 To 5
			For fr = 1 To 10
				If Int(num(fr)) > 0 And Int(num(fr)) = Estratto(Ini,r,h) Then
					ok = ok + 1
					des2 = des2 & Format2(Estratto(Ini,r,h)) & " "
				End If
			Next
			estratti = estratti & Fo

Roby · 8 Giugno 2011

info da LUigi

se avessi la necessità di leggere una determinata tabella codificata
nella statistica formazioni, con uno script, si può ed è possibile?

come?

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!

LuigiB · 8 Giugno 2011

ciao Rubino no è una cosa che non si puo fare , per curiosita che tabella avresti dovuto leggere ?

Roby · 9 Giugno 2011

era solo per una prova.

Non è una richiesta è solo una info.

pensavo che, avendo a disposizione le tabelle che possono essere implementate dall'utente, o quelle generalmente standard, se ci fosse
qualcosa che permettesse di leggerle/a (come origine) di file ed elaborare in input come guida per una determinata elaborazione.

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!

Roby · 9 Giugno 2011

ciao LuigiB

quando lancio uno script, ormai lo preparo generalmente con un po di grafica, molto comoda come nelle tabelle.

quando si usa la funzione salva output dello script, però salva solo in formato testo il tutto.

non è possibile ribaltare il tutto creando un pdf o un file che contenga anche la parte preparata graficamente?????

anche se fosse un file che successivamente possa essere usato per creare a parte un pdf o usato come spooling per la stampante.?

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!

LuigiB · 9 Giugno 2011

Ciao , gia puoi farlo se disponi di una stampante virtuale
che crea file pdf , se non ce l'hai scarica pdfcreator
che è gratis da questa link

http://sourceforge.net/projects/pdf...tor 1.2.1/PDFCreator-1_2_1_setup.exe/download

poi clicca col desto sulla finestra dell'output e fai STAMPA , ovviamente seleziona la stampante pdf.

LuigiB · 9 Giugno 2011

non si compra , si scarica dalla link che ho messo , virtuale vol dire che invece di stampre su carta crea dei file tipo immagini formato tif o file pdf di solito ...

claudio8 · 9 Giugno 2011

grazie Luigi, ... da quando ho conosciuto te è sempre tutto gratis, pensa che adesso non pago neanche ai carabinieri

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

LuigiB · 9 Giugno 2011

ahahah quelli meglio che li paghi perche ci mettono n'attimo a venitte a prende

ehheh ! Ciao !

claudio8 · 9 Giugno 2011

Magari, un annetto di vacanza spese dello stato non sarebbe male, magari mi mi becco l'esilio a Caprera, sarebbe magnifico.

Sto vendendo la canna da pesca, sai se qualcuno è interessato, ho anche delle gomme usate, ti possono servire?

Ho provato la stampa ma le tabelle non vengono a colori.

LuigiB · 9 Giugno 2011

è vero hai ragione pero non posso fare nulla..

LuigiB · 10 Giugno 2011

ho visto che il carattere a differenza dello sfondo viene colorato percio al limite gestisci nello script pure il colore del carattere

Per LuigiB da rubino e abasul

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

LuigiB

Guest

Roby

Guest

LuigiB

Guest

Roby

Guest

Roby

Guest

LuigiB

Guest

Roby

Guest

Roby

Guest

LuigiB

Guest

LuigiB

Guest

Premium Member

LuigiB

Guest

Premium Member

LuigiB

Guest

LuigiB

Guest