Бейсик программалау тілі презентация скачать

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

Саба?ты? ма?саты: 1.Жоба жасау, о?ан форма ?осу, компоненттерді тиімді ?олдана білуді, анимация жасауды ?йрету; 2. Практикалы? есептерді шы?ара білуін дамыту; 3. О?у процесінде ?олданбалы тапсырмалар жасауда компьютерлік техниканы ?зінше тиімді ?олдана білуге ?йрету. ?й тапсырмасын с?рау. ?арапайым типке жататындарын тап! (д?рыс шертсе? жапыра?тар сыбдырлап белгі береді) const integer single string real boolean. Логикалы? типке жататын ас?аба?тарды жина! 12 -63254 -58,213 ‘?’ ‘girl’ ‘алма’ ‘#’ z>0 a № слайда 6. Символды? типке жататын ас?аба?тарды жина!

3,5 12 -6325 ‘?’ ‘girl’ ‘asdfh’ ‘#’ ‘A’ a № слайда 7. На?ты типке жататын ас?аба?тарды жина! 3,5 12 -58,213 ‘girl’ 0,562 ‘asdf’ ‘#’ z>0 ‘A’ a № слайда 8. 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.