Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Перезагрузить страницу

{Help} Оптимизировать код

Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 15.03.2013, 15:12
RuSp RuSp вне форума
Прохожий
  
Регистрация: 15.03.2013
Сообщения: 5
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию {Help} Оптимизировать код
Помогите с "оптимизацией"... Подскажите как проще реализовать такой код? Знаю, что есть более простой вариант решения, по это и ищу..

Код:
procedure TForm1.Timer1Timer(Sender: TObject); //Зига 1
begin
  z1 := Random(49); //Рандомим значение для зиги 1
  ProgressBar1.Position := ProgressBar1.Position + z1;
  //Прибавляем к прогр бару рандом1
  Gauge1.Progress := ProgressBar1.Position; //Гауг приравниваем к бару зиги
  if ProgressBar1.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer1.Enabled = False then
    //Если Зиига 1 вырублена зигуем =))
    ShowMessage('\o 1 ');
end;

procedure TForm1.Timer2Timer(Sender: TObject); //Зига 2
begin
  z2 := Random(49); //Рандомим значение для зиги 2
  ProgressBar2.Position := ProgressBar2.Position + z2;
  //Прибавляем к прогр бару рандом2
  Gauge2.Progress := ProgressBar2.Position; //Гауг приравниваем к бару зиги
  if ProgressBar2.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer2.Enabled = False then
    //Если Зиига 2 вырублена зигуем =))
    ShowMessage('\o 2');
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  z3 := Random(49); //Рандомим значение для зиги 3
  ProgressBar3.Position := ProgressBar3.Position + z3;
  //Прибавляем к прогр бару рандом3
  Gauge3.Progress := ProgressBar3.Position; //Гауг приравниваем к бару зиги
  if ProgressBar3.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer3.Enabled = False then
    //Если Зиига 3 вырублена зигуем =))
    ShowMessage('\o 3');
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
  z4 := Random(49); //Рандомим значение для зиги 4
  ProgressBar4.Position := ProgressBar4.Position + z4;
  //Прибавляем к прогр бару рандом4
  Gauge4.Progress := ProgressBar4.Position; //Гауг приравниваем к бару зиги
  if ProgressBar4.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer4.Enabled = False then
    //Если Зиига 4 вырублена зигуем =))
    ShowMessage('\o 4');
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
  z5 := Random(49); //Рандомим значение для зиги 5
  ProgressBar5.Position := ProgressBar5.Position + z5;
  //Прибавляем к прогр бару рандом5
  Gauge5.Progress := ProgressBar5.Position; //Гауг приравниваем к бару зиги
  if ProgressBar5.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer5.Enabled = False then
    //Если Зиига 5 вырублена зигуем =))
    ShowMessage('\o 5');
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
  z6 := Random(49); //Рандомим значение для зиги 6
  ProgressBar6.Position := ProgressBar6.Position + z6;
  //Прибавляем к прогр бару рандом6
  Gauge6.Progress := ProgressBar6.Position; //Гауг приравниваем к бару зиги
  if ProgressBar6.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer6.Enabled = False then
    //Если Зиига 6 вырублена зигуем =))
    ShowMessage('\o 6');
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
  z7 := Random(49); //Рандомим значение для зиги 7
  ProgressBar7.Position := ProgressBar7.Position + z7;
  //Прибавляем к прогр бару рандом7
  Gauge7.Progress := ProgressBar7.Position; //Гауг приравниваем к бару зиги
  if ProgressBar7.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer7.Enabled = False then
    //Если Зиига 7 вырублена зигуем =))
    ShowMessage('\o 7');
end;

procedure TForm1.Timer8Timer(Sender: TObject);
begin
  z8 := Random(49); //Рандомим значение для зиги 8
  ProgressBar8.Position := ProgressBar8.Position + z8;
  //Прибавляем к прогр бару рандом8
  Gauge8.Progress := ProgressBar8.Position; //Гауг приравниваем к бару зиги
  if ProgressBar8.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer8.Enabled = False then
    //Если Зиига 8 вырублена зигуем =))
    ShowMessage('\o 8');
end;

