Druckbare Version
Hallo,
ich habe den 10bit Wert des ADC in eine word-Variable geschrieben und mit HIGH und LOW in die beiden Bytes geteilt. dann das ganze in EEPROM zwischen gespeichert.
Nun lese ich die beiden Bytes wieder aus.
Aber wie kann ich daraus wieder ein Word machen??
Kann mir da mal jemand einen Tip geben?
Vielen Dank im Voraus
dl1akp
Dim A As Byte , B As Byte
Dim X As Word
X = A * 256
X = X + B
Hallo dl1akp!Zitat:
Zitat von dl1akp
mfgCode:Dim my_word as Word at $60
Dim b1 as Byte at $60 OVERLAY
Dim b2 as Byte at $61 OVERLAY
B1 = 255
B2 = 255
Print My_word '65535
Gerold
:-)
und so gehts nach python_rocks-Methode aber ohne direkte Adressierung
Code:Dim My_word As Word
Dim B1 As Byte At My_word Overlay
Dim B2 As Byte At My_word + 1 Overlay
Hallo Rofo88!Zitat:
Zitat von Rofo88
So etwas habe ich immer schon gesucht. Danke! :-)
mfg
Gerold
:-)
Das geht? Cool !! THX!!!
Muss ich mir merken, erleichtert einem doch einiges beim Zahlenschubsen.
Gruß MeckPommER
Hi Jungs,
noch besser ist es, Bitoperationen zu benutzen. Die gehen sogar noch schneller als Addition und natürlich viel schneller als Multiplikation :-D
Result = (Highbyte << 8) | LowByte;
Mfg, der Maddin
oohh.... kann man sich vor Smilies schützen?
Hier nochmal ohne Smilie:
Result = ( Highbyte << 8 ) | LowByte;
Ob das Bascom so mitmacht...und mit Overlay gehts ganz ohne Rechnen und Schieben
Das geht in Bascom nicht? Ja, ich bin C Progger. Aber ... wenn Bascom DAS nicht kann..... böööh.... dann nehmts nich ;)
Dann natürlich sry für den Spam
Andersrum, DerMaddin ...
Geht das mit dem Overlaydimensionieren nicht in C? Das geht nämlich noch schneller als das Shiften :)
Meine Meinung: Bascom ist DAS BESTE (wenn man zu gegebener Zeit hier und da ein wenig Assembler einstreut, man wie ich C-Legastheniker ist und Basic schon mit der Muttermilch kurz nach Mitte des letzten Jahrhunderts eingesogen hat *g*)
Das mit Overlay nutze ich häufig und spart einem einiges an Arbeit. Das es aber auch mit AT [Variablenname] geht, das war mir neu. Dieses Forum ist wirklich unbezahlbar.
Hallo Leute,
danke für die schnelle Hilfe! SUPER!!
Habe die Methode nach phyton_rocks und rofo88 probiert.
Mfg. dl1akp
Hallo Der Maddin!Zitat:
Zitat von DerMaddin
Falls es dich interessiert. In Bascom nimmt man dafür den Befehl SHIFT. Aber das direkte Schreiben in den Speicher mit OVERLAY ist schneller, da nichts verschoben oder berechnet werden muss.
mfg
Gerold
:-)
@All,
ich nutze auch die Overlayfunktion aber nur aus "Fremndcode" und biun noch nicht so richtig durchgestiegen. Kann mir jemand mal Overlay und das AT erklären?
und zu MeckPommER: Damit hast Du wohl sehr recht: das Forum ist wirklich unbezahlbar und die Leute die einem helfen ersteinma....
MAT
@mat-sche
ok ich versuche es mal
Dim X as Word-> belegt im RAM 2 Byte um die Variable x da zu speichern ( 2 Byte weils ne Word-Variable ist, wenn da Long steht sinds 4 Byte und bei nem String noch mehr | die Position wo das im RAM steht ist nicht definiert und wird vom Compiler festgelegt)
Dim X as Word at $60-> macht das selbe wie oben nur das der Speicherplatz im RAM festgelegt ist (fängt halt bei $60 an) und nicht mehr vom Compiler bestimmt wird
Dim y As Byte At X Overlay-> legt fest das auf dem Speicherplatz von X (2 Byte) auch noch Y liegt (1 Byte) somit ist es möglich von der Word-Variable nur ein Byte manipolieren
Also das Overlay sagt aus das der Speicherplatz mehrfach belegt ist und das at an welcher Stelle der Speicherplatz ist
hallo Rofo,
danke für Deine, mir verständliche, Erläuterungg :D !
Jetzt kann ich mir auch einige Sachen erklären!
MAT
einfach die beiden bytes in eine wordvariable(adresse vorher ausmachen) und reinpoken, fertig.
Hallo sechsrad!Zitat:
Zitat von sechsrad
Du meinst mit VARPTR http://avrhelp.mcselec.com/index.html?varptr.htm die Adresse herausfinden und mit POKE http://avrhelp.mcselec.com/index.html?poke.htm zuerst die herausgefundene Adresse und dann die "Adresse + 1" beschreiben?
Ich kenne mich noch nicht so gut mit Bascom aus. Aber in der Hilfe zu POKE steht nur etwas von den Registern 0-31.
Aber ich werde es dann noch ausprobieren. Man will ja lernen.
mfg
Gerold
:-)
Hallo!Zitat:
Zitat von python_rocks
Ich bekomme beim Kompilieren dieses Beispiels
den FehlerCode:$regfile = "M8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600
Dim Wordvar As Word
Dim Address As Word
Wordvar = 200
Print "Old Wordvar:" ; Wordvar
Address = Varptr(wordvar)
Print "Address:" ; Address
Poke Address , 255
Poke Address + 1 , 255
Print "New Wordvar:" ; Wordvar
End
"Error : 200 Line: 24 .DEF not found [R98 [adddr]] , in File..."
Wenn ich die POKE-Zeilen auskommentiere, dann bekomme ich als Ausgabe des laufenden Programms das hier:
mfgCode:Old Wordvar:200
Address:96
New Wordvar:200
Gerold
:-)
poke haut glaube ich nicht so hin !
mach das am besten so :
Dim b1 as Byte at $60 OVERLAY
Dim b2 as Byte at $61 OVERLAY
b1=1
b2=2
lo und hi-byte dort reinpacken.
Mit "peek" und "poke" kann man nur die Register 0-31 lesen und schreiben. Wenn man im SRAM etwas lesen und schreiben will, dann muss man dafür "inp" und "out" benutzen.
Hallo MeckPommER!Zitat:
Zitat von MeckPommER
Ja, damit funktioniert's. :-)
Ergebnis:Code:$regfile = "M8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600
Dim Wordvar As Word
Dim Address As Word
Wordvar = 200
Print "Old Wordvar:" ; Wordvar
Address = Varptr(wordvar)
Print "Address:" ; Address
Out Address , 255
Address = Address + 1
Out Address , 255
Print "New Wordvar:" ; Wordvar
End
mfgCode:Old Wordvar:200
Address:96
New Wordvar:65535
Gerold
:-)