SPAZIOMETRIA di Luigi e Baffoblu 15° POST

LuigiB · 13 Gennaio 2011

eh ... male !!! gli aggiornamenti servono ...

imported_n/a · 14 Gennaio 2011

ma se a me non funziona nulla eppure li faccio..

mahaa[B)]

LuigiB · 14 Gennaio 2011

dipende dal fatto che il programma è dotato di un anima intelligente e siccome ti ha riconosciuto ti punisce

imported_n/a · 14 Gennaio 2011

quote:Originally posted by LuigiB

dipende dal fatto che il programma è dotato di un anima intelligente e siccome ti ha riconosciuto ti punisce

claudio8 · 14 Gennaio 2011

X LUIGI

Mi puoi spiegare come posso intervenire per andare avanti con la possibilità di selezionare (con scegli opzioni menù)il tipo di calcolo da fare per la verifica del metodo sotto scriptato ?

'1° Script di Claudio su base e Rubino x "Dalla coppia alla doppia ambata"

Sub Main()

Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
Dim posta(2) ' posta in gioco (2) indica il numero di esse
Dim nm(2)

Dim aVoci(7) ' Inserire il tot. casi+1
Dim k(7)
Dim r

meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,2000) ' 2000
ruote(1) = ScegliRuota
r1 = ruote(1)
p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,3))

ruote(2) = ScegliRuota
r2 = ruote(2)

p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,1)

colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,5)

elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' serve a quanto richiesto
If elenco = 0 Then
stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
End If

posta(1) = 1 'da 1 a 5 x Ambata-cinquina e da 6 a 10 x estratto determinato
posta(2) = 3 '3 terno

Scrivi "_________________________________________________________________________________"
Scrivi " Dalla coppia di numeri UGUALI all' Ambata Edito da Rubino"
Scrivi " Metodologia e modifiche di Claudio8 "
Scrivi " Ricerca riferita al : || " & p & "° Estratto di " & NomeRuota(r1) & " e " & p2 & "° Estratto di " & NomeRuota(r2) & " || ",- 1,,6,2
Scrivi " Estrazioni analizzate " & Meno & " Verifica esito per n. " & colpi & " colpi - Trovati n. " & cg & " casi"
Scrivi "_________________________________________________________________________________"
Scrivi

ini = EstrazioneFin - meno
For es = ini To EstrazioneFin

AvanzamentoElab ini,fin,es 'disegna barra progressione
'azzera il numero di pronostici per questa estrazione

a = Estratto(es,r1,p)

a1 = Fuori90(a + 30)
a2 = Fuori90(a + 60)
a3 = Fuori90(a + 45)
b1 = Fuori90(b + 30)
b2 = Fuori90(b + 60)
b3 = Fuori90(b + 45)
ok = 0
b = Estratto(es,r2,p2)
If a = b Then '1 Or b = a2 Then
ok = ok + 1

'Scrivi "============================================================================================================"
Scrivi String(96,"=") & " Caso n°" & cg +1
ok = ok + 1

'Dim aVoci(7) ' Inserire il tot. casi+1
'aVoci(0)= "Somma elementi"
'aVoci(1)= "Compl/90 somma"
'aVoci(2)= "Diam/45 somma"
'aVoci(3)= "Diam/45 del 1°" '
'aVoci(4)= "Mancante terzina"
'aVoci(5)= "Diam/45 del 1°"
'aVoci(6)= "Diam/45 del 2°"

'aVoci(6)= "Ripetiz 1° Elem "
'aVoci(7)= "Ripetiz 2° Elem "
'aVoci(8)= "Diam/45 del 1°"

'Dim k(7)
' Dim r
'
' preparo un array per le voci
For k = 0 To UBound (aVoci)
aVoci(k) = " " & k

'aVoci(k) = " Testo sulla Scelta voce" & k
Next
' remmare alternativamente una delle 2 righe successive
r = ScegliOpzioneMenu (aVoci,0," ELENCO ALGORITMI ") 'cosi preimposto la selezione sulla Voce 2
'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
' in base alla scelta dell'utente si esegue il codice appropriato
Select Case r
Case - 1
c = Fuori90(a + b )
'MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna -1

