Visual Basic бағдарламалау ортасында анимация жасау тақырыбы бойынша презентация

Сабақтың тақырыбы: Visual Basic бағдарламалау ортасында анимация жасау

Сабақтың мақсаты: 1.Жоба жасау, оған форма қосу, компоненттерді тиімді қолдана білуді, анимация жасауды үйрету; 2. Практикалық есептерді шығара білуін дамыту; 3. Оқу процесінде қолданбалы тапсырмалар жасауда компьютерлік техниканы өзінше тиімді қолдана білуге үйрету.

Үй тапсырмасын сұрау

Қарапайым типке жататындарын тап! (дұрыс шертсең жапырақтар сыбдырлап белгі береді) const integer single string real boolean

Логикалық типке жататын асқабақтарды жина! 12 -63254 -58,213 ‘?’ ‘girl’ ‘алма’ ‘#’ z>0 a<b true

Символдық типке жататын асқабақтарды жина! 3,5 12 -6325 ‘?’ ‘girl’ ‘asdfh’ ‘#’ ‘A’ a<b true

Нақты типке жататын асқабақтарды жина! 3,5 12 -58,213 ‘girl’ 0,562 ‘asdf’ ‘#’ z>0 ‘A’ a<b

div, mod функциялары қандай типке қолданылады? (дұрысы тышқанмен шерткенде жасыл түске боялады) Бүтін (integer) Нақты (single) ақшалық(currency Логикалық (boolean) Cимволдық (string)

Бүтін типке қолданылатын амалдарды тап. (дұрыс тапсаң шар әуеге қалықтайды!) NOT SIN(X) AND MOD PRED(X) ORD(X) DIV OR ABS(X)

Стандартты функцияларды тап. (дұрыс тапсаң шар әуеге қалықтайды!) ABS(X) OR MOD DIV AND PRED(X) XOR SIN(X) NOT

Жаңа сабақты түсіндіру: Анимация дегеніміз - экранда кез келген денені қозғалысқа келтіру үшін мультфильмдердегі секілді кадрларды ауыстыру әдісі . Қозғалысқа келтіру бағдарламасы келесі бөлімдерден тұрады. Экранда бейнені құру; көзді тоқтатып қарау; суретке өзгеріс енгізу. Анимация объектілерді қозғалысқа келтіру үшін қолданылады. Дененің қозғалыс жылдамдығын бақылау үшін оған бос цикл қолданылады. Цикл көп болған сайын қозғалыс керісінше кемиді. Пішіндегі объектілер Left және Top қасиеттерімен басқарылады. Top – батырмадан пішіннің жоғары жағына дейінгі ара қашықтығы Left - батырмадан пішіннің сол жағына дейінгі ара қашықтығы

Private Sub Command1_Click() Dim I As Integer Dim left As Single Dim top As Single left = Image1.left top = Image1.top For I = 1 To 100 Step 1 left = left - 10 top = top - 10 Image1.Move left, top Next I End Sub

Private Sub Command1_Click() For I = 1 To 5000 Shape1.Left = Shape1.Left + 1 Shape2.Left = Shape2.Left + 1 Shape3.Left = Shape3.Left + 1 Line1.X1 = Line1.X1 + 1 Line1.X2 = Line1.X2 + 1 Line2.X1 = Line2.X1 + 1 Line2.X2 = Line2.X2 + 1 Line3.X1 = Line3.X1 + 1 Line3.X2 = Line3.X2 + 1 Line4.X1 = Line4.X1 + 1 Line4.X2 = Line4.X2 + 1 Line5.X1 = Line5.X1 + 1 Line5.X2 = Line5.X2 + 1 Line6.X1 = Line6.X1 + 1 Line6.X2 = Line6.X2 + 1 Line7.X1 = Line7.X1 + 1 Line7.X2 = Line7.X2 + 1 Line8.X1 = Line8.X1 + 1 Line8.X2 = Line8.X2 + 1 Line9.X1 = Line9.X1 + 1 Line9.X2 = Line9.X2 + 1 Next End Sub

Private Sub Command1_Click() Dim I As Integer Dim left As Single Dim top As Single left = Image1.left top = Image1.top For I = 1 To 100 Step 1 left = left - 10 top = top - 10 Image1.Move left, top Next I End Sub Private Sub Command2_Click() Dim I As Integer Dim left As Single Dim top As Single left = Image1.left top = Image1.top For I = 1 To 100 Step 1 left = left + 10 top = top + 10 Image1.Move left, top Next I End Sub

Private Sub Command1_Click() Dim I As Integer Dim left As Single Dim top As Single left = Image1.left top = Image1.top For I = 1 To 100 Step 1 left = left - 10 top = top - 1 Image1.Move left, top Next I End Sub Private Sub Command2_Click() Dim I As Integer Dim left As Single Dim top As Single left = Image1.left top = Image1.top For I = 1 To 100 Step 1 left = left + 10 top = top + 1 Image1.Move left, top Next I End Sub Private Sub Command3_Click() Dim I As Integer Dim left As Single Dim top As Single left = Image1.left top = Image1.top For I = 1 To 100 Step 1 left = left - 1 top = top - 10 Image1.Move left, top Next I End Sub Private Sub Command4_Click() Dim I As Integer Dim left As Single Dim top As Single left = Image1.left top = Image1.top For I = 1 To 100 Step 1 left = left + 1 top = top + 10 Image1.Move left, top Next I End Sub

Жаңа сабақты қорыту: Тест.

Оқушыларды бағалау Үйге тапсырма: 3.1 тақырып (55-56 бет), 3.2-3,3 тақырып (57-59 бет); Оқулықтан: