Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
hhr
Anmeldungsdatum: 15.07.2020 Beiträge: 91
|
Verfasst am: 08.06.2021, 20: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: 4603 Wohnort: ~/
|
Verfasst am: 08.06.2021, 22: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: 91
|
Verfasst am: 09.06.2021, 10: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 |
|
|
|