|
Вопрос # 6 593/ вопрос решён / |
|
Здравствуйте! Есть ProgressBar, необходимо чтобы при достижении какого-то значения этим ProgressBar-ом программа случайным образом выбирала и совершала определенный набор действий.
К примеру :
if ProgressBar > 90 then
Набор 1 :
ProgressBarQWE.Position := ProgressBarQWE.Position + 10;
ProgressBarQWER.Position := ProgressBarQWER.Position + 100;
Набор 2 :
ProgressBarQWE.Position := ProgressBarQWE.Position + 100;
ProgressBarQWER.Position := ProgressBarQWER.Position + 300;
Набор 3 :
ProgressBarQWE.Position := ProgressBarQWE.Position + 1012;
ProgressBarQWER.Position := ProgressBarQWER.Position + 10120;
Т.е. из этих трех наборов выполнится должен только один и выбор должен происходить случайным образом.
Теоретически вроде понимаю как это должно исполняться и что надо для этого, но практически что-то не выходит.
Буду очень признателен если дадите пример кода такого исполнения, а не просто ответ используй массив и рандом. Иль типа такого.
Спасибо большое.
 |
Вопрос задал: Konopatiy (статус: Посетитель)
Вопрос отправлен: 25 июля 2015, 16:41
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 12; последнее сообщение — 25 июля 2015, 21:45; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 25 июля 2015, 16:50 [#1]:
Покажи кусок кода, которые работает неправильно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Konopatiy (статус: Посетитель), 25 июля 2015, 18:22 [#2]:
кода нет. Его надо только сделать.
|
|
|
min@y™ (статус: Доктор наук), 25 июля 2015, 19:07 [#3]:
Цитата (Konopatiy):
кода нет.
тогда как это понимать?
Цитата (Konopatiy):
но практически что-то не выходит
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Konopatiy (статус: Посетитель), 25 июля 2015, 19:33 [#4]:
есть задача описанная выше. и пример. он ( пример тоже описан выше) как эту задачу реализовать. Как реализовать пример описанный выше?
|
|
|
Konopatiy (статус: Посетитель), 25 июля 2015, 19:40 [#5]:
т.е.
если УСЛОВИЕ выполняется тогда должно выполниться случайно ОДНО из действий
Действие А ( набор )
Действие В ( набор)
Действие с ( набор)
каждое действие состоит из нескольких переменных.
|
|
|
min@y™ (статус: Доктор наук), 25 июля 2015, 20:00 [#6]:
Цитата (Konopatiy):
если УСЛОВИЕ выполняется тогда должно выполниться случайно ОДНО из действий Действие А ( набор ) Действие В ( набор) Действие с ( набор)
if (УСЛОВИЕ выполняется)
then case Random(3) of
0:... ;
1:... ;
2:... ;
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Konopatiy (статус: Посетитель), 25 июля 2015, 20:10 [#7]:
вот тут и получается у меня загвоздка.
then case Random(3) of
0:... ;
1:... ;
2:... ;
end;
там где 0, 1 и 2 как указать несколько действий.
ну т.е. не просто
then case Random(3) of
0: ProgressBarQWE.Position := ProgressBarQWE.Position + 10; ;
1: ProgressBarQWER.Position := ProgressBarQWER.Position + 100; ;
2: ProgressBarQWER.Position := ProgressBarQWER.Position + 1000; ;
end;
а несколько
типа так что ли
0: (ProgressBarQWE.Position := ProgressBarQWE.Position + 10, ProgressBarQWE.Position := ProgressBarQWE.Position + 10);
1: ( ProgressBarQWER.Position := ProgressBarQWER.Position + 100,
ProgressBarQWE.Position := ProgressBarQWE.Position + 10) ;
|
|
|
min@y™ (статус: Доктор наук), 25 июля 2015, 20:28 [#8]:
блять, а конструкция begin...end тебе не известна, штоли?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Konopatiy (статус: Посетитель), 25 июля 2015, 20:52 [#9]:
ОХИРЕТЬ МОЖНО.)) у меня как будто отрубило что надо в begin end завернуть. ))))) просто стерло из сознания. сижу и думаю бля как жу это все делать. ))) вот олень.)) Наверно надо было поорать на меня))) для восприятия))
|
|
|
min@y™ (статус: Доктор наук), 25 июля 2015, 20:54 [#10]:
выпей вотки за моё здоровье
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Konopatiy (статус: Посетитель), 25 июля 2015, 20:56 [#11]:
не получиться- не пью) Но здоровья тебе)
|
25 июля 2015, 21:03: Статус вопроса изменён на решённый (изменил автор вопроса — Konopatiy)
|
|
min@y™ (статус: Доктор наук), 25 июля 2015, 21:45 [#12]:
Цитата (Konopatiy):
не получиться- не пью) Но здоровья тебе)
а тебе - успехов в изучении русского языка.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
