3PI goes BASCOM

[Michael]

Hallo Pinsel,

meiner Erinnerung nach mußt du das Licht für die Liniensensoren einschalten. PortC.5, hab grad nachgeschaut.
Die 5 Sensoren werden dann über AD-Wandler eingelesen.
Ich meine, es wäre eine externe Referenz dran, deshalb bei der Config ADC Reference = Off

Gruß, Michael

[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?

[Michael]

Hallo Pinsel,

ja, so hab ich es auch gemacht.

PortC.0 bis PortC.4 muß Input sein. Linienlicht ist PortC.5, Output

Linienlicht = 1
Portc = Portc Or &B00011111
For I = 0 To 4
     S = I + 1
     Pc_(s) = Getadc(i)
Next

Gruß, Michael