سلام دوستان من این برنامه رو نوشتم و ارور هم نمیده فایلشو هم قرار دادم ولی مقادیر پین های وردی رو در متغییر نمیریزه و فقط دستور اولین شرط رو اجرا میکنه و دیگه شرطهای دیگه رو چک نمیکنه و دستوراتشون رو هم انجام نمیده لازم به ذکر هست برای فعال کردن موتور دو سیمه dc می خوام از این برنامه استفاده بکنم.ممنون میشم بگید مشکل چیه یا یک برنامه بیزحمت پیشنهاد بدید که پین 4 پین هرکدام کدام صفر شد مثلا یک پایه رو یک کنه .ممنون
$regfile "M32def.dat"
$crystal = 8000000
'*********************
Config Portd = Input
Config Portb = Output
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Rs = Porta.5 , E = Porta.4 , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , Db7 = Porta.0
'*********************
Dim A1 As Byte , A2 As Byte , A3 As Byte , A4 As Byte
Pind.0 = A1
Pind.1 = A2
Pind.2 = A3
Pind.3 = A4
Do
If A1 = 0 Then
Set Portb.4 : Waitms 180
Reset Portb.4
Waitms 300
Elseif A2 = 0 Then
Set Portb.5
Waitms 300
Reset Portb.5
Elseif A3 = 0 Then
Set Portb.6
Waitms 300
Reset Portb.5
Elseif A4 = 0 Then
Set Portb.7
Waitms 300
Reset Portb.7
End If
loop