Bascom: Obsługa klawiatury, a włąściwie jednego przycisku.

Dzisiaj chwile zająłem się obsługą klawiatury, gdy naciskam przycisk dioda LED świeci się.

Nie omieszkam zamieścić kodu:

$regfile "m16def.dat"
$crystal = 160000

Config Portd.0 = Input
Config Portd.1 = Output

Portd.0 = 1
Portd.1 = 0

Config Portc.0 = Output
Config Portc.1 = Output

Portc.0 = 0
Portc.1 = 0

Do

   If Pind.0 = 0 Then
   Portc.0 = 1
Else
Portc.0 = 0
End If
Loop

Jeśli chodzi o podłączenia w układzie wygląda to następująco PD0 – JP13 , PD1 – JP3
( Doszedłem do tego dość eksperymentalnie, testowałem porty aż doszłem do oczekiwanego efektu ).