procedure TForm1.Timer9Timer(Sender: TObject);
begin
  z9 := Random(49); //Рандомим значение для зиги 9
  ProgressBar9.Position := ProgressBar9.Position + z9;
  //Прибавляем к прогр бару рандом9
  Gauge9.Progress := ProgressBar9.Position; //Гауг приравниваем к бару зиги
  if ProgressBar9.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer9.Enabled = False then
    //Если Зиига 9 вырублена зигуем =))
    ShowMessage('\o 9');
end;

procedure TForm1.Timer10Timer(Sender: TObject);
begin
  z10 := Random(49); //Рандомим значение для зиги 10
  ProgressBar10.Position := ProgressBar10.Position + z10;
  //Прибавляем к прогр бару рандом10
  Gauge10.Progress := ProgressBar10.Position; //Гауг приравниваем к бару зиги
  if ProgressBar10.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    Timer1.Enabled := false;
    Timer2.Enabled := false;
    Timer3.Enabled := false;
    Timer4.Enabled := false;
    Timer5.Enabled := false;
    Timer6.Enabled := false;
    Timer7.Enabled := false;
    Timer8.Enabled := false;
    Timer9.Enabled := false;
    Timer10.Enabled := false;
  end;
  if Timer10.Enabled = False then
    //Если Зиига 10 вырублена зигуем =))
    ShowMessage('\o 10');
end;
Ответить с цитированием
  #2  
Старый 15.03.2013, 16:05
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
  
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию
познакомься с таким понятием как массивы и организация циклов в delphi
Ответить с цитированием
  #3  
Старый 15.03.2013, 16:06
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
  
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию
Копец. а зачем столько таймеров?
Что за зига? Это чтоли? http://demotivation.me/images/20090628/rckvqusgopkb.jpg
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #4  
Старый 15.03.2013, 16:12
Аватар для Facepalm
Facepalm Facepalm вне форума
Прохожий
  
Регистрация: 03.02.2013
Сообщения: 40
Репутация: 2552
По умолчанию
А вот и я!
Ну вы и китаец, товарищ.
__________________
Ну ты понел ^_^.
Ответить с цитированием
  #5  
Старый 15.03.2013, 21:23
Аватар для angvelem
angvelem angvelem вне форума
.
  
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию
Он уже и к нам добрался.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #6  
Старый 16.03.2013, 00:14
Snake22 Snake22 вне форума
Активный
  
Регистрация: 20.02.2011
Сообщения: 374
Репутация: 744
По умолчанию
как минимум создай единую процедурку
что-то типа
Код:
OnOffTimers(state:boolean)
begin
Timer1.Enabled := state;
    Timer2.Enabled := state;
    Timer3.Enabled := state;
    Timer4.Enabled := state;
    Timer5.Enabled := state;
    Timer6.Enabled := state;
    Timer7.Enabled := state;
    Timer8.Enabled := state;
    Timer9.Enabled := state;
    Timer10.Enabled := state;
end;
Ответить с цитированием
Этот пользователь сказал Спасибо Snake22 за это полезное сообщение:
RuSp (17.03.2013)
  #7  
Старый 17.03.2013, 12:32
RuSp RuSp вне форума
Прохожий
  