Case 0
c = 90 - Fuori90(a + b)

Case 1

c = Fuori90(a + b + 45 )
Case 2
c = Diametrale (a )

Case 3
c = Diametrale ( b )

Case 4
c = 90 - a

Case 5
c = 90 - b

End Select

'c = Fuori90(a + b)

Scrivi "Trovato --> " & p & " " & NomeRuota(r1) & " " & a & " e " & p2 & " " & NomeRuota(r2) & " " & b & " <--

LuigiB · 14 Gennaio 2011

Cla come si fa si capisce dagli esempi ..che c'è che non ti è chiaro ?

imported_n/a · 14 Gennaio 2011

credevo che era un sito diverso dagli altri

ma vedo che qui non cè affatto collaborazione

un programma non utilizzabile

il programmatore non propenso ad risolvere il problema

spirito umoristico che non capisco

sembra una silo nido

con tanti bambini

cerchero' altrove

l'armonia virtuale di una comunità lotto

perchè qui oltre essere assente non si ha la capacità

a trovarla.
Disinstallo il programma anche perchè non serve a nulla.
Addio.

n.b.
ogni commento successivo risparmiatevelo che nemmeno lo leggo
se poi diverte ed appaga il vostro inconscio soddisfando la vostra anima
allora vi prego postate rispondete a questa mia replica assolutamente.

LuigiB · 14 Gennaio 2011

Ecco bravo disinstallalo e usa il tuo ! Ciao Ciao

claudio8 · 14 Gennaio 2011

x Luigi, provo a rivedere il tutto, ma ho qualche dubbio di riuscirci,
mi si blocca alle voci e da li non esce più.
Ciao

claudio

HO RISOLTO LA GRAN PARTE
alla prossima
ciao

elephantbig · 14 Gennaio 2011

Addio DUMBO,che peccato che ci lasci !!!!

Sentiremo la tua mancanza.

Sopratutto per tutto quello che ci hai dato.

PS. Dumbo, sappi che il modo di esprimersi e sopratutto di scrivere è
come le impronte digitali.Sono uniche

claudio8 · 14 Gennaio 2011

quote:Originally posted by elephantbig

Addio DUMBO,che peccato che ci lasci !!!!
Sentiremo la tua mancanza.
Sopratutto per tutto quello che ci hai dato.

PS. Dumbo, sappi che il modo di esprimersi e sopratutto di scrivere è
come le impronte digitali.Sono uniche

APPROVO, MA non diamogli occasione di farlo tornare sui suoi passi.

claudio

scoglio2 · 14 Gennaio 2011

quote:Originally posted by claudio8

quote:Originally posted by elephantbig

Addio DUMBO,che peccato che ci lasci !!!!
Sentiremo la tua mancanza.
Sopratutto per tutto quello che ci hai dato.

PS. Dumbo, sappi che il modo di esprimersi e sopratutto di scrivere è
come le impronte digitali.Sono uniche

Clicca per espandere...

APPROVO, MA non diamogli occasione di farlo tornare sui suoi passi.

claudio

torneraaa torneraa l'erba cattiva cresce sempre

pico2005 · 14 Gennaio 2011

Claudio è quello che cercavi? Scusa la 2a correzzione ma ne occorre qualcun'altra a più tardi

Codice:

Sub Main()

Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
Dim posta(2) ' posta in gioco (2) indica il numero di esse
Dim nm(2)
Dim ini
Dim aVoci(7) ' Inserire il tot. casi+1
Dim k(7)
Dim r


meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,200) 
ruote(1) = ScegliRuota
r1 = ruote(1)
p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,3))	

ruote(2) = ScegliRuota
r2 = ruote(2)	

p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,1)

colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,5)

elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' serve a quanto richiesto
	If elenco = 0 Then
	stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
	End If

		'aVoci(6)= "Ripetiz 1° Elem "
		'aVoci(7)= "Ripetiz 2° Elem "
		'aVoci(8)= "Diam/45 del 1°"

		r = InputBox("Somma elementi   = 0" & Chr(13) & "Compl/90 somma   = 1" & Chr(13) & "Diam/45 somma    = 2" & Chr(13) & "Compl/90 del 2°  = 3" & Chr(13) & "Compl/90 del 1°  = 4" & Chr(13) & "Diam/45 del 1°   = 5" & Chr(13) & "Diam/45 del 2°   = 6" & Chr(13) & Chr(13) & "Quale opzione scegli? ",,0)

