Будь умным!


У вас вопросы?
У нас ответы:) SamZan.net

Тыш'анны' к'мегімен тізімнен т'сті' атауын ж'не экранда'ы батырманы басуды танда'анда т'сті' атауын орыс

Работа добавлена на сайт samzan.net:

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 9.11.2024

ертханалык жумыс №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 компонентінің негізгі қасиеттері:

  •  ItemIndex: integer;  тізімде белгіленген элементтің индексін анықтайды.  Элементтердің нөмірлері нольден басталады. Егер белгіленген элемент жоқ болса,онда бұл қасиет 1-ге тең мәнді қабылдайды.  Бұл қасиет тек  программа орындалып жаткан кезде ғана кол жетімді;
  •  Item: Tstrings; тізімнің элементін береді;
  •  MultiSelect:Boolean; бір уақытта бірнеше тізім элементтерін белгілеуге рүқсат етіл ме , соны анықтайды. Егер True мәні болса, онда белгілеуге болады, ал кері жағдайды тек бір ғана элементті белгілеуге болады;
  •  Selected[Index:integer]:Boolean; егер i-інші элемент белгіленген болса , онда  Selected[i]  True мәніне тен , ал кері жағдайда  -  False болады. Бұл қасиет тек  программа орындалып жаткан кезде ғана кол жетімді;.
  •  Sorted:Boolean; тізімдегі жолдар алфавиттік рет бойынша автоматты түрде сортталуын көрсетеді.
  •  Clear; тізімнін барлық элементтерін жояды.

Программаны құру жоспары:

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 –тің негізгі қасиеттері:

  •  ItemIndex:integer; тізімде тандалған элементтін индексін анықтайды. Нөмірлеу 1-ден басталады. Егер тандалған элемент жоқ болса , онда қасиет 1мәнін қабылдайды. Қасиет программанын орындалу деңгейінде ғана қол жетімді болады;
  •  Item: Tstring;тізім элементін береді;
  •  DropDownCount :integer ; ашылған тізімде көрсететін максималды элементтер санын көрсетеді.
  •  DroppedDown:Boolean; ашылған тізім нақ осы уақытта бар жоқтығын көрсетеді. Қасиет программа орындалу деңгейінде қол жетімді.
  •  Sorted:Boolean; тізімдегі жолдар автоматты түрде алфавит ретімен сортталу қажет пе соны көрсетеді.
  •  Text:String; қолданушымен тандалған және енгізілген жолдар мәтінін құрайды.
  •   Clear; тізімдегі барлық элементтерді өшіреді.

2.4-сурет

Шешімі:

  1.  Жана жоба үшін жаңа папка құру, мысалы , Combobox;
  2.  Жана жобаны ашу.
  3.  Standard бетіненForm1 – ге компоненттерді 2.4-суретіне сәйкес орналастыру: button1, button2, ComboBox1, ComboBox2.
  4.  DropDownCount қасиеті  ComboBox1 үшін, ComboBox2 10ға тең
  5.  interface бөлімінде массив сипатталады және айнымалысы қолданылады:  a:array[1..10] of integer; i, min, max, imax, imin:integer;
  6.  Программамен өз жұмысын бастайтын бастапқы мән енгiзуге үшiн формаға арналған OnCreateның оқиғасын форманың жасауы кезде қолданылады. Осы оқиғаның жасауы үшiн формада екi рет шертуді орындау керек. Онда келесі жолды енгіземіз:         

 i:=0;

 comboBox1.Clear;

      combobox2.Clear;

 combobox1.TabOrder:=0;  

  1.  Енгізу батырмасы үшін , шешім және жабуға өңдеу оқиғасын жазу.
  2.  Жобаны сақтау және оны орындауға жіберу.

Прогрмма листингі:

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.       

