| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
hhr
Anmeldungsdatum: 15.07.2020
Beiträge: 116
|
 Verfasst am: 08.06.2021, 19:23 Titel: Frage zu Operator |
 |
|
Ich möchte einen Rotations-Operator probieren, krieg's aber nicht hin.
Was fehlt oder was mache ich falsch?
| Code: | Operator Ror (Byref lhs As Ubyte, Byref rhs As Ubyte) As Ubyte
Return (lhs Shr rhs) Or (lhs Shl (8-rhs))
End Operator
Dim As Ubyte a
a = 123
Print Bin(a,8)
a = a Ror 1
Print Bin(a,8)
Sleep |
|
|
| Nach oben |
|
 |
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4710
Wohnort: ~/
|
| Verfasst am: 08.06.2021, 21:40 Titel: |
|
|
Ganz einfach: Mit OPERATOR kann man keine neuen Operatoren definieren, sondern nur bestehende für UDTs überladen. Eigene Infix-Funktionen sind meines Wissens in FreeBASIC generell nicht möglich.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
hhr
Anmeldungsdatum: 15.07.2020
Beiträge: 116
|
| Verfasst am: 09.06.2021, 09:32 Titel: |
|
|
Danke für die Antwort. Dann bleibe ich bei den normalen Funktionen.
| Code: | Function Ror (Byref Zahl As Ubyte, Byref Stellen As Ubyte) As Ubyte
Return (Zahl Shr Stellen) Or (Zahl Shl (8-Stellen))
End Function
Dim As Ubyte a
a = 123
Print Bin(a,8)
a = Ror(a,1)
Print Bin(a,8)
Sleep |
|
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
