صفحه ورود با VB بنویسم که وقتی پسورد رو درست میزنی وارد Form بشی

سلام
من خواستم یک صفحه ورود با VB بنویسم که وقتی پسورد رو درست میزنی وارد Form بشی :rolleye:
از حلقه Do...While استفاده کردم ولی موقه اجرا و پس از وارد کردن پسورد و دکمه Ok زدن خطای Overflow رو میده :blink:
البته این فقط در مورد عدد هست

کد:

---

Private Sub Form_Load()
Dim strPass As String
Dim intPass As Integer
Dim intPress As Integer

'Question
strPass = InputBox("Please enter the password", "Password")

'Check cancel button
If (strPass = "") Then
End 'Terminate the program
End If

'Convert
intPass = Val(strPass)

'Do
Do While ((intPass = 65556))
'The user's password is out of range
intPress = MsgBox("ACCESS DENIED", vbExclamation, "ERROR!")
strPass = InputBox("Please enter the password", "Password")

'Check cancel button
If (strPass = "") Then
End 'Terminate the program
End If

'Convert
intPass = Val(strPass)

Loop
End Sub

---

ببخشید وقتتون رو گرفتم :blush:

سلام دویت عزیز . اولین نوع Integer عدد 65556 براش بزرگه از Long استفاده کن . ثانیاٌ این برنامه وقتی عدد 65556 را وارد کردی Error میده . یعنی شما گفتی هر عدد ی وارد کرد برو به غیر 65556 .....

نقل قول:

---

نوشته شده توسط tomcat

سلام دویت عزیز . اولین نوع Integer عدد 65556 براش بزرگه از Long استفاده کن . ثانیاٌ این برنامه وقتی عدد 65556 را وارد کردی Error میده . یعنی شما گفتی هر عدد ی وارد کرد برو به غیر 65556 .....

---

سلام
مرسی از جوابتون
اینم کده درست

کد:

---

Private Sub Form_Load()
Dim strPass As String
Dim intPass As Long
Dim intPress As Integer

'Question
strPass = InputBox("Please enter the password", "Password")

'Check cancel button
If (strPass = "") Then
End 'Terminate the program
End If

'Convert
intPass = Val(strPass)

'Do
Do While ((intPass < 65556))
'The user's password is out of range
intPress = MsgBox("ACCESS DENIED", vbExclamation, "ERROR!")
strPass = InputBox("Please enter the password", "Password")

'Check cancel button
If (strPass = "") Then
End 'Terminate the program
End If

'Convert
intPass = Val(strPass)

Loop
End Sub

---

حالا این کد اعداد بالای 65556 رو قبول میکنه

سلام
این یک کد دیگس که این یکی فقط پسورد داخل سورس رو قبول میکنه :blush:

کد:

---

Private Sub Command1_Click()
If (Text1.PasswordChar = BioHazard) Then
Form2.Show
Form1.Hide
End If
End Sub

---

فکر کنم از تو خود سورس متوجه بشید چه چیزهایی لازم است
فقط یک سوال
چرا من بجای BioHazard عدد میدم ارور Type mismatch رو میده :sad:

دوست عزیز این برنامه هم خوب اشتباه است ....
برنامه بالا (دومی) هم باگ داره بعنی اعداد کوچکتر از این عدد رو قبول میکنه خود عدد و اعداد بزرگتر رو اشتباه میگره ....
بیا به جای استفاده از > از مخالف استفاده کن <>
برنامه آخرت هم که اصلاٌ کلاٌ اشتباه است .
خاصیت PasswordChar برای تعیین کارکتری است که به عنوان کارکتر مخفی می خوره وارد میشه . شما نمی تونید باش پسورد چک کنی .
شما بیا با استفاده از خاصیت Text اینکارو بکن . در ضمن الان BioHazard به عنوان یک متغییر استفاده شده نه پسورد .

نقل قول:

---

نوشته شده توسط tomcat

دوست عزیز این برنامه هم خوب اشتباه است ....
برنامه بالا (دومی) هم باگ داره بعنی اعداد کوچکتر از این عدد رو قبول میکنه خود عدد و اعداد بزرگتر رو اشتباه میگره ....
بیا به جای استفاده از > از مخالف استفاده کن <>
برنامه آخرت هم که اصلاٌ کلاٌ اشتباه است .
خاصیت PasswordChar برای تعیین کارکتری است که به عنوان کارکتر مخفی می خوره وارد میشه . شما نمی تونید باش پسورد چک کنی .
شما بیا با استفاده از خاصیت Text اینکارو بکن . در ضمن الان BioHazard به عنوان یک متغییر استفاده شده نه پسورد .

---

سلام
مرسی
این برنامه اولی

کد:

---

Private Sub Form_Load()
Dim strPass As String
Dim intPass As Long
Dim intPress As Integer

'Question

strPass = InputBox("Please enter the password", "Password")

'Check cancel button
If (strPass = "") Then
End 'Terminate the program
End If

'Convert
intPass = Val(strPass)

'Do
Do While ((intPass <> 65556))
'The user's password is out of range
intPress = MsgBox("ACCESS DENIED", vbExclamation, "ERROR!")
strPass = InputBox("Please enter the password", "Password")

'Check cancel button
If (strPass = "") Then
End 'Terminate the program
End If

'Convert
intPass = Val(strPass)

Loop
End Sub

---

]
برنامه دومی هم با استفاده از خاصیت Text کار نکرد

دوست عزیز اول اینکه برای گرفتن پسورد inputbox مناسب نیست. بهتره یه فرم دیگه با یه تکس باکس در پروژت قرار بدی و passwordchar تکس باکس رو * بکنی.
دوم اینکه این روش پسورد گذاری به راحتی کرک میشه. خیلی راحت تر از اونی که فکرشو بکنی. زیادم سخت نگیر. وقتی سیدی ویندوز با کرکش در بازار موجود هست دیگر برنامه ها که جای خود دارن.

نقل قول:

---

نوشته شده توسط Payman_62

دوست عزیز اول اینکه برای گرفتن پسورد inputbox مناسب نیست. بهتره یه فرم دیگه با یه تکس باکس در پروژت قرار بدی و passwordchar تکس باکس رو * بکنی.
دوم اینکه این روش پسورد گذاری به راحتی کرک میشه. خیلی راحت تر از اونی که فکرشو بکنی. زیادم سخت نگیر. وقتی سیدی ویندوز با کرکش در بازار موجود هست دیگر برنامه ها که جای خود دارن.

---

سلام
مرسی
حرق شما درست است
این فقط به عنوان تمرین بود همین و بس آقا پیمان
آقا پیمان اینم کدی که گفتی
کار کرد

کد:

---

Private Sub Command1_Click()

If (Text1.Text = 123) Then
Form1.Hide
Form2.Show
End If
End Sub

Private Sub Text1_Change()
Text1.PasswordChar = "*"
End Sub

---

همین جا هم از آقای پیمان بابت کمک به کد دوم و آقای تامکت به حاطر راهنمایی و کمک در مورد کد اول تشکر میکنم
:rolleye:

Passwordchar رو در حالت طراحی هم میتونی * کنی. احتیاج به کدنویسی نیست. در ضمن بهتره محدودیت بذاری برای وارد کردن پسورد.

نقل قول:

---

نوشته شده توسط Payman_62

Passwordchar رو در حالت طراحی هم میتونی * کنی. احتیاج به کدنویسی نیست. در ضمن بهتره محدودیت بذاری برای وارد کردن پسورد.

---

سلام
بله از کنترلها هم میشه.
چجور محدودیتی ؟ الان این فقط با پسورد 123 کار میکنه