Druckbare Version
Morgen
kann man irgendwie eine Bitfolge drehen?
Bitfolge1: B1 B2 B3 B4 B5 B6 B7
soll zu
Bitfolge2: B7 B6 B5 B4 B3 B2 B1
werden
Das ganz sollte mathematisch doch irgendwie zu machen sein, ich komme nur nicht wirklich drauf.
Beispiel:
0111111 -> 1111110 | 126 -> 63
1001000 -> 0001001 | 9 -> 72
usw.
Gruß
Ich glaub nicht, dass da ein verwertbarer (sinnvoller) mathematischer Ansatz existiert. Es korreliert zwar jedes In-Bit mit seinem Out-Bit, aber jedes in anderer Weise.
(ich lass mich aber gerne belehren)
Ich würde mir da mit einem kurzen Inline-Assembler helfen (18 maschinen zyklen). Viel billiger is nix.
Hallo BoondockDuck!Zitat:
Zitat von BoondockDuck
Das ist jetzt nicht sonderlich ausgeklügelt, aber ich glaube es macht genau das was du haben willst:
mfgCode:$regfile = "M8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 4800
Declare Function Reversed(byval Source As Byte) As Byte
Print Reversed(&B00000001) '=128
End
Function Reversed(byval Source As Byte) As Byte
Local Dest As Byte
Dest.0 = Source.7
Dest.1 = Source.6
Dest.2 = Source.5
Dest.3 = Source.4
Dest.4 = Source.3
Dest.5 = Source.2
Dest.6 = Source.1
Dest.7 = Source.0
Reversed = Dest
End Function
Gerold
:-)
Stimmt schon, der Code wäre ja korrekt.
Nur: wenn man weiss, was für ein Massaker der Bascom mit dem Bit- fragen und -setzen veranstaltet, sollte man sich das überlegen.
https://www.roboternetz.de/wissen/in..._Set_.26_Clear
Danke Gerold
dein Code läuft ganz gut, auch wenn es schon etwas die sprichwörtliche Kanone auf Spatzen ist
Jetzt zeigen meine Matrizen die Buchstaben auch endlich richtigrum an :)
Davor waren Oben und Unten verdreht. Warum genau bin ich nicht so sicher... Oder es ist einfach so dass die Schaltung einen die Zeichen "andersrum" ausgibt. An der Verkabelung liegts auf jeden Fall mal nicht.
Bild hier
Das ganze ist eine Laufschrift, die beiden Matrizen muss man sich nebeneinander angeordnet vorstellen.
Ich werde mir allerdings überlegen ob ich nicht schlichtweg den Zeichensatz für jedes Schriftzeichen anpasse.
IMHO das Beste, was du machen kannst. Bei manchen solchen Datasheets ist die ZeichensatzTabelle im Anhang dabei, ich werd mal nachsehen.Zitat:
.. für jedes Schriftzeichen anpasse..
Hallo BoondockDuck!Zitat:
Zitat von BoondockDuck
Zuerst muss das Programm funktionieren. Und meinstens funktionieren die Programme schnell genug. Erst wenn man erkennt, dass das Programm nicht schnell genug ist, dann sucht man sich die ärgsten Engstellen raus und optimiert genau diese. So opfert man nicht unnötige Zeit für Optimierungen, die in den meisten Fällen nicht notwendig gewesen wären.
mfg
Gerold
:-)
Hallo,
Diese Arbeit würde ich mir nicht machen,Zitat:
Ich werde mir allerdings überlegen ob ich nicht schlichtweg den Zeichensatz für jedes Schriftzeichen anpasse.
was ist wenn Du den Zeichensatz doch auf dem Kopf brauchst ?
Vor dem Problem habe ich mit meiner Propelleruhr gestanden, wo ich was im oberem und im unterem Teil darstellen wollte.
Klar mußte ich die Zeichen drehen und sowas ist sehr schnell in Software erledigt.
Hier mal etwas Inlineassembler:
Noch schneller(aber nicht Flashsparender) geht es mit 8 lsr und 8 rol hintereinander.Code:asm volatile (
"ldi %2,8" "\n\t"
"0:" "\n\t"
"lsr %0" "\n\t"
"rol __tmp_reg__" "\n\t"
"dec %2" "\n\t"
"brne 0b" "\n\t"
"mov %0,__tmp_reg__" "\n\t"
: "=a" (tmp)
: "0" (tmp), "a" (count)
);
Gruß Sebastian
Da fällt mit jetzt nur das Einerkomplement ein.
Bascom kennt noch den "Toggle" - aber der geht glaub nur für die Ports.
Im AVR-Studio gibt dafür eine Assemblerdirective die heisst
! Logical Not
~ Bitwise Not
Müsstet also $Asm in Dein Proggi einbinden
....
Konnte ich bis jetzt noch nicht rausfinden, aber wenn du mal schauen magst danke :)Zitat:
Zitat von PicNick
Ja du hast schon rechtZitat:
Zitat von python_rocks
Und so dramatisch ist es auch nicht, denn dein Programmvorschlag wird nur "einmal" durchlaufen und dann läuft die Laufschrift ohne nochmals Bits zu drehen.
D.h. ein String wird zerlegt. Pro zeichen werden 6 Datensätze aus der Tabelle gelesen und bei jedem dieser Sätze werden 7 von 8 Bit gedreht.
Das ganze kommt in ein Array und gut ist.
Bis jetzt ist es noch nicht notwendig den Code anzupassen. Sollte ich die Laufschrift aber ernsthaft mal größer aufbauen überlege ich mir das nochmal.
Ist leider nicht gerade billig da es über den Max7221 läuft. 4 Stück zum Spielen habe ich von Maxim bekommen, aber es sollten ja schon ein paar mehr sein.
Es war aber eh primär für mich damit ich das Laufschriftprojekt endlich mal durchziehe. (Ich spiel damit seit vielen vielen Monaten rum ohne mal richtig angefangen zu haben)
In dem Datenblatt is so ein Chart.
http://www.robotikhardware.de/downlo...datenblatt.pdf
Is naturlich Arbeit, je nachdem, wie fix du bist.
Aber dann hast du es ein für allemal
Kann man da nicht auch als Alternative die Bits von zwei Bytes rotieren lassen? Das wäre mein erster Lösungsansatz.
Das eine nach links, das andere nach rechts und alles in eine Schleife eingebunden sähe vielleicht so aus:
.
.
.
.
For C = 0 to 7
A.7=B.7
Rotate A, 1, left
Rotate B, 1, right
Next
.
.
.
.
Ich hab schon ne Weile nichts mehr in Bascom gemacht also nagelt mich nicht auf den korrekten Befehlsaufbau fest und werft vorher einen Blick in die Hilfedatei! :)
...und wozu ist das "C" ?
Meine Idee wäre die (allerdings mit dem "Massaker"-Nachteil, den PickNick erwähnte):
Nicht schön, aber selten... =P~Code:
Dim Alt as byte 'Ausgangs-Byte
Dim Neu as byte 'Invertiertes Byte
Dim A as byte
Dim B as byte
.
.
.
For A = 0 to 7
B = 7 - A
Neu.A = Alt.B
Next A
.
.
.
Hallo
b löschen
carry löschen
for n=1 to 8
rlc a
rrc b
next
Mit freundlichen Grüßen
Benno
Hier ein Vorschlag, wie man die Aufgabenstellung Zeit- und Code-sparend in ASM lösen könnte mit einem Beispiel zum Testen der Funktion.
Code:Dim X1 as Byte, X2 as Byte ' Zum Testen
Declare Function ByteReverse (InByte as Byte) as Byte
' Test für alle Byte-Werte ( 0 - 255)
for x1 = 0 to 255
x2 = ByteReverse(x1)
print bin(x1); " " ; bin(x2)
next
end
Function ByteReverse (InByte as Byte) as Byte
$ASM
Loadadr InByte, Z ' SRAM-Adresse des Input-Bytes in Z-Pointer
ld r24, Z ' Input in CPU-Register r24 laden
ldi r23, 8 ' 8 Bit zum schieben
ByteReverse1:
lsl r24 ' Bit nach links ins Carry schieben
ror r25 ' Carry nach Rechts in Output schieben
dec r23
brne ByteReverse1 ' letztes Bit erreicht
loadadr ByteReverse, Z
st Z, r25 ' Byte in Rückgabevariable abspeichern
$End ASM
End Function
Das Byte kann mit Übergabe in die deklarierte Funktion ByteReverse (wie schon in einem vorigen Post vorgeschlagen) umgedrehrt werden
@Sauer:
Man braucht eine weitere Variable zum Abzählen der Schleifen - und das ist in meinem Fall C
Unter Do...Loop until wär's das selbe.
Hallo BoondockDuck,
bist du mit deiner Laufschrift weiter gekommen?
Ich möchte mir so was auch gerne anschauen. Könntest Du mir bitte den Code senden?
Gruß Richard