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

Сабақтың мақсаты: Visual Basic программасында                            функциялардың графиктерін   программалау                                

Білімділік – Visual Basic терезесінде есептеліп шығарылатын функциялардың программаларын құруға үйрету.

Дамытушылық – Оқушылардың логикалық ойлау қабілеттері мен танымын, графиктік редактор операторларын пайдаланып өз бетінше программалар құрып, оның жауабын алу дағдыларын дамыту.

Тәрбиелік – Оқушыларды кішіпейілдікке, жекелеп жұмыс жасауға, сабақта өзін - өзі басқаруға тәрбиелеу.

Сабақтың түрі: Білімді меңгерту

Сабақтың әдісі: Баяндау , сұрақ жауап

Сабақтың көрнекілігіі: таратпа кеспелер, компьютер, графопроектор

Сабақтың барысы

Ұйымдастырылу кезеңі

• оқушылармен сәлемдесу

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

• сабаққа дайындығын, құралдарын тексеру

Үйге берілген тапсырманы сұрау

1. Visual Basic терезесінде графиктік режимді қалай орнатамыз?

2. Кескін салатын қандай операторлар бар?

3. Әдіс дегеніміз не?

4. Scale ұғымы нені білдіреді?

5. Scale әдісі қалай қолданылады?

Жаңа сабақты түсіндіру

Есептелетін сурет деп бейнесі алдын ала белгісіз және программаның орындалуы кезінде есептеліп шығарылатын суреттерді айтамыз. Мұндай суреттерге функциялардың графиктері жатады.

Функциялардың графигін салудакомпьютерді пайдалану көптеген жеңілдіктерді жасайды, әрі графиктерді көрнекі етіп салуға және жеңіл түрлендіруге көмектеседі.

Функция графигін салу үшін екі координат жүйесімен жұмыс істейміз.

1. монитор экранындағы графиктік координат жүйесі.

2. математикалық координат жүйесі.

Мысалы, Y= cos x функциясының графигін салатын программа құру. (-9,-9) – (9,9) терезесінде

1. Visual Basic терезесін экранға жүктеу

2. Формаға Picture1 обьектісін және Command1 басқару түймелерін орнату.

3. 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

4. F5 батырмасын басып программаны іске қосамыз. Picture1 обьектісінде функцияның графигі көрінеді.

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

1. , (-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. , (-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. , (-10,-10) – (10,10) терезесінде

2. , (-7,-7) – (7,7) терезесінде

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

4. , (-10,-10) – (10,10) терезесінде

Сабақты қорытындылау:

1. Есептелініп шығарылатын сурет дегеніміз не?

2. Функция графигін салу үшін қандай координат жүйелері қолданылады?

3. Функция графигін қалай саламыз?

4. Функция графигін салу үшін қандай обьектілерді формаға орнатамыз?

5. Процедураны қай оқиғаға енгіземіз?

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