Forum: PC-Programmierung Shift / Rotate in VB6


von Unwissender (Gast)


Lesenswert?

Hallo liebe Gemeinde
ich habe eine vielleicht so einfache Frage, sodaß ich die Lösung nicht
unmittelbar sehe...

Wie kann ich in VB6 eine Byte-Variable rotieren, bzw. shiften,
also wie bei einem µC das mit einer einzigen Instruktion geht.

Also in BASCOM-AVR ausgedrückt : rotate tmp,right,1

Danke und vg vom Unwissenden

von Raphael D. (crazy)


Angehängte Dateien:

Lesenswert?

hallo!
da vb das byte format meines wissens leider nicht richtig unterstützt
ist das ein wenig schwierig. man könnte sich allerdings über ein paar
funktionen helfen. ist zwar nicht die eleganteste lösung, aber es
sollte funktionieren ;-)
viel erfolg weitehin!
mfg, crazy

von Unwissender (Gast)


Lesenswert?

Ich habe es befürchtet. Eine Maximal-Variante habe ich schon, ich habe
nur gehofft, es ginge auch einfacher...

VG Unwissender

von Wolfram (Gast)


Lesenswert?

und was spricht gegen
rechtsrotieren:
dim a as Byte
a = 3
If (a And 1) > 0 Then
tmp = 128
Else: tmp = 0
End If
a = Int(a / 2) + tmp

rechtsshift entspricht /2
linksschift *2
bei Rotation entsprechend vorher oberstes oder unterstes Bit sichern
shiften und Bit einfügen

Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.