با سلام به همه دوستان
من برنامه یه ماشین حساب رو نوشتم و در پروتئوس هم شبیه سازی کردم و جواب گرفتم ولی در عمل با کیپد به مشکل برخوردم.
کیپد رو هم عوض کردم ولی جواب نگرفتم.
سوالم اینه که این برنامه من مشکلی نداره..؟
Dim Key As Byte
Dim m As String * 1
این معرفی کیپد هستش
Config Kbd = Porta , Debounce = 50 , Delay = 50
اینم یه زیر برنامه واسه گرفتن عدد از کیپد هستش
Do
K = Getkbd()
Select Case K
Case 7 : Key = 0
Case 2 : Key = 1
Case 6 : Key = 2
Case 10 : Key = 3
Case 1 : Key = 4
Case 5 : Key = 5
Case 9 : Key = 6
Case 0 : Key = 7
Case 4 : Key = 8
Case 8 : Key = 9
Case 3 :
m = "c"
Case 11 :
m= "="
Case 12 :
m= "/"
Case 13 :
m= "*"
Case 14 :
Op = "-"
Case 15 :
m= "+"
End Select
Loop Until K <> 16
Do
K = Getkbd()
Loop Until K = 16
K = 0
Return
ممنون میشم اگه که برنامه مشکل داره بهم بگین
با تشکر
من برنامه یه ماشین حساب رو نوشتم و در پروتئوس هم شبیه سازی کردم و جواب گرفتم ولی در عمل با کیپد به مشکل برخوردم.
کیپد رو هم عوض کردم ولی جواب نگرفتم.
سوالم اینه که این برنامه من مشکلی نداره..؟
Dim Key As Byte
Dim m As String * 1
این معرفی کیپد هستش
Config Kbd = Porta , Debounce = 50 , Delay = 50
اینم یه زیر برنامه واسه گرفتن عدد از کیپد هستش
Do
K = Getkbd()
Select Case K
Case 7 : Key = 0
Case 2 : Key = 1
Case 6 : Key = 2
Case 10 : Key = 3
Case 1 : Key = 4
Case 5 : Key = 5
Case 9 : Key = 6
Case 0 : Key = 7
Case 4 : Key = 8
Case 8 : Key = 9
Case 3 :
m = "c"
Case 11 :
m= "="
Case 12 :
m= "/"
Case 13 :
m= "*"
Case 14 :
Op = "-"
Case 15 :
m= "+"
End Select
Loop Until K <> 16
Do
K = Getkbd()
Loop Until K = 16
K = 0
Return
ممنون میشم اگه که برنامه مشکل داره بهم بگین
با تشکر
oo:
نداره؟
دیدگاه