Visual Basic — тегі графика

СабаKтыS маKсаты: Visual Basic программасында                            функциялардыS графиктерін   программалау                                
Білімділік – Visual Basic терезесінде есептеліп шыCарылатын функциялардыS программаларын KaруCа _йрету.
ДамытушылыK – ОKушылардыS логикалыK ойлау Kабілеттері мен танымын, графиктік редактор операторларын пайдаланып ™з бетінше программалар Kaрып, оныS жауабын алу даCдыларын дамыту.
Т‰рбиелік – ОKушыларды кішіпейілдікке, жекелеп жaмыс жасауCа, сабаKта ™зін - ™зі басKаруCа т‰рбиелеу.
СабаKтыS т_рі: Білімді меSгерту
СабаKтыS ‰дісі: Баяндау , сaраK жауап
СабаKтыS к™рнекілігіі: таратпа кеспелер, компьютер, графопроектор
СабаKтыS барысы
`йымдастырылу кезеSі
оKушылармен с‰лемдесу

келмеген оKушыларды белгілеу

сабаKKа дайындыCын, Kaралдарын тексеру

^йге берілген тапсырманы сaрау

1. Visual Basic терезесінде графиктік режимді Kалай орнатамыз?
2. Кескін салатын Kандай операторлар бар?
3. €діс дегеніміз не?
4. Scale aCымы нені білдіреді?
5. Scale ‰дісі Kалай Kолданылады?

ЖаSа сабаKты т_сіндіру
Есептелетін сурет деп бейнесі алдын ала белгісіз ж‰не программаныS орындалуы кезінде есептеліп шыCарылатын суреттерді айтамыз. Мaндай суреттерге функциялардыS графиктері жатады.
ФункциялардыS графигін салудакомпьютерді пайдалану к™птеген жеSілдіктерді жасайды, ‰рі графиктерді к™рнекі етіп салуCа ж‰не жеSіл т_рлендіруге к™мектеседі.
Функция графигін салу _шін екі координат ж_йесімен жaмыс істейміз.
монитор экранындаCы графиктік координат ж_йесі.
математикалыK координат ж_йесі.

Мысалы, Y= cos x функциясыныS графигін салатын программа Kaру. (-9,-9) – (9,9) терезесінде
Visual Basic терезесін экранCа ж_ктеу
ФормаCа Picture1 обьектісін ж‰не Command1 басKару т_ймелерін орнату.
Command1 обьектісін 2 рет шертіп процедура денесін енгізу

Private Sub Command1_Click()
Picture1.Scale (-9, 9)-(9, -9)
Picture1.Line (0, 9)-(0, -9), vbGreen
Picture1.Line (9, 0)-(-9, 0), vbGreen
For x = -9 To 9 Step 0.00005
y = Cos(x)
Picture1.PSet (x, y), vbRed
Next x
End Sub

F5 батырмасын басып программаны іске Kосамыз. Picture1 обьектісінде функцияныS графигі к™рінеді.



Тапсырмалар орындау.

1. 13 EMBED Equation.3 1415 , (-10,-10) – (10,10) терезесінде

Private Sub Command1_Click()
Picture1.Scale (-10, -10)-(10, 10)
Picture1.Line (-10, 0)-(10, 0), vbBlack
Picture1.Line (0, -10)-(0, 10), vbBlack
For x = -9 To 9 Step 0.0005
y = (3 * (x + 5) ^ 2 + 5) / ((3 * (Sin(x / 3 + 5) ^ 3) ^ 2) ^ (1 / 2) + 20 * x)
Picture1.PSet (x, y), vbBlue
Next x
End Sub





2. 13 EMBED Equation.3 1415, (-7,-7) – (7,7) терезесінде

Private Sub Command1_Click()
Picture1.Scale (-7, -7)-(7, 7)
Picture1.Line (-7, 0)-(7, 0), vbGreen
Picture1.Line (0, -7)-(0, 7), vbGreen
For x = -7 To 7 Step 0.0005
y = (7 * Sin(x ^ 2)) / (3 * (Cos(x ^ 3) ^ 2) ^ (1 / 2) + 1)
Picture1.PSet (x, y), vbRed
Next x
End Sub




Тапсырмалар орындау



1. 13 EMBED Equation.3 1415 , (-10,-10) – (10,10) терезесінде



2. 13 EMBED Equation.3 1415 , (-7,-7) – (7,7) терезесінде



3. 13 EMBED Equation.3 1415 , ( -9, -9) – ( 9, 9 ) терезесінде



4. 13 EMBED Equation.3 1415, (-10,-10) – (10,10) терезесінде




СабаKты Kорытындылау:
Есептелініп шыCарылатын сурет дегеніміз не?
Функция графигін салу _шін Kандай координат ж_йелері Kолданылады?
Функция графигін Kалай саламыз?
Функция графигін салу _шін Kандай обьектілерді формаCа орнатамыз?
Процедураны Kай оKиCаCа енгіземіз?

^йге тапсырма:        







Рисунок 1