 |
|
Модераторы: Akina |
 
|
|
квадратное уравнение, ошибка в коде 
| Fenixma |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 8.12.2006 Репутация: нет Всего: нет |
Я писал прогу для решения квадратного уравнения, там должен быть оператор выбора, и я не могу понять как и куда его ставить. Вот что у меня на данный момент в байсике:
Private Sub Label4_Click() Discr.Text = b * b - (4 * a * c) If Discr = 0 Then X1.Text = -b / (2 * a) End If If Discr < 0 Then open.Form2 Else: X1.Text = (-b + Sqr(Discr)) / (2 * a) X2.Text = (-b - Sqr(Discr)) / (2 * a) End If End Sub Я понимаю что что то у меня не так, и прошу помочь кто сможет. Заранее спс. |
|||
|
||||
Загрузка ...
| Naghual |
|
|||
 Эксперт  Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 26 Всего: 49 |
Что такое Discr? Где его объявление?
-------------------- Я желаю всем Счастья! |
|||
|
||||
| Кирилл |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 80 Регистрация: 7.11.2006 Где: Воронеж Репутация: 1 Всего: 1 |
Ошибка в Discr : если это обьект, то нет св-в, а если переменная, то не нужно свойство Техт во второй строчке.
Может так? |
|||
|
||||
| $tatic |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 651 Регистрация: 28.1.2005 Репутация: нет Всего: 22 |
Кирилл, в Visual Basic свойство Text - дефолтное. Поэтому роли это не играет. Не в этом суть. Оператор выбора - Select Case. Правильно так будет:
|
|||
|
||||
| Fenixma |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 8.12.2006 Репутация: нет Всего: нет |
Это дискриминант. Кирилл, нет, все равно там ошибка. $tatic, А в твоем коде я не понял что означает 5 строчка, и там терь в другом месте ошибку выдает: в 3-ей и в 8-ой строчках. В моем коде ошибку выдавал в If Discr < 0 Then open.Form2 Может я че то не так с оператором выбора намудрил? Кстати как вы вставляете окно визуал баейсик? Это сообщение отредактировал(а) Fenixma - 8.12.2006, 20:38 |
|||
|
||||
| Кирилл |
|
||||
|
Шустрый Профиль Группа: Участник Сообщений: 80 Регистрация: 7.11.2006 Где: Воронеж Репутация: 1 Всего: 1 |
 Тебе сюда http://www.computerbooks.ru/books/Programm...ter%206/ch5.htm
В 3-ей всё понятно - после ифа нет зена, а в принципе эта строчка не нужна вообще. А в 8-ой не знаю - я вобщем-то не совсем понимаю, что ты хочешь. Добавлено @ 21:02 За ложную инфо по св-ву Техт сорри: сам не знал  |
||||
|
|||||
| Fenixma |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 8.12.2006 Репутация: нет Всего: нет |
Кирилл, ну мне надо чтобы при дискриминанте(discr) меньше 0 выводилось форма2(Form2). А он почему то выдает ошибку, в чем ошибка я не понимаю. Вроде написанно все правельно, открыть форму2, и форма есть, но все равно ошибка
Да, в принципе эта строчка не нужна, если я правельно разобрался. Это сообщение отредактировал(а) Fenixma - 9.12.2006, 15:48 |
|||
|
||||
| Кирилл |
|
||||
|
Шустрый Профиль Группа: Участник Сообщений: 80 Регистрация: 7.11.2006 Где: Воронеж Репутация: 1 Всего: 1 |
Fenixma, я далеко не експерт, но помойму эта команда неправильна. Вот вариант, который я использовал бы в этом случае:
Первую строку можно и не писать, но в больших прогах желательно. |
||||
|
|||||
| Fenixma |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 8.12.2006 Репутация: нет Всего: нет |
Кирилл, а зачем нужна первая строчка? и в чем была неправельна моя команда? А вообще огромное спс тебе, терь все работает)))
 |
|||
|
||||
| Fenixma |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 8.12.2006 Репутация: нет Всего: нет |
Кирилл, Слушай, а как мне сделать чтобы открывалась форма2 и потом на ней 2 кнопки сделать: одна выйти а вторая закрыть форму2 и вернуться к форме1 ?
|
|||
|
||||
| Кирилл |
|
||||||
|
Шустрый Профиль Группа: Участник Сообщений: 80 Регистрация: 7.11.2006 Где: Воронеж Репутация: 1 Всего: 1 |
Это команда загрузить форму в память. Форма грузится и автоматически при визайбле=труе, но в больших прогах лучше загрузить всё сразу, чтобы потом не тормозило.
Я вообще нигде не видел, чтобы команда опен использовалась для форм. А откуда ты её взял?
|
||||||
|
|||||||
| Fenixma |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 8.12.2006 Репутация: нет Всего: нет |
Кирилл, Спасибо большое, я потом попробую, ща просто уходить надо. А на счет команды опен, мне друг сказал что так надо писать... хз, мож я чет напутал)
|
|||
|
||||
| Fenixma |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 14 Регистрация: 8.12.2006 Репутация: нет Всего: нет |
Кирилл, Все работает, спасибо!!!
Это сообщение отредактировал(а) Fenixma - 10.12.2006, 21:22 |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0628 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |