کمک برنامه با سویچ
سلام
من میخاهم یه برنامه بنویسم که یک پایه که به سویچ وصل هست را هر 1 ثانیه یکبار چک کند اگر صفر شد یک واحد به متغییر اضاف (کم)کند و زمانی دست از روی سویچ بردارم دیگر عمل خاصی انجام ندهد تا عدد را برای نمایش بفرستم
ایا محدودیت در حداکثر عددی که اینجوری داشته باشم دارم
این چیزی هست که به نظرم امده
$regfile = "m16def.dat"
$crystal = 100000
Config Portc = Output
Config Porta = Input
Dim X As Word
Set Porta.0
Set Porta.1
X = 1
Do
If Porta.0 = 1 Then
Incr X
If Porta .1 = 0 Then
Decr X
End If
Portc = Lookup(x , Datda)
Loop Until X > 9
Datda:
Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128
پاسخ با نقل قول
نوشته اصلی توسط r0b0
