Дипломдық ЖҰмыс 5В011100 «Информатика»
жүктеу/скачать 1.6 Mb.
|
| ShowHourglass және ShowMouse Pointer процедуралары, программа жолы, ал қолданушы оның босауын күткен кезде керек болады. ShowHourglass күту периодының басында ал ShowMousePointer-соңында шақырыңыз, мысалы:
ShowHourglass IndexLargeDatabase ShowMousePointer Болашақта сіз өзіңіздің жеке процедура және функцияңызды жазғанда, оларды да осы модулге қосуға болады. Функция Функция көп жағдайда процедуруға ұқсас. Тек бiр ғана айырмашылығы – ол шақыру кезiнде мәндi қайтарады. Функция аргумент деп аталатын, деректердiң обьектiлерiнiң бiреуiн немесе бiрнешеуiн қабылдайды және олармен бiрқатар әрекеттер орындайды. Оның қорытындысы функция мен қайтарылады. Функцияның жұмысын нақты мысал арқылы көру өте түсінікті болады. Кубтық түбірді есептейтін функция жазып көрейік: File=>New Project командасы арқылы жаңа жоба құрыңыз. Егер MyLirary модулі жобада болмаса, оны қосыңыз. Ол үшін жоба терезесінде тышқанның оң жақ батырмасын басып, Add Module командасын жанама менюден орындаңыз. Add Module сұқбат терезесі шыққанда, Existing бөлігіне өтіңіз, MyLibrary.Bas файлын тауып және Open батырмасын басыңыз, модулді жобаға қосу үшін. Жоба терезесінде MyLibrary файлында тышқанды екі рет шертіңіз. Программа терезесі ашылады. (General)(Declarations) секциясына келесі фрагментті қосыңыз: Public Function CubeRoot Visual Basic автоматты түрде келесі түрдегі шаблонды құрайды: Public Function CubeRoot() End Function Келесі фрагментті шаблонға қойыңыз: Public Function CubeRoot (X As Double) As Double If X=0 Then CubeRoot=0 ExitFunction End If CubeRoot=10*((Log(Abs(x))/Log(10))/3) If X<0 Then CubeRoot=-CubeRoor End If End Fuction Кубтық түбірді есептейтін функция мен программа терезесі File=>Save MyLibrary командасын орындаңыз. Берілген мысалды қараудың алдында, жоғарыда келтірілген кодты қарастырыңыз. Функция Х аргументін алып, оның кубтық түбірін есептеуге талпынады. Тип мәні, функциясымен қайтарылатын (біздің мысалда Double-сандық тип, өте үлкен және өте кіші сандар, сонымен қатар бөлшек сандармен жұмыс істей алады), As кілтті сөзінен кейін функция тақырыбында көрсетіледі. Функция тексті End Sub емес, End Function командасымен жабылады. CubeRoot айнымалысының мәні берілетін үш жолға назар аударыңыз. Функция мәні айнымалы түрде қайтарылады, аты функция атымен сәйкес келеді(біздің мысалда-CubeRoot). Егер біздің функциямыз TimesTwo() деп аталса, онда мәні де TimesTwo() айнымалысы болып қайтарылатын еді(мысалы, TimesTwo=x*2). Аргументті өңдеу алдында, алынған деректерді тексеру керек. Алдымен біз тек серемі, 0 аргументі тең ба, кубтық түбір 0 де 0-ге тең, сондықтан біз CubeRoot айнымалысының бірден қайтарылатын мән беріп, функциядан шығамыз, әрі қарай есептеуді орындамасақ та болады. Функциядан шығу үшін Exit Fuction командасы қолданылады. Біз енді функция аргументі кері сан емес пе екенін тексереміз. Жоғарыда келтірідген формула, әрқашан дұрыс қорытынды береді, сондықтан кері аргумен үшін қайтарылатын мәннің таңбасын қарама-қарсыға өзгертеміз. Visual basic-те бұл: CubeRoot=-CubeRoot Командасы арқылы жасалады. Функция туралы жалпы көрініспен танысқан соң, енді өзіміздің мысалға қайта келіп, функциямызды тәжірбиеде қолданып көрейік: Жоба терезесінде Form1 формасында екі рет шертіңіз-форма конструктор терезесінде көрінеді; Caption қасиетіне “программалық кітапханамен жұмыс” мәнін беріңіз; Формада батырма орнатыңыз. Оның Name қасиетіне cmdCubeRoot мәнін, ал Caption қасиетіне-“кубтық түбір” мәнін беріңіз; жүктеу/скачать 1.6 Mb. Достарыңызбен бөлісу:
|