Binær tal spørgsmål!!

Public Function dec2bin(mynum As Variant) As String
Dim loopcounter As Integer
If mynum >= 2 ^ 31 Then
dec2bin = "Too big"
Exit Function
End If
Do
If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
dec2bin = "1" & dec2bin
Else
dec2bin = "0" & dec2bin
End If
loopcounter = loopcounter + 1
Loop Until 2 ^ loopcounter > mynum
End Function

svar

det skulle gerne være sådan at når jeg smidder f.eks. "a" i funktionen vil den returnere den binære værdi for "a" ikke kun for tal!

Kan det ikke laves??

ellers skal der bare bruges en funktion der tager et bogstav eller tegn ind og returnere dens ansii (eller hvad det nu hedder)! F.eks: Funktion("A") = 65

ah ok

jo så skal du bare tjekke om strengen er numerisk

det kan du gøre med

f.eks.

if isnumeric(minstreng) then
mitbintal =  dec2bin(asc(minstreng))
else
mitbintal = dec2bin(minstreng) end if

argh det skulle være omvendt :)

if isnumeric(minstreng) then
mitbintal = dec2bin(minstreng)
else
mitbintal =  dec2bin(asc(minstreng))
end if

den tager første bogstav i strengen og omsætter dets ascii værdi til et binært.

Det er helt fint! Det var lige det jeg stod og manglede! Takker

np - tak for pts :)

//*Jelzin101
www.dinos.dk