Графикалық қасиеттер


Мазмұны
Кіріспе......................................................................................................................5
1-тарау. Visual Basic тілінде объектілі-бағдарланған программалау негіздері...................................................................................................................6
1.1. Visual Basic 6 программалау жүйесінің графикалық интерфейсі.......6
1.2. Графикалық қасиеттер.............................................................................9
2-тарау. Visual Basic тілінің графикалық мүмкіндіктері...............................9
2.1. SCALE және PSET графикалық әдістерінің мүмкіндіктері…..........11
2.2. LINE әдісінің көмегімен кесіндіні және тікбұрышты салу................16
2.3. LINE және PRINT әдістерін бірге пайдалану......................................18
2.4. Түсті қайтарушы RGB және QBCOLOR функциялары.....................19
2.5. CIRCLE әдісінің мүмкіндігі..................................................................22
2.6. Салынған фигураларды толтыру тәсілдері..........................................28
2.7. CIRCLE әдісін дөңгелек диаграммалар салуда пайдалану................29
Қорытынды .........................................................................................................31
Әдебиеттер............................................................................................................32 Кіріспе
Қазіргі әлемнің ғылыми бейнесінің негізгі сипаттамасы қоғамдағы және
Бұл жағдай әлемнің бейнесін жаңаша тұжырымдайтын идеяның тууына
Информатиканың компьютердің көмегімен информацияны іздеу, сақтау, жинақтау, тарату,
Қазіргі информацияның өте үлкен ағымын компьютер көмегі арқылы
Программалау тілдері де адамдар сияқты өмірге келіп және
Берілген курстық жұмысымның негізгі мақсаты – Visual Basic
1-ші бөлімде – Visual Basic 6 программалау жүйесінің
2-ші бөлімде – Visual Basic тілінің графикалық мүмкіндіктерін
1-тарау. Visual Basic тілінде объектілі-бағдарланған программалау негіздері
Visual Basic 6 жобалау жүйесінің өзі де Windows
Visual Basic 6 жобалау жүйесін Microsoft компаниясының қызметкерлері,
Бұл жүйе Сіздердің ең қияли ойларыңызды шындыққа айналдыратын,
Біздер қалыптасқан әдетіміз бойынша Visual Basic 6 жүйесінде
Сіз Visual Basic 6 жобалау ортасымен жұмысты бастағанда
1.1. Visual Basic 6 программалау жүйесінің графикалық интерфейсі
Объектілі-бағдарланған программалау жүйесі жасақталып жатқан қосымшаның графикалық интерфейсін
Графикалық интерфейс пайдаланушының жұмыс істеп тұрған қосымшамен интерактивті
Жасақталып жатқан қосымшаның графикалық интерфейсінің негізі басқару элементтері
Пішін – бұл басқарушы элементтер орналастырылатын, экранда терезе
Пішін Visual Basic 6 жобалау жүйесінің ең іргелі
Оларды өзгертуіңізге қарай, Сіздің пішініңіз өз бетінше жұмыс
Қосымшаның графикалық интерфейсін көріністі етіп құрастыру, пішінге
Қосымшаның графикалық интерфейсінде басқару элеменииерінің кластары (Controls) әр
Мәтіндік өріс (TextBox), жазу (Label), және тізімдер (ListBox),
Пішінге басқару элементтерінің бір класының бірнеше данасы, мысалы,
Басқарушы элементтер – бұлар пайдаланушының немесе программалық объектінің
Пішін және басқарушы элементтер қасиеттердің, әдістердің және оқиғалардың
Объектілер класы Қасиеттері Әдістері Оқиғалары
Form (пішін)
UsesForm (жаңа пішін) Name (Аты)
Caption (Жазу)
Font (Қаріп)
Height (Биіктігі)
Width(Ені) Show (Көрсету)
Move (Басқаша орналастыру) Load (Жүктеу)
CommandButton (командалық батырма) Name (Аты)
Caption (Жазу)
Font (Қаріп)
Height (Биіктігі)
Width(Ені) Move (Басқаша орналастыру) Click (Шерту)
TextBox (мәтіндік өріс) Name (Аты)
Caption (Жазу)
Font (Қаріп)
Height (Биіктігі)
Width(Ені) Move (Басқаша орналастыру) DblClick (Екі рет шерту)
Visual Basic 6 программалау жүйесі қосымшаны жасақтау процесінде
Visual Basic 6 жобалау ортасын әр түрлі тәсілдермен
► Visual Basic 6 жобалау ортасының таңбашасы Сіздің
► Visual Basic 6 жобалау ортасының таңбашасы жұмыс
► Windows операциялық жүйесінің Сілтеуіш программасының көмегімен Vb6.exe
Visual Basic 6 жобалау ортасын іске қосқан кезде
Бұл терезе мына төмендегідей қызметтер атқаратын үш бетбелгіден
Жаңа – жаңа жобаны жасауға арнадған үлгісі және
► Standart EXE – стандартты орындалатын қосымша;
► ActiveX EXE – орындалатын ActiveX қосымшасы;
► ActiveE DLL – ActiveX динамикалық кітапханасы;
► ActiveX Control – ActiveX басқару элементі;
► VB Application Wizard – қосымшалардың шебері;
► VB Wizard Manager – пайдаланушылар шеберін жасаушы
► Data Project – деректер базасын басқару жобасы;
► IIS Application-Web – торабы серверде орналасқан қосымша;
► Abbin – қондырма, қосымша утилиттер, қосымшалардың кеңейту
► ActiveX Document DLL- ActiveX құжаттарының динамикалық кітапханасы;
► ActiveX Document EXE- ActiveX құжаттарының орындалатын қосымшасы;
► DHTML Application – HTML беттерін динамикалық HTML
Қолданыстағы – бұрын жасалған жобаны немесе Visual Basic
Компьютердің басқа қапшықтардағы файлдарды да Сіздің көріп шығу
Файлдар – бұл бетбелгісінде соңғы кезде ашылған жобалардың
Бұл бетбелгіні пайдалану алдымен жобаның жақында ғана жұмыс
Тізімде бірінші болып Сіз осы сеанстың алдында ғана
Жоба типін тандағанан кейін пайдаланушы Visual Basic 6
1.2. Графикалық қасиеттер
Келесі қасиеттерді шартты түрде графикалық қасиеттер тобына біріктіруге
► Picture - пішіннің фоны ретінде бейнелетін суретті
► AutoRedraw - логикалық қасиет, үнсіз келісім бойынша
► ClipControl - логикалық қасиет, ол үнсіз келісім
2-тарау. Visual Basic тілінің графикалық мүмкіндіктері
Бұл тарауда графиканы Пішін немесе Графикалық терезе (PictureBox)
Visual Basic тілінде графикалық әдістердің және графикалык, объектілердің
Бұл құралдар Windows-қосымшаны жоне осы крсымшаның өзінің көптеген
Ескерту. Берілген жағдайда әдic cөзi тәсіл, жол немесе
сияқты кең мағынада қоллданылмайды, Visual Basic тілінде әдic
Biз Visual Basic тіліндегі программаның негізгі құрылымын көрсету
Графикалық элементтерді (сызық, шеңбер, тікбұрыштар т.с.с.) сызуды Line
Line және Circle әдістерімен графикалық бетте сызылатын сызықтардың
Line және Circle әдістерімен графикалық бетте сызылған геометриялық
Әдісті шақыру нұсқауы (қасиетке қатынас жасау) жалпы түрде
Объект. Әдic
Объект. Қ,асиет
Бұл жерде әдісті шақыру нұсқауында немесе қасиетке қатынас
Төменде келтірілген әдістердің сипаттамасында қатысуы міндетті емес параметрлер
Сонымен, бұл тарауда Пішін және Графикалык, терезе класындағы
► Scale әдісі (берілген объектіде масштабы
► PSet әдісі (берілген объектіде "нүктені"
► Line әдісі (берілген объектіде кесіндіні немесе
► Circle әдici (берілген объектіде шеңбер, дөңгелек,
► CIs әдісі (берілген объект барлық салынған
Осы аталған графикалық әдістердің барлығы Visual Basic тіліне
Бұл тарауда біз бұрын тек Пішін объектісіне ғана
Print әдісімен мәтін шығарылатын графикалық бетте мәтін қаріпінің
Пішіннің бетіне графиканы шығару бойынша негізгі жұмысты оқиғаны
Келеci тарауларда информацияларды түрлендірудің әр түрлі npoцeccтepi Visual
2.1. SCALE және PSET графикалық әдістерінің мүмкіндіктері
Бәрінен де бұрын әдic ұғымын нақтылай түсейік.
Әдic дегеніміз қacuem, сондай-ақ оқиға сияқты Visual Basic
Пішіннің де объект екендігін естеріңізге саламыз.
Әдic деп Visual Basic тілі берілген объектімен орындайтын
Графикалық әдic деп берілген кластағы объектіде қандайда бip
Объектілер класы жөңінде оның сол немесе басқа әдіci
Сізді қызықтыратын объектілер класы қандай әдістерге ие екендігін
Бipнешe графикалық әдістерді қарастырайық:
► Scale әдici. Бұл әдістің көмегімен
► Pset әдісі. Pset сөзі ағылшынның
► Line әдісі. Ағылшын тілінен аударғанда
► Circle әдісі. Ағьлшын тілінен аударғанда
► CIs әдісі. CIs cөзi агълшынныңClean Screan
Осы кeлтipiлгeн тізімнің алғашқы eкі әдісін қарастырайық.
Scale әдici. Бұл әдіс Пішін (Form) және Графикалык,
Осы әдістердің бipiншiciмeн, Ciз алдыңғы тарауларда келтірілген мысалдардан
Form және FictureBox объектілерінің абсолютті координаттары, яғни экрандағы
Абсолютті координаттар жеткілікті дәрежеде үлкен сандармен өрнектеледі. Бұл
Мысалы, координат басы объектінің ортасында тұруын ыңғайлы деп
Scale әдici объектіге жаңа координат жүйесі тағайындалған жағдайдағы
[ОбъектАты] Scale(x1,yl) - (х2,у2)
ОбъектАты'ның катыспауына да болады. Бұл жағдайда үнсіз келісім
(х1,у1)-объектінің сол жақ жоғарғы бұрышының жаңа координаттары, ал
Scale әдici орындалғаннан кейін бірден объектінің ескі (абсолют)
1-мысал. Сіз өзіңіз әлдеқашан пішінге орналастырған, Графикалық терезе
Мұны мына төмендегі программалық кодтың көмегімен жасауға болады:
Picture 1. Scale (-7,5) - (7,-5).
Visual Basic тілінде объектіге жаңа координат жүйесін тағайындаудың
1-сурет. Графикалық терезе обьектісіндегі координат осьтерінің өзіміздің қалауымызша
Scale әдісін қолданудың орнына Scale категориясындағы объектінің қасиеттерінің
2-cypem. Графикалык, терезенің Scale категориясындағы объектісі қасиеттерінің мәндерін
Бәрінен де бұрын олардың ішіндегі ScaleMode қасиетінің мәнін
Бұдан соң ScaleWidth (Объектінің ені - объектінің оң
Ciз 1-мысалда аталған қасиеттердің мәндерін (2-сурет) көpiп отырсыз.
PSet әдici. Бұл әдіс те Scale әдici қолданылатын
Әдістің синтаксисі мына төмендегідей болады:
[ОбъектАты] PSet (х,у) [, Tүci]
ОбъектАты параметрінің қатыспауына да болады. Бұл жағдайда үнсіз
Мұнда:
(х,у) - Сіздің Объектіде бейнелегіңіз кeлeтiн "нүктенің", дәлірек
Tyci - бұл мәні Long типті сан болатын
Tүci аргументін әр түрлі тәсілдермен беруге болады:
► түстi анықтайтын сегіз тұрақтының (VbBlack
► аргументі 0-ден 15-ке дейінгі, ал
► аргументтері 0-ден 255-ке дейінгі (негізгі
Осылайша, 16 миллион түстерден де көбipeк түстер палитрасы
Tүci ретінде Visual Basic тілінің тұрақтыларын пайдалану ыңғайлы.
Tyci параметрінің қатыспауына да болады. Бұл жағдайда үнciз
Егер PSet әдici орындалар алдында Scale әдісі қолданылмаған
Бip нүктені емес көптеген нүктелерді салуға қызығушылық болатындығы
2-мысал. PSet әдісінің көмегімен Пішінде немесе Графикалық терезеде
Жетіқарақшы шоқжұлдызының 7 жұлдызы - бұл Графикалық терезе
Программаның коды мына төмендегідей болады:
3-сурет. Жетіқарақшы шоқжұлдызын салушы программа жұмысының нәтижесі.
Private Sub 1ске Қocy_Click()
Picture1.Scale (0,10)-(15,0)
Picture1.PSet (1,6) vb White: Picture1.PSet (4,8),VbWhite
Picturt1.PSet (6.5,6) vb White: Picture1.PSet (8.5,5),VbWhite
Picture1.PSet (10,2) vbWhite: Picture1.PSet (13,3),VbWhite
Picture1.PSet (13,7) vbWhite
End Sub
Жұлдыздардың бейнесі - бұл әрине нүкте емес, айтарлықтай
DrawWidth қасиетінің мәндері бүтін сандар (1, 2, 3,
4-сурет. DrawWidth қасиетінің мәндерін өзгерту арқылы "нүкте" бейнесінің
Көрсетілген мәндерді Қасиеттер терезесінің көмегімен,
Picture1. DrawWidth = 3
2.2. LINE әдісінің көмегімен кесіндіні және тікбұрышты салу
Line әдicі ең әралуан есептерді программалауда кеңінен пайдаланылады.
Line әдici мынадай мүмкіндіктер береді:
► осы әдіс қолданылатын объектіде түзу сызық
► осы объектіде боялған немесе боялмаған тікбұрыштарды
Line әдiciнiң, синтаксисі мына төмендегідей болады:
[ОбъектАты] Line (xl,yl)-(x2,y2) [,Tyci [,Жалау]]
ОбъектАты параметрінің қатыспауына да болады. Бұл жағдайда үнсіз
Line кілтті сөзімен iлece үтip арқылы жазылған әдic
Әдic параметрлерін функцияның аргументімен салыстыруға
► (xl,yl)-(x2,y2) параметрі - бұл кeciндi шекарасының немесе
► Tyci параметрі — бұл Visual
• Long типті сан;
• Мына төменде көрсетілген (1-кесте) Visual Basic
1-кесте
Tyci Тұрақты Сандық мәні
Қара VbBlack 0
Қызыл Vbred 255
Жасыл VbGreen 65280
Сары VbYeliow 65535
Көк VbBlue 16711680
Күлгін VbMagenta 16711935
Көгілдір VbCyan 16776960
Ақ VbWhite____ 16777215
Егер Ciз кестедегі сандарды мұқият қарайтын болсаңыз, онда
• 65535=255+65280;
• 16 711935=255+16171680;
• 16776960=65280+16711680;
• 16777215=255+65280+16711680.
Tүci параметрін QBColor және
Tүci параметрінің қатыспауына да болады. Сонда үнсіз
► Жалау параметрі — бұл В символы
Егер Жалау параметрі ретінде В символы пайдаланылатын
Fill cөзi сөзбе-сөз аударғанда толтыру дегенді; ал FillStule
Solid cөзi сөзбе-сөз аударғанда тұтас дегенді білдіреді.
Егер Жалау параметрі бар болып, Tүci жоқ
Keciндi немесе тікбұрыш контурының қалыңдығын ұлғайтуға болатындығын атап
3-мысал. Мына төмендегі пішінде (5-сурет) Line әдісінің көмегімен
Жоғарыда көрсетілген фигураларды салуды шақырушы оқиғалы процедураның коды
5-cypem. Line әдісінің көмегімен пішінде кесіндерді және тікбұрыштарды
Private Sub 1ске Kocy_Click ()
'Жіңішке қызыл горизонталь кесіндінің бейнесі:
Line (200,200) - (2200,200), 255
'Қалың көгілдір вертикаль кесіндінің бейнесі:
DrawWidth=4
Line (200,400)-(200,1400), VbCyan
' Орташа қалыңдықты, қызыл көлбеу кесіндінің бейнесі:
DrawWidth=2
Line (200, 1800)-(2000,1I00) VbRed
' Боялмаған тікбұрыштың бейнесі (Үнсіз келісім бойынша 'контур
Line (1400,1000) - (400,500), , В
' Қызыл боялған тікбұрыштың бейнесі:
Line (1600, 500)- (2400,1000), 255, BF
End Sub
Line әдісінің атының алдында және DrawWidth қасиеті атының
Берілген мысалда Scale әдісінің көмегімен пішінді масштабтау жүргізілмегендігіне
2.3. LINE және PRINT әдістерін бірге пайдалану
Print әдicі сандарды және қатарларды объектіге, яғни Пішінге
Мысалы:
Font. Name = "Arial"
Font.Size = 12
ForeColor = RGB(0, 0, 255)
ScaleMode = 3 '
CurrentX = 10
CurrentY = 20
Print "Астана жаңа қала "
Print әдісінің синтаксисі мына төмендегідей болады:
[ОбъектАты] Print [ҮзінділерТізбегі]
ҮзінділерТізбегі – бұл арасында, үтip ";", немесе нүктелі
4-мысал. Мына төменде (6-сурет) программалық кодтың екі қатарының
6-cypem Print әдiсіндe баспаға шығару бөлгішінің eкі mүpiн
Private Sub lcкe Қocy_Click ()
Print "abedefghijk", "abedefgh", "abc", "ab"
Print "abedefghijk"; "abedefgh"; "abc"; "ab"
End Sub
Print әдici Line әдісімен және басқа графикалық әдістермен
5-мысал. Line әдici қолданылған жоғарыдағы алдыңғы кодтың әpбip
7-сурет. Line және Print әдістерін 6ipгe пайдалану.
2.4. Түсті қайтарушы RGB және QBCOLOR функциялары
RGB функциясы. Жоғарыда Visual Basic тілінде Tүci параметрі
R+256G+2562 В.
Мұнда, айнымалылардың (R, G және В) әрқайсысы екі
R,G және В айнымалылары және 0-ден 255-ке дейінгі
Мұнда көрсетілген қосынды кестедегі мәндерден басқаша болады, ал
Visual Basic тілінде көрсетілген қосындының мәні болатын Long
RGB функциясының қабылдай алатын мәндерінің саны 2563-ке тең
R,G және В-ның мәндері бойынша, бұлардың реңі қандай
Бұл сұраққа берілетін жауап қарапайым. Әpбip рең барлығы
► Қызыл (Red);
► Жасыл (Green);
► Көк (Blue);.
R айнымалысының мәнi - осы қоспадағы қызыл түстің
Егер барлық үш мән бірдей болса, онда түстер
Егер R,G және В мәндері дәл келмесе, онда
8-сурет. RGB функциясының аргументтері мәндерінің өзара дәл келуіне
QBColor функциясы. Visual Basic тілінде түстерді
Бұл түстердің аттары мына төменде (2-кесте) келтірілген. Жақша
2-кесте.
Tүcі С
Қара (VbВ1аск)
Қара-көк
Қара-жасыл
Қара-көгілдір
Қара-қызыл
Қара-күлгін
Қоңыр
Ақшыл-сұр
Қара-сұр
Көк (vbBlue)
Жасыл (vbGrееn)
Көгілдір (vbCyan)
Қызыл (vbRed)
Күлгін (vbMadenta)
Сары (vbYellow)
Ақ (vbWhite) 0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Мына төменде GBColor функциясының және apгументінің (9-сурет) С
9-сурет. QBCoIor және RGB функцияларының және аргументтерінің mүcmi
2.5. CIRCLE әдісінің мүмкіндігі
Бұл әдic те осның алдындағы графикалық әдicmep қолданылған
Circle әдici шеңбер, эллипс немесе доға салуға мүмкіндік
Pi = 3.1415926 ' "Пи
ScaleMode = 3
Circle(100,50),30 ' Шеңбер.
Circle(50,50),30, RGB(255,0,0)
Circle(150,50),30,0,pi 'Доға.
Circle( 150,50),30, 0, pi/2 'Доға.
Circle(150,50),30, RGB^255,0,0), pi/2, 0 'Дога.
Circle(100,120),30, , , , 0.5
Circle(100,120),30, , , ,2
Контурдың түсін Circle әдici сызып отырған Графикалық терезенің
Контурдың түpiн (қалдығы және сызық стилі) Circle әдici
Әдістің синтаксисі мына төмендегідей болады:
[ОбьектАты] Circle (х,у), Радиус [, Tүci [, Бұрыш
Бұрыш2 [, СығуКоэффиценті]]]
ОбьектАты параметрінің қатыспауына да болады. Бұл жағдайда үнсіз
(х,у) - Circle әдici объектіде жасайтын дөңгелектің немесе
Tүci - бұл Line әдісі үшін қалай анықталса,
Бұрыш 1 және Бұрыш2 - бұл доғанның немесе
Бұрыштар радианмен өлшенеді. Олардың мәндері 0 мен 2
Егер бұрыштың нөлдік мәнінің алдына "- " (минус)
Егер дөңгелектің немесе эллипстің доғасы және секторы бейнеленбестен,
Сызу Коэффициенті параметрі - бұл бірден үлкен немесе
Line әдiciндегi сияқты осы әдіспен салынатын фигураның түрiне
Circle әдісінің және осы әдіс жұмыс істейтін параметрлер
6-мысал. Айтайық, пішінде аттары Picture1, Picture2 және Picture3
Командалық батырманы шерткеннен кейін графикалық өрісте Circle әдісінің
10-сурет. Circle графикалық әдісінің жұмысын көрсету.
Осы есепті шешетін программаның коды мына төмендегідей болады:
Dim Angle As Double: Const pi = 3.14159265358979
Private Sub Command 1_ Click ()
' Графикалық өpicmepдi масштабтау.
Picture1.Scale (0,35) - (15,0)
Picture2. Scale (-5,20) - (45,0)
Picture3. Scale (-25,15) - (15,-15)
' Шеңберді, дөңгелекті және эллипстерді салу.
Picture1.Circle (5,25), 2.5,0 ' Қapa mүcmi шеңбер
Picture1.Fore Color = vbCyan
Picture1.Fillstule = 0
Picture1. Circle (11,25), 2.5 ' Kөгілдip mүcmi дөңгелек.
Picture1. FillColor = vbCyan Өpicl. ForeColor = vbBlue
Picture1. Circle (8,6), 5.5, , , , 0.5
' Горизонталь бойынша созылган ' эллипс.
'Двцгелектщ жоне эллипстщ догасын жоне секторын салу:
Picture2. FiilStule =0
Picture2. FillColor = vbCyan Өpic2. ForeColor =
Picture2. Circle (5,8), 4.5
Picture2. Circle (15,8), 4.5
Picture2. Circle (25,8), 4.5
Picture2. Circle (35,8), 4.5
Picture2. FillColor = vbRed
Picture2.DrawWidth = 2
Picture2. Circle (5,8), 4.5, vbBlack, 7,5
' Шеңбер доғасы.
Picture2. Draw Width = 1
Picture2. Circle (15,8), 4.5, vbBlack, -1,-5
'Дөңгелек секторы.
Picture2. Circle (25,8), 4.5, vbBlack, -5rl
'Дөңгелек секторы.
' Эллипс секторы.
Picture2. Circle (35,8), 4.5, vbBlack, -0.3,-5.8, 1.5
' Жеті әp түрлі mүcmi секторларды салу:
Angle =2 * pi / 7
Picture3. ForeColor - 0
Picture3, FiilStule = 0
Picture3. ForeColor = vbRed
Picture3. Circle (0,0), 10, -6 * Angle, -7
Picture3. FillColor = vbCreen
Picture3. Circle (0,0), 10, -5 * Angle, -
Picture3.FillColor = vbYellow
Picture3. Circle (0,0),10, -4 * Angle, - 5
Picture3. FillColor = vbBlue
Picture3. Circle (0,0), 10, -3 * Angle, -
Picture3. FillColor = vbMagenta
Picture3.Circle (0,0), 10, -2 * Angle, - 3
Picture3. FillColor = vbCyan
Picture3. Circle (0,0), 10, , - Angle, -
Picture3. FillColor = vbWhite
Picture3. Circle (0,0), 10, , 0 – Angle
End Sub
Фигураны кандай да бip түспен бірқалыпты бояу үшін
7-мысал. Терезесінен Айдың cегiз фазасының кез келгенін көруге
11-cypeт. Айдың фазаларын салу үшін қолданылған графикалық әдicmepдi
Бұл суретте командалық батырманың саны бейнеленетін фазалар санына
Ай фазасының барлық 8 бейнесі мына төменде (12-сурет)
12-сурет. Circle графикалық әдісінің көмегімен салынған Ай фазаларының
Бұл бейнелерді салу үшін мына төмендегі 13-суреттің мәнін
а)
13-сурет. Ай фазаларын салудың екі тәсілі:
а)-эллипсті жарты дөңгелекке 6emmecmipy көмегімен салу;
б)-жарты эллипсті және жарты дөңгелекті 6ipiкmipy көмегімен салу.
Бipiншi тәсіл қара эллипсті ақ жарты дөңгелекке (сол
Eкінші тәсіл eкi фигураны 3-ден /2-ге дейінгі шектегі
Есепті шешетін программа коды мына темендегідей болады:
Const pi=3.1416
' Қаpa эллипсті оң жақтағы ақ жарты дөңгелекпен
' қабаттастыру:
Private Sub Command1_ Click ()
Picture1.Scale (-15, 12)-(15, -12)
Picture1. Cls
Picture 1. FillStyle = 0
Picture 1. Fill'Color - vbWhite
Picture1/.Circle (0, 0), 5vbWhite, - 3 * pi
Picture1l.FillColor = vbBlack
Picture1. Circle (0, 0), 5 vbBlack , ,
Picture1.FillStule =1
Picture1.Circle (0, 0), 5 vbWhite
End Sub
' Бipінші ақ жарты дөңгелек:
Private Sub Command2_Click ()
Picture1.Scale (-15, 12)-(15, -12)
Picture1. Cls
Picture I FillStyle = 0
Picture1.FillColor = vbWhite
Picture1. Circle (0, 0), 5 vbWhite, -3 *
Picture1.FillStule =1
Picture1. Circle (0, 0), 5 vbWhite
End Sub
‘ Сол жақтағы жарты эллипсті және оң жақтағы
' жарты дөңгелекті бipікmipy:
Private Sub Command3_Click ()
Picture1.Scale (-15, 12)-(15, -12)
Picture1. Cls
Picture 1. FillStyle = 0
Picture1.FillColor = vbWhite
Picture1. Circle (0, 0), 5 vbWhite, -pi /
Picture1.Circle (0, 0), 5 vbWhite, -
Picture1.FillStule =1
Picture1.Circle (0, 0), 5 vbWhite
End Sub
‘Ақ дөңгелек- "толық ай :
Private Sub Соттапаd4 Click ()
Picture1.Scale (-15, 12)-(15, -12)
Picture1.Cls
Picture1.FillStyle = 0
Picture1. FillCoior = vbWhite
Picture1.Circle (0, 0), 5vbWhite
End Sub
' Сол жақтағы жарты дөңгелекті және оң жақтағы
' жарты эллuncmi бipiкmipy:
Private Sub Command5 Click ()
Picture1.Scale (-15, 12)-(15, -12)
Picture1.Cls
Picture1.FillStyle = 0
Picture1.FillCoior = vbWhite
Picture1.Circle (0, 0), 5 vbWhite, - pi /
Picture1Circle (0, 0), 5 vbWhite, - 3 *
Picture1.FillStule =1
Picture1.Circle (0,0),5 vbWhite End Sub
' Сол жақтағы ақ жарты дөңгелек:
Private Sub Command 6_Click ()
Picture1.Scale (-15, 12)-(15, -12)
Picture1.Cls
Picture1.FillStyle = 0
Picture1 FillCoior = vbWhite
Picture1. Circle (0, 0), 5 vbWhite, -pi /2,
Picture1.FillStule =1
Picture1.Circle (0, 0), 5 vbWhite
End Sub
Private Sub Command7_Click ()
Picture1.Scale (-15, 12)-(15, -12)
Picture1.Cls
Picture1.FillStyle = 0
Picture1.FillCoior = vbWhite
Picture1.Circle (0, 0), 5 vbWhite, - pi /
Picture1.FillCoior = vbBlack
Picture1.Circle (0, 0), 5 vbBlack , , ,
Picture l.FillStule =1
Picture1.Circle (0, 0), 5 vbWhite
End Sub
'Қара дөңгелек (ақ шеңбер) - "жаңа ай ":
Private Sub Command8 Click ()
Picture1.Scale (-15, 12)-(15, -12)
Picture1.Cls
Picture1.FillStyle = 0
Picture1.Circle (0, 0>, 5 vbWhite
End Sub
Қортындылай келе мыналарды атап өтеміз. Visual Basic тілінде
Бірақ дегенмен де графикалық әдістердің олардан бip маңызды
2.6. Салынған фигураларды толтыру тәсілдері
Line және Circle әдістерінің көмегімен құрылған фигуралар, жекелеп
Жоғарыда (9-сурет) осы фигураларды автоматты түрде толтыруды қамтамасыз
14-сурет. FillStule қасиетінің мәндері және фигураларды штрихтардың әp
8-мысал. Мына төменде (15-сурет) Line әдісінің көмегімен мен
15-сурет. Line әдісінің Пішіндeгi (сол жақта) және Графикалық
Графикалық терезеде фигураларды салудың коды осы фигураларды Пішінде
Жалғыз ғана айырмашылығы сол Line сөзінің алдындағы объектіні
Private Sub Command1_ Click ()
' Үлкен тікбұрыш, FillStule = 6 (Cross):
Line (200,100)-(3200, 2100), vbRed, В
Line (200, 100)-(3200, 2100), vbRed 'Диагональдар (кесінділер).
Line (3200, 100)-(200, 2100), 255
' Kiшi квадрат:
Line (3400, 800)-(3800, 1200),QBColor( 12), BF
' Үшбұрыш:
Line (3600, 2100)-(4600, 2100), 16711680
Line (3600, 2100)-(4100, 1100),65280
Line (4100, 1100)-(4600, 2100), vbGreen
' Үлкен тікбұрыш, FillStule - 0 (Solid):
Picture1.Line (200, 100)-(3200, 2100) vbRed, В
Picturel. Line (200, 100)-(3200, 2100) vbRed 'Диагональдар.
Picture 1.Line (3200, 100)-(200, 2100), 255
' Kiшi квадрат:
Picturel.Line (3600, 800)-(3800, 1200), QBColorf12), BF
' Ушбурыш:
Picturel.Line (3600, 2100)-(4600, 2100), 16711680
Picturel.Line (3600, 2100)-(4100, 1100),65280
Picturel.Line (4100, 1100)-(4600, 2/00), vbGreen
End Sub
Дегенмен де сол жақтағы үлкен тікбұрыштың бейнесі оның
Бipiнші жағдайда. Пішін объектісінің FillStule қасиетінің мәні 6-ға
Екінші жағдайда. Графикалық терезе объектісінің FillStule қасиетінің мәні
Бipaқ программа мәтінінен Ciз FillStule және FillColor касиеттерінің
Пішінде сондай-ақ Графикалық терезеде фигуралардың координаттары абсолютті, өйткені
2.7. CIRCLE әдісін дөңгелек диаграммалар салуда пайдалану
Circle әдіci дөңгелек диаграммалар салуда жиі пайдаланылады. Бұл
Ciз мұндай диаграммаларды журнал беттерінен немесе телевизор экранынан
9-мысал. Айтайық, Сіздің мектебіңізден қалай болса солай таңдамай
Мына төменде (16-сурет) Сіздің мектептің оқушыларының арасынан футбол
16-сурет. Дөңгелек диаграмма түрінде берілген
сұрақ-жауап нәтижесі.
Қорытынды
Қазіргі уақытта адам іс әрекетінің барлық салаларына компьютерлік
Адамның компьютермен табиғи тілде тілдесуі келешектің ісі, ал
Курстық жұмысты орындау барысында келесі жұмыстар қарастырылды: бұл
Пайдаланылған әдебиеттер:
Сейітқұлов О. «Программалау Visual Basic 6» 1 бөлім,
Сейітқұлов О. «Программалау Visual Basic 6» 2 бөлім,
Сейітқұлов О. «Программалау Visual Basic 6» 3 бөлім,
О. Камардинов «ЕТ және программалау», Алматы, 1997
Ф-ОБ-001/035
5
Ф-ОБ-001/035
у
0