Liste der Anhänge anzeigen (Anzahl: 1)
Also mein Code in [flash width=100 height=100]Bascom [/flash]schaut so aus:
Code:
'$sim
'----- Registrations Datei und Quartz -----
$regfile = "m8def.dat"
$crystal = 4000000
'baud = 9600
'----- -----
Config Portd = Output
Ddrb = &B0000011
'----- Lcd Initialisieren -----
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.6 , Rs = Portd.7
Declare Sub Lcds
'----- ADC Initialisieren -----
Config Adc = Single , Prescaler = Auto , Reference = Avcc
'Enable Adc
'----- Variablen -----
Dim A As Word , Channel0 As Byte , Channel1 As Byte , B As Word , Channel2 As Byte , C As Word , Empfang As Byte
'Enable Interrupts
Cursor Off
Channel0 = 5
Channel1 = 4
Channel2 = 3
Do
Start Adc
A = Getadc(channel0)
B = Getadc(channel1)
C = Getadc(channel2)
Stop Adc
If A < 150 Then
Portb.0 = 1
Else
Portb.0 = 0
End If
Call Lcds
Loop
End
Sub Lcds
Cls
Locate 1 , 1
Lcd "Helligkeit: " ; A
Locate 2 , 1
Lcd "LS L:" ; B ; " R:" ; C
'Lcd "Empfangen: " ; Empfang
Waitms 300
End Sub
und meine Schaltung so... es soll channel 5 sein an 4 und 3 hängen auch 100K direkt auf gnd soll später die linien verfolgung ran