سلام
برای اتصال کیپد به 8051 دستور خاصی وجود نداره و شما باید خودتون کیپد رو راه اندازی کنید ، برای اینکار روش های زیادی وجود داره ، مثلا :
[align=left]The keypad was directly connected to P0.0-P0.7 of the 89s8252.[/align]
کد:
Sub Getkey
Set P0 'initialize the 3x4 matrix keypad
Dim True As Bit
True = 1
While True = 1
Reset P0.6
If P0.2 = 0 Then
Lcd "1"
Debounce P0.2 , 0 , Pr
Lcd "Back to main1"
Waitms 200
Return '
End If
If P0.1 = 0 Then
Lcd "2"
Debounce P0.1 , 0 , Pr
Lcd "Back to main2"
waitms 200
Return '
End If
If P0.0 = 0 Then
Lcd "3"
Debounce P0.0 , 0 , Pr
Lcd "Back to main3"
waitms 200
Return '
End If
Set P0.6
Reset P0.5
If P0.2 = 0 Then
Lcd "4" '
Debounce P0.2 , 0 , Pr
Lcd "Back to main4"
waitms 200
Return
End If
If P0.1 = 0 Then
Lcd "5" '
Debounce P0.1 , 0 , Pr
Lcd "Back to main5"
waitms 200
Return
End If
If P0.0 = 0 Then
Lcd "6" '
Debounce P0.0 , 0 , Pr
Lcd "Back to main6"
waitms 200
Return
End If
Set P0.5
.
.
.
Wend
End Sub
Pr:
Cls
Locate 1 , 1 : Lcd "Pressing"
Locate 2 , 1
Waitms 200
Return
توی برنامه بالا یک کیپد 4.3 به پایه های P0.0-P0.7 میکرو متصل شده ،
نمیدونم چه جوری توضیح بدم ، ما در واقع ، یکی یکی پایه ها رو یک میکنیم و در همون حال اونا رو چک میکنیم ، برنامه رو مطالعه کنید اگه مشکلی بود بگید من توضیح بدم
برنامه دی اسمبلر در نت فراونه ( اگه پیدا نکردید بگید من بزارم ) شما میتونید به سادگی کد هگز رو به اسمبلی تبدیل کنید