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