İsa Musayev, Mətləb Əlizadə


“Biliyin yoxlanması” layihəsi



Yüklə 1,71 Mb.
Pdf görüntüsü
səhifə123/266
tarix13.05.2022
ölçüsü1,71 Mb.
#115877
növüDərs
1   ...   119   120   121   122   123   124   125   126   ...   266
sa Musayev, M tl b lizad

“Biliyin yoxlanması” layihəsi 
1. Forma üzərində cmd1 düyməsi yerləşdirməli və Caption xassəsi üçün ―Yoxlamanı 
başla‖ qiymətini verməli. Sonra isə cmd1_Click() hadisəvi prosedurunu hazırlamalı. 


 
96 
2.  İnputBox  funksiyası  ilə  adını  və  soyadını  soruşub  strA  sətri  dəyişəninə 
mənimsətməli.  MsgBox  funksiyasının  köməyi  ilə  qeydiyyataalmanın  nəticəsini  ekrana 
çıxarmalı. Bu işi yerinə yetirmək üçün aşağıdakı proqram kodunu yazmalı: 
Dim strA As String, bytB As Byte 
Sub cmd1_Click() 
strA = inputBox (―Adınızı və Soyadınızı daxil edin:‖,‖Qeydiyyat‖) 
bytB = MsgBox (―Hörmətli ― + strA + ―, biliyinizin yoxlanması üçün hazırsınızmı?‖, 
36, ―Qeydiyyat bitdi‖) 
End Sub  
3.  Layihəni  icraya  buraxmalı  və  ―Yoxlamanı  başla‖  düyməsini  basmalı.  Qeydiyyat 
panelinin mətn sahəsində ad və soyadı daxil etməli.  
4.  MsgBox  funksiyasının  ikinci  arqumenti  (36)  ?  piktoqramını  və  Да,  Нет 
düymələrini panel üzərinə çıxarır. Да düyməsi üçün bytB ədədi dəyişəninə 6, Нет düyməsi 
üçün 7 mənimsədilməlidir. 
5.  Şərt  operatorunun  köməyi  ilə  proqramdan  çıxmaq  və  ya  yoxlamanı  davam 
etdirmək olar. Bunun üçün: İf bytB =7 Then End yazmaq kifayətdir. 
Sual İnputBox funksiyasının köməyi ilə verilir. Cavabın düzgünlüyü İf...Then...Else 
şərti  keçid  operatorunun  köməyi  ilə  yoxlanır.  Cavabın  düzgün  olub-olmaması  barədə 
informasiyanı MsgBox funksiyası ikinci arqumentin 0 qiymətində OK düyməsi ilə ekrana 
çıxarır. 
6. Aşağıdakı proqram kodu düzgün cavabları yığır. Yanlış cavabların sayı bytN ədədi 
dəyişənində yığılır: 
strC = İnputBox (―1 bayt neçə bitdir?‖, ―Birinci sual‖) 

Yüklə 1,71 Mb.

Dostları ilə paylaş:
1   ...   119   120   121   122   123   124   125   126   ...   266




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©muhaz.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin