Hallo,

das sieht bei mir so aus:

Code:
Config Porta.0 = Output
   Config Porta.2 = Output
   Config Porta.1 = Input
   Config Porta.3 = Input

   Set Porta.0                                              'High
   Reset Porta.2                                            'Low

   Waitms 20

   Y = Getadc(1)
   Y = 1024 - Y
   Lcdat 3 , 20 , "Y: " ; Y

   Config Porta.0 = Input
   Config Porta.2 = Input
   Config Porta.1 = Output
   Config Porta.3 = Output

   Set Porta.1                                              'High
   Reset Porta.3                                            'Low

   Waitms 20

   X = Getadc(2)
   X = 1024 - X
   Lcdat 4 , 20 , "X: " ; X
MFG

Ratman2000