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

№3 орта мектебі

Тақырыбы:

“VB-да ПРОЦЕДУРАЛАР және ФУНКЦИЯЛАР”

АТТЫ АШЫҚ САБАҚ

Смадиярова Гульшат Жаңабайқызы

Visual Basic бағдарламасын қосымша құрып үйрену, стандарттық басқару элементімен танысу және VB-тің процедураларымен және функцияларын қолданып білу

Бағдарламалық қамтамасыз ету: WINDOWS 7, Microsoft Visual Basic 6. 0

Техникалық қамтамасыз ету: Персоналдық компьютер және Интерактивті тақта

Сабақтың мақсаты:

Visual Basic-ті іске қосу Пуск- Visual Basic 6. 0 командасымен жүзеге асырылады.

Visual Basic бағдарламалау ортасы терезесінде New Project терезесі болады.

Терезе үш қосымша беттен тұрады: New(Жаңа жобалар) Existing(Қолданыстағы жобалар) Recent(Жақында пайдаланылған жобалар)

Сіздің алдыңызда VB-тің бағдарламалау терезесі. Құрамы:

Тақырып жолы;

Меню жолы;

Құрал-саймандар тақтасы;

Басқару панелі;

Жоба1 орналасқан жұмыс алаңы Кейде қасиеттер терезесі (Properties), жоба терезесі (Projects) және тақырып алаңы (Caption) .

Жобаны сақтау үшін

File-Save Project немесе Save Project as

Жобаны дискіге жаңа папка ашып сақтау ыңғайлы. Себебі жоба кем дегенде екі файлдан тұрады - жоба және пішін. Меню File командасы арқылы бұрын сақтап қойған жобаларды да ашуға болады - File, Open Project.

Жазба (Label) арқылы жазылған мәтінді (8наурыз) басқа мәтінге аудару(көктем келді)

Бұл нәтижесі шыққан, терезе көрінісі

Арифметикалық амалдарды орындау үшін str операторын қолдану. мысалы Str>=Len болса жолдың ұзындығын тексеріп берілген үлкен немесе тең санды символ екенін көрсету операторы, ал бұл жерде Label1. Caption = Str(100*50) болса көбейтіп

нәтижесінде 5000 санын көрсетеді

Арифметикалық амалында бөлу амалы. мыс. Label1. Caption = Str(20 / 2)

Логикалық ақиқат шамаларды білдіретін (ақиқат/жалған) бульдік типте салыстырмалы операцияларды да орындайды мыс. Label1. Caption = Str(y = a < b)

Бүтін сандық бөлу қалдығын есептеу үшін арнайы программалық тілде mod тіл символы қолданылады мысалы 3 mod 2 болса қалдығы 1 болады мыс. Label1. Caption = Str(3 mod 2)

Логикалық ақиқат шамаларды білдіретін (ақиқат/жалған) бульдік типте салыстырмалы операцияларды да орындайды мыс. Label1. Caption = Str(y = a > b)

Синус және косинус функцияларын sin 300 + cos 600 мәнін есептегенде 1ге тең болса, оны былай есептеуге болады арнайы программалық тілде мыс .

Label1. Caption = Str(sin(30 * pi / 180) + Cos(60 * pi / 180) ) болады

Text Box батырмасымен жұмыс жасау үшін мынандай программалар құруға болады. Туылған күніңнен бастап неше күн өмір сүргеніңді санау. Ол үшін Dim, Integer операторларын пайдалану. Dim-жол пішімі, Integer-бүтін сандарды есептеу

Dim dl As Date

Dim d2 As Date

Dim n As Integer

Print "Сегодня", "Рождение", "Прожито"

d1 = Date 'Определение текущей даты

d2 = Text1. Text

n = d1 - d2

Print d1, d2, n