Visual Basic негізі Оқу-әдістемелік құрал Орал, 2013



бет12/12
Дата07.01.2022
өлшемі0,57 Mb.
#19744
1   ...   4   5   6   7   8   9   10   11   12
Байланысты:
Программалау Visual Basic

11-сурет




VB

объектісі

Қасиеті

Мәні

Form

Caption

Фотоальбом

ComboBox

Text

Фотография танданыз

List

Әрбір суреттін атын енгіземіз

Image

Stretch

True

Private Sub Combo1_Click()

Select Case Combo1.ListIndex

Case 0


Image1.Picture = LoadPicture("C:\11.jpg")

Case 1


Image1.Picture = LoadPicture("C:\12.jpg")

End Select



End Sub

Мысал3:

  1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.

  2. Пішінге келесі басқару элементтерін орнатып, олардың қасиеттерін сәйкесінше ӛзгертіңдер:



Объект

Қасиеттері

Index

Shape

Backcolor

Backstyle

Caption

Interval

Shape1

0

Oval

Қызыл

1-Opaque





Shape1

1

Oval

Қара

1-Opaque





Shape1

2

Circle

Қара

1-Opaque





Shape1

3

Circle

Қара

1-Opaque





Shape1

4

Circle

Қара

1-Opaque





Shape1

5

Circle

Қара

1-Opaque





Shape1

6

Circle

Қара

1-Opaque





Shape1

7

Circle

Қара

1-Opaque





Shape1

8

Circle

Қара

1-Opaque





Line1

0











Line1

1











Line1

2











Comman d1









Пуск



Comman d2









Шығу



Timer1











80



  1. Command1 батырмасына келесі процедураны жазамыз:

Dim k, i As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub


  1. Command2 батырмасына келесі процедураны жазамыз:

Private Sub Command2_Click()

End End Sub



  1. Пішінді екі рет басып, келесі процедураны толтырыңдар:

Private Sub Form_Load() Timer1.Enabled = False

k = 0 For i = 0 To 8

Shape1(i).Visible = False

Next


For i = 0 To 2

Line1(i).Visible = False

Next

End Sub


6. Timer1 объектісі үшін келесі процедураны жазамыз: Private Sub Timer1_Timer() k = k + 1

If k >= 10 And k < 20 Then

For i = 0 To 8

Shape1(i).Visible = True

Next

For i = 0 To 2



Line1(i).Visible = True

Next


Else

For i = 0 To 8

Shape1(i).Visible = False

Next


For i = 0 To 2

Line1(i).Visible = False

Next

End If


If k = 20 Then k = 0

End Sub


7. Қосымшаны іске қосып, Пуск батырмасын бассаңдар, ӛшіпжанып тұрған «қанқыз» графикалық объектісін кӛресіңдер.


12-сурет




Тапсырма:

  1. Светофор бағдарламасының мысалын құру.

  2. Shape компоненті арқылы графикалық бірнеше формаларды ӛзара байланыстыру.

  3. Программа іске қосылғанда форма бетіне ойыншықтары жаныпӛшіп тұратын жаңа жылдық шырша кӛрінуі қажет.

  4. Формада тышқанмен сурет салу мүмкіндігін беретін программа жасаңыз.



Бақылау сҧрақтары:

  1. Графикалық объектілерге не жатады?

  2. PictureBox объектісінің қасиеттері мен әдістерін ата?

  3. Image объектісінің қасиеттерін ата?

  4. Shape объектісінің қасиеттерін ата?

  5. Объектіге сурет қою әдісі.



V тарау

МӘЗІР ЖӘНЕ СҦҚБАТ ТЕРЕЗЕЛЕРІ


5.1. Мәзірмен жҧмыс

Мәзірдің барлық түрлерін жобалау үшін Menu Editor мәзір редакторы қолданылады. Menu Editor редакторын іске қосу үшін Инструменты – Меню редактор немесе Ctrl+E командасы орындалады. Мәзір редакторы екі топтан тұрды: қасиеттерді басқару элементтерінен және мәзір құрлымдағы конструкциялау элементтерінен. Мәзірдің негізгі қасиеттерін мәзір редакторының келесі қасиеттерінің кӛмегімен басқаруға болады.

Caption – (тақырыпша) ӛрісі – меню пунктінің атауы, яғни менюде пайда болады.

Name – (аты) ӛрісі – меню аты. Программалық кодты жазу кезінде объектінің идентификациясы үшін қолданылады.

BackColor – фон түсін анықтайды.

ForeColor - шрифтың түсін анықтайды.

FontBold – қалың (полужирный)

FontItalic – курсивті (курсив)



