İ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.