İnformatikanin əsaslari

Sub cmdPlus_Click
Txt3.Text = Val(txt1.Text)+Val(txt2.Text) End Sub
Çıxma, vurma və bölmə prosedurları da buna analojidir.

2. 
   Hər bir düymə üçün hadisəvi prosedur proqramı tərtib etməli.
   
3. 
   Mətn sahələrinin Alignement (düzləndirmə) xassəsi üçün Right Justufy qiyməti verilməlidir.
   
4. 
   Layihəni icraya buraxmalı. Soldakı iki mətn sahəsinə ədəd daxil edib müvafiq hesab əməli düyməsini basmalı. Sağdakı mətn sahəsində nəticə görünəcəkdir.
   

¹⁰⁷ ikisi daxil ediləcək ədədlər üçün, biri nəticə üçün
Layihəni \textbook\VB\prjVB3\ adı ilə saxlamalı.
Val funksiyasının arqumentləri olan sətri ifadələr 8-lik say sistemində &O, 16-lıq say sistemində isə &H sözönü ilə verilir. Məsələn, Val (―&O3720‖) və Val (―&H7D0‖) funsiyalarının ədədi qiyməti 10-luq say sistemində 2000 ədədidir.
Str, Hex, Oct funksiyaları. Bu funksiyalar 10-luq, 16-lıq və 8-lik ədədləri sətrə çevirir. Məsələn, Str(2000), Oct (2000), Hex (2000) 10-luqdakı 2000 ədədidir ki, bunu da Oct funksiyası 3720-yə, Hex funksiyası H7D0-a çevirir. Yəni bu funksiyalar Val funksiyasının əksinə işləyir.
İndi tam ədədləri 10-luqdan 8-liyə və 16-lığa və əksinə çevirən layihə yaradaq. Bunun üçün:
1. Yeni layihə yaratmalı. Forma üzərində ədədləri daxil etmək və nəticəni çıxarmaq üçün txtDec, txtOct, txtHex adlı 3 mətn sahəsi və cmdDecOct, cmdDecHex, cmdOctDec və cmdHexDec adlı 4 əmr düyməsi və mətn sahələri üzərində izahedici metkalar (lblDec, lblOct, lblHex) yaratmalı. txtOct və txtHex mətn sahələrinə sətri formada daxil ediləcək ədədlərə konkatenasiya (sətrlərin birləşdirilməsi) əməlinin tətbiqi ilə ―&O‖ və ―&H‖ sözönlərini birləşdirməli. Alınmış 8-lik və ya 16-lıq ədədləri Val funksiyasından istifadə etməklə sətri formadan 10-luq ədədi formaya çevirməli.

2. 
   cmdOctDec_Click() hadisəvi proseduru aşağıdakı kimi yazmalı:
   

Sub cmdOctDec_Click()
txtDec.Text = Val(―&O‖ +txtOct.Text)

End Sub

2. 
   cmdHexDec_Click() hadisəvi proseduru aşağıdakı kimi yazmalı:
   

Sub cmdHexDec_Click()
txtDec.Text = Val(―&H‖ +txtHex.Text)

End Sub

txtDec mətn sahəsinə daxil edilən ədədləri əvvəlcə Val funksiyasının köməyi ilə sətri formadan ədədi formaya, sonra isə 10-luq ədədləri Oct və Hex funksiyalarından istifadə etməklə sətri 8-lik və sətri 16-lıq formaya çevirməli.
Bunun üçün:

2. 
   cmdDecHex_Click() hadisəvi proseduru aşağıdakı kimi yazmalı: Sub cmdDecHex_Click()
   

txtHex.Text = Hex(Val(txtDec.Text))