Property Font : TFont - компонентте көрінетін текст түрін анықтайды.
Property Visible : Boolean - компоненттің экранда көрінуін анықтайды.
Сабақ тақырыбы: ‘Label’, ‘Button’ компоненттерін қолданып
Психологиялық тест программасын құрастыру.
Сабақ мақсаты: ‘Label’, ‘Button’ қасиеттері мен әдістерін программалауды үйрену.
Айнымалылардың көрсіну аумағын ұғыну.
Тармақталған алгоритмді қолдану дағдысын қалыптастыру.
Теориялық бөлім.
TLabel (метка) компоненті пішінге түсініктеме жазулар шығару үшін қолданылады. Негізгі қасиеті: Caption. Font қасиеті арқылы шрифт түрін таңдауға болады.
Tlabel қасиеттері
type TAlignment = (taLeftJustify, taRightJustify, taCenter) ; property lignment:
|
Тексті туралау (AutoSize=False болған жағдайда): taLeftJustify -солға; taRightJustify – оңға, taCenter - ортаға
|
property AutoSize: Boolean;
|
Caption қасиетіне тексті енгізу барысында көлемі өзгере ме екенін анықтайды
|
property Transparent: Boolean;
|
Егер True болса Tlabel компонентінде фон болмайды.
|
property Wordwrap: Boolean;
|
wordwrap=True болса көп жолды текст енгізуге болады.
|
TButton компоненті программаны басқаруда, OnClick уақиғасын программалауда кеңінен қолданылады.
TButton қасиеттері
property Cancel: Boolean;
|
Егер True болса , OnClick уақиғасы Esc пернесін басқанда пайда олады.
|
property Default: Boolean;
|
Егер True болса , OnClick уақиғасы Enter пернесін басқанда пайда олады.
|
property Wordwrap: Boolean;
|
wordwrap=True болса көп жолды текст енгізуге болады.
|
‘Label’, ‘Button’ компоненттерін қолданып психологиялық тест программасын құрастыру керек.
Шешу жолы:
Ол үшін бізге 2 айнымалы керек және ол айнымалылар бүкіл процедурада көрінуі үшін біз оны
Public бөлімінде хабарлаймыз.
public s,k : integer;
s – «Иә» жауаптарын есептеу үшін,
k – «Сұрақты енгізу» батырмасын басқанда k-ға 1 қосылып отырады.
k:=k+1;
if k=1 then label1.Caption:='Сіз өтірік айтасыз ба?';
if k=2 then label1.Caption:='Сіз өсек айтасыз ба?';
if k=3 then label1.Caption:='Өзіңізге ұнайтын адамның қасында ыңғайсыздық сезінесіз бе?';
if k=4 then label1.Caption:='Әдепсіз бола аласыз ба?';Психологиялық сұрақтар:
s – «Иә» жауаптарының санына байланысты зерттеу нәтижесі:
label2.Caption:='Психологиялық зерттеу нәтижесінде айқындалғаны';
if s=0 then label1.Caption:='Сіз қу адамсыз';
if s=1 then label1.Caption:='Сіз айлакерсіз';
if s=2 then label1.Caption:='Сіз кәдімгі адамсыз';
if s=3 then label1.Caption:='Сіз кәдімгі адамсыз';
if s=4 then label1.Caption:='Сіз кіршіксіз шынайы адамсыз';
Практикалық жұмыс.
Достарыңызбен бөлісу: |