_keypad_read:
Disable Interrupts
_key_data_raw = Getkbd()
If _key_data_raw <> 16 And _key_data_raw <> 15 And _key_data_raw <> 14 And _key_data_raw <> 13 And _key_data_raw <> 12 Then
_key_data_ripe = Lookup(_key_data_raw , Dta_keypad)
If _key_data_ripe = 55 Then
_mod = 10
_show_sequence = 0
Goto _exit
End If
If _key_data_ripe = 66 Then
_mod = 0
Goto _exit
End If
If _mod = 10 Then
If _step_enter = 1 Then _keypad_float_final = 0
Select Case _step_enter
Case 1:
_keypad_float_final = _keypad_float_final + _key_data_ripe
Case 2 To 6 :
_keypad_float_final = _keypad_float_final * 10
_keypad_float_final = _keypad_float_final + _key_data_ripe
End Select
Incr _step_enter
If _step_enter > 6 Then
_step_enter = 1
_keypad_float_final = 0
End If
End If
End If
_exit:
Enable Interrupts
Return
سلام
با استفاده ار برنامه ی بالا میخام از طریث keypad عدد رو وارد متغییر long کنم ولی مشکل اینجاست که تا 3 رقم وارد میشه
اساتید میتونن کمک کنن که مشکل از کجاست
دیدگاه