Регистрация: 15.03.2013
Сообщения: 5
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию
Спасибо за совет.
Код:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  OnOffTimers(False);
  PBP(0);
  GP();
  Button1.Caption := 'GO!!'; 
  n := StrToInt(ComboBox1.Text);
  if n = 2 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    //Âûêë
    ProgressBar3.visible := false;
    Gauge3.Visible := false;
    Label3.Visible := false;
    ProgressBar4.visible := false;
    Gauge4.Visible := false;
    Label4.Visible := false;
    ProgressBar5.visible := false;
    Gauge5.Visible := false;
    Label5.Visible := false;
    ProgressBar6.visible := false;
    Gauge6.Visible := false;
    Label6.Visible := false;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 3 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := false;
    Gauge4.Visible := false;
    Label4.Visible := false;
    ProgressBar5.visible := false;
    Gauge5.Visible := false;
    Label5.Visible := false;
    ProgressBar6.visible := false;
    Gauge6.Visible := false;
    Label6.Visible := false;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 4 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := false;
    Gauge5.Visible := false;
    Label5.Visible := false;
    ProgressBar6.visible := false;
    Gauge6.Visible := false;
    Label6.Visible := false;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 5 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := false;
    Gauge6.Visible := false;
    Label6.Visible := false;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 6 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := false;
    Gauge7.Visible := false;
    Label7.Visible := false;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 7 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := true;
    Gauge7.Visible := True;
    Label7.Visible := True;
    ProgressBar8.visible := false;
    Gauge8.Visible := false;
    Label8.Visible := false;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 8 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := true;
    Gauge7.Visible := True;
    Label7.Visible := True;
    ProgressBar8.visible := true;
    Gauge8.Visible := True;
    Label8.Visible := True;
    ProgressBar9.visible := false;
    Gauge9.Visible := false;
    Label9.Visible := false;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 9 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := true;
    Gauge7.Visible := True;
    Label7.Visible := True;
    ProgressBar8.visible := true;
    Gauge8.Visible := True;
    Label8.Visible := True;
    ProgressBar9.visible := true;
    Gauge9.Visible := True;
    Label9.Visible := True;
    ProgressBar10.visible := false;
    Gauge10.Visible := false;
    Label10.Visible := false;
  end;
  if n = 10 then
  begin
    ProgressBar1.visible := true;
    Gauge1.Visible := True;
    Label1.Visible := True;
    ProgressBar2.visible := true;
    Gauge2.Visible := True;
    Label2.Visible := True;
    ProgressBar3.visible := true;
    Gauge3.Visible := True;
    Label3.Visible := True;
    ProgressBar4.visible := true;
    Gauge4.Visible := True;
    Label4.Visible := True;
    ProgressBar5.visible := true;
    Gauge5.Visible := True;
    Label5.Visible := True;
    ProgressBar6.visible := true;
    Gauge6.Visible := True;
    Label6.Visible := True;
    ProgressBar7.visible := true;
    Gauge7.Visible := True;
    Label7.Visible := True;
    ProgressBar8.visible := true;
    Gauge8.Visible := True;
    Label8.Visible := True;
    ProgressBar9.visible := true;
    Gauge9.Visible := True;
    Label9.Visible := True;
    ProgressBar10.visible := true;
    Gauge10.Visible := True;
    Label10.Visible := True;
  end;
end;

А с таким кодом, что посоветуете?
Ответить с цитированием
  #8  
Старый 17.03.2013, 12:54
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
  
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию
Цитата:
Сообщение от RuSp
А с таким кодом, что посоветуете?
Посоветую то же самое, что и Facepalm предложил.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #9  
Старый 17.03.2013, 13:20
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
  
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию
Цитата:
А с таким кодом, что посоветуете?
как вариант
Код:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  OnOffTimers(False);
  PBP(0);
  GP();
  Button1.Caption := 'GO!!'; 
  n := StrToInt(ComboBox1.Text);

  ProgressBar1.Visible := n in [2,3,4,5,6,7,8,9,10];
  Gauge1.Visible := n in [2,3,4,5,6,7,8,9,10];
  Label1.Visible := n in [2,3,4,5,6,7,8,9,10];
  ProgressBar2.Visible := n in [2,3,4,5,6,7,8,9,10];
  Gauge2.Visible := n in [2,3,4,5,6,7,8,9,10];
  Label2.Visible := n in [2,3,4,5,6,7,8,9,10];
  //Auee
  ProgressBar3.Visible := n in [3,4,5,6,7,8,9,10];
  Gauge3.Visible := n in [3,4,5,6,7,8,9,10];
  Label3.Visible := n in [3,4,5,6,7,8,9,10];
  ProgressBar4.Visible := n in [4,5,6,7,8,9,10];
  Gauge4.Visible := n in [4,5,6,7,8,9,10];
  Label4.Visible := n in [4,5,6,7,8,9,10];
  ProgressBar5.Visible := n in [5,6,7,8,9,10];
  Gauge5.Visible := n in [5,6,7,8,9,10];
  Label5.Visible := n in [5,6,7,8,9,10];
  ProgressBar6.Visible := n in [6,7,8,9,10];
  Gauge6.Visible := n in [6,7,8,9,10];
  Label6.Visible := n in [6,7,8,9,10];
  ProgressBar7.Visible := n in [7,8,9,10];
  Gauge7.Visible := n in [7,8,9,10];
  Label7.Visible := n in [7,8,9,10];
  ProgressBar8.Visible := n in [8,9,10];
  Gauge8.Visible := n in [8,9,10];
  Label8.Visible := n in [8,9,10];
  ProgressBar9.Visible := n in [9,10];
  Gauge9.Visible := n in [9,10];
  Label9.Visible := n in [9,10];
  ProgressBar10.Visible := n in [10];
  Gauge10.Visible := n in [10];
  Label10.Visible := n in [10];
