Binärwerte addieren

19/03/2008 - 14:26 von Wolfgang Ziffels | Report spam
Hallo!

Kann mir jemand sagen wie ich zu einem Binàrwert, der als String
vorliegt, 1 addieren kann?
Habe viel gegoogelt aber nicht entsprechendes gefunden... vielleicht
hat auch jemand nur die besseren Suchbegriffe?

Vielen Dank vorab!

Gruß,
Wolfgang
 

Lesen sie die antworten

#1 Pegasus \(MVP\)
19/03/2008 - 20:41 | Warnen spam
"Wolfgang Ziffels" wrote in message
news:
Hallo!

Kann mir jemand sagen wie ich zu einem Binàrwert, der als String
vorliegt, 1 addieren kann?
Habe viel gegoogelt aber nicht entsprechendes gefunden... vielleicht
hat auch jemand nur die besseren Suchbegriffe?

Vielen Dank vorab!

Gruß,
Wolfgang
=Hier eine allgemeine Lösung, um mit Binàrzahlen arithmetische
Operationen durchzuführen:
Set objArgs = WScript.Arguments
Set objRegEx = CreateObject("VBScript.RegExp")
WScript.Echo

if objArgs.Count <> 2 then Msg "Falsche Anzahl von Parametern"
a = objArgs(0)
b = objArgs(1)

objRegEx.Global = True
objRegEx.Pattern = "[^01]"
Set colMatches = objRegEx.Execute(a & b)
If colMatches.Count > 0 Then Msg "Ungültiger Binàrwert"

Msg "Die Summe von " & a & " and " & b & " betràgt " & ToBin(ToDec(a) +
ToDec(b))
'==Function ToDec(b)
dec = 0
p = 1
For i = Len(b) To 1 Step - 1
if mid(b,i,1) = "1" then dec = dec + p
p = p * 2
Next
ToDec = dec
End Function

Function ToBin(d)
bin = ""
p = 1
Do
bin = d Mod 2 & bin
d = d \ 2
Loop Until d = 0
ToBin = bin
End Function

Sub Msg (line)
WScript.Echo line
WScript.Quit
End Sub

Ähnliche fragen