سلام . دوستان من این برنامه قفل رمز رو نوشتم :wow: . ولی کامل نیست . اگه میشه کمک کنید هم ایراداتشو بگیریم هم کاملش کنیم . :read:
کد:
$regfile = "M8DEF.DAT" : $crystal = 8000000 Dim A As Byte S As String Dim Es As Eram String * 4 Config Kbd = Portb Config Porta = Output Cls Lcd "Be Name Khoda" Waitms 200 Cls If S = 0 Goto Number else if goto main Main: Cls Lcd " Stand by" Do Waitms 500 Kb = Getkbd() Kb = Lookup(kb , Equal) A = Kb If Kb = 12 Then Goto Number Else If Lcd "A" If A = S Goto Correct Number: Cls Lcd "Old: " Lcd S S = Chr(0) Refresh: Lowerline Lcd "New: " ; S ; " " Do Waitms 200 A = Len(s) Kb = Getkbd() Kb = Lookup(kb , Equal) If Kb < 10 And A < 4 Then A = Kb + "0" S = S + Chr(a) Goto Refresh Elseif Kb = 14 And A = 0 Then Goto Main Elseif Kb = 14 And A <> 0 Then Decr A S = Left(s , A) Elseif Kb = 12 Then Cls Lcd " Saving...." Es = S Waitms 1800 Goto Main End If Goto Refresh Loop correct: set pina.1 goto main End Equal: Data 1 , 2 , 3 , 16 , 4 , 5 , 6 , 16 , 7 , 8 , 9 , 16 , 12 , 0 , 14 , 16 , 16
دیدگاه