posta(1) = 1 'da 1 a 5 x Ambata-cinquina e da 6 a 10 x estratto determinato
posta(2) = 3 '3 terno

Scrivi "_________________________________________________________________________________"
Scrivi " Dalla coppia di numeri UGUALI all' Ambata Edito da Rubino"
Scrivi " Metodologia e modifiche di Claudio8 "
Scrivi " Ricerca riferita al : || " & p & "° Estratto di " & NomeRuota(r1) & " e " & p2 & "° Estratto di " & NomeRuota(r2) & " || ",- 1,,6,2
Scrivi " Estrazioni analizzate " & Meno & " Verifica esito per n. " & colpi & " colpi - Trovati n. " & cg & " casi"
Scrivi "_________________________________________________________________________________"
Scrivi


	ini = EstrazioneFin - meno
	For es = ini To EstrazioneFin
	
	AvanzamentoElab ini,EstrazioneFin,es 'disegna barra progressione azzera il numero di pronostici per questa estrazione


	a = Estratto(es,r1,p)

	a1 = Fuori90(a + 30)
	a2 = Fuori90(a + 60)
	a3 = Fuori90(a + 45)
	b1 = Fuori90(b + 30)
	b2 = Fuori90(b + 60)
	b3 = Fuori90(b + 45)
	ok = 0
	b = Estratto(es,r2,p2)
	
	Scelta
	
	
	
		If a <> b Then '1 Or b = a2 Then
		ok = ok + 1

		'Scrivi "============================================================================================================"
		Scrivi String(96,"=") & " Caso n°" & cg + 1
		ok = ok + 1


		
		'c = Fuori90(a + b)

		Scrivi "Trovato --> " & p & " " & NomeRuota(r1) & " " & a & " e " & p2 & " " & NomeRuota(r2) & " " & b & " <-- Numeri in gioco per Ambate " & c & " " & Fuori90(c + 30)

		Scrivi" ----------------------------------------------------------------------------------------------------------"
		nm(1) = c

		nm(2) = Fuori90(c + 30)

		End If

		If ok >= 1 Then
			For z = - 1 To colpi
			Scrivi " | " & SiglaRuota(r1) & " - " & StringaEstratti(es + z,r1) & " | "	 & " | " & SiglaRuota(r2) & " - " & StringaEstratti(es + z,r2) & " | "	 '& "esito estrazione n.del.." & es + z & "-" & DataEstrazione(es + z,1)
			Next
		End If
		If elenco = 0 Then

			If ok >= 1 Then	
			cg = cg + 1 ' che cosa è il CONTATORE GIOCATE ???

			ImpostaGiocata cg,nm,ruote,posta,colpi,stpgiocata ' 0)la giocata termina alla fine dei colpi - 1)la giocata termina alla 1a uscita dell'esito
			Gioca es 'con ",True" vengono elencate per tutti i csi solo le estrazioni che sono positive
			End If	
		End If

	Next
ScriviResoconto


End Sub
Function Scelta
				Select Case r
				Case 0
				Call zero 
				'MsgBox

claudio8 · 14 Gennaio 2011

x pico2005

Grazie hai perfettamente capito l'esigenza, però io volevo usare una funzione che ha inserito Luigi.
che ho inserito in questo listato.

'1° Script di Claudio su base e Rubino x "Dalla coppia UGUALE alla doppia ambata"
NON VI SPAVENTATE SONO ALLE PRIME ARMI
Sub Main()

Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
Dim posta(2) ' posta in gioco (2) indica il numero di esse
Dim nm(2)

Dim aVoci(20) ' Inserire il tot. casi+1
Dim k '
Dim r

