Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Почему сравнение работает не правильно? 
V
    Опции темы
Xeim
Дата 5.12.2008, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 186
Регистрация: 17.11.2005

Репутация: нет
Всего: 0
Для работы программы достаточно создать на форме labelы с именами p, pFake, Mes.
Код

Dim Mask As String
Private Sub Form_Load()
    Mask = "#"
    Password = "123"
    p.Caption = ""
    pFake.Caption = ""
    Mes.Caption = "Введите пароль {" + Password + "}"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If (KeyAscii = 13) Then 'Enter
        temp = p.Caption
        If (temp = Password) Then
                Mes.Caption = "Succes"
        Else
                Mes.Caption = "Failed"
        End If
    Else
        p.Caption = p.Caption + Chr(KeyAscii)
        pFake.Caption = pFake.Caption + Mask
        'MsgBox KeyAscii
    End If
End Sub


Почему когда я ввожу "123" и нажимаю Enter выводится сообщение "Failed". А если я оставлю поле пустым, то "Succes". Ничего не понимаю!

Это сообщение отредактировал(а) Xeim - 5.12.2008, 20:40
PM MAIL   Вверх
Akina
Дата 5.12.2008, 20:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Поставьте точку прерывания в начале процедуры и СМОТРИТЕ, ЧТО ВЫ ТУТ НАПРОГРАММИРОВАЛИ!


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Xeim
Дата 5.12.2008, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 186
Регистрация: 17.11.2005

Репутация: нет
Всего: 0
А в какой строке ставить и на что обратить внимание?

Чувствую код очень плох, но не знаю где я не так напрограммировал...
PM MAIL   Вверх
Akina
Дата 5.12.2008, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Xeim @  5.12.2008,  22:18 Найти цитируемый пост)
в какой строке ставить 

13

Цитата(Xeim @  5.12.2008,  22:18 Найти цитируемый пост)
на что обратить внимание

на значения всех переменных и их изменение операторами.

Добавлено через 58 секунд
Но вообще писАть программы начинают с размещения в первой строке модуля оператора Option Explicit


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Xeim
Дата 5.12.2008, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 186
Регистрация: 17.11.2005

Репутация: нет
Всего: 0
Akina, спасибо.
Основная ошибка была в том, что Password не объявлен.
Буду впредь писать Option Explicit в начале. Я не знал, что это надо писать для отлова ошибок. Хотя я не знаю для чего на самом деле такая строка.
PM MAIL   Вверх
Akina
Дата 7.12.2008, 21:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Xeim @  6.12.2008,  00:47 Найти цитируемый пост)
я не знаю для чего на самом деле такая строка.

Наберите ее в первой строке модуля. Поставьте курсор во второе слово. Нажмите F1. Читайте до полного понимания.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0472 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.