Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
ертханалык жумыс №2
№ 2 Зертханалық жұмыс . List box, Combobox компоненттерін қолдану.
Жұмыстың мақсаты List box, Combobox компоненттерін қолданып түсіну.
Тапсырма 1. Тышқанның көмегімен тізімнен түстің атауын және экрандағы батырманы басуды тандағанда түстің атауын орыс тілінде немесе RGB форматында көрсететін программа құру. Программа өз жұмысын “Close” батырмасын басқанда аяқтайды. ListBox(тізім) компонентін қолданады(Standard компоненттер палитрасының жиынтығы).
2.1 List box , Combo box тізімі.
2.1 List box, Combo box тізімі.
Delphiде әр түрлі тізімдермен жұмыс жиі кездеседі, мысалы , Memo мәтіндік редактор жолынын тізімдері. List box стандартты компоненті экранға жол тізімін шығару үшін арналған.
List box компонентінің негізгі қасиеттері:
Программаны құру жоспары:
1. 2.1суретке сәйкес формада компоненттер экземплярын орналастыру
2. File Save All арқылы жана проектті сақтаймыз. «Анықтама» деген атпен жана папка құрып папканы ашамыз
2.1 сурет.
4. Программанын кодын және проектін ,мысалы , Unit1.pas және Project1.dpr. деген атпен сақтау..
3.Компонентке келесі қасиеттерді орнату:
Белгіленген обьект |
Object Inspector Терезесінін вклвдкасы |
Қасиет атауы/ оқиға атауы |
Әрекет |
BitBtnl |
Properties |
Caption |
«Шығу» батырмасынын атын орнату |
Kind |
bk Close |
||
Label 1 |
Properties |
Caption |
« RGB форматындағы түс жазбаларыны анықтамасы» жазбасын енгізу. |
Label2 |
Properties |
Caption |
«RGB Формат түсі» жазбасын енгізу. |
Label3 |
Properties |
Caption |
Түстің коды мен атын жою. |
5. Программаны іске қосып , «Шығу». батырмасын шерту арқылы проект терезесін қайта жабамыз.
6. ListBox1 объектісін белгілеп, Items қасиетін табамыз, және оң жағында орналасқан , үш нүктесі бар батырмаға шертеміз. Пайда болған қалыптасқан редактор терезесіне әр кайсысын жана жолға жазу арқылы түс аттарын енгіземіз (2.2-сурет ).
2.2сурет.
7. Терілген мәтінді color.txt атымен сақтаймыз. Ол үшін тышқаннын оң жағын басып Save режимін таңдаймыз. Қалыптасқан редактордан шығу үшін ОК батырмасын шерту қажет.
8. ListBox1 алаңына тышқан курсорын орнату кезінде , не істеу керек екендігі жөнінде анықтама шығу қажет, Hint (хабарлама мәтіні) қасиетімен қолданған жөн- “жолды белгілеп және батырмаға шерту ” , Showhint(хабарламаны көрсету қажет пе?) listBox1 объектісі.
9. “Аудару ” батырмасын екі рет шертіп активтендіру керек және OnClick өңдеу оқиғасына келесі кодты орналастырамыз:
сase listBox1.ItemIndex of
0: Label3.Caption:= 'қара ОООООО';
1: Label3.Caption:=' ақ FFFFFF' ;
2: Label3.Caption:=' қызыл FFOOOO' ;
3: Label3.Caption:=' жасыл OOFFOO' ;
4: Label3.Caption:= 'ак жасыл OOFFFF';
5: Label3.Caption:=' көк OOOOFF';
6: Label3.Caption:=' фиолетовый FFOOFF';
7: Label3.Caption:= ' сары FFFFOO';
8: Label3.Caption:= 'қоныр 996633';
9 : Label3.Caption:= ' қызыл сары FF8000';
10: Label3.Caption:= ' липовый 8000FF';
11: Label3.Caption:=' сұр АОАОАО';
end;
10. Программаны сақтау, жіберу және оны тестілеуден өткізу.
Рис. 2.3
Программа листингі
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
Button1: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
case listBox1.ItemIndex of
0: Label3.Caption:= 'қара ОООООО';
1: Label3.Caption:=' ақ FFFFFF' ;
2: Label3.Caption:=' қызыл FFOOOO' ;
3: Label3.Caption:=' жасыл OOFFOO' ;
4: Label3.Caption:= 'ақ жасыл OOFFFF';
5: Label3.Caption:=' көк OOOOFF';
6: Label3.Caption:=' фиолетовый FFOOFF';
7: Label3.Caption:= ' сары FFFFOO';
8: Label3.Caption:= 'қоңыр 996633';
9 : Label3.Caption:= ' қызыл сары FF8000';
10: Label3.Caption:= ' липовый 8000FF';
11: Label3.Caption:=' сұр АОАОАО';
end;
end;
end.
Өзіндік жұмысқа арналған тапсырмалар
1. Шрифттарын, экраннын түсін және әріптерді өзгерту.
2. «Түс» және «RGB формат» жазбалары үшін екі бөлек Label объектісі қолданылатындай етіп программаға өзгеріс енгізу.
3. Сұраққа жауап беру :егер түстер кестесінің бастапқы мәліметтері массив түрінде берілсе программа қалай өзгереді?
Тапсырма 2:
Бүтін санды массивте максимальді және минималды элементтерді тауып оларды орындарымен ауыстыру қажет. ComboBox компонентін қолдану топтастырылған енгізу жолы. Standard компоненттер палитрасынын беті.
ComboBox топтастырылған енгізу жолы Edit енгізу жолы мен List Box тізімінің мүмкіндіктерін біріктіреді. Сыртқы түрі Edit ке ұқсас, бірақ онда қосымша оң жақ бөлігінде стрелкасы төменге бағытталған батырма бар.
Егер осы батырмаға шертсек, тізім шығады. List Box-тан басты айырмашылығы тізімге жаңа элементтерді енгізу мүмкіндігі, белсенді элементтерді көрсетеді.
Сombo Box компонентінде MultiSelect қасиеті жоқ, сол себепті көптеген таңдаулар жіберілмейді.
Сombo Box тің негізгі қасиеттері:
2.4-сурет
Шешімі:
i:=0;
comboBox1.Clear;
combobox2.Clear;
combobox1.TabOrder:=0;
Прогрмма листингі:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; i, max, min, maxi,mini:integer;
a:array[1..10] of integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
comboBox1.Clear;
combobox2.Clear;
combobox1.TabOrder:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
combobox1.items.add(combobox1.Text);
i:=i+1;
a[i]:=strtoint(combobox1.Text);
combobox1.SetFocus;
end;
procedure TForm1.Button2Click(Sender: TObject);
var k:integer;
begin
max:=a[1];
maxi:=1;
min:=a[1];
mini:=1;
for k:=2 to 10 do
begin
if max<a[k] then
begin
max:=a[k];
maxi:=i;
end;
if min>a[k] then
begin
min:=a[k];
mini:=i;
end;
end;
a[maxi]:=min;
a[mini]:=max;
for k:=1 to 10 do
combobox2.Items.Add(inttostr(a[k]));
combobox2.DroppedDown:=true;
end;
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then button1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
Тапсырма нұсқасы:
PAGE 6