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

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: 
4. cmdDecHex_Click() hadisəvi proseduru aşağıdakı kimi yazmalı: 
Sub cmdDecHex_Click() 
 
txtHex.Text = Hex(Val(txtDec.Text)) 

---

91 
End Sub 
5. cmdDecOct_Click() hadisəvi proseduru aşağıdakı kimi yazmalı: 
Sub cmdDecOct_Click() 
 
txtOct.Text = Oct(Val(txtDec.Text)) 
End Sub 
6. Layihəni icraya buraxmalı. Soldakı mətn sahəsinə 10-luq ədəd daxil edib, 8-liyə və 
16-liğa çevirməli. 
Layihəni \textbook\VB\prjVB4\ adı ilə saxlamalı. 
Asc funksiyası. Bu, sətri kodlaşdırma cədvəlindəki ədədi koda çevirir. Yəni həfin 
ədədi kodunu ekrana çıxarır. Asc(Sətir$) şəklində yazılır. 
Chr funksiyası. Bu, ədədi kodu simvola çevirir. Chr(Ədəd) kimi yazılır. 
İndi daxil edilən simvolu ədədi koda çevirən və simvolları ədədi kodlar üzrə çap edən 
layihə yaradaq. 
Bunun üçün: 
1. Yeni layihə yaratmalı. Forma üzərində txtS və txtN adlı 2 mətn sahəsi və cmdS və 
cmdT adlı iki əmr düyməsi yerləşdirməli. Asc() funksiyasından istifadə etməklə txtS mətn 
sahəsinə daxil ediləcək simvolun ədədi kodunu txtN mətn sahəsinə çap etməli. 
2. cmdS_Click() hadisəvi proseduru aşağıdakı kimi yazmalı: 
Sub cmdS_Click() 
txtN.Text = Asc(txtS.Text) 
End Sub
Mənfi bir (-1) addımla işləyən sayğac düzəldib simvol kodlarını böyükdən (255) 
kiçiyə ardıcıl çap etməli. 
3. Bunun üçün cmdT_Click() hadisəvi prosedurunu aşağıdakı kimi yazmalı: