· Hier findest du BASCOM- Programmbeispiele

---

· erster Test von Taster, LED's und Summer

'Evaluationsboard V 2.01
'HPT 25.2.2013
$regfile = "m8def.dat" 'Controllerauswahl
$crystal = 16000000 'Quarzfrequenz

Config Portd = Output 'PinD.5=LED1, PinD.6=LED2, PinD.7=Summer
Config Pind.2 = Input '=Taster 1
Config Pind.3 = Input '=Taster 2
Config Pind.4 = Input '=Taster 3

Do
If Pind.2 = 1 Then Set Portd.5 ' Taster 1 gedrückt = LED1
If Pind.3 = 1 Then Toggle Portd.6 ' Taster 2 gedrückt = LED2 ein - aus
If Pind.4 = 1 Then Sound Portd.7 , 200 , 450 ' pin, Länge, Periodendauer.
Waitms 250
Reset Portd.5 ' Port zurücksezten
Loop

End 'Programm-Ende

---

Testprogramm blinkende LED
Testprogramm Taster - LED's - Ton