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

“Funksiyanın qrafikinin qurulması” layihəsi. 
1. Forma üzərində qrafikin qurulmasının həyata keçirilməsi üçün picGraph qrafik 
sahəsi yerləşdirməli.
Proqram kodunun aydın olması üçün ona izahlar (şərhlər) daxil etmək məqsədə 
uyğundur. Şərhlər apostrofla başlanır. 
2. Forma üzərində cmd1 düyməsi yaratmalı və hadisəvi proseduru aşağıdakı kimi 
yazmalı: 
Dim sngX As Single, int As İnteger 
Sub cmd1_Click() 
‗Miqyasın daxil edilməsi 
picGraph.Scale (-10, 2)-(10, -2) 
‗Qrfikin qurulması 
For sngX = -10 To 10 Step 0.01 
picGraph.PSet (sngX, Sin(sngX)) 
Next sngX 
‗X oxu 
picGraph.Line (-10, 0)-(10, 0) 
For intİ = -10 To 10 
picGraph.PSet (intİ, 0) 
picGraph.Print intİ 
Next intİ 
 
‗Y oxu 
picGraph.Line (0,2)-(0, -2) 
For intİ = -2 To 2 
picGraph.PSet (0, intİ) 
picGraph.Print intİ 
Next intİ 
 
End Sub 
3. Layihəni icraya buraxmalı və \textbook\VB\prjVB11\ adı ilə saxlamalı. 

---

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ı: