Главная » Файлы » Лабораторные работы » Лабораторные работы |
Програмування розгалужень , поля редагування, Перемикачі та їх властивості.
[ Скачать с сервера (59.2 Kb) ] | 04.04.2017, 13:41 |
Мета:Ознайомитись з об`єктами , поле редагування, перемикачі , та їх основними властивостями . Оволодіти навичками у створенні об`єктів. Завдання 1: Створити обмінник валюти. Результат роботи: unit Unit3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, unit1; type TForm3 = class(TForm) Edit4: TEdit; RadioGroup1: TRadioGroup; RadioButton4: TRadioButton; RadioButton3: TRadioButton; Edit7: TEdit; Edit6: TEdit; Edit5: TEdit; Button3: TButton; Edit3: TEdit; Button2: TButton; Button1: TButton; Edit2: TEdit; Edit1: TEdit; RadioButton2: TRadioButton; RadioButton1: TRadioButton; Label6: TLabel; Label5: TLabel; Label4: TLabel; Label3: TLabel; Label2: TLabel; Label1: TLabel; Button4: TButton; procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); procedure Label1Click(Sender: TObject); procedure Label6Click(Sender: TObject); procedure RadioButton3Click(Sender: TObject); procedure RadioButton4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form3: TForm3; implementation {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); Var kurs1, kurs2, summa, pdf,mila,km: real; Cod: integer; Ed,ek,em,es: string; Begin Val (Edit1.Text, kurs1, cod); Val (Edit2.Text, kurs2, cod); Val (Edit3.Text, summa, cod); Val (Edit6.Text, mila, cod); Val (Edit7.Text, km, cod); if RadioButton2.Checked=true then begin pdf:=summa*kurs2*0.01; summa:=summa*kurs2+summa*kurs2*0.01; end; if RadioButton1.Checked=true then begin pdf:=summa*kurs1*0.01; summa:=summa*kurs1+summa*kurs1*0.01; end; if ( RadioButton4.Checked=true ) and (radiogroup1.Itemindex = -1) then beginShowMessage('Выберитетипмиль!'); end; if ( RadioButton3.Checked=true ) and (radiogroup1.Itemindex = -1) then begin ShowMessage('Выберитетипмиль!'); end; if ( RadioButton4.Checked=true ) and (radiogroup1.Itemindex = 0) then begin km:=mila*1.609344 ; end ; if ( RadioButton3.Checked=true ) and ( radiogroup1.Itemindex = 0) then begin mila:=km/1.609344; end ; if ( RadioButton3.Checked=true ) and (radiogroup1.Itemindex = 1) then begin mila:=km/1.852; end ; if ( RadioButton4.Checked=true ) and (radiogroup1.Itemindex = 1) then begin km:=mila*1.852; end ; Str(summa:9:2,ed); Str(pdf:9:2,ek); Str(mila:9:2,em); Str(km:9:2,es); Edit6.Text:=em; Edit7.Text:=es; Edit4.Text:=ed; Edit5.Text:=ek; end; procedure TForm3.Button2Click(Sender: TObject); begin Form3.Close; end; procedure TForm3.Button3Click(Sender: TObject); begin Edit3.Text:=''; Edit4.Text:=''; Edit6.Text:=''; Edit7.Text:=''; Edit5.Text:=''; end; procedure TForm3.Button4Click(Sender: TObject); begin Form1.Show; end; procedure TForm3.Label1Click(Sender: TObject); begin if RadioButton1.Checked=True then begin RadioButton1.Checked:=False; RadioButton2.Checked:=True; Label1.Caption:='р'; end else begin RadioButton1.Checked:=True; RadioButton2.Checked:=False; Label1.Caption:='п'; end; end; procedure TForm3.Label6Click(Sender: TObject); begin if RadioButton4.Checked=True then begin RadioButton4.Checked:=False; RadioButton3.Checked:=True; Label6.Caption:='п'; end else begin RadioButton4.Checked:=True; RadioButton3.Checked:=False; Label6.Caption:='р'; end; end; procedure TForm3.RadioButton1Click(Sender: TObject); begin Label1.Caption:='р'; Edit3.SetFocus ; end; procedure TForm3.RadioButton2Click(Sender: TObject); begin Label1.Caption:='п'; Edit3.SetFocus ; end; procedure TForm3.RadioButton3Click(Sender: TObject); begin Label6.Caption:='п'; Edit7.SetFocus ; end; procedure TForm3.RadioButton4Click(Sender: TObject); begin Label6.Caption:='р'; Edit6.SetFocus ; end; end. | |
Просмотров: 416 | Загрузок: 10 | Рейтинг: 0.0/0 |
Всего комментариев: 0 | |