FontUnderline – асты сызылған (подчеркнутый) FontSize – шрифтің мӛлшерін анықтайды.


13-сурет




Мысал1: Түзету мәзіріндегі кӛшіру, қию, қою пунктерінен тұратын жоба құру.

Dim s As String

Private Sub Кӛшіру_Click()

Text1.SelText = s

End Sub

Private Sub Қию_Click() s = Text1.SelText Text1.SelText = ""

End Sub

Private Sub Қою_Click() s = Text1.SelText



End Sub


14-сурет


TextBox объектісінде мәтінді ерекшелеп кӛрсету үшін seltext, selstert, sellength қасиеттері қолданылады.

Seltext қасиеті ерекшеленген мәтінді кӛрсету үшін, ал қалғандары оның элементіндегі орнын кӛрсету үшін қолданылады.

Мәзір командасына тез енуді жүзеге асыру үшін пернелер комбинациясын қою керек. Ол редактордың ShotCut тізімінен таңдалады. Мысалы: кӛшіру - CTRL+C.

Жанама мәзір PopupMenu әдісі арқылы шақырылады. Мысалы, егер мәзір аты F1 болса басқару элементінің MouseUp оқиғасына тӛмендегі программа коды жазылады.

Private Sub Form1.Command.MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = VbRightButton Then PopupMenu F1 (vbRightButton – тышқанның сол жақ батырмасы)

End Sub


Мысал 2: Сурет батырмасын алып оған сурет ашу, сурет жабу пункттерінен тұратын жанама мәзір жасау.


15-сурет


Private Sub Command1_MouseUp(Button As Integer, Shift As

Integer, X As Single, Y As Single)

If Button = 2 Then Form1.PopupMenu A

End If

End Sub


Private Sub Ашу_Click()

Image1.Picture = LoadPicture("c:/1.jpg")

End Sub

Private Sub Жабу_Click()

Image1.Picture = LoadPicture()

End Sub


5.2. Сҧқбат терезелерімен жҧмыс

Деректерді енгізуді енгізу терезесі арқылы жүзеге асыруға болады. Ол InputBox функциясының нәтижесінде шақырылатын сұқбат терезесі. Бұл функция нәтижесінде қолданушы енгізген жол болып табылады. Функцияның жалпы түрде жазылуы:

Айнымалы = InputBox (тақырыбы, түсініктеме, мән) Мұндағы, айнымалы – қолданушы енгізетін string типті мән; тақырыбы – енгізу терезесінің тақырыбының мәтіні; түсініктеме –хабарлама мәтіні;

мән – Х, У координатасы бойынша сұқбат терезесінің шығу орны (қалыпты жағдайда терезе экран ортасында орналасады).

MsgBox функциясы батырмалары бар сұқбат терезесін шығарады. Экранның ортасына орналасады.




16-сурет


Функцияның жалпы түрде жазылуы:



MsgBox(түсініктеме, [батырмалар], [тақырыбы]) Мұндағы, түсініктеме –хабарлама мәтіні;

батырмалар - сұқбат терезесінде қолданылатын батырмалар; тақырыбы – енгізу терезесінің тақырыбының мәтіні; Батырмалардың стандартты мәндері



Батырма

Константа

Мәні

Хабарлама типі



vbExclamation

48

Ескерту



vbQuestion

32

Сұраныс



vbInformation

64

Ақпарат



vbCritical

16

Қате



Батырма

Коды

ОК

1

Болдырмау

2

Тоқта

3

Қайталау

4

Ӛткізу

5

Ия

6

Жоқ

7



Пиктограмма

Пиктограмма

Батырма

Батырмалар

коды




коды

жинағы

16



0



ОК

1

ОК Болдырмау

32



2



Тоқта Қайталау Ӛткізу

48



3



Ия Жоқ Болдырмау

4

Ия Жоқ

64



5



Қайталау Болдырмау



Мысал 3: Пароль енгізуді сұрайтын жоба құру, белгілі уақытта (15 секунд) енгізілмесе уақыт аяқталғанын, дұрыс енгізілмесе қателігін анықтайтын хабарлама шығару.


17-сурет





18-сурет 19-сурет





20-сурет


Объектілердің қасиетін орнату (Properties)





VB

объектісі

Қасиеті

Мәні

Text1

Text

Password Char



(бос)

* (Пароль енгізу барысындағы символ)



Label1

Caption

15 секундта парольді енгіз

Command1

Caption Enabled

Парольды қабылдау True

Timer1

Interval

15000

Form1

Caption

Password



Private Sub Command1_Click()

If Text1.Text = "секрет" Then

Timer1.Enabled = False

