Shift / Rotate in VB6

Unwissender 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
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke
Raphael D. #384985 
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
Angehängte Dateien:
Antwort Zitieren Bearbeiten Löschen Melden Danke
Wolfram 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 Zitieren Bearbeiten Löschen Melden Danke
Thread beobachten

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 20 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.