Gerne, ist aber in Basic:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 ,
Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Cls
Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.5 = Input
Do
Debounce Pind.2 , 0 , Bx_einschalten , Sub
Debounce Pind.3 , 0 , Bx_ausschalten , Sub
Debounce Pind.4 , 0 , Be_einschalten , Sub
Debounce Pind.5 , 0 , Be_ausschalten , Sub
Loop
Bx_einschalten:
Cls
Lcd "Box Ein"
Waitms 10
Print "7E 30 30 30 30 20 31 0D"
Return
Bx_ausschalten:
Cls
Lcd "Box Aus"
Waitms 10
Print "7E 30 30 30 30 20 30 0D"
Return
Be_einschalten:
Cls
Lcd "Beamer Ein"
Waitms 10
Print "* 0 IR 001\r"
Waitms 10
Print "* 0 IR 001"
Waitms 10
Print "0 IR 001\r"
Waitms 10
Print "IR 001\r"
Return
Be_ausschalten:
Cls
Lcd "Beamer Aus"
Waitms 10
Print "* 0 IR 002\r"
Waitms 10
Print "* 0 IR 002"
Waitms 10
Print "0 IR 002\r"
Waitms 10
Print "IR 002\r"
Return
End
Wie gesagt, beim Beamer funktioniert alles.
Ein Befehl von den 4 hat gepasst :)
Danke
Gruss Alex