MsgBox "Жүйеге қош келдіңіз!", 64, " Password"

End

Else

MsgBox "Еңгізілген пароль қате.", 16, " Password "

End If

End Sub

Private Sub Timer1_Timer()

MsgBox "Сіздің уақытыңыз аяқталды.", 48, " Password"

End

End Sub

Тапсырма:

  1. Мәзірден форманың фон түсін ӛзгерту және шығу мәзірі арқылы форманы жабу жобасын құру.

  2. Кездейсоқ берілген санды табу жобасын құру, енгізілген санның үлкен, кіші екендігін хабарламамен ұйымдастыру.

  3. «Қаріп» менюін құрыңыз. Меню келесі ішкі менюден тұрсын:

Қарайтылған, курсив.

  1. Блокнот қосымшасын құру.



Бақылау сҧрақтары:

  1. Сұхбат терезелерінің түрлерін ата.

  2. Мәзір редакторы неше топтан тұрады.

  3. Мәзір қасиеттерін ата.

  4. Жанама мәзір шығару әдісі. 5. Сұхбат терезесін ұйымдастыру функциялары.


VІ тарау ФАЙЛДЫҚ ЖҤЙЕМЕН ЖҦМЫС ЖАСАУ ОБЪЕКТІЛЕРІ



6.1 DriveListBox, DirListBox, FileListBox объектілері


Файлдық жүйеге қатынауды жүзеге асыру үшін Visual Basic-те 3 объект қолданылады.



  1. DriveListBox – дискілік жинақтауыштар тізімі.

  2. DirListBox – директорилер(каталогтар) тізімі.

  3. FileListBox – файлдар тізімі.

Қосымша орындалғанда DriveListBox объектісіндегі дискілер тізімі ComboBox объектісі, ал DirListBox, FileListBox объектілері ListBox объектісі сияқты ашылады.

Бұл объектілердің негізгі қасиеттері:

Drive – дискі аттарын кӛрсету

Path – файлдар мен каталогтардың орналасқан жолын кӛрсету Pattern – файлдарды фильтрлеп шығару.



Бұл үш объекті арқылы комппьютердің дискілік жинақтауыштар тізімін, одан таңдалған дискінің мазмұнын шығаруға, таңдалған каталогтың мазмұнын файлдар тізіміне шығаруға болады.

Мысал1:

  1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.

  2. Формаға Drive1, Dir1, File1 және Picture1 басқару элементтерін орналастырыңдар.




21-сурет




  1. Формадан File1 объектісін белгілеп, оның Pattern қасиетіне *.jpeg мәнін меншіктеңдер.

  2. Dir1 объектісін екі рет шертіп, тӛмендегі процедураны жазыңдар:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub


  1. Drive1 объектісін екі рет шертіп, тӛмендегі процедура-ны жазыңдар:

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub


  1. File объектісін екі рет шертіп, тӛмендегі процедураны жазыңдар:

Private Sub File1_Click() f=File1.Path &»\»&File1.filename Picture1.Picture=LoadPicture(f)

End Sub


Қосымшаны іске қосып, Picture1 объектісіне С: дискісінен jpq типті суреттерді шығарып кӛріңдер. Дискілер мен бумаларды Windows–тың Сілтеуіш (Проводник) программасымен қалай ашсақ дәл солай ашамыз.


22-сурет




6.2. Айналдыру жолағын ҧйымдастыру

ScrollBar объектісінің екі шетінің аралығынан мән таңдауға мүмкіндік беретін жылжытпалы жолақ. Оларды шрифт, түс параметрлерін ӛзгертуде, дыбысты күшейтіп-азайтуда, бейнелерді ӛңдеуде қолдануға болады. Оның екі түрі бар: горизанталь және вертикаль.

Негізгі қасиеттері:

Min, max- объектінің ең кіші және ең үлкен мәндері. Қалыпты жағдайда олар 0-ден 32655-ке дейінгі оң бүтін мәндерді қабылдайды.

Екі оқиғасы бар: change және scroll.

Value – жылжытпа орналасуы мен анықталуының ағымдық мәні.

LargeChange – айналдыру белдеушесін басқанда жылжымалы батырманың жылжу қадамы.

SmallChange – шкаланың екі жанындағы тілсызықтарды басқандағы жылжымалы батырманың жылжу қадамы.



