Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
ертханалык жумыс №3
№3 Зертханалық жұмыс. Radio Group ауыстырып қосқыш панелі және Check List Box өшіру тізімі.
Жұмыстың мақсаты – Басқару компаненттерімен танысу: Radio Group және Check List Box, - және оларды қосымша құруда қолдануды үйрену.
Тапсырма: қолданбалы программамен аудитория таңдауға арналған қосымшаны жазу. Ауыстырып қосқыштың көмегімен аудитория таңдалғанда, программа аудиторияда қандай қосымшалар орнатылғанын және мәтіндік алаңға осы аудиторияның инженерінің қалауын шығарып көрсету қажет.
Radio Group ауыстырып қосқыш панелі Standart бетінде орналасқан. Radio Group ауыстырып қосқыш панелі бірнеше нұсқанын біреуін таңдауға арналған.
Radio Group ауыстырып қосқыш панелінің негізгі қасиеттері:
Columns: integer; ауыстырып қосқыш орналасатын бағандар санын анықтайды. Үнсіздік бойынша бағандар саны 1- ге тең.
ItemIndex:integer; белгіленген ауыстырып қосқыштың реттік номерін анықтайды. Номерлеу нолден басталады. Егер бірде бір ауыстырып қосқыш белгіленбеген болса, онда қасиет мәні 1-ге тең болады.
Item:Tstrings;ауыстырып қосқыш аттарының тізімін құрайды.
Пернетақтамен тышқанның көмегімен жаңа ауыстырып қосқышты белгілегенде шығатын оқиға - үнсіздік бойынша OnClick болып табылады.
Check List Box өшіру тізімі Additional бетінде орналасқан.
Егер Radio Group ауыстырып қосқыш панелінде тек бір ғана ауыстырып қосқыш тандалынады, ал Check List Box өшіру тізімінде әр бір өшіргіш үш жағдайдын біруеінде болуы мүмкін:
Қосулы- өшіргішке “белгі ” символы орналасады;
Өшірулі- өшіргіш бос;
Бейтарап- өшіргішке сұр түсті “белгі ” символы орналасады;
Өшіргіштің негізгі қасиеттер тізімі:
Cheked[index:integer]:boolean; Index индексімен өшіргіш жағдайын құрайды. Индекстеу 0-ден басталады. Егер і өшіргіші қосулы болса , онда Cheked [i] true мәнін береді , ал қалған жағдайларда – false.
Items:Tstrings; өшіргіш атауларынын тізімін құрайды.
АllowGraied:boolean; ауыстырып қосқыштың үшінші жағдайы бейтарап cdGrayedті қолдануға мүмкіндік береді немесе тыйым салады.
Программаны өңдеу жоспары
3.1-суретіне сәйкес формаға компаненттер экземплярын орналастыру.
RadioButton1 обьектісін белгілеп, Items қасиетін тауып, оның оң жағында орналасқан үш нүктелі кнопканы шертеміз. Қалыптасқан редакторда пайда болған терезеге әрбір аудиториялар атауларын жаңа жолға шығару. Caption қасиетіне “аудитория” мәнін береміз. Check List Box 1-ді белгілеп, Items қасиетін тауып және қолданбалы программаға тізім енгізу.
3.1. сурет
RadioButton 1 – ді екі рет шертіп және OnClick оқиғасына келесі кодты енгіземіз:
memo1.Clear;
for I:=0 to 10 do checklistbox1.checked:=false;
if radiogroup1.ItemIndex=-1
then showmessage('аудиторияны таңдауымыз қажет!')else
case radiogroup1.ItemIndex of
0:begin checklistBox1.Checked[2]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[4]:=true;
checklistBox1.Checked[10]:=true;
checklistBox1.Checked[11]:=true;
memo1.Lines.Add(Қосымша программаларды орнату қажет');
end;
1:begin checklistBox1.Checked[1]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[5]:=true;
checklistBox1.Checked[6]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[9]:=true;
checklistBox1.Checked[10]:=true;
memo1.Lines.Add('Бұл аудитория бос емес');
end;
2:begin checklistBox1.Checked[2]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[4]:=true;
checklistBox1.Checked[6]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[9]:=true;
memo1.Lines.Add('ТурбоС++ ті орнатуға болады');
end;
3:begin checklistBox1.Checked[5]:=true;
checklistBox1.Checked[7]:=true;
checklistBox1.Checked[9]:=true;
memo1.Lines.Add('бұл аудиторияда сабак жүріп жатыр');
end;
4:begin checklistBox1.Checked[1]:=true;
checklistBox1.Checked[2]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[3]:=true;
memo1.Lines.Add('Бұл- мұғалімдер аудиториясы');
end;
end;
4. «Жабу» батырмасын активтендіру және OnClick өңдеу оқиғасына жол қоямыз:
close;
5. Жобаны сақтау – File – Save All. Жаңа папка құрамыз, оған «Аудитория» атауын берміз, папканы аш. Программа кодын және жобаны атымен сақтау, мысалы, Unit1.pas және Project1.dpr. қосымшаны орындауға жіберу.
Модульдің толық мәтіні Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CheckLst, ExtCtrls;
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
CheckListBox1: TCheckListBox;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementationж
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
var I:integer;
begin
memo1.Clear;
for I:=0 to 10 do checklistbox1.checked:=false;
if radiogroup1.ItemIndex=-1
then showmessage('Аудиторияны таңдау қажет!')else
case radiogroup1.ItemIndex of
0:begin checklistBox1.Checked[2]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[4]:=true;
checklistBox1.Checked[10]:=true;
checklistBox1.Checked[11]:=true;
memo1.Lines.Add('Қосымша программаны орнату қажет');
end;
1:begin checklistBox1.Checked[1]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[5]:=true;
checklistBox1.Checked[6]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[9]:=true;
checklistBox1.Checked[10]:=true;
memo1.Lines.Add(' Бұл аудитория бос емес');
end;
2:begin checklistBox1.Checked[2]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[4]:=true;
checklistBox1.Checked[6]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[9]:=true;
memo1.Lines.Add(' ТурбоС++-ді орнату қажет');
end;
3:begin checklistBox1.Checked[5]:=true;
checklistBox1.Checked[7]:=true;
checklistBox1.Checked[9]:=true;
memo1.Lines.Add('Бұл аудиторияда сабақ жүріп жатыр');
end;
4:begin checklistBox1.Checked[1]:=true;
checklistBox1.Checked[2]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[3]:=true;
memo1.Lines.Add('Бұл- мұғалімдер аудиториясы');
end;
end;
end;
end.
3 – ші зертханалық жұмысқа тапсырма
PAGE 8