Дипломдық ЖҰмыс 5В011100 «Информатика»
жүктеу/скачать 1.6 Mb.
|
| Бүтін айнымалылар
Бүтін тип мәліметтердің бастапқы типіне жатады. Бүтін айнымалылыр байттық айнымалыға ұқсас, бірақ оларда таңба болуы мүмкін және –32768-ден 32767 интервалында жатады. Бүтін тип жай есептеулерде ыңғайлы және олар есептеуіш ретінде жиі қолданылады. Келесі мысалда бүтін айнымалы жұмысын қарастырамыз: 1. Жаңа жоба құрыңыз; 2. Формаға батырма орнатыңыз. Оның Name қасиетіне cmdPush мәнін, ал Caption қасиетіне Шерт мәнін бер; 3. Батырмада екі рет шерт, программа терезесін ашу үшін; 4. Келесі фрагментті батырманың Click оқиғасына енгіз: Dim A As Integer Dim B As Integer A=2 B=A+1 Print B 5.Программаны қосып және батырманы бас. Мысал үшін пррограмма терезесі Суретте жоғарыда келтірілген фрагментпен программа терезесі көрсетілген: Қосымша мысалының терезесі Соңғы жол ағымдағы формада В айнымалысының 3-ке тең мәнін шығарады. Логикалық айнымалылар Логикалық типтің айнымалысында екі мән бар-ол True және False. Көп жағдайда олар программадағы шартты немесе белгіні “өшіріп”немесе ”қосу” үшін қолданылады. Логикалық мәнді қайтару үшін де қолданылады. Қайтару коды True-ға тең, егер функция жұмысы ойдағыдай аяқталса және False-егер олай болмаса, біз функцияны жазуда логикалық типті қолданамыз. Ол дискіде берілеген атпен файлдың болуын анықтайды: 1. Жаңа жоба құр; 2. Project Wizard терезесінде Standard Exe таңбашасын таңда; 3. Form1 формамасында текстік жол құрып және оның Name қасиетіне txtFileName мәнін беріңіз; 4. Текстік жолдың Caption қасиетін тазартыңыз-ол үшін Caption қасиетін екі рет шертіп Next 1 текстін алып тастаңыз; 5. Формада батырма орнат. Қасиеттер терезесінде Name қасиетіне cmdSearch мәнін, ал Caption қасиетіне &Search мәнін бер; 6. Form1-де тышқанды екі рет шерт, программа терезесін ашу үшін; 7. Программа терезесінде IsFile функциясының текстін енгіз: If Len(Dir$(FileName))>0 then IsFile=True Else IsFile=False End If End Function 8. cmdSearch жолын таңдап, ашылып келе жатқан объект тізімінен (программа терезесінің жоғарғы сол жағынан). Бұл жағдайда автоматты түрде Click() оқиғасы таңдалады; 9. Келесі фрагментті Click оқиғасының процедурасына қос: Private Sub cmdSearch_Clicl() Dim Filename As string Din re As String Dim re As Boolean Filename=txtFilename.txt Re=IsFile(Filename) If re=True Then MsgBox “Файл существует” Else MsgBox “Файл не найден” End If End Sub 10. Программаны қосыңыз. Жазылған функция қалай жұмыс істейтінін көру үшін, текстік жолға файл атын енгіз. Егер файл бар болса, IsFile True логикалық мән қайтарады. Жолдық айнымалы Filename, IsFile функциясының параметрі түрінде берілгеніне назар аударыңыз. Filename мәні cmdSearch оқиғасының Click оқиғасының процедурасы ретінде берілген. Универсалды айнымалы Универсалды айнымалы кез келген мән қабылдайды(бүтін, байттық, жолдық немесе логикалық) және оны кез келген типке түрлендіреді. Егер айнымалы Dim операторының хабарлауынсыз қолданылса Visual Basic оны универсалды деп түсінеді. Универсалды берілгендер типі қолайлы болдып көрінгенмен, онымен тек басқа жол жоқ болғанда қолданамыз. Универсалды айнымалы ақырын, яғни жәй жұмыс істейді. Массивтер Массивтер айнымалының бір түрі деп қарастыруға болады, бірақ онда бірден бірнеше мән сақталған. Мысалы, электрондық кесте ұяшықтар массивін көрсетеді. Массивте аз жазуы бар үлкен емес мәліметтер қорын немесе қызыл, жасыл және көк (RGB) компоненті расторлық бейнелерді сақтауға болдады. Массив айнымалыдан аз қолданылғанмен, олар программа жасауда маңызды рөл атқарады. Келесі мысалда бүтін типті массив хабарланады, одан соң элементке мән беріледі. Ststic X(2) As Integer X(0)=7 X(1)=99 X(2)=123 Массивтерді өңдеу үшін For…Next циклі қолданылады, онда есептуіш (счетчик) ретінде бүтін санды айнымалы қолданылады. Dim Y As Integer For Y=0 To 2 Print X(Y) Next Y Берілген фрагмент ағымдағы формаға бүтін Х массивінің әрбір элементінің мәнін шығарады (0,1 және 2 сандарды элементке сілтеме ретінде қолданылады). Жасалған массив модуль деңгейінде қол жеткізе алу үшін, оны (General)(Declaration) модулінің секциясында Dim кілтті сөзімен хабардаңыз. Егер массив қосымша деңгейде қол жеткізу үшін онда Public кілтті сөзімен хабарлау керек. Келесі мысал, массивпен қалай жұмыс істеу керектін көрсетеді: 1. Standard Exe типіндегі жоба құрыңыз; 2. Жаңа жобадан Form1 формасын алып таста. Ол үшін Form1 жолында тышқанның оң жақ батырмасын шертіп жоба терезесінде және Remove Form1 командасымен жанама менюден таңда; 3. Жобадан жаңа модуль қос – ол үшін жоба терезесінде тышқанның оң жақ батырмасын бас және Add=>Module командасын жанама менюден таңда. 4. Add Module сұқбат терезесінде Module таңбашасын таңда; 5. Module2 модулінің программа терезесінде келесі процедураны қос: Sub Main() Dim X(7) As Integer Dim i As Integer Dim txt As String ‘Массивті биттік мәнмен толтыр For i=0 to 7 X(i)–2^i Next ‘Массивті шығар For i=0 to 7 Txt =”Массвиің элементі” &Str&(i)&”=” txt=txt&x(i) Next End Sub Программа қосып және жөндеу терезесінде қараңыз, сонда: Фрагменттің бірінші бөлігінде айнымалы хабарланады, ол программаның жұмысы үшін өте қажет. Х массивінде 8 элемент болу керек (0 ден 7 индексімен). І айнымалысында For…Next циклінде қолданылады, ал txt жолында қорытынды форматталады. Бірінші For…Next цмклі массивті толтырады. Х(і)=2^i Формуласына сәйкес. Әрбір элементке екінің келесі дәрежесі меншіктеледі. Соңғы For…Next циклі txt айнымалысын форматтайды, ал Debug.Print командасы оны жөндеу терезесінде шығарады. жүктеу/скачать 1.6 Mb. Достарыңызбен бөлісу:
|