Мысал2:

  1. Visual Basic ортасын іске қосыңдар. Жобаны сақтап қойыңдар.

  2. Формаға Frame1 объектісін орналастырыңдар.

  3. Оның үстіне OLE1 объектісін қойып, шекараларын созу арқылы Frame1 объектісін толық жабатындай етіп, беттестіріңдер де, Word программасынан кез келген бір үлкен құжатты кірістіріңдер.

  4. Қосымша іске қосылғанда контексті мәзір шықпауы үшін, OLE1 объектісінің AutoVerbMenu қасиетінде False мәнін меншіктеңдер.

  5. Frame1 объектісінің ішіне Vscroll1 вертикаль және Hscroll1 горизонталь айналдыру жолақтарының объектілерін орналастырыңдар.

  6. Олардың Max қасиетіне құжаттың ӛлшеміне сәйкес мән беріңдер.

7.LargeChange және SmallChange қасиеттеріне 50 мәнін меншіктеңдер.

  1. Vscroll1 объектісін екі рет шерту арқылы код терезесіне келесі процедураны жазыңдар:

Private Sub VScroll1_Change()

OLE1.SetFocus

OLE1.Top = -VScroll1.Value

OLE1.Height=OLE1.Height+ VScroll1.Value

End Sub


  1. Hscroll1 объектісін екі рет шерту арқылы код терезесіне келесі процедураны жазыңдар:

Private Sub HScroll1_Change()

OLE1.SetFocus

OLE1.Left = -HScroll1.Value

OLE1.Width=OLE1.Width+ HScroll1.Value



End Sub

  1. Қосымшаны іске қосып, кірістірілген құжатты айналдыру жолақтарының кӛмегімен оқып кӛріңіздер.




23-сурет




Тапсырма:

  1. Айналдыру жолағын пайдаланып жылдамдықты анықтайтын бағдарлама құрастыру.

  2. Айналдыру жолақтарын пайдалана отырып, шенбердін, квадраттын, тіктӛртбұрыш т.б шеткі сызықтарының стилін ӛзгертетін бағдарлама құру.

  3. 1 санынан бастап 500-ге дейінгі таңдалған бүтін сандардың жалпы қосындысын беретін программа жасау. 4) Мәтін түсін ӛзгертуде айналдыру жолағын пайдалану.



Бақылау сҧрақтары:

1.Файлдық жүйеге қатынауды жүзеге асыратын объектілер.



  1. Дискілік жинақтауыштар тізімін шығаратын объект.

  2. Каталогтар тізімін шығару объектісі.

  3. FileListBox объектісінің қызметі.

  4. Айналдыру жолағын шығару объектісінің қасиеттері.

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР



  1. Информатика негіздері журналы №5, 2008ж

  2. Ж.Динисламов, Visual Basic ортасында программалау, Қызылорда2002ж

  3. Н.Т.Ермеков, В.А.Криворучко, С.Ж.Ноғайбаланова, Информатика оқулығы, 10 класс жаратылыстану –математика бағыты,«Жазушы» баспасы, 2006ж

  4. В.Долженков, М.Мозговой Visual Basic.Net


МАЗМҦНЫ:

Алғы сӛз..............................................................................................3



І тарау. Visual Basic ортасында жоба қҧру негіздері.................4 1.1. Visual Basic ортасы. Редактор терезесі.....................................4

    1. Visual Basic тілінің интеграцияланған ортасы.........................6

    2. Объектілер қасиеттері және оқиғалары....................................9 ІІ тарау. Элементтерді басқару панелімен жҧмыс...................11

    1. Label және TextBox, CommandButton объектілері.................11

    2. Бағдарламалаудың негізгі элементтері....................................14

ІІІ тарау. Шартты және таңдау операторлары.........................21


3.1. Тәуелді және тәуелсіз айырып-қосқыштар..............................21

3.2. Тізімдік ӛрістер...........................................................................25


ІV тарау. Visual basic-тің графиктік объектілері......................29


4.1. Shape және Line графикалық объектісінің мүмкіндіктері......29

4.2 PictureBox, Image объектілері....................................................30



V тарау. Мәзір және сҧқбат терезелері........................................35

5.1. Мәзірмен жұмыс ........................................................................35

5.2. Сұқбат терезелерімен жұмыс....................................................37

VІ тарау. Файлдық жҥйемен жҧмыс жасау объектілері..........42


6.1 DriveListBox, DirListBox, FileListBox объектілері...................42

6.2 Айналдыру жолағын ұйымдастыру...........................................44



Қолданылған әдебиеттер .................................................................46

Кӛлемі 2.9 б.т. Таралымы 100 дана. Офсет қағазы.

Тапсырыс № 89

М. Ӛтемісов атындағы Батыс Қазақстан мемлекеттік университетінің редакциялық баспа орталығы.

Орал қаласы, Достық даңғылы, 162.



Достарыңызбен бөлісу:
1   ...   4   5   6   7   8   9   10   11   12




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет