создать переключающий поворотник на BASCOM

Question

Я хочу создать мигающий переключатель в BASCOM. Я написал этот код для этого:

$regfile = "m16def.dat"
$crystal = 1000000

Config Portc = &B11111111
Config Portd.0 = 0
Portd.0 = 1
Portc = &H00

Do
If Portd.0 = 1 Then
   Portc = &B11000011
   Waitms 500
   Portc = &H00
   Waitms 500
Else
   Portc = &B00111100
   Waitms 500
   Portc = &H00
   Waitms 500
End If
Loop

но результат такой: proteus:

любая помощь будет оценена.

Answer 1

Я прочитал это , затем я изменил If Portd.0 = 1 Then на If Pin = 1 Then, и это работает. Я не совсем понимаю, почему моя первая команда не сработала!