سلام دو ستان من چند وقت هست که شروع به ساخت یک قفل رمزدار کردم ولی در یک قسمت به مشکل بر خورنم خواهش می کنم من رو کمک کنید
این برنامه ای که مشاهده می کنید
من در این برنامه زمانی که مثلا عدد 1234 رو می زنم این اعداد رو ی یک متغیر ریخته می شود و بعد روی lcd نشان داده می شود و بعد آن متغیر صفر می شود حالا من آمدم هر با این عدد رو توی یک متغیر ریختم و مشکل این جاست در این صورت عدد جمع می شوند یعنی 1234 می شود 10 بخواتر همین من نمی توانم عددی که روی lcd نمایش دادم رو به عنوان رمز حصاب کنم نمی دانم که چی کار کنم از اساتید بزرگوار ممنون می شم من رو کمک کنند
این برنامه ای که مشاهده می کنید
من در این برنامه زمانی که مثلا عدد 1234 رو می زنم این اعداد رو ی یک متغیر ریخته می شود و بعد روی lcd نشان داده می شود و بعد آن متغیر صفر می شود حالا من آمدم هر با این عدد رو توی یک متغیر ریختم و مشکل این جاست در این صورت عدد جمع می شوند یعنی 1234 می شود 10 بخواتر همین من نمی توانم عددی که روی lcd نمایش دادم رو به عنوان رمز حصاب کنم نمی دانم که چی کار کنم از اساتید بزرگوار ممنون می شم من رو کمک کنند
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.4 , Rs = Portd.5
Config Kbd = Porta , Debounce = 50 , Delay = 255
Lcd "shoeyb"
Wait 5
Cls
Dim A As Byte
Dim B As Long
Dim C As Long
B = 1388
Main:
A = Getkbd()
C = C + A
A = Lookup(a , Read_key)
If A < 16 Then
Select Case A
Case 0 To 9:
Lcd A
Case 10:
Cls
Case 13:
Lcd C
End Select
End If
Goto Main
End
Read_key:
Data 13 , 14 , 0 , 15 , 12 , 9 , 8 , 7 , 11 , 6 , 5 , 4 , 10 , 3 , 2 , 1
Baz:
Cls
Lcd "shoeyb"
Wait 1
Goto Main
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.4 , Rs = Portd.5
Config Kbd = Porta , Debounce = 50 , Delay = 255
Lcd "shoeyb"
Wait 5
Cls
Dim A As Byte
Dim B As Long
Dim C As Long
B = 1388
Main:
A = Getkbd()
C = C + A
A = Lookup(a , Read_key)
If A < 16 Then
Select Case A
Case 0 To 9:
Lcd A
Case 10:
Cls
Case 13:
Lcd C
End Select
End If
Goto Main
End
Read_key:
Data 13 , 14 , 0 , 15 , 12 , 9 , 8 , 7 , 11 , 6 , 5 , 4 , 10 , 3 , 2 , 1
Baz:
Cls
Lcd "shoeyb"
Wait 1
Goto Main
دیدگاه