ich proboer seit längerem en programm zu machen um texte von buchstaben in zahlen bzw. binärt und umgekehrt zu codieren. ich krieg aber den code net so wirklich raus. ich will es aber für en anfang simpler halten und so halt immer nur IF´s und THEN sachen im code.
thx im vorraus
nun noch mal genauer!
Hi erstmal,
ich proboer seit längerem en programm zu machen um texte von
buchstaben in zahlen bzw. binärt und umgekehrt zu codieren.
ich krieg aber den code net so wirklich raus. ich will es aber
für en anfang simpler halten und so halt immer nur IF´s und
THEN sachen im code.
So, jetzt erklär es bitte noch einmal genau, was du willst.
Ascii–>binär ?
Private Function Bin2Dec(ByVal Bin As String) As Long
Dim i As Long, lngLen As Long
lngLen = Len(Bin)
For i = lngLen To 1 Step -1
Bin2Dec = Bin2Dec + IIf(Mid$(Bin, i, 1) = "1", 2 ^ (lngLen - i), 0)
Next i
End Function
Private Function Dec2Bin(ByVal Dec As Long) As String
Dim Rest As Long
Do
Rest = Dec Mod 2
Dec2Bin = Rest & Dec2Bin
Dec = Dec \ 2
Loop Until Dec = 0
End Function
Private Sub Command1\_Click()
Dim str\_Text As String
Dim str\_Ausgabe As String
Dim i As Integer
str\_Text = "H"
For i = 1 To Len(str\_Text)
str\_Ausgabe = str\_Ausgabe & Dec2Bin(Asc(Mid(str\_Text, i, 1)))
Next i
MsgBox str\_Ausgabe
End Sub
Private Sub Command2\_Click()
Dim str\_Text As String
Dim str\_Ausgabe As String
Dim i As Integer
str\_Text = "1001000"
If Len(str\_Text) Mod 7 0 Then
MsgBox "Anzahl der Ziffern muss Vielfaches von 7 sein"
Else
For i = 1 To Len(str\_Text) / 7
str\_Ausgabe = str\_Ausgabe & Chr(Bin2Dec(Mid(str\_Text, 7 \* (i - 1) + 1, 7)))
Next i
MsgBox str\_Ausgabe
End If
End Sub
Gruß.Timo
thx im vorraus