Ich hab's jetzt mal so probiert:
Und auf dem LCD erscheint erst * Test *, dann ganz viele adc aber ohne Zahl auf den LCD und dann wird anscheind ein Reset ausgeführt.Code:$regfile = "at26def.dat" $crystal = 6000000 $lib "mcsbyte.lbx" Config Adc = Single , Prescaler = Auto Enable Interrupts Dim Ldr As Word Start Adc Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Porta.4 , Rs = Porta.5 Config Lcd = 20 * 4 Cls Wait 1 Lcd " * Test * " Wait 1 Cls _printword: Ldr = Getadc(6) Lcd "adc " ; Str(ldr) Goto _printword End
Bei adc 0 free passiert nichts weiter nach * Test * und cls. Das LCD zeigt nur den Cursor
Im Simulator hängt sich das Programm in der Schleife nach ein paar Durchläufen bei LCD "adc " ; Str(ldr) auf
Mit Byte ging es ohne Probleme, außer halt das er nach 255 wieder bei 0 angefangen hat (is ja auch logisch).







Zitieren

Lesezeichen