end;

2й вариант:
Код:
procedure TForm1.ComboBox1Change(Sender: TObject);
var 
  i : integer;
  c : TComponent;
begin
  OnOffTimers(False);
  PBP(0);
  GP();
  Button1.Caption := 'GO!!'; 
  n := StrToInt(ComboBox1.Text);

  for i := 1 to 10 do
  begin
    c := FindComponent('Label'+IntToStr(i));
    if c <> nil then
      TLabel(c).Visible := i <= n;

    c := FindComponent('ProgressBar'+IntToStr(i));
    if c <> nil then
      TProgressBar(c).Visible := i <= n;

    c := FindComponent('Gauge'+IntToStr(i));
    if c <> nil then
      TGauge(c).Visible := i <= n;
  end;
end;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Последний раз редактировалось Yurk@, 17.03.2013 в 13:37.
Ответить с цитированием
Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение:
RuSp (18.03.2013)
  #10  
Старый 18.03.2013, 05:05
RuSp RuSp вне форума
Прохожий
  
Регистрация: 15.03.2013
Сообщения: 5
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию
пасибки
Последний раз редактировалось M.A.D.M.A.N., 18.03.2013 в 08:10.
Ответить с цитированием
  #11  
Старый 23.03.2013, 18:55
RuSp RuSp вне форума
Прохожий
  
Регистрация: 15.03.2013
Сообщения: 5
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию
Код:
procedure TForm1.Timer1Timer(Sender: TObject); //Зига 1
begin
  z1 := Random(49); //Рандомим значение для зиги 1
  ProgressBar1.Position := ProgressBar1.Position + z1;
  //Прибавляем к прогр бару рандом1
  Gauge1.Progress := ProgressBar1.Position; //Гауг приравниваем к бару зиги
  if ProgressBar1.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer1.Enabled = False then
    //Если Зиига 1 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 1 ');
end;

procedure TForm1.Timer2Timer(Sender: TObject); //Зига 2
begin
  z2 := Random(49); //Рандомим значение для зиги 2
  ProgressBar2.Position := ProgressBar2.Position + z2;
  //Прибавляем к прогр бару рандом2
  Gauge2.Progress := ProgressBar2.Position; //Гауг приравниваем к бару зиги
  if ProgressBar2.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer2.Enabled = False then
    //Если Зиига 2 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 2');
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  z3 := Random(49); //Рандомим значение для зиги 3
  ProgressBar3.Position := ProgressBar3.Position + z3;
  //Прибавляем к прогр бару рандом3
  Gauge3.Progress := ProgressBar3.Position; //Гауг приравниваем к бару зиги
  if ProgressBar3.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer3.Enabled = False then
    //Если Зиига 3 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 3');
    Button1.Caption := 'GO!!';
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
  z4 := Random(49); //Рандомим значение для зиги 4
  ProgressBar4.Position := ProgressBar4.Position + z4;
  //Прибавляем к прогр бару рандом4
  Gauge4.Progress := ProgressBar4.Position; //Гауг приравниваем к бару зиги
  if ProgressBar4.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer4.Enabled = False then
    //Если Зиига 4 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 4');
    Button1.Caption := 'GO!!';
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
  z5 := Random(49); //Рандомим значение для зиги 5
  ProgressBar5.Position := ProgressBar5.Position + z5;
  //Прибавляем к прогр бару рандом5
  Gauge5.Progress := ProgressBar5.Position; //Гауг приравниваем к бару зиги
  if ProgressBar5.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer5.Enabled = False then
    //Если Зиига 5 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 5');
    Button1.Caption := 'GO!!';
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
  z6 := Random(49); //Рандомим значение для зиги 6
  ProgressBar6.Position := ProgressBar6.Position + z6;
  //Прибавляем к прогр бару рандом6
  Gauge6.Progress := ProgressBar6.Position; //Гауг приравниваем к бару зиги
  if ProgressBar6.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer6.Enabled = False then
    //Если Зиига 6 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 6');
    Button1.Caption := 'GO!!';
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
  z7 := Random(49); //Рандомим значение для зиги 7
  ProgressBar7.Position := ProgressBar7.Position + z7;
  //Прибавляем к прогр бару рандом7
  Gauge7.Progress := ProgressBar7.Position; //Гауг приравниваем к бару зиги
  if ProgressBar7.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer7.Enabled = False then
    //Если Зиига 7 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 7');
    Button1.Caption := 'GO!!';
