بچه ها لطف کنید برنامه اتصال میکرو به صفحه کلید شماره را برام ارسال کنید. :cry2:
منتظر منتظر منتظرم
:agree:
منتظر منتظر منتظرم

A: Cls Lcd " Insert time" Locate 2 , 1 Home1: Key = Getkbd() Gosub Key_convert If Key > 15 Then Goto Home1 Waitms 200 Select Case Key Case 0 To 9 _min = Key _min = _min * 10 Lcd " " ; Key Goto K Case Else Goto Home1 End Select K: Key1 = Getkbd() Gosub Key_convert If Key1 > 15 Then Goto K Waitms 200 Select Case Key1 Case 0 To 9 I = _min + Key1 _min = I Lcd K ; ":" Goto K2 Case Else Goto K End Select K2: Key2 = Getkbd() Gosub Key_convert If Key2 > 15 Then Goto K2 Waitms 200 Select Case Key2 Case 0 To 9 _sec = Key2 _sec = _sec * 10 Lcd Key2 Goto K3 Case Else Goto K2 End Select K3: Key3 = Getkbd() Gosub Key_convert If Key3 > 15 Then Goto K3 Waitms 200 Select Case Key3 Case 0 To 9 I = _sec + Key3 _sec = I Lcd Key3 Goto Main Case Else Goto K3 End Select '===================================================== Do Main: ...
دیدگاه