' NB: elementi uguali
aVoci(0) = " "
aVoci(1) = "Comp./ 90 elem "
aVoci(2) = "Diametr/45 1°"
aVoci(3) = "Diam./decina 1°" 'DiametraleD
aVoci(4) = "Somma gli elementi" 'Doppio
aVoci(5) = "Comp./90 della somma"
aVoci(6) = "Diametr/45 di somma" 'Diametrale
aVoci(7) = "Diam/decina somma" '
aVoci(8) = "Diam/45 del compl/somma" '
aVoci(9) = "Diam/decina compl/somma"
aVoci(10) = "1° elemento + 1 "

'aVoci(4) = "Mancante terzina" ' If(Fuori90(a - b) = 30 Then
'c= Fuori90(a - b)
'ElseIf c=Fuori90(A+60)
'c = If(Fuori90(a-b)=30;Fuori90(A+30) Then Fuori90(A+60) trova il mancante in excel

'aVoci(..) = "USCIRE"
meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,1500) ' 2000
ruote(1) = InputBox("PRIMA RUOTA DI RICERCA ( 1 .. 10 ) ",,9)
'ruote(1) = ScegliRuota esclusa perchè poco pratica
r1 = ruote(1)
p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,4))
ruote(2) = InputBox("SECONDA RUOTA DI RICERCA ( 2 .. 11 ) ",,10)
'ruote(2) = ScegliRuota
r2 = ruote(2)

p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,3)

colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,6)

elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' o fa vedere le giocate

If elenco = 0 Then

stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _
Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,1) ' serve a quanto richiesto
End If

' preparo un array per le voci
For k = 0 To UBound(aVoci)
'aVoci(k) = " " & k

'aVoci(k) = " Testo sulla Scelta voce" & k
Next
' remmare alternativamente una delle 2 righe successive
r = ScegliOpzioneMenu(aVoci,10,"SELEZIONE ALGORITMO ") 'cosi preimposto la selezione sulla Voce 2
'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
' in base alla scelta dell'utente si esegue il codice appropriato

Select Case r
Case - 1
MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna a -1

Case 0

Scrivi "_________________________________________________________________________________"
Scrivi " Dalla coppia di numeri UGUALI all' Ambata + 30 Edito da Rubino"
Scrivi " Metodo del " & aVoci(r) & " di Claudio8 "
Scrivi " Ricerca riferita al : || " & p & "° Estratto di " & NomeRuota(r1) & " e " & p2 & "° Estratto di " & NomeRuota(r2) & " || ",- 1,,6,2
Scrivi " Estrazioni analizzate " & Meno & " Verifica esito per n. " & colpi & " colpi - Trovati n. " & cg & " casi"
Scrivi "_________________________________________________________________________________"
Scrivi

posta(1) = 1 'da 1 a 5 x Ambata-cinquina e da 6 a 10 x estratto determinato
posta(2) = 3 '3 terno

ini = EstrazioneFin - meno
For es = ini To EstrazioneFin

AvanzamentoElab ini,fin,es 'disegna barra progressione
'azzera il numero di pronostici per questa estrazione

a = Estratto(es,r1,p)

ok = 0
b = Estratto(es,r2,p2)

If a = b Then '1 Or b = a2 Then
ok = ok + 1
c = a
Scrivi String(96,"=") & " Caso n°" & cg + 1

nm(1) = c

nm(2) = Fuori90(c + 30)

Scrivi "Trovato --> " & p & "° " & NomeRuota(r1) & " " & a & " e " & p2 & "° " & N

claudio8 · 14 Gennaio 2011

x Pico
Il tuo script anche se modificato non calcola li valore di c e mi da sempre ambata 30 da nm(2) = c+30 e cambia la base con a=b e non a<>b

claudio

claudio8 · 14 Gennaio 2011

X Pico
Riusciresti a fare uno script, o utilizzare quello da me postato che realizzi una matrice o archivio avente il seguente schema:
--------------------------------------------------------------------
ambata riveniente da quanto espresso nel post precedente 84 o 85
--------------------------------------------------------------------
ruota To ruota VE - concorso 1/2011
estrazioni precedenti rilevamento |67 12 80 62 03 | 45 57 37 59 66|
estrazioni rilevamento ................|59 19 63 84 40 | 14 62 84 06 87|
1a estrazioni con esito ambata ....|69 17 84 37 07|
eventuali 2a con esito di ambata ..|85 89 17 65 37|
eventuali 3a con esito di ambata
---------------------------------------------------------------------
che comprenda tutti i casi che vengono rilevati nel range di analisi.

