İnformatikanin əsaslari

Sub cmdMid_Click()
txt3.Text = Mid$(txt1.Text, Val(txt1Mid.Text), Val(txt2Mid.Text)) End Sub

6. 
   Layihəni icraya buraxmalı.
   
7. 
   İndi sətrin uzunluğunu göstərən əməli icra etmək üçün forma üzərində cmdLen düyməsi yerləşdirməli və cmdLen_Click() prosedurunu aşağıdakı kimi yazmalı:
   

Sub cmdLen_Click() txt3.Text = Len(txt1.Text) End Sub

8. 
   Layihəni icraya buraxmalı.
   
9. 
   İndi forma üzərində cmdAsc əmr düyməsi yerləşdirib, cmdAsc_Click() prosedurunu aşağıdakı kimi yazmalı:
   

Sub cmdAsc_Click() txt3.Text = Asc(txt1.Text) End Sub

10. 
    Layihəni icraya buraxmalı.
    

Bu layihəni \textbook\VB\prjVB7\ adı ilə saxlamalı.

Daxiletmə və çıxarma funksiyaları.

İnputBox¹¹² funksiyası. Bu, verilənləri dialoq panelindən daxil etmək üçündür. Bu funksiyanın arqumentləri 3 sətirdən ibarətdir və funksiyanın aldığı qiymət də sətirdir: İnputBox (Dəvət$, Başlıq$,[Susma$]).
Bu funksiya icra edilərkən ekrana mətn sahəsi olan dialoq paneli açılır. Panelin başlıq sətrində Başlıq$ arqumentinin, panelin özündə isə Dəvət$ arqumentinin qiyməti çap edilir. Üçüncü arqument Susma$ varsa, cap edilir, yoxdursa, ona aid pəncərə açılmır. Bu funksiyanın qiyməti istifadəçinin mətn sahəsinə daxil etdiyi sətrdən ibarətdir.
MsgBox¹¹³ funksiyası. Bu funksiya xəbəri forma üzərinə deyil, xüsusi xəbərlər
panelinə çıxarır. Bunun qiymətini hər hansı dəyişənə mənimsətmək mümkündür. MsgBox funksiyasının sintaksisi aşağıdakı kimidir:
MsgBox(Xəbər$[,ƏdədiKod1+ƏdədiKod2][,Başlıq$])
Xəbər$ sətri xəbərlər panelinə çıxarılır. Panelin xarici görünüşünü ƏdədiKod1+ƏdədiKod2 arqumenti təyin edir. Başlıq$ sətri panelin sərlövhəsinə çıxarılır. Kvadrat mötərizədəki arqumentlər məcburi deyillər. ƏdədiKod1 piktoqramı, ƏdədiKod2 düymələr yığımını təyin edir. Məsələn:

ƏdədiKod1	Piktoqram	ƏdədiKod2	Düymələr yığımı
16		0	Ok
32	?	1	Ok, Отмена
48	!	2	Стоп, Повтор, Пропустить
64	i	3	Да, Нет, Отмена

¹¹² İnputBox - Daxiletmə pəncərəsi
¹¹³ MsgBox – Xəbərlər paneli

		4	Да, Нет
		5	Повтор, Отмена

İki ədədi kodun cəmi (ƏdədiKod1+ƏdədiKod2) olan bir ədədlə eyni vaxtda həm piktoqramı, həm də düymələr yığımını təyin etmək olar. Məsələn, 36 ədədinə 32+4 kimi baxmaqla, ? piktoqramını və Да, Нет düymələrini panel üzərinə çıxarmaq mümkündür. Düymə basılan kimi MsgBox funksiyasının qiyməti hesablanır. Funksiyanın qiyməti basılan düymədən asılıdır. Məsələn:

Basılan düymə	Funksiyanın qiyməti
OK	1
Отмена	2
Стоп	3
Повтор	4
Пропустить	5
Да	6
Нет	7

İndi biliyi yoxlayan layihə yaradaq. Bunun alqoritmi aşağıdakı əməliyyatları özündə birləşdirməlidir:
Sualı ekrana çıxarmaq;
Klaviaturadan daxil edilən cavabı yadda saxlamaq;
Daxil ediləni düzgün cavabla müqayisə etmək və bu şərtin ödənib-ödənmə- məsindən asılı olaraq müxtəlif əməllərin reallaşdırılması.
Əvvəlcə İnputBox və MsgBox funksiyalarından istifadə etməklə biliyi yoxlanılanı qeydiyyata almağı reallaşdırmaq lazımdır.

“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ı.
   
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‖)