VISUAL BASIC: объекті-бағытталған программалау және қолданба интерфейсін жасау

 Мазмұны VISUAL BASIC – те программалау Объекті – бағытталған программалау түсінігі. Объект – қасиеттер мен әдістер Қасиет-объектінің сипаттамасы. Әдіс-объект орындай алатын Оқиға- объекті жағдайының қайсыбір әрекетке Класс- әдістер немесе қасиеттер орталығымен End SUB 4 VISUAL BASIC ортасында қолданба құру. Экрандық интерфейсті жасау. 4 VISUAL BASIC жүктелген соң экранда Элементтер панелі мен қасиеттер терезесіне Программа мәтінін жазу. 8 VISUAL BASIC – те программалау VISUAL BASIC қазіргі уақытта программалаудың VISUAL BASIC–тің арқасында, соңғы кезде VISUAL BASIC программалауда алқашқы қадамдар VISUAL BASIC программалау жүйесі Объекті – бағытталған программалау түсінігі. Объекті- бағытталған программалаудың негізгі түсініктері: ( объекті; ( объектінің қасиеті; ( объектінің әдісі; ( оқиға; ( объектілер класы. Объект – қасиеттер мен әдістер Мысалы, автомобиль объект болады, өйткені Қасиет-объектінің сипаттамасы. Әдіс-объект орындай алатын Объекті-бағытталған программалауда объектімен жұмыс істеу Объект. әдіс Объект. Қасиет. Объект. қасиет. әдіс Оқиға- объекті жағдайының қайсыбір әрекетке Мысалы, пайдаланушының Word мәтіндік Класс- әдістер немесе қасиеттер орталығымен VISUAL BASIC –тің бүкіл программалауы Private SUB объект аты –оқиғаны End SUB Мысалы, Click оқиғасы маусты шерткенде Private SUB commandl _ Click рrint «жұмыс аяқталды» end End SUB Мауспен commandl атты объектінің Private SUB command Click ( Labell. Caption = «ПУСК» End SUB VISUAL BASIC ортасында қолданба құру. VISUAL BASIC –ті жүктеу үшін ПУСК ( Программы ( VISUAL BASIC 5. Пайда болған New Project VISUAL BASIC ортасында қолданба құруды Экрандық интерфейсті жлбалау; Программа мәтінін жазу. Экрандық интерфейсті жасау. VISUAL BASIC жүктелген соң экранда Меню және құрал–саймандар панельдері Windows–тың Фон және жазу түсін өзгерту Пішінді ерекшелейміз де, ол үшін Пішіндер макетінің терезесі сіздің Жоба терезесі Бағыттаушы сияқты жобаңыздың Пішіндер конструкторы. Бұл терезеге пішіннің View ( Object View ( Code Пішін. Шын мәнінде бұл да Элементтер панелі мен қасиеттер терезесіне Элементтер панелінде қолданбаның интерфейсі Қасиеттер терезесі ерекшкленген объектілерді бейнелейді. Қасиеттер терезесі екі бағанаға бөлінген. Көптеген графикалық объектілерді жекелеген бөлшектерден Объектілер негізінен үш элементтен: сызық, Дискетаның кескінін элементтер жиымынан жасаған Пішінге төрт элемент көшіріңіз, кезегімен Нұсқау: BorderStyle қасиеттері ( жақтау Элементтердің өлшемдерін, орналасқан орындарын өзгертсеңіз, Осылай автомобиль құрастыруға, ал қызыл Нұсқау: Line DrawMode қасиеті Үшбұрышты салу үшін, VISUAL ВASIC “VISUAL BASIC – бұл ҒАЖАЙЫП! Қолданбаны Start батырмасының көмегімен орындауға Командыларды қолдана отырып, дискіге пішін File ( File ( Дискіде үш жаңа файл пайда Жоба – қолданбаны құрайтын файлдар Дербес жұмыс істейтін қолданбаны жасау Программа мәтінін жазу. Тиімділігін арттыру үшін пішінге элементтер Commandl атты элемент үшін Caption VISUAL BASIC редакторының терезесіне (программа Private SUB объект аты оқиғаны end SUB Command1 элементі үшін ең Private Sub Command1 Click End End Sub Программаны іске қосқанд әрқашан цедурасы Dim As Integer – қолданыстағы VISUAL BASIC айнымалылардың келесі типтерін Integer – 32768 – ден Long - 2147483648 – Single – заттық сандарды; String – жолдық шамаларды; Boolean - логикалық шамаларды, Программаның түрі мынадай болады: Dim K, I As Integer Private Sub Command 1_Click ( End End Sub Private Sub Command 1_Click ( Timer 1. Enabled = False К = 0 For I = 0 To Shape 1 (1). Visible = Next For I = 0 To Shape 2 (1). Visible = Next For I = 0 To Shape 3 (1). Visible = Next For I = 0 To Shape 5 (1). Visible = Next For I = 0 To Line 1 (1). Visible = Next Shape 4 . Visible = For I = 0 To Imahe 1 (1). Visible = Next Picture 1. Visible = False Жазуы көрінбей кетеді. End Sub Private Sub Command 2_Click ( Timer 1. Enabled = True End Sub Private Sub Timer 1_Timer ( K = K + 1 If K > = 10 For I = 0 To Shape 1 (1). Visible = Next Else For I = 0 To Shape 1 (1). Visible = Next Else If If K > = 20 For I = 0 To Shape 2 (1). Visible = Next Else For I = 0 To Shape 2 (1). Visible = Next Else If If K > = 30 For I = 0 To Shape 3 (1). Visible = Next Image 1 (0). Visible = Else For I = 0 To Shape 3 (1). Visible = Next Image 1(0). Visible = False Else If If K > = 40 For I = 0 To Image 1(1). Visible = False Next Shape 4 (1). Visible = Else For I = 0 To Image 1(1). Visible = False Next Shape 4 (1). Visible = Else If If K > = 50 For I = 0 To Shape 5 (1). Visible = Next For I = 0 To Line 1(1). Visible = False Next Else For I = 0 To Shape 5 (1). Visible = Next For I = 0 To Line 1(1). Visible = False Next Else If Rem Ара – тұра If K/4 = Int Picture 1. Visible = True Else Picture 1. Visible = False End If If K = 60 Then End Sub ҚАЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ ДЕНСАУЛЫҚ САҚТАУ С.Ж.Асфендияров атындағы ҚАЗАҚ ҰЛТТЫҚ Информатика курсы кафедрасы Р Е Ф Е Р Тақырыбы: “ VISUAL BASIC – Тексерген: Жаханова Б. Орындаған: 1-курс 104- топ АЛМАТЫ –2003 ж.