Модульді құру Программалық модульге жаңа процедураны қосу үшін, келесі команданы Tools=>Add Procedure орындаңыз және Add Procedure сұқбат терезесінен керекті өлшемдерді таңдап алыңыз. Бұл команда тек программаның ашық терезесінде ғана қол жеткізуге болады.
Модульдерді сақтайтын каталог құрғаннан кейін, бірінші модульді жазуға аяқ басайық. Модульді құру былай болады:
File => New Project командасы арқылы жаңа жоба құыңыз;
Жоба терезесінде тышқанның оң жақ батырмасын басып Add Module командасын орындаңыз;
Add Module сұқбат терезесінде Module таңбашасын таңдаңыз. Open батырмасын басыңыз-жобада бос модуль құрылады;
Қасиеттер терзесінде Name қаиеттіне жаңадан құрылған модульдің мәні ретінде My Library мәнін беріңіз;
File=>Save My Library командасы арқылы файлды сақтаңыз немесе Ctrl+S пернелердің қосындысын пайдаланыңыз. Ашылған Save File As сұқбат терезесінде Codelib каталогынде алдыңғы бөлімді құрылған файлға сақтаңыз. Ол сізжің программалық кітапханаңыздың бастамасы.
Процедуралар Tools =>Add Procedure командасын орындаудан басқа да, тез әдіс модульге процедураны енгізеді.
Public Sub Procedure Name мұнда (Procedure Name-сіздің процедураңыздың аты) текстік программа терезесінің жолына енгізіңіз;
Одан басқа Private Sub Procedure Name жабық процедура құру үшін енгізуге болады. Немесе жәй Sub Procedure Name–бұндай процедура келісім бойынша ашық болады.
Enter пернесін басыңыз: Visual Basic автоматты түрде процедура шаблоны құрады.
Visual Basic-тің программа терезесінің мысал суреті келесі суретте көрсетілген.
Программа терезесі
Процедуралар – кейбiр аргументтердi қабылдап программалық кодты орындап және берiлетiн аргументтердiң мәнін өзгертедi. Аргументтер деп процедураларға берiлетiн айнымалылырды атайды. Мысалы, тiзiмнiң Add Item әдiсiне тiзiмге кiргiзiлетiн деректермен бiрге аргументтер және тiзiмнiң жолына қосылатын позиция берiледi. Келесi команда:
ListItem. AddItem”Widgets” “Widhets” аргументiмен AddItem әдiсiн шақырады және осы жолды тiзiмнiң соңына қосады. Назар аударыңыз:аргументтер кез келген типке қатынасты бола алады. Нақты тип берiлген процедура қалай жұмыс iстейдi соған байланысты болады .
Процедура кодты көп рет қолдануға мүмкiндiк бередi. Бiрдей мысалдарды орындау кезiнде, программаның бiрнеше жерiне әрбiр жолды қайта-қайта енгiзiп отырмай, бiр процедура құрып, соны программаның бiрнеше жерiнде шақыруға болады. Бұл тек енгiзiлетiн текст көлемiн кiшiрейтумен қатар, процедкраны шақырған сайын бiрдей жұмыс iстеуiн қамтамысыз етедi.
Сіз процедураны қалай жазу және программада қолдануды жақсы түсіну үшін, біз стандартты бағыттауыш-стрелканы құм сағатымен ауыстыратын процедура құрамыз. Оны сіздің программаңыз қандай бір ұзақ есеп шығару кезінде шақырыңыз.
Құм сағат түрінде бағыттауыш қолданушыға программа тоқтап қалмай пайдалы әрекет істегенін білдіріп отырады.
Өткен бөлімдегі жобаны ашыңыз, егер ол алдында ашылса;
Егер My Library модулі жобада болмаса оны қосыңыз-ол үшін жоба терезесінде тышқанның оң жақ батырмасын шертіп, Add Module сұқбат терезесі пайда болғанда. Existing бөлігіне өтіңіз. Одан соң My Library.Basфайлын тауып және Open батырмасын басыңыз, модульді жобаға енгізу үшін.
Жоба терезесінде My Library.Bas файлында екі рет шертіңіз. Программа терезесі ашылады.
Программа терезесінде келесі кодты енгізіңіз:
Public Sub ShowHourglass()
Screen.Mouse Pointer=11
End Sub
Процедура тышқан бағыттауышты құм сағат түрінде құрады. Бірақ бағыттауышты өзгерткеннен кейін біз оған бұрынғы түрін беретін мүмкіндік тудыруымыз керек.
Модульге келесі фрагментті қосыңыз.
Private Sub ShowMouse Pointer()
Screen.Mouse Pointer=0
End Sub
6. Visual Basic менюінде File=>Save MyLibrary командасын орындаңыз.
