با سلام خدمت تمامی دوستان عزیز.
:cry:
من یک مشکل دارم که مطرح میکنم و امیدوارم جوابی از دوستان عزیزم بگیریم.
من روی یک کی پد4*4 2کار میخوام انجام دهم.در قسمت اول 8کلید را روشن کنم و در قسمت دوم کی پد 8چراغ را خاموش کنم.
برای مثال با زدن کلید بالا اول سمت چپ که کلید 7ماست چراغی روشن شود و با زدن کلید1 آن چراغ خاموش شود.البته تا اینجا رو نوشتم اما بقیه چراغها
رو نتونستم.
اگر کسی میتونه کمکم کنه لطف کنه زودتر برام پیام بده.
اما در قسمت بعد من میخوام بازدن کلیدهای روشن کننده ال ای دی ها یک اسم در ال سی دی کاراکتری نوشته شود.مثلا با زدن 7بنویسه فرزاد و با زدن 1اونو خاموش
کنم و الا آخر.
منتظر کمک همه شما دوستان عزیزم هستم. :roll: :roll:
اینم زیر برنامه ای که نوشتم:
$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Config Portd = Input
Config Kbd = Portd , Debounce = 50 , Delay = 1
Dim A As Byte
Do
A = Getkbd()
If A < 16 Then
Select Case A
Case 0 :
Set Portb.0
Case 1 :
Set Portb.1
Case 2 :
Set Portb.2
Case 3 :
Set Portb.3
Case 4 :
Set Portb.4
Case 5 :
Set Portb.5
Case 6 :
Set Portb.6
Case 7 :
Set Portb.7
Case 0 :
Reset Portb.0
End Select
End If
Loop
End

من یک مشکل دارم که مطرح میکنم و امیدوارم جوابی از دوستان عزیزم بگیریم.

من روی یک کی پد4*4 2کار میخوام انجام دهم.در قسمت اول 8کلید را روشن کنم و در قسمت دوم کی پد 8چراغ را خاموش کنم.
برای مثال با زدن کلید بالا اول سمت چپ که کلید 7ماست چراغی روشن شود و با زدن کلید1 آن چراغ خاموش شود.البته تا اینجا رو نوشتم اما بقیه چراغها
رو نتونستم.

اگر کسی میتونه کمکم کنه لطف کنه زودتر برام پیام بده.

اما در قسمت بعد من میخوام بازدن کلیدهای روشن کننده ال ای دی ها یک اسم در ال سی دی کاراکتری نوشته شود.مثلا با زدن 7بنویسه فرزاد و با زدن 1اونو خاموش
کنم و الا آخر.
منتظر کمک همه شما دوستان عزیزم هستم. :roll: :roll:
اینم زیر برنامه ای که نوشتم:
$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Config Portd = Input
Config Kbd = Portd , Debounce = 50 , Delay = 1
Dim A As Byte
Do
A = Getkbd()
If A < 16 Then
Select Case A
Case 0 :
Set Portb.0
Case 1 :
Set Portb.1
Case 2 :
Set Portb.2
Case 3 :
Set Portb.3
Case 4 :
Set Portb.4
Case 5 :
Set Portb.5
Case 6 :
Set Portb.6
Case 7 :
Set Portb.7
Case 0 :
Reset Portb.0
End Select
End If
Loop
End
دیدگاه