VisualBasic zu PB

[PB_Rainer]

Hallo, ich benötige mal Eure Hilfe.
In einem funktionalen VB-Source steht folgende Zeile:

Code: Alles auswählen

C = C & Sgn(Val(B) And 2 ^ I)

Wie kann man die in PB übersetzen?
Wenn ich schreibe:

Code: Alles auswählen

C + Sign(Val(B) And Pow(2, I))

bekomme ich natürlich immer Fehlermeldungen, da B und C als String definiert sind und danach auch als String weiterverarbeitet werden müssen.
Aus Sign kommt aber ein numerischer Wert. Auch der logische Vergleich mit And wird nicht akzeptiert.

Auch

Code: Alles auswählen

C + Sign(Val(B) + Pow(2, I))

Funktioniert nicht.

Vllt kann jemand helfen

Gruß Rainer

[mk-soft]

Eventuell

Code: Alles auswählen

Define B.s, C.s
Define I

B = "1"
I = 0
C = C + Str(Sign(Val(B)) & Int(Pow(2,I)))

Debug C

[PB_Rainer]

Danke
Rainer