تبدیل رشته در بسکام(قفل رمز)

[shadi_computer]

بازم سلام، قبلا گفتم که کامپیوتر می خونم و الکترونیک بلد نیستم و پایان نامه ام قفل رمز دیجیتاله . :nerd:
من می خوام رمز رو از کیپد بگیرم و روی lcd به صورت * نمایش بدم حالا این رمز بایدرشته باشه تا بعد با رشته ای که توی eeprom ذخیره کردم مقایسه کنم و اگه درست بود قفل باز بشه .
می خوام ببینم این تکه کدی که نوشتم درسته ؟ کاری که می خوام انجام میشه اما آیا رشته به درستی ساخته می شه ؟
ممنون میشم راهنماییم کنید.
Dim M As Byte , D As Byte
Dim A As Byte
Dim S As String * 10
Cls
Home
S = ""
Main:
M = Getkbd()
If M = 16 Then Goto Main
Main2:
D = Getkbd()
If D <> 16 Then Goto Main2
A = Lookup(m , Read_key)
S = Str(a)
Lcd "*"
Shift S , Right , 1
Goto Main
End

Read_key:
Data 7 , 8 , 9 , 10 , 4 , 5 , 6 , 11 , 1 , 2 , 3 , 12 , 13 , 0 , 14 , 15

[tofan_2050]

پاسخ : تبدیل رشته در بسکام(قفل رمز)

ببین این بدردت میخوره
البته باید اعدادت از صفر تا 9 باشند تا درست بشه کلیدهایی که کد 10 یا 11 یا 12 یا 13 یا 14 بر می گردونن رو نزنی و البته میتونی یه شرط بزاری که این اعداد برگردونده بشن بیاد دوباره عدد بگیری کلیدی هم که کد 15 رو بر می گردونه میره واسه چک کردن پس ( که واست این کار رو کردم )

Dim M As Byte , D As Byte
Dim A As Byte
Dim S As String * 1
Dim Pass As String 10
Dim Oldpass As String * 10
dim T AS Byte
t=1
Cls
Home
S = ""
Pass = ""
Main:
M = Getkbd()
If M > 15 Then Goto Main
A = Lookup(m , Read_key)
if A>10 then goto AA
if T>10 then
S = Str(a)
Lcd "*"
Pass = Pass + S
t=t+1
end if
AA:
If A = 15 Then Goto Checkpass
Goto Main
End

Checkpass:
t=1
Oldpass = ""
Readeeprom Oldpass , 10
Waitms 200
If Pass = Oldpass Then
Lcd "Pass Ok"
Wait 1
Goto .......
Cls
Pass = ""
S = ""
End If
Lcd "pass error"
Pass = ""
S = ""
t=1
Goto Main





Read_key:
Data 7 , 8 , 9 , 10 , 4 , 5 , 6 , 11 , 1 , 2 , 3 , 12 , 13 , 0 , 14 , 15