اطلاعیه

Collapse
No announcement yet.

راهنمایی برای کامل کردن برنامه قفل رمز

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    راهنمایی برای کامل کردن برنامه قفل رمز

    سلام . دوستان من این برنامه قفل رمز رو نوشتم :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
    گاهي تمام چيزهايي که يک نفر مي خواهد، فقط دستي است براي گرفتن دست او، و قلبي است براي فهميدن وي ..
    برچسب ها: براي, برنامه, راهنمايي, رمز, قفل, كامل, كردن
    #2
    پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

    :cry2:
    گاهي تمام چيزهايي که يک نفر مي خواهد، فقط دستي است براي گرفتن دست او، و قلبي است براي فهميدن وي ..

    دیدگاه

      #3
      پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

      خوب کجاش ایراد داره چه کمکی می خوای؟؟؟
      برنامه رو واسه چی می خوای؟؟
      ازین برنامه قفل رمزی ها که زیاده بگرد تو نت پیدا میکنی یک سرچ بزن

      دیدگاه

        #4
        پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

        خوب بگو چه مشکلی داری تا حلش کنیم .
        بعدش هم چه امکاناتی می خواهی :job: :job:
        روی هر پله که باشی ، خدا یک پله از تو بالاتر است ،
        نه به خاطر اینکه خداست ، به خاطر اینکه دست تورا بگیرد .

        باران به دلیل استمرارش سنگ را سوراخ می کند ،
        نه به خاطر قدرتش !!!
        این که چه کسی باشی و در چه موقعیتی به تصمیم خودتان بستگی دارد . ( دکتر شریعتی )

        دیدگاه

          #5
          پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

          برنامم تا 4 رقم رو میگیره . این قسمتی هست که رمز گرفته شده رو با رمز وارده چک میکنه . ایا درست نوشتم ؟(رمز گرفته شده در متغیر s ای پی پی رام هست)

          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
          گاهي تمام چيزهايي که يک نفر مي خواهد، فقط دستي است براي گرفتن دست او، و قلبي است براي فهميدن وي ..

          دیدگاه

            #6
            پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

            شما میخواستی چنین چیزی بسازی؟
            ببین:
            بزن input
            حالا آیدی 2 رقمی وارد کن:
            فعلا از آیدی 10 تا 13 دارد مثلا بزن 10 البته کلید backspace هم دارد.
            ok بزن.
            حالا پسورد 11111111 را وارد کن.
            حال ok کن!
            خوب من قبلا برنامه قفل رمز نوشته بودم اما اینبار اومدم از برنامه شما ایده گرفتم اگر چنین چیزی میخوای به خاطر اینکه تکه ای از برنامه رو از شما ایده گرفتم سورسش رو رایگان به شما هدیه میکنم.
            چیزهایی که در بانک اطلاعاتش هست:
            آیدی 10 با پسورد 11111111
            آیدی 11 با پسورد 22222222
            آیدی 12 با پسورد 33333333
            آیدی 13 با پسورد 44444444
            http://www.fileden.com/files/2009/11/10/2645291//lock.v2.0_.rar
            البته شما میخوای فقط یک پسورد ثابت داشته باشی یا اینکه نه مثلا میخوای برای 2000 نفر آیدی و پسورد بزاری؟
            چون این چیزی که من گذاشتم برای n تا یوزر هست.

            دیدگاه

              #7
              پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

              نه تعداد یوزر هاش برام مهم نیس . 10 تا باشه کافیه . میخام رمزش 4 رقمی باشه و بشه عوضش کرد . تا 3 بار اشتباه وارد کردن هم میکرو قفل بشه که البته این قسمتشو نزاشتم .
              یعنی بقیه برنامم درست بود ؟!
              گاهي تمام چيزهايي که يک نفر مي خواهد، فقط دستي است براي گرفتن دست او، و قلبي است براي فهميدن وي ..

              دیدگاه

                #8
                پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

                یک طرح تکمیلی و جالب تو ذهنم هست که اضافه بشه خیلی خوبه
                مثلا برای ورودی یک اپارتمان میخوام بزارم که درب را باز بکنه:
                nتا رمز ورود برای nتا خانواده.که هر نفر از هر خانواده میاد رمز میزنه رو صفحه بیاد خانواده فلانی خوش امدید و در حافظش ساعت ورودی هارا save بکنه با اسم user که وارد شده.و در حالتی که مدار اماده به کار هست و هنوز کسی سرش نیومده (standby)روی صفحه ساعت و تاریخ را نشون بده و ساعت اخرین ورود که توسط چه کسیم بوده که اسمشو یا کنارش بنویسه یا به طور جدا گانه هرکی بخواد با زدن دکمه اسم اخرین نفر ورودیو بیاره و در صفحه فقط ساعت اخرین ورود را بنویسه.
                و در لیست ورودی ها تا چندین نفر اخر ورودی را نشان دهد همراه با ساعت ورودشان.و هر user هم بتواند برای خود تغیر رمز دهد و پس اززدن 3بار کد اشتباه یک بوق اختار بزند برای امنیت ساختمان و تا 2 دقیقه رمز نگیرد.و با یک رمز کلی که برای همگی است همه بتوانند USER e خود را در صورت فراموش کردن رمز پاک نموده و از اول یوزر جدید بسازند و در صورت رفتن یک خانواده از ساختمان بتوان یوزر ان را پاک کرد.و برای نام هر کاربر بتوان اسم دلخواه را با همان صفحه کلید مانند موبایل نوشت به این صورت که در هنگام ایجاد user بعد از دادن زمز انتخابی از ما روی صفحه بخواهد نام را وارد کنیم.و کلا رمز و نام جدید تکراری قبول نکند و پیغام دهد گه چیز دیگری بزنند.
                و یک مدار باتری back up هم براش طراحی کرد که اگه برق شهر رفت از کار نیوفته

                من این پروژه تو ذهنم هست و دوسدارم درستش کنم

                و یه قسمت دیگم که مهم نیست ولی امنینی خیلی بهتره اینکه تعریف کنیم از ساعت 12 شب تا 6 صبح بجای 3بار رمز اشتباه 1بار یا 2بار بشه

                دیدگاه

                  #9
                  پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

                  آره ایده جالبی هست.
                  بعد امتحان درستش میکنم.

                  دیدگاه

                    #10
                    پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

                    این طرحت خیلی جالبه ولی به نظرم اگه با ریدر و کارت های ار اف آی دی بشه عالی تره چون امنیتش خیلی میره بالاتر اگه هستی بزنیم تو خطش :job:

                    دیدگاه

                      #11
                      پاسخ : راهنمایی برای کامل کردن برنامه قفل رمز

                      نوشته اصلی توسط masoodhashemy
                      آره ایده جالبی هست.
                      بعد امتحان درستش میکنم.
                      آره جالبه.من این طرح را داشتم تو ذهنم و میآ‌خواستم به یه جاش برسونم اما دیدم اینجا سهبتش گفتم بذار مطرح کنم دیگه طوری نیست!حالا اگه روش کارکردی منم خبر بده تا ببینم چیآ‌ شده و چه جورعه

                      دیدگاه

                      قبلی template بعدی
                      لطفا صبر کنید...
                      X