Ставим пароль на калькулятор (Visual Studio.Net 2005)

Дата: Вторник, 10.07.2007, 0:42 AM | Сообщение # 1

Группа: Удаленные

1-й способ установки пароля:

Допустим, что у нас в наличии уже имеется калькулятор с кнопками. Теперь наша задача сделать так, чтобы при попытке запустить калькулятор на экране появлялось приглашение ввести пароль. При вводе неправильного пароля, программа выведет сообщение о том, что введен неверный пароль и автоматически закончит работу.
Поскольку приглашение о вводе пароля должно появляться раньше появления калькулятора на экране, то программируем его в процедуре Form1_Load. Выдумаем сам пароль, например "доггидог". Пропишем код для Form1_Load:

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

Dim Parol As String
Parol = InputBox("Введите пароль")
If Parol <> "доггидог" Then MsgBox("Пароль неверный!") : End

End Sub

Строка Dim Parol As String означает, что мы задаем переменную Parol как строковое значение (любой символ).

Строка Parol = InputBox("Введите пароль") означает, что переменной Parol присваевается значение появляющегося окна InputBox, т.е. те символы, которые будут вписаны в само окно InputBox.

Строку If Parol <> "доггидог" Then MsgBox("Пароль неверный!") можно перевести так: ЕСЛИ значение переменной Parol не является значением "доггидог", ТОГДА выводить сообщение "Пароль неверный!".

Оператор End вызывает завершение программы.

То же самое можно запрограммировать короче и без использования переменной:

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

If InputBox("Введите пароль") <> "доггидог" Then MsgBox("Пароль неверный!") : End

End Sub

Сообщение отредактировал shareware - Вторник, 10.07.2007, 2:36 AM

shareware

Дата: Вторник, 10.07.2007, 1:15 AM | Сообщение # 2

Группа: Удаленные

2-й способ установки пароля (усовершенствуем пароль):

В этом случае мы будем использовать не ImputBox, а дополнительное текстовое поле (TextBox1) и кнопку (Button1). Сделаем так, чтобы при вводе пароля в текстовое поле, там появлялись не вводимые вами буквы, а звездочки "*". Для этого достаточно в коде до ввода пароля установить свойство текстового поля PasswordChar, выбрав в качестве его значения звездочку "*" (или любой другой символ по вашему желанию).
Но зачем нам этот пароль, ведь калькулятор запущен и все кнопки работают? Задача: сделать так, чтобы при запуске калькулятора кнопки были неактивными, а после введения правильного пароля в текстовое поле пароля и нажатия кнопки (Button1), все кнопки становились активными. Сделать это очень просто. Нужно просто установить свойство активности кнопок в значение False (ложь), а после активации пароля в значение True (правда).

Вот 2 процедуры с использованием вышеприведенных методов:

Private Sub Form1_Load(ByVal sender As System.Object, ByVale AsSystem.EventArgs) Handles MyBase.Load

TextBox1.PasswordChar = "*"
Кл_сложения.Enabled = False
Кл_вычитания.Enabled = False
Кл_умножения.Enabled = False
Кл_деления.Enabled = False

End Sub

________________________________________

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "доггидог" Then
Кл_сложения.Enabled = True
Кл_вычитания.Enabled = True
Кл_умножения.Enabled = True
Кл_деления.Enabled = True
Else
MsgBox("Пароль неверный!")
End If

End Sub

Код для кнопки Button1 вольно можно перевести так: ЕСЛИ в текстовое поле TextBox1 введен пароль доггидог, ТОГДА клавиши сложения, вычитания, умножения, деления становятся активными, ИНАЧЕ появляется сообщение "Пароль неверный".

Вот собственно и все, чем в данном уроке я хотел с вами поделиться wink

Сообщение отредактировал shareware - Вторник, 10.07.2007, 2:33 AM

	Пятница, 25.07.2025, 5:21 AM RSS
	Трещалка