کمک فوری

lord mohsen

عضو جدید
یه برنامه می خوام بنویسم که با یک شسی یک تایم مشخص رو گرفته و از اون برای روشن نگه داشتن یک رله استفاده کنه
این روند کلی برنامس که لحظه روشن بودن یک LED باید همون تایم باشه و مهم اینه که باید تمام روند برنامه به همین روش کار کنه.البته یه چیزی نوشتم ولی گیر کردم بخواین همون رو هم قرار می دم
$regfile = "m8def.dat"
$crystal = 1000000
Ddrd = 3
Config Int0 = Falling
Enable Interrupts
Enable Int0
On Int0 Faal
Dim A As Byte
A = 0
Do
Select Case A
Case 1 : Set Portd.0
Reset Portd.1
Case 2 : Portd = 0

Case 3 : Reset Portd.0
Set Portd.1
Case 4 : Portd = 0
End Select
Loop
Faal:
Incr A
If A > 4 Then A = 1
Return
 

Similar threads

بالا