Программа, требующая ввод email и пароль

@kirillnew · Регистрация: 13.02.2013

Студворк — интернет-сервис помощи студентам

Всем привет! Делаю прогу, в которую надо вводить логин и пароль. Всё бы хорошо...
Итак, там поле под логин текстбокс1, под пароль - текстбокс2 и кнопка - комманд1 и текстбокс3 под инфу
То есть, чел ввёл мейл, пароль, нажал на кнопку и получил в третьем поле инфу
Всё бы хорошо, да вот нифига не получается.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
If Text1.Text = e Then Text6.Text = "3"
End Sub
 
Private Sub Form_Load()
Dim e As String
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
sTemplate = "!#$%^&*()+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub

Люди добрые, e - это переменная для емейла, темплэйт запрещает всякую фигню, а вот при компиляции включаю прогу значит - ввожу напр. vasya2@mail.ru, пароль заданный, жму кнопку и ничерта не выводится в текстбокс3. Что делать? Помогите кто чем может - кодом, ссылкой, советом...

@Pro_grammer · 18.02.2013, 07:34

Сообщение от kirillnew

Private Sub Form_Load() Dim e As String End Sub

Переменная, объявленная так на уровне процедуры видна только в этой процедуре. Больше в процедуре кода нет. Бессмысленно объявлять e тут?

Сообщение от kirillnew

Private Sub Command1_Click() If Text1.Text = e Then Text6.Text = "3" End Sub

В этой процедуре переменная e всегда = 0. Причина см. выше
Условие ни когда не выполнится.
Вообще не увидел, где обрабатывается ввод пароля, как он проверяется на валидность?
О вводе пароля на форуме писалось много раз( лично я как минимум 2 раза код выкладывал), найди, не ленись.

@Craw · 18.02.2013, 19:28

Справа вверху, там где список форм и модулей, нажимай правой кнопкой мыши Add-Form-Log in Dialog. И уже готовая форма есть с кодом!
Когда откроешь код формы, найди

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "password" Then
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

И замени в 4 строке "password" на свой пароль.

Добавлено через 5 минут

Сообщение от kirillnew

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
If Text1.Text = e Then Text6.Text = "3"
End Sub
 
Private Sub Form_Load()
Dim e As String
End Sub

Вся ошибка кроется тут. Ты объявляешь в Form_Load переменную е, но нигде её не используешь! Так как объявление внутри процедуры означает, что эта переменная будет только внутри её использоваться. В разделе деклараций (в самом верху кода) напиши это:

Visual Basic
1
2
Option Explicit
Dim e As String

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

Опции темы