Другие языки программирования и технологии
Оператор IF...Then...ELSE
Необходимо чтобы програама при выполнении условия выполняла действие, а при невыполнении "шла" дальше (короче, ничего не выполняла). Как это прописать? Я написал код, о он не работает... Действие выполняется ВСЕГДА...КодIf N < 10 ThenForm3.Visible = TrueElseEnd IfN заранее прописал таким образом:Text1.Text = NГде ошибка? Заранее спасибо!
Text1.Text в число не надо переводить, это же Basic, как я понял.. .
А вот на Pasсal, в Delphi, конечно надо переводить.
А тут все правильно. Если выполняется заданное условие, то программа выполняет Form3.Visible = True,
а если условие не верно, то между блоками Else и End if пишешь, что должно в таком случае выполняться.
Вопрос подкорректируй немного, а то слишком много значений.
Пиши мне в личку - помогу лучше.
---------------------------------
Спрашивающий:
> Да, это Visual Basic 6.0...
> Дело в том, что программа должна при выполнении условия показывать
> форму, а при невыполнении- оставлять невидимой.. . Это значит что
> альтернативных действий (после else) быть не должно.. . Но при
> запуске программы действие выполняется в любом случае.. . Могу придоставить исходный код.. .
> Заранее благодарю, 38
--------------------------------------
Теперь понятно.
Все просто.
Определили переменную N:
N := StrToInt(Text1.Text);
Теперь сама процедура:
if (N<10) then Form3.visible := true;
Все. Теперь, при выполнении условия форма показывается, а при невыполнении просто ничего не происходит.
Пойдет? Можно и по-другому.
----------------------------
> Спасибо за предыдущий ответ! Сработало.. .
> Теперь уточнение по следующему вопросу: Необходимо, чтобы программа
> создавала некое кол-во папок (количество указано в Text1.Text), но
> она отказывается создавать папки с одинаковыми названиями (оно, в
> принципе и понятно...) . Пришел к выводу, что надо использовать
> вместо названий цифры, сгенеривованные генератором случайных чисел.
> А как его прописать не знаю.. . :-( Не подскажете, как?
> Заранее спасибо!
--------------------------------
А зачем генератор случайных чисел?
Создай процедуру:
(буду писать на Delphi - лучше знаю, потом на Basic переведешь, там
тоже самое) .
Определяем переменную V, которая выступает в роли счетчика.
Задаем цикл:
For V := 1 to N do begin (т. е. команда будет повторяться столько
раз, сколько число N, т. е. создадим столько папок, сколько N).
createdir ('Папка №' + IntToStr(V));
end;
Вот и все. Команда создает папку с именем "Папка №", а какой номер -
определяется переменной V, которая с созданием каждой новой папки
увеличивается на единицу и получается: Папка № 1, Папка № 2 и так
далее.
А вот на Pasсal, в Delphi, конечно надо переводить.
А тут все правильно. Если выполняется заданное условие, то программа выполняет Form3.Visible = True,
а если условие не верно, то между блоками Else и End if пишешь, что должно в таком случае выполняться.
Вопрос подкорректируй немного, а то слишком много значений.
Пиши мне в личку - помогу лучше.
---------------------------------
Спрашивающий:
> Да, это Visual Basic 6.0...
> Дело в том, что программа должна при выполнении условия показывать
> форму, а при невыполнении- оставлять невидимой.. . Это значит что
> альтернативных действий (после else) быть не должно.. . Но при
> запуске программы действие выполняется в любом случае.. . Могу придоставить исходный код.. .
> Заранее благодарю, 38
--------------------------------------
Теперь понятно.
Все просто.
Определили переменную N:
N := StrToInt(Text1.Text);
Теперь сама процедура:
if (N<10) then Form3.visible := true;
Все. Теперь, при выполнении условия форма показывается, а при невыполнении просто ничего не происходит.
Пойдет? Можно и по-другому.
----------------------------
> Спасибо за предыдущий ответ! Сработало.. .
> Теперь уточнение по следующему вопросу: Необходимо, чтобы программа
> создавала некое кол-во папок (количество указано в Text1.Text), но
> она отказывается создавать папки с одинаковыми названиями (оно, в
> принципе и понятно...) . Пришел к выводу, что надо использовать
> вместо названий цифры, сгенеривованные генератором случайных чисел.
> А как его прописать не знаю.. . :-( Не подскажете, как?
> Заранее спасибо!
--------------------------------
А зачем генератор случайных чисел?
Создай процедуру:
(буду писать на Delphi - лучше знаю, потом на Basic переведешь, там
тоже самое) .
Определяем переменную V, которая выступает в роли счетчика.
Задаем цикл:
For V := 1 to N do begin (т. е. команда будет повторяться столько
раз, сколько число N, т. е. создадим столько папок, сколько N).
createdir ('Папка №' + IntToStr(V));
end;
Вот и все. Команда создает папку с именем "Папка №", а какой номер -
определяется переменной V, которая с созданием каждой новой папки
увеличивается на единицу и получается: Папка № 1, Папка № 2 и так
далее.
Может надо N = Text1.Text ?
В существующей версии у тебя N нигде не определено.
А в версии N = Text1.Text переменной N будет присвоено значение текстового поля Text1. Предполагаю, что так :)
В существующей версии у тебя N нигде не определено.
А в версии N = Text1.Text переменной N будет присвоено значение текстового поля Text1. Предполагаю, что так :)
нада же Text1.Text переводить в число, а потом ток сравнивать
А это же наш не любимый байсик!
тогда если тебе надо что бы форма появлялась, может ее надо сначало убирать: ?
А это же наш не любимый байсик!
тогда если тебе надо что бы форма появлялась, может ее надо сначало убирать: ?
Похожие вопросы
- Господа програмисты, пишите ли вы после оператора выбора if альтернативу else и пустой оператор{}?
- Язык программирования паскаль, оператор if-else
- Как упростить программу на паскале. Т.Е. без оператора "inc" и "if .. in .. then else ...;"-13 строка.
- VBA. Чем заменить множествееное использование конструкции "If...Then"?
- Как объединить два оператора " if "?
- Заменить цикл условным оператором if
- Когда после "if" и "else" ставим "{}" на языке C++?
- Что такое оператор if в турбо паскаль ?
- Помогите пожалуйста. Нужен в программе цикл или можно обойтись оператором if? (прога внутри)
- оператор if C#