3. Қосымша тапсырма
Программаның интерфейсін өзгертеміз: жазуын, экранның және қаріптердің түсін өзгерту.
ListBox1 жолында тұрған курсордың не істеу керектігін көрсететін анықтама шығатындай етіп өзгерту керек.
Көмек ретінде. Hint қасиетін пайдаланып (хабарлама тексті), Showhint (хабарламаны көрсету керек пе) ListBox1компонентінде.
Формада Выход кнопкасын орналастыр.
Практикалық жұмыс № 2"Физикадан тест"
1. Тапсырманың қойылуы
Программа құру арқылы мыналарды орындаймыз:
Программаны шақырғаннан кейін экранда 4 сурет көрінісі шығады. Орындаушы бағыттаушы пернелер арқылы сол жақтағы «Физикалық өлшемдер» тізімінен кез келген сөзді таңдап Enter пернесіне басады. Содан кейін орындаушы келесі оң жақтағы «Өлшемдердің атаулары» тізіміне өтіп таңдап алынған физикалық өлшемге сәйкес атауға көшеді. Егер Өлшемдердің аттары дұрыс таңдалған болса, онда «Оценка» сөзінің астында құптау нұсқамасы шығады «Правильно» деген сөзбен, егер дұрыс емес сөз таңдалынып алынса, онда «Ошибка» деген сөз шығады. Қайтадан бір физикалық шаманы таңдап алып, оның сәйкес келетін атауын дұрыс тапқанша бірнеше рет орындауға болады.
Сурет 23.6
Түсіндірме. Бұл жаңа программа екі тізімнің бір-бірімен сәйкестігін көрсетеді, ListBox негізінде Items және ItemIndex қасиеттерімен және Label белгісімен өлшемдердің аттарын жолдарға жазуға болады.
Программаны орындау жоспары
Жаңа проект ашу.
Суреттегідей форма компонентіне сәйкесінше Label белгілеріне ат енгіземіз. Назар аударыңыз , «Физикалық өлшемдер» және «Өлшемдердің атаулары» екі жолдан тұрады және ортаға қарай орналастырылған.
Сурет 23.7
Көп жолды атауларды жазу үшін (Label белгісінде):
-
Белгіленген компоненттер
Объектілі инспектор терезесі
Қасиеттері
нің аты
Әрекет
BitBtn1
Properties
Caption
&Выход
Kind
bkCancel
Events
BitBtn1Click
Close;
Label1
Propeties
AutoSize (изменение размера в зависимости от текста в Caption)
False
WordWrap (разрыв строки)
True
Height
Width
Сәйкес өлшемді орнатыңыз .
Alignment (выравнивание текста)
taCenter
Проектіні мысалы, Pr5.pas және Project5.dpr аттармен сақтаймыз.
Программаны орындап, «Выход» кнопкасымен проект терезесін жабамыз.
ListBox1 белгілйміз, Object Inspector терезесінен Items,қасиетін таңдаймыз да оның оң жағындағы үш нүктелі кнопкасын басамыз. Ашылған терезеге физикалық өлшемдерді енгіземіз, әрқайсысын бөлек жаңа жолдан жазамыз:
Ватт
Ом
Вольт
Ампер
Терілген тексті Fiz1.txt. атымен сақтаймыз. Ол үшін тышқанның оң жақ кнопкасын басып Save режімін таңдаймыз. Қойылған редактрден шығу үшін OK ге басамыз.
Listbox2 белгілейміз және салыстыра отырып, физикалық өлшемдердің атауларын енгіземіз:
Напряжение
Сопротивление
Сила тока
Мощность
Терілген тексті Fiz2.txt атымен сақтаймыз.
Келесі әрекеттерді орындау:
Белгіленген компоненттер |
Объектілі инспектор терезесі |
Қасиеттері нің аты |
Әрекет |
ListBox1 |
Events |
OnKeyPress |
If key=#13 then Num1:=ListBox1.ItemIndex; |
ListBox2 |
Events |
OnKeyPress |
If key=#13 then begin case ListBox2.ItemIndex of 0: Num2:= 2; 1: Num2:= 1; 2: Num2:= 3; 3: Num2:= 0; end; if Num1=Num2 then begin Label4.Caption:='Правильно'; CountR:=CountR+1 еnd Else Label4.Caption:= 'Ошибка'; If CountR=5 then ShowMessage(‘ Тест окончен! ‘ );
|
Var бөлімінде Num1, Num2 және CountR айнымалыларын бүтін типті деп implementation бөлімінің алдында көрсету керек.
Жобаны сақтап, тексеруге жібереміз.