Ho bisogno di un aiuto per visual basic

[Matteo92]

Sto imparando a programmare grazie a Dani88, che ringrazio per avermi dedicato del tempo per spiegarmi le basi della programmazione in vb.
Sto cercando di fare un primo programma "serio", in pratica un calcolatore per la resy per i led. Tipo quello gia fatto da dani.
Fin'ora ho implementato senza problemi la parte relativa al calcolo, per il colore del led ho messo un menù a tendina (dicesi combobox) che imposta automaticamente la vdrop relativa al colore.
Vorrei aggiungere un altra funzionalità, ed è qui che m'intoppo
In pratica il prog com'è ora restituisce il valore ESATTO della resistenza calcolata.
esempio
12 alim
led blu HE
20mA
1 led

mi restituisce 446. Matematicamente è corretto... peccato che questo valore non esista in commercio.
Vorrei implementare quindi una funzione che mi restituisca il valore in commercio di valore superiore più vicino a quello calcolato
Riprendendo l'esempio di prima
446 val esatto
valore in commercio 470

Un'idea per implementarlo è stata:
nell'esempio qui sotto x è il valore calcolato, n ed N sono due valori consecutivi di resistenza standard

if n<x<N then
x=N
else

eccetera eccetera... ma così ci divento vecchio sul prog:lol: e per quando l'avrò finito i led non si useranno più, ci saranno le astronavi a velocità di curvatura ed i vulcaniani ci insegneranno le loro tecnologie

secondo voi, come si potrebbe fare?

[EV!L]

io te la dò una buona risp, ma poi nn ti lamentare..

fai un bel database con dentro tutti i valori possibili delle resistenze, (saranno + di 100 immagino) , e poi fai una funzione che chiama il db e confronta.. se no un bell'algoritmo di ricerca sul db tipo bubblesort (se nn erro il nome) ..

altrimenti un'approssimazione sul numero della resistenza.. dal tuo calcolo che il prog restituisci lo fai diventare un numero senza cifre sull'unità..

tipo :

il prog calcola 463 --diventa--> 470

e così nn hai + i numeri all'unità della cifra.. ma penso sia una cazzata paura .. nn so se è fattibile, se in commercio ci sono resistenze da 100 a 1000 con passo 10 funziona..

[Marko]

si devi usare un arrotondamento più vicino al numero ottenuto.
in pratica se ti restituisce 463 lo fai arrotondare al più vicino numero in commercio.

non so se vada bene la funzione

FormatNumber

non sono un asso con vbasic

[EV!L]

se nn trovi una funzione x arrotondare, falla tu.. dichiarandola nell'area class..

[Marko]

Originariamente inviato da EV!L se nn trovi una funzione x arrotondare, falla tu.. dichiarandola nell'area class..

ma alla fine mi sa dovrà fare per forza così, creala tu e il numero risultante sarà arrotondato al più vicino in commercio.

[Matteo92]

L'80% delle risposte che mi avete dato per me è ancora arabo.

come si crea una funzione che arrotondi al val. maggiore (è importante questo punto)?
un esempio di codice non cce l'avete?
thx

[Marko]

un esempio per farti capire (non c'entra molto magari con il tuo caso)

Il secondo parametro (Arrotondamento appunto) prevede il valore assoluto che si vuole come base di arrotondamento, quindi un eventuale valore di 10 NON indica che si vogliono dieci decimali ma semplicemente che si vuole arrotondare per 10.

'Enumerazione del tipo di arrotondamento desiderato Public Enum TipoArrotonda Difetto = 0 Eccesso = 1 Matematico = 2 End Enum Function Arrotonda(Valore As Double, Arrotondamento As Double, Optional Direzione As TipoArrotonda = Eccesso) As Double On Error Resume Next Dim Temp As Double Temp = Valore / Arrotondamento If Int(Temp) = Temp Then Arrotonda = Valore Else Select Case Direzione Case TipoArrotonda.Difetto Temp = Int(Temp) Case TipoArrotonda.Eccesso Temp = Int(Temp) + 1 Case TipoArrotonda.Matematico Temp = CDbl(Format(Temp, "0")) End Select Arrotonda = Temp * Arrotondamento End If End Function

[EV!L]

azzo ma tu usi i double come noccioline ?

lol.. cmq x matteo conviene sostituirli con un integer.. anche xè resistenze con valori così alti x i led nn penso che esistano..


x il resto ottima function !