Дипломдық ЖҰмыс 5В011100 «Информатика»
жүктеу/скачать 1.6 Mb.
|
| Динамикалық массивтер
Массивтер өлшемі (яғни онда сақталатын элементтердің көлемі) алдын ала анықталмайды. Мұндай жағдайда бос массив хабарлау керек. Бірде-бір элементте болмаған массив динамикалық массив деп аталады. Ол жай массив сияқты хабарланады, процедура Dim кілтті сөзі мен Static-тілді қолдануға болады. Dim Y(0) As Integer Сізге керек өлшемнен үлкен массив құрғанша, динамикалық массив құрған жөн. Онда бірде-бір элемент жоқ және онда керек элемент қосасыз. Ол үшін ReDim операторы қолданылады, ол тек процедурада кездеседі. ReDim(5) Жасалған элементке мән беру керек. Соңына қарай массивтің элементінің санын өзгертуге болады: ReDim(7) Бұл оператор орындалғаннан кейін, массивте сақталған барлық мән жоғалады. Оны сақтау үшін, Preserv кілтті сөзін қолдан. ReDim Preserv Y(7) Тұрақтылар Тұрақталар айнымалылырмен ұқсастықтары бар-олар да хабарланады және сән меншіктеледі. Айнымалыдан айырмашылығы тұрақтының мәні қосымша бар болғанша өзгертілмейді. Тұрақты қолдану программалуды жеңілдетеді-vdModul айнымалымен программаны жеңілдетуге және түсіну оңай. Тұрақтыны хабалаумен қатар оған мән меншіктеледі.Ол үшін Const кілтті сөзі қолданылады. Cost conPi=3.142 Төменгі келтірілген фрагмент тұрақтыны тәжірбиеде қолдану мүмкіндігн көрсетеді: Cost conPi=3.142 Dim Radius As Integer Dim Area As Double Option Explicit Private Sub cmdPrintArea_Click() Radiud=3 Area=conPi*(Radius^2) PtintArea End Sub Берілген фрагмент дөңгелектің ауданын есептейді, conPi тұрақтысын қолдана отырып (сол префиксі медетті емес, бірақ керек). Ағымдағы формада дөңгелектің ауданы есептеліп шығарылады, сонда: Тұрақтылрады процедурада, сондай-ақ модульді хабарлау секциясында хабарлауға болдаы. Тұрақтана құру үшін, оны хабарлау кезінде Global кілтті сөзін рұқрсет. Мысалы, Global ConstPi=3.142 Static кілтті сөзі Айнымалыны хабарлаудың тағы бір түрі-Static кілтті сөзі. Static X As Integer Бұл айнымалы оған берілген соңғы мәнді, тіпті процедура аяқталса да сақталатынын білдіреді. Статикалық айнымалы жиналған сумманың ағымдағы мәнін сақтауға ыңғайлы. Егер Static кілтті сөзінің орнына Dim-ді қолдансақ, онда процедураны қосқан сайын айнымалы басқа сандық айнымалымен бірге нөлденеді. Келесі мысалды қарастырайық, бұл жерде статикалық айнымалы жұмысын көреміз Sybex кафесінде болып, сізге не керек соны алдыңыз. 1. Standard Exe типіндегі жаңа жоба құр; 2. Форма Form1-дің Caption қасиетіне Sybex кафетерийі мәнін беріңіз; 3. Форманың ортасының жоғарғы жағына жазу орнат. Қасиеттер терезесіндегі оның Name қасиетне lblQuantity мәнін, ал Caption қасиетіне Алынған кофе0 мәнін бер; 4. LblQuantity жазбасының астына батырма орнат. Оның Name қасиетіне cmdAdd, ал Caption-ға - &Тағы алып келіңіз мәнін бер; 5.Программа терезесін ашу үшін форма кострукторында CmdAdd батырмасын екі рет шертіңіз; 6.Келесі кодты cmdAdd батырмасының Сlick оқиғасының процедурасына қос: Private SubcmdAdd_Click() Static count As Integer Count=count+1 LblQuantity=”кофе алынды”&Str$(Count) End Sub Программаны қосып және қанша кофе керек болғанша батырманы бас, сонда: Count айнымалысы Click оқиғасының прцедурасында статикалық (Static) деп хабарланған. Осыған байланысты оның мәні оқиға арасында сақталады. Қортиындысында айнымалының қанша кофе алғандығыңыз есінде болады. жүктеу/скачать 1.6 Mb. Достарыңызбен бөлісу:
|