كامل كردن برنامه قفل رمز

[Elec_l0vE]

سلام . دوستان من اين برنامه قفل رمز رو نوشتم . ولي كامل نيست . اگه ميشه كمك كنيد هم ايراداتشو بگيريم هم كاملش كنيم .

$regfile = "M8DEF.DAT" : $crystal = 8000000

 Dim A As Byte

 S As String

 Dim Es As Eram String * 4

Config Kbd = Portb



   Cls
Lcd "Be Name Khoda"
Waitms 200
Cls
Lcd "designer : ElecLove"
Waitms 250
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




End





Equal:
Data 1 , 2 , 3 , 16 , 4 , 5 , 6 , 16 , 7 , 8 , 9 , 16 , 12 , 0 , 14 , 16 , 16

[1nafar]

سلام
این برنامه کامل نیست و چند تا اشکال تایپی هم داره .
مثلا در خط
If A = S
Goto Correct
علاوه بر غلط بودن دستور if برچسب Correct مشخص نشده
و....
توی سایت پروژه ی قفل رمز کامل وجود داره که میتونید با جستوجو پیداش کنید .

[Elec_l0vE]

بله correct رو بعدا راش تعريف ميكنم كه مثلا پايه اي رو يك كنه . ميخاستم ببينم ساختار كلي برنامه درست هست يا نه

درزم من ميخام خودم برنامشو بنويسم . وگرنه برنامه و مدار كه تو اينترنت زياده

[tozin]

منم دنبالش بودم و نوشتم و دادم به استادمون و کلی حال کرد ولی حیف که از سیستمم پاک شد و کلی اعصابم خورد شد
کلی واسش زحمت کشیدم و چند وقت روش کار کردم و توی دانشگاه تنها کسی بودم که جواب گرفتم
حدود 300 خط برنامه نوشته بودم و کامل ترین قفل رمز بود ولی حیف .....
الانم دنبال یک پروژه کامل هستم و اگه میتونین کمکم کنید

[Elec_l0vE]