Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Арифметичні операції в середовищі програмування Delphi
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2007
Тип роботи:
Інші
Предмет:
Інші
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет Львівська політехніка
Кафедра ПЗ
До лабораторної роботи №2
З курсу “Методи та засоби КІТ”
На тему:
Арифметичні операції в середовищі програмування Delphi.
Тема:
Освоєння арифметичних операцій в Delphi.
Мета:
Ознайомитись з середовищем програмування Delphi, вивчити властивості компонент, які містяться у цьому середовищі програмування та використовуються для написання калькулятора з показом основних графіків тригонометричних функцій.
З невідомих компонентів ми будемо використовувати TChart (діаграма)
До основних властивостей належать тип діаграми (Кругова,стовпчики,стрічка…). А також серії(SeriesList),серії використовуються для побудови самої діаграми, доступ можна виконати таким кодом chart1.SeriesList[0].AddXY(i,sin(i),'',clRed)
В процесі виконання лабораторної роботи я використовував такі компоненти, як:
MainMenu дозволяє нам помістити головне меню в програму. При приміщенні MainMenu на форму це виглядає, як просто ікона. Ікони даного типу називають "невидимими компонентом", оскільки вони невидимі під час виконання програми. Створення меню включає три кроки: (1) приміщення TMainMenu на форму, (2) виклик Дизайнера Меню через властивість Items в Інспекторі Об'єктів, (3) визначення пунктів меню в Дизайнері Меню.
StaticText служить для відображення тексту на екрані. Ми можемо змінити шрифт і колір мітки, якщо двічі клацнемо на властивість Font в Інспекторі Об'єктів. Ми побачимо, що це легко зробити і під час виконання програми.
ВitBtn - кнопка на зразок ТВutton, проте на ній можна розмістити картинку (glyph). ТВitBtn має декілька приречених типів (bkClose, bkOK ), при виборі яких кнопка приймає відповідний вигляд.
PopUpMenu дозволяє нам помістити спливаюче меню.Має такі самі властивості як MainMenu
TrackBar-дозволяє задавати певне значення за значенням повзунка
Panel-дозволяє поміщати об’єкти на панель так як на форму. В більшості випадків використовується для дизайну
Unit1
procedure TForm1.Button1Click(Sender: TObject);
begin
if rez.Text='' then
rez.Text:=Button1.caption
else
rez.Text:=rez.Text+Button1.caption;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if rez.Text='' then
rez.Text:=Button2.caption
else
rez.Text:=rez.Text+Button2.caption;
end;
………
procedure TForm1.Button13Click(Sender: TObject);
begin
rez.Text:='';
Button12.Enabled:=True;
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
if rez.Text<>'' then
begin
akum:=strtofloat(rez.Text);
buf:='+';
rez.Text:='';
end;
if pos(',',rez.Text)=0 then
Button12.Enabled:=True
else
Button12.Enabled:=False;
end;
procedure TForm1.Button23Click(Sender: TObject);
begin
if buf='+' then
akum:=akum+strtofloat(rez.Text);
if buf='-' then
akum:=akum-strtofloat(rez.Text);
if buf='*' then
akum:=akum*strtofloat(rez.Text);
if buf='/' then
akum:=akum/strtofloat(rez.Text);
rez.Text:=floattostr(akum);
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
if rez.Text<>'' then
begin
akum:=strtofloat(rez.Text);
buf:='-';
rez.Text:='';
end;
if pos(',',rez.Text)=0 then
Button12.Enabled:=True
else
Button12.Enabled:=False;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
if rez.Text<>'' then
begin
akum:=strtofloat(rez.Text);
buf:='*';
rez.Text:='';
end;
if pos(',',rez.Text)=0 then
Button12.Enabled:=True
else
Button12.Enabled:=False;
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
if rez.Text<>'' then
begin
akum:=strtofloat(rez.Text);
buf:='/';
rez.Text:='';
end;
if pos(',',rez.Text)=0 then
Button12.Enabled:=True
else
Button12.Enabled:=False;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
rez.Text:=rez.Text+',';
Button12.Enabled:=False;
end;
procedure TForm1.Button11Click(Sender: TObject);
var
s:string;
begin
s:=rez.text;
if (s[1]<>'-') then
insert('-',s,1)
else
delete(s,1,1);
rez.Text:=s;
end;
procedure TForm1.Button14Click(Sender: TObject);
var
s:string;
begin
s:=rez.text;
delete(s,length(s),1);
rez.Text:=s;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
if rez.Text='' then
mem:=akum
else
mem:=strtofloat(rez.Text);
label1.Visible:=True;
end;
procedure TForm1.Button21Click(Sender: TObject);
begin
rez.Text:=floattostr(mem);
label1.Visible:=False;
end;
procedure TForm1.Button20Click(Sender: TObject);
var
i:integer;
begin
form2.Width:=0;
form2.show;
for i:=0 to 255 do
begin
form2.Width:=i;
form2.AlphaBlendValue:=i;
form2.Repaint;
application.ProcessMessages;
//sleep(1);
end;
form2.Label1.Visible:=true;
end;
procedure TForm1.FormConstrainedResize(Sender: TObject; var MinWidth,
MinHeight, MaxWidth, MaxHeight: Integer);
begin
form2.Left:=form1.Left+form1.Width;
form2.Top:=form1.Top;
end;
procedure TForm1.wa1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
button20.Click;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form3.ShowModal;
end;
Unit2
procedure TForm2.FormCreate(Sender: TObject);
begin
form2.Left:=form1.Left+form1.Width;
end;
procedure TForm2.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Font.Color:=ClRed;
end;
procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Font.Color:=ClBlack;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
i:byte;
begin
Chart1.Series[0].Clear;
for i:=0 to 20 do
chart1.SeriesList[0].AddXY(i,sin(i),'',clRed)
end;
procedure TForm2.Button2Click(Sender: TObject);
var
i:byte;
begin
Chart1.Series[0].Clear;
for i:=0 to 20 do
chart1.SeriesList[0].AddXY(i,cos(i),'',clRed)
end;
procedure TForm2.Button3Click(Sender: TObject);
var
i:byte;
begin
Chart1.Series[0].Clear;
for i:=0 to 20 do
chart1.SeriesList[0].AddXY(i,Sin(i)/Cos(i),'',clRed)
end;
Висновок:
На цій лабораторній роботі я ознайомився із компонентом TChart та вивчив його основні властивості
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора