Тәжірибелік жұмыс №22
Тапсырма: Оқушы күнделігі туралы бағдарлама жасау.
Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1), Memo(1), ComboBox(2), CheckListBox(1) компоненттерін алып, форманы келесі түрге келтіреміз (41-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 22).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
Шыгару |
ComboBox1 |
Properties |
Items |
Дүйсенбі Сейсенбі Сәрсенбі Бейсенбі Жұма Сенбі Жексенбі |
CheckListBox1 |
Properties |
Items |
Негізгі Қосымша |
41-сурет. Форма түрі.
Button1 компентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (combobox1.ItemIndex=0) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Шет тили°');
Memo1.Lines.Add('Орыс тили');
Memo1.Lines.Add('Дене шыныктыру');
Memo1.Lines.Add('Дене шыныктыру');
end;
begin
if (combobox1.ItemIndex=1) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Орыс тили');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Косымша Математика');
Memo1.Lines.Add('физика');
end;
begin
if (combobox1.ItemIndex=2) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Информатика');
Memo1.Lines.Add('Дене шыныктыру');
Memo1.Lines.Add('Адебиет');
Memo1.Lines.Add('Косымша Адебиет');
end;
begin
if (combobox1.ItemIndex=3) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Тарих');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Шетел тили');
Memo1.Lines.Add('Саясатану');
end;
begin
if (combobox1.ItemIndex=4) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Косымша Математика');
Memo1.Lines.Add('Геометрия');
Memo1.Lines.Add('Орыс тили');
end;
begin
if (combobox1.ItemIndex=5) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(Казак тили');
Memo1.Lines.Add('Орыс тили');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Геометрия');
end;
begin
if (combobox1.ItemIndex=6) and (checklistbox1.ItemIndex=0) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Демалыс');
end;
begin
if (combobox1.ItemIndex=0) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(Дене шыныктыру');
Memo1.Lines.Add('Технология');
Memo1.Lines.Add(Технология');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add(Информатика');
end;
begin
if (combobox1.ItemIndex=2) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(Казак тили');
Memo1.Lines.Add('Адебиет');
Memo1.Lines.Add(Косымша Адебиет');
Memo1.Lines.Add('Музыка');
Memo1.Lines.Add('Музыка');
end;
begin
if (combobox1.ItemIndex=4) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Косымша Математика');
Memo1.Lines.Add('Геометрия');
Memo1.Lines.Add('Орыс тили');
end;
begin
if (combobox1.ItemIndex=1) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(Казак тили');
Memo1.Lines.Add('Орыс тили');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Геометрия') ;
end;
begin
if (combobox1.ItemIndex=3) and (checklistbox1.ItemIndex=1) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Тарих');
Memo1.Lines.Add('Математика');
Memo1.Lines.Add('Шетел тили');
Memo1.Lines.Add('Саясатану');
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.
42-сурет. Нәтиже.