Hejsan!

Jag håller på och gör ett litet exempel som omvandlar binär
till ASCII och sen vidare till det tecken det ska vara.

Jag har fått problem när jag ska räkna ut ASCII-värdet...

Såhär ser en bit av koden ut:
'--------------
Dim SökText, ASCII
SökText = txtBinär

If txtBinär.Text = Left(SökText, 1) = "1" Then ASCII = "128+"
If txtBinär.Text = Left(SökText, 2) = "1" Then ASCII = ASCII + "64+"
' tog bort lite kod för att inlägget skulle bli kortare...
txtASCII = ASCII ' visa ASCII-koden
'--------------

I txtASCII ska summan av 128+64 stå om dom två första tecknen i txtBinär är ettor.
(Annars ska det inte stå något alls.)

Vet någon hur jag ska lösa mitt problem?

/Hjorten

Dim ASCII

If Left(txtBinär.Text, 1) = 1 And Mid(txtBinär.Text, 2, 1) = 1 Then ASCII = 192
' tog bort lite kod för att inlägget skulle bli kortare...
txtASCII = ASCII ' visa ASCII-koden
End If

prova detta

<code>
Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim tal As Integer

tal = 0
For i = 0 To Len(Text1.Text) - 1
If (Mid$(Text1.Text, Len(Text1.Text) - i, 1) = "1") Then
tal = tal + 2 ^ (i)
End If
Next i
Text2 = tal & " -> " & Chr(tal)
End Sub
</code>