Графикалық мәліметтермен жұмыс істеу. Image компоненті



Дата11.04.2022
өлшемі139.04 Kb.
#219650
Байланысты:
cож3 прог2


Графикалық мәліметтермен жұмыс істеу. Image компоненті.

Сонымен қатар, Delphi-де батырмаға сурет орналастыру үшін SpeedButton компоненті қолданылады. SpeedButton - батырмаға сурет қоюға мүмкіндік беретін компонент. Батырма бетіне сурет орналастыру үшін Glyph қасиеті қолданылады. Мұнда .bmp форматтағы сурет шақырылады. Flat қасиетіне True мәнін тағайындасақ, батырмада шекара болмайды, тышқанның көрсеткішін SpeedButton батырмасының үстіне әкелсек шекара пайда болады. Егер False мәні қабылданса, онда шекара барлық уақытта көрініп тұрады. Hint қасиетіне командалық батырмаға курсор келгенде, тышқан көрсеткішінің жанына шығатын нұсқау беретін мәтінді (подсказка) жазамыз. Нұсқау мәтіні көріну үшін ShowHint қасиетіне True мәнін тағайындаймыз.




unit Unit1;

interface

uses


Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)



Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Button2: TButton;

Image1: TImage;

Image2: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;


var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin


image1.Visible:= False;

image2.Visible:= True;

end;

procedure TForm1.Button2Click(Sender: TObject);



begin

image1.Visible:= True;

image2.Visible:= False;end;end.

2. SpeedButton, Button, Label, Edit компоненттерін пайдаланып келесі арифметикалық өрнектердің мәнін шығарыңыз


unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,



Dialogs, StdCtrls;

type


TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Button1: TButton;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }



end;

var


Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,t:Real;

begin


a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

t:= (arctan(a-c)*b+28)/(4*b/a+1);



label4.caption:='Jauabi'+#13+'t='+floattostr(t);end;end.

Достарыңызбен бөлісу:




©melimde.com 2022
әкімшілігінің қараңыз

    Басты бет
Сабақтың тақырыбы
бойынша жиынтық
жиынтық бағалау
Сабақ тақырыбы
Сабақтың мақсаты
ғылым министрлігі
тоқсан бойынша
Сабақ жоспары
бағдарламасына сәйкес
бағалауға арналған
Реферат тақырыбы
жиынтық бағалауға
Қазақстан республикасы
рсетілетін қызмет
арналған тапсырмалар
сәйкес оқыту
Жалпы ережелер
білім беретін
бағалау тапсырмалары
бекіту туралы
республикасы білім
оқыту мақсаттары
жиынтық бағалаудың
қызмет стандарты
тоқсанға арналған
Қазақстан республикасының
мерзімді жоспар
Қазақстан тарихы
арналған жиынтық
болып табылады
бағалаудың тапсырмалары
арналған әдістемелік
жалпы білім
Әдістемелік кешені
нтізбелік тақырыптық
Қазақ әдебиеті
пәнінен тоқсанға
Мектепке дейінгі
Зертханалық жұмыс
республикасының білім
оқыту әдістемесі
Инклюзивті білім
туралы хабарландыру
білім берудің
Жұмыс бағдарламасы
туралы жалпы
қазақ тілінде
Қысқа мерзімді
тақырыптық жоспар
пайда болуы
пәнінен тоқсан