Dim intX As Integer, lngI AsLong Private SubcmdStart_Click() ‗Miqyas picAnim.Scale (-10, 10)-(10,-10) ‗Animasiya For intX = -10 To10 ‗Şəkilçəkmə picAnim.FillColor =vbBlue picAnim.Circle (intX, 0), 1,vbBlue ‗Şəklisilməninyubadılması For lngI = 1 To10000000NextlngI ‗Şəklinsilinmə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
picAnim.Circle(intX,0),1,vbWhite NextintX
End Sub
Layihəni Start düyməsi ilə icraya buraxmalı və \textbook\VB\prjVB12\ adı ilə saxlamalı.
Visual Basic dilində ümumiprosedurlar
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: Sub ProsedurAdı(ParametrlərSiyahısı) Proqramkodu