Da esso occorrerebbe ricavare dei "fissi o algoritmi" (metodo sommativi) che sommati all'ambata o a qualsiasi elemento esistente nell'estrazione di rilevamento diano abbinamenti x ambo con detreminate % di esito.

Sostanzialmente questo procedimento esiste in spaziometria però è esclusivamente riferito ai "fissi" sommabili solo agli (dal 1° al 5°) estratti della specifica estrazione di rilevamento ed a rilevamenti di eventi su 1 sola ruota.

In attesa di una tua risposta ti saluto.

claudio

pico2005 · 14 Gennaio 2011

Tutto si può, ma per lavorare con tranquillità e sicurezza di risultati, cioè che non sia un semplice esercizio di matematica, occorre conoscere la logica di trattamento dei dati e gli scopi che si prefigge il listato.
Oppure bisogna addentrarsi in una analisi al fine di sviscerarne tutti gli aspetti che il listato deve possedere.
Certo, a prescindere dall'indentazione, il listato che presenti, ha una logica ben precisa e matura, quello che chiedi e di analizzare questa logica e da questa estrapolare un esercizio matematico, ......ma ai fini del lotto?
Ti ringrazio della fiducia .....con un poco di tempo ci proverò....come esercizio di pensiero.
Ciao
[:I]

LuigiB · 14 Gennaio 2011

claudio Ho preso il tuo listato e l'ho modificato leggermente
a scopo didattico nele senso che non ne ho cambiato il senso ma l'ho reso piu pulito per farti capire qual'è la regola fondamentale :
L'ordine e l'indentatura.

Faccio alcune osservazioni :

1) Dichiara sempre tutte le variabili a tale scopo in testa allo script
usa l'istruzione

Codice:

    Option Explicit

che una volta usata impone la dichiarazioen obbigatoria

2) Cerca di distribuire il codice in piu funzoni e procedure
in modo da renderlo piu chiaro e consistente

3) Indenta bene il codice perche l'indentatura ti fa capire la sequenza del flusso del progamma

4) ho visto una riga

Codice:

Posta(2) = 3 '3 terno

è una svista o un errore concettuale non saprei .. non vuol dire terno
ma che giochi 3 euro su Ambo

ecco infine il tuo listato , ripeto non ne ho modificato la logica l'ho solo normalizzato
A proposito quando posti il codice usa l'apposita funzione col tasto del cancelletto cosi l'indentatura rimane e non fai passare la voglia alla gente che vede una confusione totale ...

Codice:

