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

Dim intX As Integer, lngI As Long 
Private Sub cmdStart_Click() 
‗Miqyas  
picAnim.Scale (-10, 10)-(10, -10) 
‗Animasiya 
For intX = -10 To 10  
‗Şəkilçəkmə 
picAnim.FillColor = vbBlue 
picAnim.Circle (intX, 0), 1, vbBlue 
‗Şəkli silmənin yubadılması 
For lngI = 1 To 10000000 
Next lngI 
‗Şəklin silinməsi 
picAnim.FillColor = vbWhite 
115
Hər hansı obyektin ekranda hərəkət illüziyası 
116
Şəkillərin bir-birini əvəzetmə sürətini

---

101 
picAnim.Circle(intX, 0),1,vbWhite 
Next intX 
End Sub 
3. Layihəni Start düyməsi ilə icraya buraxmalı və \textbook\VB\prjVB12\ adı ilə 
saxlamalı. 
 
5.4.11. Visual Basic dilində ümumi prosedurlar 
Prosedurların görünmə oblastı. 
Mürəkkəb alqoritmlərin tərtibi zamanı müəyyən alt məsələlərin həllini reallaşdıran 
əməllər ardıcıllığını seçib ayırmaqla köməkçi alqoritmlər yaratmaq və lazım gəldikcə əsas 
alqoritmə çağırıb istifadə etmək məqsədəuyğun olur. Prosedur dillərdə buna alt proqram 
deyilir. Obyekt-istinad dillərində köməkçi alqoritmlər ümumi prosedurların köməyi ilə 
reallaşdırılır.
Ümumi prosedurun müəyyən edilməsi. Hər bir ümumi prosedura unikal (təkrar 
olunmaz) ad (prosedurun adı) verilir və prosedurun giriş və çıxış parametrlərinin siyahısı 
müəyyən edilir.
Giriş parametrlərin siyahısı dəyişənlər yığımından ibarətdir. Bunların qiymətləri 
prosedurun icrasından əvvəl məlum olmalıdır. 
Çıxış parametrlərin siyahısı prosedurun icrasından sonra qiymətləri bəlli olan 
dəyişənlər yığımından ibarətdir. 
Ümumi prosedurun sintaksisi aşağıdakı kimidir: