3PI goes BASCOM

[pinsel120866]

Hallo Michael,

danke für die Antwort.

Ich habe nun folgendes:

Declare Sub Linedata()

Dim Linesens1 As Integer 
Dim Linesens2 As Integer 
Dim Linesens3 As Integer 
Dim Linesens4 As Integer 
Dim Linesens5 As Integer  
Config Adc = Single , Prescaler = Auto , Reference = Off 
Start Adc

Sub Linedata()    
Config Portc.5 = Output    
Portc.5 = 1    
Linesens1 = Getadc(0)    
Linesens2 = Getadc(1)    
Linesens3 = Getadc(2)   
Linesens4 = Getadc(3)    
Linesens5 = Getadc(4)    
Portc.5 = 0 
End Sub

Aufruf mit

call Linedata

Was meinst du?