من تو برنامه زیر قصد دارم وقتی کلیدفشرده میشه به مدت 5 ثانیه خروجی که فعلا یک led روشن بشه بعد خاموش بشه اما نمیدونم چرا تو پروتئوس درست کار نمیکه ممنون مشم راهنمایی فرمایید
$regfile = "m8def.dat".
$crystal = 4000000
Config Timer1 = Timer , Prescale = 256
Config Portb.0 = Input
Config Portd.0 = Output
Ddrb.0 = 1
Dim A As Byte
A = 0
Do
If Pinb.0 = 0 Then
Set Portd.0
Enable Interrupts
Enable Timer1
Timer1 = 64911
Start Timer1
On Timer1 Show
End If
Loop
End
'====================='
Show:
Incr A
If A = 125 Then
Stop Timer1
Reset Portd.0
A = 0
End If
Return
$regfile = "m8def.dat".
$crystal = 4000000
Config Timer1 = Timer , Prescale = 256
Config Portb.0 = Input
Config Portd.0 = Output
Ddrb.0 = 1
Dim A As Byte
A = 0
Do
If Pinb.0 = 0 Then
Set Portd.0
Enable Interrupts
Enable Timer1
Timer1 = 64911
Start Timer1
On Timer1 Show
End If
Loop
End
'====================='
Show:
Incr A
If A = 125 Then
Stop Timer1
Reset Portd.0
A = 0
End If
Return
دیدگاه