Тапсырма нұсқасы:

  1.  «чепуха» ойынын құру: үш тізімнін біреуінен сөз алынады - әр қайсысынан біреуден – жіне олардан сөйлем құралады. Мысалы, тізім1-  аң аттары , тізім2- етістік, тізім3 – есімдік.
  2.  Елдердін тізімін құру. Оны тандағанда астанасының аты және ондағы назар аударарлық нәрселер  шығуы қажет.
  3.  Listbox компонентіне 10 элементтен тұратын массив элементінің мәнін нгізу. Егер 10нан көп енгізілсе , онда хабарлама шығу қажет. Осы массивті басқа тізімге кері ретпен көшіріп алу. Көшіру тек пароль дұрыс енгізілген жағдайда орындалады.
  4.  Массив элементтерін тізімге енгізініз. Элементті тандаған кезде оның жұп немесе тақ екендігі көрсетілуі керек. Егер элемент қара болса, онда жазба жасыл түсті болуы керек , кері жағдайда ақшыл көк түс болады.
  5.  Сағат белбеуі кестесін құрыңыз: Алматыдағы уақыт көрсетіледі, тізімнен таңдалынатын әлем астаналары және ірі қалаларының уақытын анықтау.
  6.  Достарыңның және таныстарыңның туган күні  және олардың қандай жұлдыз жорамалда туылғаны туралы кесте құру. Тізімнен ақпан айында туылғандарды белгілеу.
  7.  Әлеуметтік сауалнама жүргізу. Студент фамилиясын көрсетеді(Edit), ол тізімге жазылады. Сұрақ беріледі: “Сіз кітап оқығанды ұнатасыз ба”. Жауап : ия немесе жоқ. Егер “ия ” болса онда “жарайсын!” жазуы шығады , ал “жоқ” болса, онда “оқу қажет” деген жазба шығады. Кай студент оқиды ал қайсысы жоқ, сол көрініп тұратындай программа құру қажет. Және де қанша пайыз студент кітап оқуды ұнатады, ал қаншасы жоқ , соны санап шығару.
  8.  Футболисттің қандай командада және қай қалада ойнатыны жайлы көрсететін программа құру.
  9.  Гринвич бойынша уақыт айырмашылығына сағат белбеуі кестесін құрыңыз. Бір сағат белбеуінде орналасқан мемлекеттерді шығару. Сағат белбеуі енгізіледі.
  10.  Атақты ғалымдардың тізімін құру, мысалы, физиктер, және оның ашылуы. Және де формуланы шығару.

PAGE  6




1.  Человек и мир в современной философии 2
2. репрессор присоединяется к оператору что приводит к невозможности построения мРНК на основе структ
3. Вся жизнь ’ один чудесный миг’(А.С. Пушкин
4. 062004 N 15 v001570008 від 24
5. und Erzieherische Rolle der Theaterarbeit mit den Sch~lern in der deutschen Sprache
6. Многоконтурные тормозные системы
7. Лабораторная работа 9 Порядок выполнения работы- Изучить теоретические сведения
8. Тема- Малые группы и коллективы ЗАДАНИЕ N 1Впервые в научный оборот термин диада ввел
9. Тема- Повышение качества образования через компетентность творчество инициативу преподавателя и обучающе
10. Тема- Робота з макросами та модулями в Excel Мета- Навчитися створювати макроси і вносити в них зміни Ознайом
11. Скрибнер. Спасибо моему агенту Лиз Дархансофф и всем работникам Дархансофф и Веррилл за оказанную помощь.
12. Разработка автоматизированной системы учета договоров для отеля
13. х начале 90х годов кардинальные геополические перемены не привели к исчезновению разногласий между союзник
14. Технологии компьютерных игр
15. Тюремный день турусами шурша Страшно проснулся пустая тюрьма Принцем Тамино с винтовкой и
16. АДМИНИСТРАТИВНОЕ ПРАВО 1 2 Привести определения понятия 02 балла - установить соответствие опред
17. КУРСОВОЙ ПРОЕКТ по дисциплине Теория устройства судна Расчёт загрузки и оценка мореходных качес
18. Определение электрической машины
19. Правознавство для студентів 2го курсу магістратури ННІПП НАВС
20. Реферат- Россия - великая держава