Binær værdi

Du skal sgu nok selv lave den...
Det lyder jo som du i forvejen kan finde ud af at regne binært, så det kan vel ikke blive det helt store problem ?

Oki .. jeg tror selv jeg fandt ud af det, men jeg mangler stadigvæk en måde conveter Binært til Acsii.
SÅ hvis der er en der ude, der kan så lader jeg lige spørgsmålet stå åbent lidt endnu.

Private Sub Form_Click()
Cls
Print
InString$ = "abc"
Print
use '|' as a default seperator"
sep$ = "" 'INPUT " Enter seperator(blank For none): ", sep$
Print
Print " Processing..."
Print
Print " ASCII numeric equivs:"
Print
If InString$ = "" Then End


For a = 1 To Len(InString$)
    astring$ = Mid$(InString$, a, 1)
    anum = Asc(astring$)
    Print anum;
    numwhole = anum


    Do While Not numwhole = 0
        numrem = (numwhole Mod 2)
        numwhole = ((numwhole - numrem) / 2)


        If numwhole = 0 Then
            binnum$ = binnum$ + "1" & vbNewLine
            Exit Do
        End If
        If numrem = 1 Then binnum$ = binnum$ + "1"
        If numrem = 0 Then binnum$ = binnum$ + "0"
    Loop
    binnum$ = binnum$ + " "
Next a


For b = Len(binnum$) To 1 Step -1
    newbin$ = newbin$ + Mid$(binnum$, b, 1)
Next b
Print
Print
Print " Binary equiv: "
Print " " + newbin$
Print
writeb$ = LCase$(writeb$)


If writeb$ = "y" Then
    Print
    Print " Making blank " + Left$(InString$, 1) + ".txt"
    Open Left$(InString$, 1) + ".txt" For Append As #1
    Close #1
    Print " Deleting blank " + Left$(InString$, 1) + ".txt"
    Kill Left$(InString$, 1) + ".txt"
    Print " Writing " + Left$(InString$, 1) + ".txt"
    Open Left$(InString$, 1) + ".txt" For Append As #1
    Print #1, newbin$
    Close #1
    Print " Done, binary equivs saved as " + Left$(InString$, 1) + ".txt"
End If
Print
'End






End Sub

Hilsen
M.I.X

Nåå ja ..hvis nogle ville vide hvordan man conveteret Ascii til binær så har jeg planet code ovenover.

hilsen
Mix

Oki jeg har fundet ud af hvordan..
Hvis dnogle ville have metoden når jeg har bygget den færdigt så mail mig på mix@post6.tele.dk

Hilsen
Mix

HVis nogle ville have metoden til at konveter binær til ascii så er metoden så ledes.

Function ConvertToAscii(Binær as string) as string
Dim NR(1 to 9) as string
Dim Tmp as string
Dim I as integer
nr(1) = "1"
nr(2) = "2"
nr(3) = "4"
nr(4) = "8"
nr(5) = "16"
nr(6) = "32"
nr(7) = "64"
nr(8) = "128"
nr(9) = "256"
if len(binær) < 9 then
do until len(binær) = 9
binær = binær & "0"
loop
For i = 1 to 9
tmp = mid$(binær,i,1)
if tmp = "1" then
ConvertToAscii =ConvertToAscii & nr(i)
end if
next i
end function

Nu kan man så kalde funktionen.
Dim Tekst as string
tekst = chr(ConvertToAscii("101010"))
Nu vil Tekst blive til : 5 tal som har ascii værdien 53

Hilsen
M.I.X