Ich habe gerade ein neues Programm mit nur einem Taster geschrieben aber es funzt immer noch nicht , kann mir jemand mal sagen warum dass nicht geht??? Ich glaube dass Problem ist irgendwo bei der If- Anweisung
Code:
$regfile = "m8def.dat"
$crystal = 1000000

Config Pinb.1 = Output                                      ' Enable 1
Config Pinb.2 = Output                                      ' Input 1a
Config Pinb.3 = Output                                      ' Input 1b

Config Pinc.5 = Output                                      ' Enable2
Config Pinc.4 = Output                                      ' Input 2a
Config Pinc.3 = Output                                      ' Input 2b

Config Pinb.5 = Input                                       ' Taster input

Dim Taster As Bit                                           ' Taster Variable

Pinb.5 = 1                                                  ' Pull up

Do                                                          ' Wertzuweisung Variable

If Pinb.5 = 1 Then

Taster = 1

Else

Taster = 0

End If



If Taster = 1 Then

Pinb.1 = 1
Pinc.5 = 1

Pinb.2 = 1
Pinc.4 = 1

Else

Pinb.1 = 0
Pinc.5 = 0

Waitms 150

Pinb.1 = 1
Pinc.5 = 1

Pinb.3 = 1
Pinc.3 = 1

Waitms 300

Pinb.3 = 0

Waitms 200

Pinc.3 = 0

Pinb.1 = 0
Pinc.5 = 0

Waitms 100

End If
















Loop