چگونه یک قفل محلی در ویژوال بیسیک بسازیم ؟

قفل محلی

به بخش آموزشی من در رابطه با چگونگی ساخت یک قفل محلی در ویژوال بیسیک خوش آمدید. در واقع منظور از محلی این است که رمز عبور به برنامه hardcoded شده اند و بدون ویرایش سورس کد برنامه قابل تغییر نخواهد بود.

قفل محلی

مراحل ساخت

گام ۱ :

در ابتدا میخواهیم که برنامه ای شامل : textbox1 (شامل رمز عبور) و label1 (برای مشخص کردن جایی که کاربر باید رمز عبور را وارد نماید) و button1 (برای چک کردن رمز عبور)

گام ۲:

سپس میخواهیم مقداری متغیر بسازیم . میخواهیم که رمز عبور را در یک متغیر از نوع رشته قرار دهیم و همچنین تعیین کنیم که آیا حروف بزرگ در textbox1 (رمز عبور ورودی) باید صحیح باشند یا خیر.


Dim password As String = "Yorkiebar"
Dim capsMatter As Boolean = True

گام ۳:

حال بر روی رویداد کلیک button1 ابتدا میخواهیم چک کنیم که رمز عبور وارد شده بصورت رشته تعیین شده باشد . اگر بود سپس میخواهیم چک کنیم که آیا بزرگی یا کوچکی حروف مهم هستند یا خیر ؟


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (Not TextBox1.Text = Nothing) Then
If (capsMatter) Then
Else
End If
End If
End Sub

گام ۴:

در نهایت تنها نیاز داریم که رمز عبور مناسب را چک کنیم و نتیجه نهایی را گزارش دهیم. اگر شما میخواهید که آنها را به فرم دیگری در login هدایت کنید کافیست که نام فرم جدید را پس از .Show() بیاورید.


If (capsMatter) Then
If (TextBox1.Text = password) Then
MsgBox("Unlocked!")
Else : MsgBox("Incorrect Password!")
End If
Else
If (TextBox1.Text.ToLower() = password.ToLower()) Then
MsgBox("Unlocked!")
Else : MsgBox("Incorrect Password!")
End If
End If

پروژه تکمیل شد !
در زیر سورس کد کامل و فایل های دانلودی پروژه آورده شده است:


Public Class Form1
Dim password As String = "Yorkiebar"
Dim capsMatter As Boolean = True
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (Not TextBox1.Text = Nothing) Then
If (capsMatter) Then
If (TextBox1.Text = password) Then
MsgBox("Unlocked!")
Else : MsgBox("Incorrect Password!")
End If
Else
If (TextBox1.Text.ToLower() = password.ToLower()) Then
MsgBox("Unlocked!")
Else : MsgBox("Incorrect Password!")
End If
End If
End If
End Sub
End Class

داریوش فرخی

داریوش فرخی هستم از سال 92 شروع به یادگیری برنامه نویسی و از سال 93 در بخش برنامه نویسی و تولید محتوای سایت mspsoft.com مشغول هستم. فعالیتم نیز بیشتر در زمینه های برنامه نویسی با سی شارپ و asp.net بوده است. اوقات فراغتم را هم غالبا با تماشای فیلم یا بازی های کامپیوتری پر میکنم .

نوشته‌های مرتبط

دیدگاه‌ها

*
*

این سایت از اکیسمت برای کاهش هرزنامه استفاده می کند. بیاموزید که چگونه اطلاعات دیدگاه های شما پردازش می‌شوند.

    رضا پاسخ

    درس شما درد نکنه

    بیسب پاسخ

    فیلمشم بزار

ما یک پرسشنامه‌ی کوچولو داریم، که قول میدیم وقتتون رو خیلی نمی‌گیره، ولی کلی به ما کمک می‌کنه، چون هم assessment مونه ,و هم شما به ما در این زمینه کمک میکنید.بزن بریم