100
Animasiya
115
. Animasiya, multiplikasiyada olduğu kimi, kadrların (şəkillərin)
əvəzlənməsi prinsipi ilə yaradılır. Hərəkəti imitasiya (təqlid) edən proqram aşağıdakı
mərhələlərdən ibarət olmalıdır:
1.
ekranda şəklin yaradılması;
2.
şəklin gözlə görünməsi üçün pauza yaradılması;
3.
şəklin korreksiyası (dəyişdirilməsi).
“Dairənin hərəkəti” layihəsi.
1.
Dairənin hərəkət etməsi üçün forma
üzərində picAnim adlı mətn sahəsi yaratmalı.
OX oxu üzrə hərəkəti dövrlə reallaşdıraq. Animasiya effektini almaq üçün dairəni göy
rənglə rəngləyib silmək lazımdır. Rəngli dairə almaq üçün
FillColor xassəsinə qiymət
vermək (rəngləyəndə
vbBlue, siləndə
vbWhite) lazımdır.
FillStule xassəsi üçün verilən
qiymət
Transparent (şəffaf) və
Solid (tünd)
ola bildiyindən,
Solid vermək lazımdır.
Dairənin hərəkət sürətini
116
tənzimləmək üçün şəkilçəkmə ilə şəkli silmə arasında boş
dövr yaradıb müvafiq sayda təkrarlamalardan istifadə etmək olar.
2. Forma üzərində
cmdStart düyməsi yaradıb onun üçün aşağıdakı hadisəvi proseduru
yazmalı:
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:
Sub ProsedurAdı (ParametrlərSiyahısı)
Proqram kodu
End Sub
Ümumi prosedurun çağırılması. Ümumi prosedur digər prosedur tərəfindən çağırılır.
Ümumi prosedur ya
Call operatoru ilə, ya da öz adı ilə çağırılır.
Call operatoru ilə çağırma zamanı sintaksis aşağıdakı kimi olmalıdır:
Call ProsedurAdı (ParametrlərSiyahısı)
Prosedurun öz adı ilə çağırılması zamanı isə sintaksis:
ProsedurAdı ParametrlərSiyahısı kimi, yəni, parametrlərin siyahısı mötərizəsiz
yazılmalıdır.