end;

procedure TForm1.Timer8Timer(Sender: TObject);
begin
  z8 := Random(49); //Рандомим значение для зиги 8
  ProgressBar8.Position := ProgressBar8.Position + z8;
  //Прибавляем к прогр бару рандом8
  Gauge8.Progress := ProgressBar8.Position; //Гауг приравниваем к бару зиги
  if ProgressBar8.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer8.Enabled = False then
    //Если Зиига 8 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 8');
    Button1.Caption := 'GO!!';
end;

procedure TForm1.Timer9Timer(Sender: TObject);
begin
  z9 := Random(49); //Рандомим значение для зиги 9
  ProgressBar9.Position := ProgressBar9.Position + z9;
  //Прибавляем к прогр бару рандом9
  Gauge9.Progress := ProgressBar9.Position; //Гауг приравниваем к бару зиги
  if ProgressBar9.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer9.Enabled = False then
    //Если Зиига 9 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 9');
    Button1.Caption := 'GO!!';
end;

procedure TForm1.Timer10Timer(Sender: TObject);
begin
  z10 := Random(49); //Рандомим значение для зиги 10
  ProgressBar10.Position := ProgressBar10.Position + z10;
  //Прибавляем к прогр бару рандом10
  Gauge10.Progress := ProgressBar10.Position; //Гауг приравниваем к бару зиги
  if ProgressBar10.Position = 1000 then
    //Если прогресс бар зиги = 1000 то вырубаем работу зиг!!!
  begin
    OnOffTimers(False)
  end;
  if Timer10.Enabled = False then
    //Если Зиига 10 вырублена зигуем =)) (Нужно придумать для продолжения (забега зиг))
    ShowMessage('\o 10');
    Button1.Caption := 'GO!!';
end;

помогите ещё плз =)
Когда идёт активация, к ProgressBar(X).Position + рандом, если ProgressBar(X).Position=1000 (всё останавливается)
Как сделать, что бы когда 1 из ProgressBar(ов) дошёл до 1000 ещё другие действовали и так пока их не будет 3?

P.S. Програмку делаем с другом для повышения уровня знаний в Delphi =) Идея спонтанная и делаем, что то типо иподрома =)
Ответить с цитированием
  #12  
Старый 23.03.2013, 20:45
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
  
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию
Цитата:
Сообщение от RuSp
...Как сделать, что бы когда 1 из ProgressBar(ов) дошёл до 1000 ещё другие действовали и так пока их не будет 3?..
Код:
if (ProgressBar1.Position=1000)and(ProgressBar2.Position=1000) and (ProgressBar3.Position=1000) then...
Ответить с цитированием
  #13  
Старый 23.03.2013, 22:34
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
  
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию
Извращенцы, блин.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
Ответ

« Предыдущая тема | Следующая тема »

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Линейный вид Линейный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:20.

Обратная связь - Главная страница сайта Delphi Sources - Вверх

 

Сайт

Форум

FAQ

Соглашения

Прочее
 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025