|
Anzeige
|
Shift / Rotate in VB6
Gast
#384984
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 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
Gast
#384986
Ich habe es befürchtet. Eine Maximal-Variante habe ich schon, ich habe nur gehofft, es ginge auch einfacher... VG Unwissender
Gast
#384987
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 Antwort schreibenBitte melde dich an, um einen Beitrag zu schreiben. |
Anzeige
|
