Другие языки программирования и технологии

Оператор 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 и так
далее.
Саша Бабинович
Саша Бабинович
965
Лучший ответ
Может надо N = Text1.Text ?
В существующей версии у тебя N нигде не определено.
А в версии N = Text1.Text переменной N будет присвоено значение текстового поля Text1. Предполагаю, что так :)
Мади Амиров
Мади Амиров
3 891
нада же Text1.Text переводить в число, а потом ток сравнивать
А это же наш не любимый байсик!
тогда если тебе надо что бы форма появлялась, может ее надо сначало убирать: ?