با سلام بر مهندسین
من یه برنامه با بیسکام نوشتم تو پروتوس تست کردم درست بود ولی وقتی پروگرام میکنم روی برد یا اصلا کار نمیکنه یا با تاخیر زیاد یه واکنش نصفه نیمه میده
اینم برنامه
بگم که d.0 و d.1 صفر و یک میکنم بعضی وقتها برای یه لحظه خروجی میده
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc = Output
Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input
Dim Sr As Bit
Dim Sl As Bit
Do
If Pind.0 = 0 And Pind.1 = 0 Then
Set Portc.0
Reset Portc.1
Set Portc.2
Reset Portc.3
Elseif Pind.0 = 1 And Pind.1 = 0 Then
Reset Portc.0
Set Portc.1
Reset Portc.2
Reset Portc.3
Elseif Pind.0 = 0 And Pind.1 = 1 Then
Reset Portc.0
Reset Portc.1
Reset Portc.2
Set Portc.3
End If
Loop
End
من یه برنامه با بیسکام نوشتم تو پروتوس تست کردم درست بود ولی وقتی پروگرام میکنم روی برد یا اصلا کار نمیکنه یا با تاخیر زیاد یه واکنش نصفه نیمه میده
اینم برنامه
بگم که d.0 و d.1 صفر و یک میکنم بعضی وقتها برای یه لحظه خروجی میده
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc = Output
Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input
Dim Sr As Bit
Dim Sl As Bit
Do
If Pind.0 = 0 And Pind.1 = 0 Then
Set Portc.0
Reset Portc.1
Set Portc.2
Reset Portc.3
Elseif Pind.0 = 1 And Pind.1 = 0 Then
Reset Portc.0
Set Portc.1
Reset Portc.2
Reset Portc.3
Elseif Pind.0 = 0 And Pind.1 = 1 Then
Reset Portc.0
Reset Portc.1
Reset Portc.2
Set Portc.3
End If
Loop
End
دیدگاه