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

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

itog

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

forma

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

forma2

Сохраним весь проект куда нибудь в папку. Еще раз просмотрим наш проект. Нам нужны: собственно сама форма, 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 програма таблицы умножения на delphi как печаать таблицу умножения в делфи таб умножения
. как печаать таблицу умножения в делфи таблица умножения дельфи создать таблицу умножения в делфи таблица умножения в delphi таблица умножения делфи
Комментирование и размещение ссылок запрещено.

Top