Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
Dim W As Integer
Config Portc.0 = Output
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Portc.0 = 1
Do
W = Getadc(7.)
Print W
If W = 340 Then Portc.0 = 0 Else Portc.0 = 1
Loop
End
So. Bei dem Code leuchtet die LED1 sobald du den Taster T1 drückst. Wenn du ihn wieder los lässt geht die LED aus.
Den "Print" Befehl kannste rausmachen. Ich hab den nur benutzt um per TeraTerm den exakten ADC Wert für die If-Abfrage zu bekommen. So kannste dann auch die Werte der anderen Taster ermitteln wenn du sie brauchen solltest.
Einfach das Board per RS232 and en PC anschließen und TeraTerm anmachen und dann einen Taster drücken. Der Zahlenwert ist der Wert der Variable "W".
Lesezeichen