Seite 1 von 1

VisualBasic zu PB

Verfasst: 09.02.2022 19:15
von 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

Re: VisualBasic zu PB

Verfasst: 09.02.2022 20:42
von 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

Re: VisualBasic zu PB

Verfasst: 10.02.2022 12:28
von PB_Rainer
Danke
Rainer