Option Explicit
Sub Main()
	Dim ruote(2) ' le ruote per rilevamento e gioco (2) indica il numero di esse
	Dim posta(2) ' posta in gioco (2) indica il numero di esse
	Dim nm(2)
	Dim aVoci(10) ' Inserire il tot. casi+1
	Dim k,r,r1,r2,p2,colpi,elenco,stpgiocata,Meno,p
	' NB: elementi uguali
	Call AlimentaArrayVoci(aVoci)
	Call RichiediParametri(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	' remmare alternativamente una delle 2 righe successive
	r = ScegliOpzioneMenu(aVoci,10,"SELEZIONE ALGORITMO ") 'cosi preimposto la selezione sulla Voce 2
	'r = ScegliOpzioneMenu (aVoci) ' cosi non preimposto la selezione
	' in base alla scelta dell'utente si esegue il codice appropriato
	Select Case r
	Case - 1
		MsgBox "Nessuna scelta" ' se l'utente non seleziona niente torna a -1
	Case 0
		Call Scelta_0(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 1
		Call Scelta_1(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 2
		Call Scelta_2(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 3
		Call Scelta_3(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 4
		Call Scelta_4(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 5
		Call Scelta_5(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 6
		Call Scelta_6(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 7
		Call Scelta_7(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 8
		Call Scelta_8(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 9
		Call Scelta_9(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case 10
		Call Scelta_10(Meno,ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Case Else
		MsgBox " Indice errato " & r & " -" & aVoci(r)
	End Select
End Sub
Sub AlimentaArrayVoci(a)
	a(0) = " "
	a(1) = "Comp./ 90 elem "
	a(2) = "Diametr/45 1°"
	a(3) = "Diam./decina 1°" 'DiametraleD
	a(4) = "Somma gli elementi" 'Doppio
	a(5) = "Comp./90 della somma"
	a(6) = "Diametr/45 di somma" 'Diametrale
	a(7) = "Diam/decina somma" '
	a(8) = "Diam/45 del compl/somma" '
	a(9) = "Diam/decina compl/somma"
	a(10) = "1° elemento + 1 "
End Sub
Sub RichiediParametri(Meno,Ruote,r1,p,r2,p2,colpi,elenco,stpgiocata,aVoci)
	Meno = InputBox("QUANTE ESTRAZIONI USO x LA RICERCA? ",,1500) ' 2000
	Ruote(1) = InputBox("PRIMA RUOTA DI RICERCA ( 1 .. 10 ) ",,9)
	r1 = Ruote(1)
	p = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r1) & " (1..5)",,4))
	Ruote(2) = InputBox("SECONDA RUOTA DI RICERCA ( 2 .. 11 ) ",,10)
	r2 = Ruote(2)
	p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & NomeRuota(r2) & " (1..5)",,3)
	colpi = InputBox("VERIFICO ESITO IN QUANTI COLPI ?",,6)
	elenco = InputBox("VUOI VEDERE SOLO L'ELENCO ESTRAZIONI O ANCHE LE GIOCATE ? " & Chr(13) & Chr(13) & "SI = 1" & Chr(13) & "NO = 0",,0) ' o fa vedere le giocate
	If elenco = 0 Then
		stpgiocata = InputBox("VUOI INTERROMPERE LE GIOCATE AL 1° ESITO POSITIVO ?" & _

pico2005 · 14 Gennaio 2011

Codice:

<center>[b]Ottimo lavoro ragazzi[/b]
:):)
:):D:)
:):)
</center>

claudio8 · 14 Gennaio 2011

x LUIGI,

SONO CONTENTO CHE TU MI DIA DEI SUGGERIMENTI, CHE POSSONO ESSERE DI AUSILIO ANCHE AD ALTRI, ACCETTO VOLENTIERI LE OSSERVAZIONI CHE MI HAI FATTO; IN PARTICOLARE SULL'INDENTATURA E L'ORDINE, HO VISTO SOLO ORA CHE C'E UN TASTO DI INDENT
. AUTOMATICA, PER LA COPIA INVIATA, NON INDENTATA, E' TUTTA COLPA DELLA FRETTA, NON SAREI PROPRIO IN GRADO DI SCRIVERE NIENTE SE NON INDENTO IL TUTTO.

1) BEN VENGA l'Option Explicit
che una volta usata impone la dichiarazioen obbigatoria - OK
'
'2) Cerca di distribuire il codice In piu funzoni e procedure
'In modo da renderlo piu chiaro e consistente - CI PROVERO'
'
'3) Indenta bene il codice perche l'indentatura ti fa capire la sequenza del flusso del progamma. VA BENE
'
'4) ho visto una riga
'Posta(2) = 3 '3 terno - SI, MI SONO SBAGLIATO A SCRIVERE INTENDEVO DIRE CHE IL 3 in parentesi = terno

'A proposito quando posti il codice usa l'apposita funzione col tasto del cancelletto - SI, LO AVEVI GIA DETTO A RUBINO.

GRAZIE,

però non ci tormentare con altre versioni..

che barba

CIAO LUIGI..

claudio

SPAZIOMETRIA di Luigi e Baffoblu 15° POST

LuigiB

Guest

Advanced Premium Member

LuigiB

Guest

Advanced Premium Member

Premium Member

LuigiB

Guest

Advanced Premium Member

LuigiB

Guest

Premium Member

Advanced Member >PLATINUM<

Premium Member

Super member

Super Member >GOLD<

Premium Member

Premium Member

Premium Member

Super Member >GOLD<

LuigiB

Guest

Super Member >GOLD<

Premium Member