Dein Programm läuft aber so ist es schöner abzulesen, -> siehe unten.
Aber das geht nur mit der OS version 2.03 !!
ciao...
--------------------------------------------------------------------------------
DEFINE port24 AS PORT[24]
DEFINE ad8 AS AD[8]
DEFINE Wert AS BYTE
DEFINE MyConfig2 AS BYTE
MyConfig2 = 10000000b ' Aktiviert die AD-Ports als BYTEPORT 3
CONFIG2.INIT
CONFIG2.PUT MyConfig2
CONFIG2.OFF
LCD.INIT
#main
LCD.POS 1,1
LCD.PRINT "digital: " & port24 & " "
LCD.POS 2,1
LCD.PRINT "analog: " & ad8 & " "
PAUSE 10
goto main
Lesezeichen