Pinausgang festlegen

[tobiasrie]

o.k. das erste Problem lag wirklich an der Baudrate.
leider habe ich mit den anderen Ports noch immer ein Problem.

ich weiss leider nicht wie man hier den Code richtig einfügt, Sorry


$regfile = "m8def.dat"
'$crystal = 3690000
'$baud = 19200

Const Keys = 8

Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input

Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Portd.4 = Output
Config Portd.5 = Output
Config Portd.6 = Output
Config Portd.7 = Output

Dim I As Byte
Dim Key As Byte

Do


For I = 1 To Keys
Key = I
Select Case Key
Case 1 : Debounce Pinb.0 , 0 , Key_o1 , Sub 'o.k.
Case 2 : Debounce Pinb.1 , 0 , Key_o2 , Sub 'o.k. (lag an der Baudrate)
Case 3 : Debounce Pinb.2 , 0 , Key_o3 , Sub 'o.k.
Case 4 : Debounce Pinc.0 , 0 , Key_o4 , Sub 'Schaltet PD.3 und PD.4
Case 5 : Debounce Pinc.1 , 0 , Key_o5 , Sub 'o.k.
Case 6 : Debounce Pinc.2 , 0 , Key_o6 , Sub 'passiert nicht
Case 7 : Debounce Pinc.3 , 0 , Key_o7 , Sub 'o.k.
Case 8 : Debounce Pinc.4 , 0 , Key_o8 , Sub 'passiert nichts


End Select
Next

Loop

Key_o1:
Toggle Portd.0
Return

Key_o2:
Toggle Portd.1
Return

Key_o3:
Toggle Portd.2
Return

Key_o4:
Toggle Portd.3
Return

Key_o5:
Toggle Portd.4
Return

Key_o6:
Toggle Portd.5
Return

Key_o7:
Toggle Portd.6
Return

Key_o8:
Toggle Portd.7
Return


End