Використання графічних операторів в програмуванні - Реферат

Зміст delphi інтерфейс графічний Вступ 1. Описання програми Висновок Література Вступ Програмування на мові Delphi дозволяє реалізувати широкий спектр практичних задач. Основна перевага цієї мови програмування полягає в оптимальному поєднанні простоти використання, доступності і великого набору різноманітних можливостей, що дозволяють охопити всі основні напрями діяльності, розробка прикладних програм. Актуальність теми полягає в наступному: показати, як використовуючи мишу та стандартні оператори в мові Delphi створити графічно розвинений інтерфейс користувача для гри «Ханойські вежі». Опис алгоритму Ханойські вежі - це математична гра або головоломка 1 then for i := UpDown1.Position downto 2 do for j := UpDown1.Position - 1 downto 1 do if (Tow.Left = Pan[i].Left Pan[i].Width / 2 - 5) and (Tow.Left = Pan[j].Left Pan[j].Width / 2 - 5) then if (StrToInt(Pan[i].Caption) > StrToInt(Pan[j].Caption)) then Ed1.Text := Pan[j].Caption; if StrToInt(Ed2.Text) = 0 then Ed1.Text := ; end; procedure TForm1.Move(Pan1, Pan2: TPanel; Ed: TEdit); begin Pan1.Left := StrToInt(FloatToStr(Pan2.Left Pan2.Width / 2 - Pan1.Width / 2) Pan1.Top := Pan2.Top - 20 * StrToInt(Ed.Text); end; procedure TForm1.N2Click(Sender: TObject); begin Game(Sender); end; procedure TForm1.Timer1Timer(Sender: TObject); begin s := IntToStr(StrToInt(s) 1); if (s = 60) then begin m := IntToStr(StrToInt(m) 1); s := 00; end; if Length(s) = 1 then s := 0 IntToStr(StrToInt(s)); if Length(m) = 1 then m := 0 IntToStr(StrToInt(m) 1); StatusBar1.Panels.Items[0].Text := Время игры: m : s; end; procedure TForm1.PanelClick(Sender: TObject); begin if ((Sender as TPanel).Caption = Edit4.Text) or ((Sender as TPanel).Caption = Edit5.Text) or ((Sender as TPanel).Caption = Edit6.Text) then begin for i := 1 to UpDown1.Position do p[i].Color := clBlue; (Sender as TPanel) Color := clLime; v := (Sender as TPanel); f := True; Label2.Caption := Переместите диск; end; end; procedure TForm1.Game(Sen: TObject); begin if MessageDlg(Вы уверены, что хотите закончить эту игру и начать новую?, mtInformation, [mbOK, mbCancel], 0) = 1 then begin for i := 1 to n do p[i].Destroy; FormCreate(Sen); Panel1.Enabled := True; Timer1.Enabled := True; Label2.Visible := True; Label2.Caption := Выберите диск для перемещения; n := UpDown1.Position; SetLength(p, UpDown1.Position 1); for i := 1 to UpDown1.Position do begin Edit1.Text := IntToStr(i); Edit4.Text := IntToStr(1); p[i] := TPanel.Create(Self); p[i].Height := 20; p[i].Width := Panel5.Width - 16 * (UpDown1.Position - i 1); p[i].Left := (Panel2.Left 5) - StrToInt(FloatToStr(p[i].Width / 2)); p[i].Top := Panel5.Top - p[i].Height * (UpDown1.Position - i 1); p[i].Color := clBlue; p[i].Anchors := [akLeft, akBottom]; p[i].Font.Color := clYellow; p[i].Font.Style := [fsBold]; p[i].Caption := IntToStr(i); p[i].OnClick := PanelClick; p[i].Parent := Panel1; end; end; end; procedure TForm1.N4Click(Sender: TObject); begin if MessageDlg(Закончить игру и выйти?, mtInformation, [mbOK, mbCancel], 0) = 1 then Close; end; end. 7.