Oppure

Loading
06/06/09 16:33
mario54
chiedo scusa sono nuovo del forum
stò iniziando a programmare in visual basic e vorrei realizzare un programma che converta un numero decimale in esadecimale le varie funzioni per i calcoli le ho già realizzate ma non riesco a visualizzare nella testbox le lettere corrispondenti ai vari numeri come posso fare utilizzando il select case???
grazie anticipatamente
Ultima modifica effettuata da mario54 06/06/09 16:35
aaa
06/06/09 16:36
GrG
non c'è bisogno basta usare la funzione hex()...
aaa
06/06/09 16:58
mario54
si ma purtroppo debbo utilizzare per forza il select case quindi come posso fare?
aaa
06/06/09 17:13
ruggy94
Postato originariamente da mario54:

si ma purtroppo debbo utilizzare per forza il select case quindi come posso fare?

Sarò stupido ma non ho capito che devi fare. Cioè cosa devi fare con il select case? Hai detto che hai già scritto le funzioni per i calcoli, allora che ti manca?
aaa
06/06/09 17:58
theprogrammer
Forse, se mostri il codice che hai scritto, si capisce il perche' vuoi usare la Select ...
aaa
07/06/09 9:24
mario54
Dim V(1000) As String
Dim i As Integer
i = 0
num = Val(Text1.Text)
Do
v(i) = num Mod 16
num = num \ 16
If num > 9 Then
qui devo mettere il select case perchè se il numero supera il nove nella numerazione esadecimale ci sono le lettere
i = i + 1
Loop While num <> 0
Ultima modifica effettuata da mario54 07/06/09 9:25
aaa
07/06/09 9:36
theprogrammer
Come pensavo la Select Case non c'entra ...

In quale parte del codice restituisci il valore finale in esadecimale ?
Ultima modifica effettuata da theprogrammer 07/06/09 9:37
aaa
07/06/09 9:45
mario54
il prorgamma così facendo mi effettua la divisione ma mi ritorna ad un numero poi ho fatto un ciclo per la visualizzazione perchè come saprete il numero va letto al contrario
For j = i - 1 To 0 Step -1
Text3.Text = Text3.Text + (v(i))
Next
aaa