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

Тақырыбы:

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

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

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

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

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

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

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

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

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

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

• Тақырып жолы;
• Меню жолы;
• Құрал-саймандар тақтасы;
• Басқару панелі;
• Жоба1 орналасқан жұмыс алаңы Кейде қасиеттер терезесі (Properties), жоба терезесі (Projects) және тақырып алаңы (Caption).

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

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

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

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

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

=Len болса жолдың ұзындығын тексеріп берілген үлкен немесе тең санды символ екенін көрсету операторы, ал бұл жерде Label1.Caption = Str(100*50) болса көбейтіп нәтижесінде 5000 санын көрсетеді" width="640"

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

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

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

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

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

b)" width="640"

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

Синус және косинус функцияларын sin 30 0 + cos 60 0 мәнін есептегенде 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

Text Box батырмасымен жұмыс түрі

Text Box батырмасымен жұмыстың нәтижесі