Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Идентификация и аутентификация пользователей

Автор: kalito 7.1.2012, 20:48

Код


Private Sub Command1_Click()
Dim i As Integer
5 i = 0
t0 = Timer
10 i = i + 1
If Text1.Text = "Головко" And Text2.Text = "1234" Or Text1.Text = "Ленда" And Text2.Text = "1234" Or Text1.Text = "Огиль" And Text2.Text = "1234" Then
Label3.Caption = "Доступ предоставлен"
ElseIf i > 3 Then
Label3.Caption = "Доступ отказан"

GoTo 5
Else
Label3.Caption = "Вы привысили число попыток"
Text1.Text = ""
Text2.Text = ""
End If
GoTo 10
20 End Sub

Автор: Данкинг 7.1.2012, 20:55

И что?

Кстати, в условии if ты не запутался с OR и AND ?

Автор: Akina 7.1.2012, 20:59

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: kalito 7.1.2012, 21:07

прога виснет ни когда неправильно вводишь логин или пароль

Автор: Данкинг 7.1.2012, 22:06

Логично, что она будет виснуть, так как при неправильном пароле пользователю не даётся попыток этот пароль исправить, а вместо этого идёт переход на метки 5 или 10, где проверка пароля начинается заново.

Автор: kalito 7.1.2012, 22:15

а что надо сделать чтобы это исправить? пазаза падскажите

Автор: Данкинг 7.1.2012, 23:11

Цитата(kalito @ 7.1.2012, 23:15

)

пазаза

Правильно пишется http://ru.wikipedia.org/wiki/%CF%E0%E7%F3%E7%F3 smile

Цитата(kalito @ 7.1.2012, 23:15

)

а что надо сделать чтобы это исправить?

Вероятно, вместо GoTo 5 и GoTo 10 поставить GoTo 20 - выход из подпрограммы.

Автор: kalito 7.1.2012, 23:24

не момогло

Автор: Данкинг 7.1.2012, 23:30

Что не помогло? Покажи исправленный код.

Автор: kalito 7.1.2012, 23:52

Private Sub Command1_Click()
Dim i As Integer
5 i = 0
t0 = Timer
10 i = i + 1
If Text1.Text = "Головко" And Text2.Text = "1234" Or Text1.Text = "Ленда" And Text2.Text = "1234" Or Text1.Text = "Огиль" And Text2.Text = "1234" Then
Label3.Caption = "Доступ предоставлен"
ElseIf i > 3 Then
Label3.Caption = "Доступ отказан"

GoTo 20
Else
Label3.Caption = "Вы привысили число попыток"
Text1.Text = ""
Text2.Text = ""
End If
GoTo 20
20 End Sub

Автор: Данкинг 8.1.2012, 00:01

Код


Option Compare Database

Private Sub Кнопка0_Click()
Dim i As Integer
5 i = 0
10 i = i + 1
If Text1.Text = "Головко" And Text2.Text = "1234" Or Text1.Text = "Ленда" And Text2.Text = "1234" Or Text1.Text = "Огиль" And Text2.Text = "1234" Then
 Label3.Caption = "Доступ предоставлен"
 Exit Sub
End If

If i < 3 Then
 Label3.Caption = "Доступ отказан"
GoTo 10
Else
 Label3.Caption = "Вы превысили число попыток"
 Text1.Text = ""
 Text2.Text = ""
End If
GoTo 20
20 End Sub

Автор: kalito 8.1.2012, 00:35

все равно не робыт) спасибо за помощь я уже сам разобрался))

Добавлено через 23 секунды
вот только теперь проблемка консольную такую прогу сделать

Автор: Данкинг 8.1.2012, 00:38

У меня работает всё. А в консольной просто ввод сделаешь напрямую с клавиатуры, а вывод сделаешь сообщением. Но вообще не знаю, как там консольные приложения на VB делаются.