Дипломдық ЖҰмыс 5В011100 «Информатика»
жүктеу/скачать 1.6 Mb.
|
| CmdCubeRoot батырмасында екі рет шертіңіз-программа терезесі CmdCubeRoot_Click() оқиғасымен процедура ашылады;
Процедураға келесі фрагмнентті енгізіңіз: Dim Y As Double Y=CubeRoot(27) Print Y CubeRoot функциясымен шақыру коды. Қосымшаны қосып және батырманы басыңыз. Біздің мысалда қайтарылатын мән, тура формада басылып шығады; Форманың оң жақ жоғарғы жағында орналасқан [x] батырмасын басып, программаны басыңыз; Жоба терезесіндегі Form 1 формасында екі рет шертіңіз; Формада текстік алаң құрып, оны Name қасиетіне txtText 1 мәнін беріңіз. Text қасиетінде бар затты өшіріңіз; CmdCubeRoot батырмасының Click() оқиғасының процедурасынан, соңғы жолды (Print Y) алып тастап және оны келісімен ауыстырыңыз. TxtText.Text=Y Одан басқа процедура бар заттардың барлығын алып тастап, тек бір жолмен шектелуге болады. TxtText.Text= CubeRoot(27) Бұл жағдайда қайтарылатын мән элементке айнымалы қолданбай-ақ меншіктеледі. Процедура және функция жұмысын жөндеу терезесінде тексеруге болады. Жобаны қосыңыз, одан соң Run=>Break командасын орындаңыз. Алдыңғы бетке жөндеу терезесі шығад, келесі суретте көрсетілгендей: Егер сіз оны жоғалтып алсаңыз, View=>Immedicate Window командасын орындаңыз. Жөндеу терезесінен процедураны қосу үшін, оның атын енгізіп және Enter пернесін бас. Егер процедура параметрлерімен(өлшемдерімен) шақырылатын болса, оларды да қосуға болда. Мысалы: AlterCaption “Жаңа тақырып” Функцияда сізді негізінен қайтарылатын мән қызықтырады, жөндеу терезесіне шақыруға болады: Print CubeRoot(27) Немесе былай: ? CubeRoot(27) Option кілтті сөзі Функцияны анықтауда берілетін параметрлердің кейбіреуі міндетті емес екенін көрсетуге болады. Бұл үшін праметрді анықтау алдында Option кілтті сөзі қойылады: Public Function CreateUser(UserId As String, Password As String, Optional Description As String) As Boolean Үшінші Description параметрі міндетті емес функцияның қалауынша қолданушының сипаттамасын беруге болады, бірақ функция онсыз да жұмыс істейді. Егер есте жай, міндетті емес параметрді хабарлауда елестің аргументте болмауы керек және Optional кілтті сөзімен хабарланбау керек. Хабарланатын параметр алдында тағы үш префикс көрсетілуі мүмкін-By Ref, By Val, Param Array. By Ref кілтті сөзі. By Ref префиксі параметр сілтеме арқылы берілетінін білдіреді (Visual Basic-те келісім бойынша дәл осындай беру әдісі қолданылады). Алайда сілтеме арқылы берілетін функция немесе процедура жадыда оның атын алып және айнымалының мәнін өзгерте алады. Сілтеме арқылы беру функцияны бір шақырудан-ақ бірнеше қорытындыны алуға немесе беруге мүмкіндік бар. Синтаксис келесі түрдегідей болады: Function FunctionName(By Ref Avariable As String) As Boolean Немесе: Function FunctionName(Avariable As String) As Boolean By Val кілтті сөзі. By Val префиксі параметр мән арқылы берілетінін білдіреді. Бұл жағдайда Visual Basic ағымдағы айнымалының мазмұнының көшірмесін жадыдағы оның адресінің орнына береді. Және функция немесе порцедура тікелей алғашқы мәнін модификациялау ете алмайды. Синтаксис келесідей болады: Function FunctionName(By Val Avariable As String) As Boolean Param Array кілтті сөзі. Param Array кілтті сөзі функцияның параметрінің көлемін беруге мүмкіндік береді. Мысалы оның көлемін CratUser функциясына қолдаушының көлемі туралы анықтама беруге болда. Param Array кілтті сөзіне қойылатын негізгі талап-ол берілетін деректер массиві Variant типінде болуы керек. Функцияны хабарлау келесі түрдегідей болды: Function Function Name(ParamArray AnASrray () As Variant) As Boolean Бұл жағдайда функция былай шақырылуы мүмкін: Dim As Boolean Re=FunctionName(“Дастан ”, “Дәурен”, “Дидар”) Re=FunctionName(“Данияр”) Назар аударыңыз мұндай функция параматрлерін кез келген көлемін шақыруға болады, сізге программаға бірнеше жеке шақыру орындау керек емесе. Param Array кілтті сөзі функцияны универсалды етеді, бірақ программа орындалуы ақырын жүреді. Variant типінің берілуі, Visual Basic-тің басқа типіне қарағанда жақсырақ жұмыс істейді. жүктеу/скачать 1.6 Mb. Достарыңызбен бөлісу:
|