Таблица умножения на Delphi

Уважаемый читатель хочу показать, как сделать таблицу умножения на Delphi:

Для реализации данного примера скомпонуем визуально все как показано на рисунке:

Далее сопоставим нашим лейбелам имена как на рисунке:

Сохраним весь проект куда нибудь в папку. Еще раз просмотрим наш проект. Нам нужны: собственно сама форма, trackbar – 2 штуки, groupbox для произведения, label – 3 штуки, checkbox – для квадрата.

Для проведения вычислительных операций Вам  подойдет сервер Cisco UCS B22 M3, который обладает надежностью и улучшенными показателями.

Продолжим, надо все настроить. Оба trackbar будут иметь min=2, max=99, position=2, linesize=1, pagesize и frequery=5. Теперь groupbox caption=произведение, надписи =2 и произведение=4 соответственно. Для checkbox выставим caption=произведение. Все готово, теперь перейдем к программированию.

Для обработки изменения первого (TrackBar1) в событии (Events) Onchange выставим:

Label1.Caption:=IntToStr(TrackBar1.Position);

Label3.Caption:=IntToStr(TrackBar1.Position*TrackBar2.Position);

Для второго аналогично все. Суть в том, что мы меняем значения наших Label1 и Label2. Только для второго мы выставим:

Label2.Caption:=IntToStr(TrackBar1.Position);

Label3.Caption:=IntToStr(TrackBar1.Position*TrackBar2.Position);

Теперь наша программка готова наполовину. Запустите ее и посмотрите, что происходит, если ползунки двигать вправо. Осталось разобраться с квадратом. По сути, если квадрат установлен, то перемножаются одинаковые числа. Значит, наши ползунки должны двигаться вместе. Пропишем код:

TrackBar2.Position:=TrackBar1.Position;

Его надо вставить в событие (Events) OnClick флажка. Значит если нажимается флажок то происходит приравнивание наших ползунков или бегунков как Вам угодно. Но, есть одно но. Флажок можно включить или выключить. Как быть? Придется нам возвратиться к нашим обработкам изменения флажка 1 и 2. Просто вставим туда проверку через if:

If CheckBox1.Checked then TrackBar2.Position:=TrackBar1.Position;

Вот собственно и все. Наша программа готова. Запустим и протестируем. Все работает.

До встречи уважаемый читатель.

P.S.

Полный листинг кода:

procedure TForm1.TrackBar1Change(Sender: TObject);

begin

Label1.Caption:=IntToStr(TrackBar1.Position);

Label3.Caption:=IntToStr(TrackBar1.Position*TrackBar2.Position);

If CheckBox1.Checked then TrackBar2.Position:=TrackBar1.Position;

end;

procedure TForm1.TrackBar2Change(Sender: TObject);

begin

Label2.Caption:=IntToStr(TrackBar1.Position);

Label3.Caption:=IntToStr(TrackBar1.Position*TrackBar2.Position);

If CheckBox1.Checked then TrackBar2.Position:=TrackBar1.Position;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

TrackBar2.Position:=TrackBar1.Position;

end;

. таблица умножения дельфи код таблицы умножения в Delphi таблица умножения на borland delphi TrackBar2.Position таблица умножения в делфи