TOPREFERAT.COM.KZ - Қазақша рефераттар



Кіріспе

1тарау. Visual Basic-тегі графика элементтерін оқыту әдістемесі 1.1. Басқарудың графиктік элементтері

1.2. Line (түзу) – басқару элементі

1.3. Shape (контур) басқару элементі

1.4. Image (Сурет) басқару элементі

1.5. PictureBox (Графиктік аймақ) басқару элементі

1.6. Мысалдар

2 тарау. Графиктік әдістер жүйесін оқытудағы көрнекіліктер

2.1. Координата жүйесі

2.2. Scale әдісі

2.3. Pset әдісі

2.4. Line әдісі

2.5. Circle (шеңбер) әдісі

2.6. Мысалдар

2.7.Visual Basic программасы көмегімен функция графиктерін зерттеу

Қорытынды

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

Қосымша

Жұмыс түрі: Дипломдық жұмыс
Жұмыс көлемі: 61 бет
Пәні: Соңғы қосылған дипломдық жұмыстар

-----------------------------------------------------------------------------------

ДИПЛОМДЫҚ ЖҰМЫСТЫҢ ҚЫСҚАРТЫЛҒАН МӘТІНІ

Қазақстан Респубикасы Білім және Ғылым министрлігі

Информатика кафедрасы

Диплом жұмысы

Тақырып: «Visual Basic ортасында функцияларды зерттеу тақырыбын оқыту әдістемесі»

Ғылыми жетекші:

________________

Қорғауға жіберілді: «_______» __________

Кафедра меңгерушісі:

Кіріспе
1тарау. Visual Basic-тегі графика элементтерін оқыту әдістемесі 1.1.
1.2. Line (түзу) – басқару элементі
1.3. Shape (контур) басқару элементі

1.4. Image (Сурет) басқару элементі

1.5. PictureBox (Графиктік аймақ) басқару элементі

1.6. Мысалдар
2 тарау. Графиктік әдістер жүйесін оқытудағы көрнекіліктер

2.1. Координата жүйесі
2.2. Scale әдісі
2.3. Pset әдісі
2.4. Line әдісі
2.5. Circle (шеңбер) әдісі
2.6. Мысалдар
2.7.Visual Basic программасы көмегімен функция графиктерін зерттеу

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

Қосымша
Кіріспе

Компьютерлік жүйенің даму барысында программалық қорында радикалды өзгерістер болды.
Машиналық кодта программа жазудың келесі этапы ассемблер және BASIC
Visual Basic-тіњ 6-шы версиясы - Visual Basic сериясындағы жаңасы.
Visual Basic-те программистің жұмысын жеңілдететін көптеген пайдалы инструменттер бар.
Visual Basic 6-шы проектісі Internet-ке негізделген. Оған кіретін
Visual Basic 6-шыда жања проект шаблондары пайда болды, олар:
Visual Basic-ті Windows ж‰йесіндегі Проводник ‰лгісі ретінде ќолданады. Таныс
Pascal тілі (проблемно-ориентированны) болса, Visual Basic тілі (объектно-ориентированны). Яѓни
Visual Basic программалары оќиѓалы- оринтировтік, яѓни осы немесе басќа
Программаныњ негізгі элементі обьекттер. Объекттер жєне объекттерге ќолданылатын
Объекттер группасы класс ќ±рады. Класс дегеніміз- жања объекттілер ќ±руѓа
Атаулар объектілерді программада белгілеу ‰шін ќажет.

Атауларды беру ережелері:

Бірінші символ латын єріпі болу керек;

Атауда тек латын єріптері, сандар жєне ( _ )
Атаудыњ ±зындыѓы 40 символдан артпау керек;

Негізгі сµздер (Ключевые слова) немесе Reserved Word (Зарезервированные
Объект єдісін немесе ќасиетін шаќыру мынадай т‰рде ж‰реді:

“имя объекта”.“свойство объекта” немесе

“имя объекта”.“метод для объекта”

********************

Form4.caption = “Картотека”

F1.Hide

********************

Күрделі формулировка:

********************

Form1.ActiveControl.BackColor

F1.ActiveControl.Caption

********************

Visual Basic объекті- орентирлік ж‰йеніњ барлыќ принциптерін ќанаѓаттандырмайды.

Полиморфизм жєне мұрагерлік толыѓымен Visual Basic- те ќамтылмайды.

Полиморфизм дегеніміз - єр түрлі класстарда аттас тєсілдердіњ бар
Мұрагерлік дегеніміз – құрылѓан класстар негізінде жања класстар құру.
1 тарау. Visual Basic-тегі графика элементтерін оқыту әдістемесі

Басқарудың графиктік элементтері

Visual Basic графиктік нысандармен жұмыс істеуге арналған графиктік құралдармен
Visual Basic-тегі графикті қолданушының интерфейсін жетілдіруге пайдалануға болады. Атап
• экрандағы қандайда бір ақпаратты ерекшелеп көрсетуге;

• ақпаратты әр түрлі нұсқаларда бейнелеп көрсетуге, мысалы, графиктер
• қосымшалар функциясымен өте жақын байланыс орнатуға.

Visual Basic-тің құралдар блогында (Toolbox) басқарудың графиктік элементтерінің көптеген
Line және Shape түріндегі басқару элементтерін қолдану

Line және Shape басқару элементтері формаға графиктік элементтерді қосудың
1.2. Line (түзу) – басқару элементі

Бұл элемент өзінің атына сәйкес формаға кәдімгі түзу сызықты
1-сурет Line элементі арқылы формаға орналастыруға болатын сызық
Егер BorderWidth қасиетінің мәні бірден үлкен болса, онда BorderStyle
Line басқару элементінің негізгі қасиеттері:

Қасиеті Міндеті

BorderColor Сызықтың түсін таңдау

BorderStyle Сызықтың түрін таңдау. Мүмкін болатын мәндер:

0 (ашық), VbTransparent

1 (бүтін), VbBSSolid

2 (штрихталған), VbBSDash

3 (үзік сызықтар), VbBSDot

4 (үзік штрихтар), VbBSDashDot

5 (үзік штрихтар- үзік сызықтар), VbBSDashDotDot

6 (ішкі жағынан бүтін), VbBSInsideSolid

BorderWidth Сызықтың қалыңдығын таңдау

X1 және Y1 Сызықтың бастапқы нүктесінің координатасын таңдау

X2 және Y2 Сызықтың соңғы нүктесінің координатасын таңдау

Формада түзу сызық сызу

1. Басқару элементтері тақтасынан Line элементін таңдап алу.
2. Тышқан көрсеткішін сызықтың бастапқы нүктесі орналасатын орынға
3. Тышқан арқылы бағыттауыштары бар кресті сызықтың соңғы
4. Егер сызықтың түрін өзгерту қажет болса, онда
5. Settings тізімінен сызық типін таңдаймыз.

1.3. Shape (контур) басқару элементі

Shape басқару элементі формаға басқа қарапайым графиктік элементтерді орналастыруға
Shape элементінің Line элементінен өзгешелігі, мұнда координата жүйесі
2-сурет Shape басқару эленті

Shape басқару элементінің негізгі қасиеттері:

Қасиет Міндеті

BorderColor Фигура шекарасының түсін анықтау

FillColor Фигураны бояудың түсін анықтау

BackColor Сызылған фигура фонының түсін анықтау. Егер фигура фонының
BorderStyle Фигура шекарасы сызығының түрін анықтау

FillStyle Фигураны бояу түрін анықтау

BorderWidth Сызу аймағының енін анықтау

BackStyle Фон түрін анықтау:

0 – ашық (прозрачный) (Transparent);

1 – боялған (непрозрачный) (Opaque).

Shape Фигураның формасын анықтау. Мүмкін болатын мәндер:

0 (тік төртбұрыш), VbShapeRectangle

1 (квадрат) , VbShapeSquare

2 (сопақ) , VbShapeOval

3 (дөңгелек) , VbShapeCircle

4 (доғал бұрышты төртбұрыш) , VbShapeRoundedRectangle

5 (доғал бұрышты квадрат) , VbShapeRoundedSquare

Формада жоғарыда аталған фигуралардың бірін салу үшін:

1. Басқару элементтері тақтасынан Shape элементін таңдау. Тышқанның
2. Форма ішінде тышқанның сол жақ кнопкасын басып отырып
3. Properties терезесінен Shape қасиетін таңдаймыз.

4. Settings тізімінен қажетті белгіні таңдап аламыз.

1.4. Image (Сурет) басқару элементі

Image басқару элементі формада графиктерді көрсету үшін қолданылады. Мұнда
Visual Basic-те қолданылатын графиктік файлдар форматтары

Формат Кеңейтілуі Файл типі

Bitmap .bmp, .dib Растрлық бейне. Бейнені нүктелер жиынтығы
Icon .ico Растрлық бейненң арнаулы түрі пиктограмма, значок. Значоктың
Cursor .cur Курсор, бұлда растрлық бейне болып табылады.

Metafile .wmf, .emf Метафайл – бейнені кодталған сызықтар
JPEG .jpg, .jpeg 8 және 24 биттік түсті
GIF .gif 256 түске дейін қабылдайтын графиктік формат. Бұл
Image басқару элементіне орналастырылған графиктер өлшемі оның өлшеміне қарай
Stretch (созу) қасиеті Image басқару элементінің өлшемін өзгерткенде берілген
Image басқару элементінің негізгі қасиеттері:

Қасиет Міндеті

Picture Көрсетілетін растрлық бейнені береді.

LoadPicture функциясымен бірге қолданылады.

Синтаксис:

Picture = LoadPicture (ФайлдыңТолықАтауы)

мұндағы: ФайлдыңТолықАтауы – көрсетілетін графиктік файлдың толық атауы.

Stretch Логикалық қасиет. Егер, ол True болса, онда бейне
Image басқару элементіне суретті ауыстыру буферінің көмегімен форманы құру
1.5. PictureBox (Графиктік аймақ) басқару элементі

PictureBox басқару элементі Image басқару элементіне ұқсас. Себебі, екеуі
PictureBox басқару элементінде келесі форматтағы графикалық суреттер қолданылады: растрлық
Графикті жүктеу кезінде PictureBox (графиктік аймақ) қалыпты жағдайда графиктің
Графиктік аймақтың Image басқару элементінен тағы бір айырмашылығы, ол
PictureBox басқару элементінің негізгі қасиеттері:

Қасиет Міндеті

Align Басқару элементін форма шекарасына байланысты түзетуді орнатады.

Мүмкін мәндер:

• vbAlignNone немесе 0 (түзетусіз);

• VbAlignTop немесе 1 (форманың жоғарғы шекарасына қатысты түзету,
• vbAlignBottom немесе 2 (форманың төменгі шекарасына қатысты түзету,
• VbAlignLeft немесе 3 (форманың сол жақ шекарасына қатысты
• vbAlignRight немесе 4 (форманың оң жақ шекарасына қатысты
AutoSize Логикалық қасиет. Егер оның мәні True болса, онда
Picture Графиктік аймаққа LoadPicture функциясының көмегімен файл мазмұны жүктеледі.
Image Суреттерді (бейнелерді) графиктік терезенің бірінен екіншісіне көшіру үшін
Picturel. Picture = Picture2.Image

Графиктік аймақ та форма сияқты масштабтауды орнататын ScaleMode, ScaleHeight,
Басқарудың графиктік элементтерін қолдануға бірнеше мысалдар қарастырайық.

1.6. Мысалдар

1.1 мысал.

Standard EXE жаңа формасын құрып, оған Line басқару элементін
Private Sub Command1_Click()

Line1.Y1 = Line1.Y1 + 10

Line1.X1 = Line1.X1 * 2

Line1.X2 = Line1.X2 + 10

Line1.Y2 = Line1.Y2 * 1.5

End Sub

Программаны орындауға жібергеннен кеійін, кнопка басылғанда сызық өзінің орналасу
1.2 мысал.

Standard EXE жаңа формасын құрып Shape басқару элементінің бірнеше
Private Sub Command1_Click()

Shape1.BackStyle = 1

Shape1.BackColor = RGB(12, 200, 100)

Shape2.BackStyle = 1

Shape2.BackColor = RGB(220, 100, 100)

Shape3.BackStyle = 1

Shape3.BackColor = RGB(120, 10, 250)

Shape4.BackStyle = 1

Shape4.BackColor = RGB(120, 10, 10)

End Sub

Программаның орындалуы нәтижесінде барлық фигуралар әр түрлі түске боялады
3-сурет

1.3 мысал.

Paint графиктік редакторында әр түрлі өлшемдегі екі сурет салып,
Үлгі ретінде төмендегі программалық кодты пайдалануға болады.

Программаның орындалу нәтижесі 4-суретте көрсетілген.

Private Sub Command1_Click()

Form1.Picture = LoadPicture("D:/users/sun-user/83.bmp")

End Sub

Назар аудар: кнопка басылғаннан кейін формаға өлшемі формадан үлкен
4- сурет

1.4 мысал.

Жаңадан Standard EXE жобасын құрып, оған екі Image басқару
Private Sub Command1_Click()

Image1.Stretch = False

Image1.Picture = LoadPicture("D:/users/sun-user/84.bmp")

Image2.Stretch = True

Image2.Picture = LoadPicture("D:/users/sun-user/84.bmp")

End Sub

Программаның орындалу нәтижесі 5-суретте берілген.

5 - сурет

1.5 мысал.

Paint графиктік редакторында өлшемі 70 х 70 пиксел
6 – сурет

Кнопка басылғанда PictureBox басқару элементттерінің үшеуіне де бірдей
Private Sub Command1_Click()

Picture1.AutoSize = False

Picture1.Picture = LoadPicture("D:/users/sun-user/85.bmp")

Picture2.AutoSize = False

Picture2.Picture = LoadPicture("D:/users/sun-user/85.bmp")

Picture3.AutoSize = True

Picture3.Picture = LoadPicture("D:/users/sun-user/85.bmp")

End Sub

Программаның орындалу нәтижесі 7-суретте берілген.

7 – сурет.

PictureBox басқару элементі AutoSize қасиетінің қабылдайтын мәніне қарай
2 тарау. Графиктік әдістер жүйесін оқытудағы көрнекіліктер

2.1.Координата жүйесі

Әдіс дегеніміз не?

Әдіс дегеніміз қасиет немесе оқиға сияқты Visual Basic-тегі нысандар
Әдіс – берілген нысанға Visual Basic арқылы қолданылатын
Берілген кластың нысандарында қандайда бір геометриялық элементтерді (нүкте, кесінді,
Нысандар класында қолданылатын қандайда бір әдіс немесе амал бар
Формаларға және графиктік аймақтарға қолдануға болатын графиктік әдістер:

Әдіс Міндеті

Scale Берілген нысанда декарттық координата жүйесін орналастырады.

Cls Форманы немесе сурет графиктік аймақты тазартады, яғни BackColor
Pset Берілген түске боялған нүкте салады.

Point Берілген нүктедегі түсті өзгертеді.

Line Берілген түс бойынша түзу немес тік төртбұрыш сызады.
Circle Берілген түс бойынша шеңбер, доға немесе эллипс
PaintPicture Форманың көрсетілген аймағында бейнені шығарады.

Бұл тақырыпта сипатталатын графиктік амалдардың әрқайсысы координата жүйесін немесе
Координата жүйесі нысанның экрандағы, формадағы немесе контейнердегі орналасу орынын
Visual Basic-те координаталар жүйесіне келесі ережелер қолданылады:

Басқару элементінің орынын ауыстыруда немесе оның өлшемін өзгертуде басқару
Барлық графиктік әдістер және Print әдісі контейнердің координат жүйесін
Форма өлшемін өзгертетін немесе оның орналасу орынын ауыстыратын операторлардың
Форманың өлшемін немесе орналасу орынын ауыстырар алдында, оның формаға
Экранның сол жақ жоғарғы бұрышының координатасы әрқашанда (0,0) деп
Visual Basic-тегі координата жүйесінің әр өсінің өз өлшемі (масштабы)
Visual Basic-те қалыпты жағдайда ауыстыру, өлшемді өзгерту және сурет
Нақты нысанға (формаға немесе басқару элементіне) арналған координат жүйесі
Масштабты таңдау;

Стандарты масштабтардың бірін таңдау;

Өзіңнің жеке масштабыңды құру.

Координата жүйесінің масштабын өзгерту формада графиктің орналасу орыны мен
Қалыпты жағдайдағы масштаб

Әрбір формада және графиктік терезелерде координата жүйесін беруге пайдаланатын
Қалыпты жағдайдағы масштабқа қайтып оралу үшін Scale әдісін параметрсіз
Стандарты масштабты таңдау.

ScaleMode қасиетіне төмендегі мәндердің бірін таңдай отырып өлшем бірлікті
Мән Сипаты

0 Қолданушы анықтайды. Егер ScaleLeft, ScaleTop, ScaleWidth немесе
1 Твиптер. Бұл қалыпты жағдайдағы масштаб. Бір дюймде
2 Пункттер. Бір дюймде 72 пункт бар.

3 Пиксельдер. Принтерге немесе мониторға рұқсат етілген ең кіші
4 Символдар. Баспа кезінде символ биіктігі дюймнің 1/6 бөлігіне,
5 Дюймдер.

6 Миллиметрлер.

7 Сантиметрлер.

Меншікті масштаб құру

Меншікті масштаб құру үшін нысанның ScaleLeft, ScaleTop, ScaleWidth және
ScaleLeft және ScaleTop қасиеттері нысанның сол жақ жоғарғы бұрышының
ScaleWidth және ScaleHeight қасиеттері сызу аймағының ағымдағы ені
Мысалы:

ScaleWidth = 1000

ScaleHeight = 500

Бұл операторлар форманың ішкі өлшеміне қарай, өлшем бірліктерді көлденең
Масштабтау қасиеттерінің төртеуінің де мәндері бөлшек немесе теріс сандар
2.2. Scale әдісі

Координата жүйесін өзгертудің ең тиімді әдістерінің бірі Scale әдісі
Scale әдісі нысандардың Экрандық форма (Form) және Графиктік терезе
Form және PictureBox нысандарының абсолюттік координаталары бар, олар –
Абсолюттік координаталар өте үлкен сандар арқылы беріледі, ал үлкен
Scale әдісінің жазылуы:

[НысанАтауы.] Scale (Х1, Y1) — (Х2, Y2)

Мұнда НысанАтауы жазылмауы да мүмкін. Егер НысанАтауы жазылмаса, онда
(X1, Y1) — нысанның сол жақ жоғарғы бұрышының жаңа
(Х2, Y2) — нысанның оң жақ төменгі бұрышының жаңа
Х1, Х2 және У1, У2 координаталарының арасындағы айырмашылықты сәйкесінше
Егер координаталар сәйкесінше Х1 > X1 немесе Y1 >
Scale әдісі орындалғаннан кейін Нысанның бұрынғы (абсолюттік) координаталары
2.3. Pset әдісі

Бұл әдісте Scale әдісі қолданылатын нысандарға қолданылады.

Синтаксис метода следующий:

Pset әдісінің жазылуы:

[НысанАтауы.] PSet (X, Y) [, Түс]

Мұнда НысанАтауы жазылмауы да мүмкін. Егер НысанАтауы жазылмаса, онда
(X, Y) — нысанда бейнеленетін нүктенің, нақтырақ айтқанда экрандағы
Түс (Цвет) — мәні Long типті сан болатын өрнек.
Әдісті жазу кезінде түс берілмеуі де мүмкін, онда қалыпты
Егер PSet әдісін қолданар алдында Scale әдісі қолданылмаса, онда
Нүктені өшіру үшін, оның түсін фон түсімен бірдей етіп
Picture1.Pset (50, 70), BackColor

Нүктенің өлшемін өзгерту үшін сурет салып отырған нысандағы
2.4. Line әдісі

Графиктік Line әдісінің көмегімен түзу немесе тік төртбұрыш салу
Line әдісі әр түрлі есептерді программалау барысында кеңінен қолданылады.
Line әдісінің мүмкіндіктері:

• осы әдіс қолданылатын нысандарда түзу сызықтар, кесінділер сызу;
• нысандарда боялған немесе боялмаған тік төртбұрыштар бейнелеу.

Line әдісінің жазылуы:

[НысанАтауы.] Line (Х1, Y1) — (Х2, У 2) [,
Мұнда НысанАтауы жазылмауы да мүмкін. Егер НысанАтауы жазылмаса, онда
Line қызметші сөзінен кейін жеке жақшаларға алынған, үтір арқылы
(XI, Y1) — (Х2, Y2) параметрлері — кесіндінің алғашқы
Түс (Цвет) — мәні Long типті сан болатын өрнек.
Түс параметрінің берілмеуі де мүмкін. Мұндай жағдайда ол нысанның
Жалауша (Флаг) параметрі – В немесе BF символдарының бірі.
FillStyle қасиетіне төмендегі мәндердің бірін беруге болады:

Мән Сипаты

0 Толықтай. Тік төртбұрыш FillColor қасиетінде берілген түспен толтырылады
1 Ашық (қалыпты жағдайдағы мән). Графиктік нысан боялмайды.

2 Көлденең сызықтар.

3 Тік сызықтар.

4 Жоғары бағытталған диагоналдық сызықтар.

5 Төмен бағытталған диагоналдық сызықтар.

6 Қиылысатын штрихтар.

7 Диагоналдық штрихтар.

Егер Жалауша беріліп, ал Түс берілмесе, онда артық үтірді
Түзудің немесе түк төртбұрыштың шекаралық сызықтарының қалыңдығын өзгертуге болады.
Visual Basic-те түзу ақырғы нүктесіз сызылады. Ақырғы нүктені салу
Pset [Step] (0, 0) [, Түс]

Егер түзу сызу барысында алғашқы нүкте (XI, Y1) берілмесе,
Pset, Line және Circle әдістері (х,у) синтаксисін қолдану арқылы
Осы нүктелердің әр қайсысын соңғы салынған нүкте координатасының өсімшесін
Мысалы Line (100, 200)-(150, 250) операторы

Line (100, 200)-Step(50, 50) операторымен тең мағыналы.

2.5. Circle (шеңбер) әдісі

Circle әдісінің көмегімен шеңбер, эллипстік формалар, доға (шеңбер сегменті)
Шеңбер сызу үшін оның центрінің орналасу орыны мен, радиусын
[НысанАтауы.] Circle [Қадам]( X, Y), Радиус [,Түс]

Тік жақшаға алынған параметрлер міндетті емес, яғни жазбауға болады.
Параметрлер міндетттері төмендегідей:

Қадам – Соңғы сызылған нүкте координатасының өсімшесін береді.

(X, Y) – Нысанда Circle әдісі сызатын шеңбер центрінің
Радиус – шеңбер радиусы.

Түс — сызық түсі.

Circle (1200, 1000), 750 – операторы центрі (1200,1000) нүктесінде
Бұл оператордың орындалу нәтижесі форманың координата жүйесі мен өлшеміне
ScaleWidth және ScaleHeight масштабтау қасиеттерінің көмегімен шеңбердің центрін форма
Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + ScaleTop)
Доға сызу

Доға сызу үшін Circle әдісіне доғаның басталуы мен аяқталуының
[НысанАтауы.] Circle [Қадам](X, Y),Радиус[,Түс] [,Бұрыш1] [,Бұрыш2]

Бұрыштар мәні 0 мен 2( аралығында беріледі. 0 мәні
Егер 0 мәнінің алдына «-» (минус) таңбасы қойылса, онда
Сызу сағат тілінің бағытына қарсы бағытта сызылады.

Мысалы:

Формаға орналастырылған кнопка басылғанда экранда доға сызылады (13-сурет):

Private Sub Command1_Click()

Const PI = 3.14159265

DrawWidth = 3

Circle (2500, 1500), 1000, , 0, PI

End Sub

13-сурет

2. Формаға орналастырылған кнопка басылғанда секторы бөлініп алынған дөңгелек
Private Sub Command1_Click()

Const PI = 3.14159265

Circle (3500, 1500), 1000, , -PI / 2, -PI
End Sub

14-сурет

Өлшем бірліктер:

Бұрыш Радиан Бұрыш Радиан

0о 0 210о 7/6(

30о (/6 240о 4/3(

60о (/3 270о 3/2(

90о (/2 300о

120о 4/6( 330о

150о 5/6( 360о

180о (

Эллипс сызу

Circle әдісі арқылы эллипс сызудың толық жазылуы:

[НысанАтауы.] Circle [Қадам](X, Y), Радиус [, Түс] [, Бұрыш1]
Бұрыш1 және Бұрыш2 параметрлері міндетті, егер олар жазылмаған жағдайда,
СығуКоэффициенті – тік және көлденең өстер бойынша сығады және
Егер СығуКоэффициенті бірден үлкен оң сан болса, онда тік
Формаға орналастырылған кнопка басылғанда экранда эллипс сызылады (15-сурет):

Private Sub Command1_Click()

FillStyle = 0

Circle (600, 1000), 800, , , , 3

FillStyle = 1

Circle (2400, 1000), 800, , , , 1 /
End Sub

15-сурет

Басқарудың графиктік әдістерін қолдануға бірнеше мысалдар қарастырайық.

2.6. Мысалдар

2.1-мысал

8-суреттегідей жоба құрайық.

8-сурет

Осы жобаға бір графиктік аймақ және 3 кнопка орналастырамыз.
Жобаға төмендегі кодты енгіземіз:

Private Sub Command1_Click()

Picture1.ScaleMode = 7

Label1.Caption = "(" & Picture1.ScaleLeft & ", " &
Label2.Caption = "(" & Picture1.ScaleLeft + Picture1.ScaleWidth & ",
End Sub

Private Sub Command2_Click()

Picture1.ScaleMode = 5

Label1.Caption = "(" & Picture1.ScaleLeft & ", " &
Label2.Caption = "(" & Picture1.ScaleLeft + Picture1.ScaleWidth & ",
End Sub

Private Sub Command3_Click()

Picture1.ScaleMode = 1

Label1.Caption = "(" & Picture1.ScaleLeft & ", " &
Label2.Caption = "(" & Picture1.ScaleLeft + Picture1.ScaleWidth & ",
End Sub

2.2-мысал

Жобаға бір графиктік аймақ және бір кнопка орналастыр. Scale
Сол жақ жоғарғы және оң жақ төменгі бұрыштың координаталарын
Private Sub Command1_Click()

Picture1.Scale (100, 100)-(200, 200)

Label1.Caption = "(" & Picture1.ScaleLeft & ", " &
Label2.Caption = "(" & Picture1.ScaleLeft + Picture1.ScaleWidth & ",
End Sub

Осы құрған программаны (-7, 5) (7, -5) координаталары көрініп
Private Sub Command1_Click()

Picture1.Scale (-7, 5)-(7, -5)

Label1.Caption = "(" & Picture1.ScaleLeft & ", " &
Label2.Caption = "(" & Picture1.ScaleLeft + Picture1.ScaleWidth & ",
End Sub

2.3 - мысал

Кнопканы басқанда графиктік аймақта декарттық координата жүйесін сызатын программа
Private Sub Command1_Click()

Picture1.Scale (-10, 10)-(10, -10)

Picture1.Line (0, 10)-(0, -10)

Picture1.Line (-10, 0)-(10, 0)

End Sub

2.4 - мысал

Кнопканы басқан кезде графиктік аймақта кездейсоқ жерлерде, кездейсоқ түске
Rnd (сан) функциясы 0 мен 1-дің аралығындағы кездейсоқ сандарды
Программа тексті мынадай болады, ал оның орындалу нәтижесі 9-суретте
Option Explicit

Private Sub Command1_Click()

Dim R As Byte

Dim G As Byte

Dim B As Byte

Dim XPos As Integer

Dim YPos As Integer

Randomize

R = 255 * Rnd

G = 255 * Rnd

B = 255 * Rnd

XPos = Rnd * Picture1.ScaleWidth

YPos = Rnd * Picture1.ScaleHeight

Picture1.DrawWidth = 15

Picture1.PSet (XPos, YPos), RGB(R, G, B)

End Sub

9-сурет

2.5 - мысал

Line әдісін қолдану арқылы 10-суретте көрсетілген фигураларды экрандық формада
Суреттегі фигураларды салуға арналған оқиға процедурасы төмендегідей:

10-сурет

Private Sub Command1_Click()

Line (200, 200)-(2200, 200), 255 ‘Көлденең сызылған жіңішке
DrawWidth = 4

Line (200, 400)-(200, 1400), vbCyan ‘Тік сызылған қалың көк
DrawWidth = 2

Line (200, 1800)-(2000, 1100), vbRed ‘Орташа қалыңдықтағы көлбеу қызыл
Line (1400, 1000)-(400, 500), , B ‘Боялмаған тік төртбұрыш
Line (1600, 500)-(2400, 1000), vbRed, BF ‘Боялған тік төртбұрыш
End Sub

2.6 - мысал

Графиктік аймақта үшбұрыш салу.

Private Sub Command1_Click()

Picture1.CurrentX = 1500

Picture1.CurrentY = 500

Picture1.Line -(3000, 2000)

Picture1.Line -(1500, 2000)

Picture1.Line -(1500, 500)

End Sub

Программаның орындалу нәтижесі (11-сурет)

11-сурет

2.7 - мысал

Қолданушының координата жүйесін пайдаланып 12-суретте бейнеленген фигураларды сызатын программа
Private Sub Command1_Click()

Picture1.Scale (0, 10)-(15, 0)

Picture1.FillColor = vbRed

Picture1.FillStyle = 0

Picture1.Line (1, 1)-(5, 3), , B

Picture1.FillStyle = 4

Picture1.Line (3, 4)-(6, 7), vbBlue, B

Picture1.FillStyle = 6

Picture1.Line (8, 2)-(14, 9), , B

End Sub

12-сурет

2.8. Мысал

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

Private Sub Command1_Click()

Dim R As Byte

Dim G As Byte

Dim B As Byte

Dim Radius As Single

Dim XPos As Single

Dim YPos As Single

R = 255 * Rnd

G = 255 * Rnd

B = 255 * Rnd

XPos = Form1.ScaleWidth / 2

YPos = Form1.ScaleHeight / 2

Radius = ((YPos * 0.9) + 1) * Rnd

Circle (XPos, YPos), Radius, RGB(R, G, B)

End Sub

16-сурет

2.9. Мысал

Бұл мысалда Circle әдісінің әр түрлі параметрлері қолданылғандағы
Экрандық формада бір кнопка және PictureBox класының үш
Программа коды:

Dim Angle As Double

Const pi = 3.14159265358979

Private Sub Command1_Click()

Picture1.Scale (0, 35)-(15, 0)

Picture2.Scale (-5, 20)-(45, 0)

Picture3.Scale (-25, 15)-(15, -15)

Label1.Caption = " Шеңбер, дөңгелек, эллипс
Picture1.Circle (5, 25), 2.5, 0

Picture1.ForeColor = vbCyan

Picture1.FillStyle = О

Picture1.FillColor = vbCyan

Picture1.Circle (11, 25), 2.5

Picture1.FillColor = vbCyan

Picture1.ForeColor = vbBlue

Picture1.Circle (8, 5.5), 5.5, , , , 0.5

Picture1.Circle (8, 16), 4.5, , , , 1.5

Picture1.FillStyle = 1

Label2.Caption = " Шеңбер доғасы және дөңгелек секторы
Picture2.FillStyle = 0

Picture2.FillColor = vbCyan

Picture2.ForeColor = vbCyan

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, 1, 5

Picture2.DrawWidth = 1

Picture2.Circle (15, 8), 4.5, vbBlack, -1, -5

Picture2.Circle (25, 8), 4.5, vbBlack, -5, -1

Picture2.Circle (35, 8), 4.5, vbBlack, -0.3, -5.8, 1.5

Label3.Caption = " Секторларды әртүрлі
Angle = 2 * pi / 7

Picture3.ForeColor = 0

Picture3.FillStyle = 0

Picture3.FillColor = vbRed

Picture3.Circle (0, 0), 10, , -6 * Angle, -7
Picture3.FillColor = vbGreen

Picture3.Circle (0, 0), 10, , -5 * Angle, -6
Picture3.FillColor = vbYellow

Picture3.Circle (0, 0), 10, , -4 * Angle, -5
Picture3.FillColor = vbBlue

Picture3.Circle (0, 0), 10, , -3 * Angle, -4
Picture3.FillColor = vbMagenta

Picture3.Circle (0, 0), 10, , -2 * Angle, -3
Picture3.FillColor = vbCyan

Picture3.Circle (0, 0), 10, , -Angle, -2 * Angle

Picture3.FillColor = vbCyan

Picture3.Circle (0, 0), 10, , 0, -Angle

End Sub

16-сурет

2.10 мысал

Бұл мысалда тышқан кнопкасы басылғанда шеңбер центрі белгіленіп, оны
Программа коды:

Dim X0 As Integer

Dim Y0 As Integer

Private Sub Form_Load()

Show

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X
X0 = X ‘Тышқан кнопкасы басылған
Y0 = Y

MousePointer = vbCrosshair ‘

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X
R = Sqr((X - X0) ^ 2 + (Y
Circle (X0, Y0), R ‘шеңбер сызылады

MousePointer = vbDefault

End Sub

17-сурет

2.7. Visual Basic программасы көмегімен функция графиктерін зерттеу

Microsoft Visual Basic 6 – программалау тілі VB –
Visual Basic – µрісі кез келген практикалыќ ќосымшаларда тиімді,
Windows- пен байланысќан жєне белгілі ќызмет атќаратын ќосымша ќ±ру
Визуалды программалау – программаныњ ж±мыс істеу терезесін ќ±ру,
Баќару элементініњ ќасаиттерініњ мєндері- мєндер программа ж‰ктелер алдында
Код болып аталатын, программаныњ бастапќы мєтінімен ж±мыс. Ол
Тексеру жєне бейімдеу.

BackColor, Caption, FontBold, FontItalic, FontName, FontSize, FontUnderline, Height, Width,
MaxLength (Максимальная длина) үнсіздік бойынша 0- мєнін ќабылдайды. Яѓни
Multi Line (Несколько строк) False мєніне ие болса бір
PasswordChar текстік өрісте пайда болатын символды көрсетеді, егер бұл
MaskedEdit - ќосымша басќарушы элементін µолдануѓа болады. Ол стандартты
SorollBars (Линейки прокрутки) 0- мєнін ќабылдайды (текстік терезеде сызѓыш
ActiveX – технологиясы Internet кµмегімен ќосымшалар жазуѓа м‰мкіндік береді.

Visual Basic Windows API – пен байланысып кез келген
Бітіру жұмысының нәтижесінде дайындалған негізгі программалық жабдықтардың бірі, ол
Программаның жұмыс істеу барысындағы экрандық бейнесі 18-суретте көрсетілген.

Жұмыс істеу алаңындағы негізгі кнопкалардың атқаратын қызметттері:

«график по формуле» - формулалар алаңындағы формулаға сәйкес график
«посылат на поле формулы» - жазылған формуланы формулалар алаңына
«очистка поля записей»- формула жазу алаңын тазартады;

«стереть» - формула жазу алаңындағы соңғы жазылған символды өшіреді;

«пробел» - формула жазу алаңында бос орын қалдырады;

«очистка графического поля» - график салу аймығын тазартады;

«выход» - жұмысты аяқтап, программадан шығу.

18-сурет

Программаның жазбасы А-қосымшада берілген. Қорытынды

Оқыту процесінде компьютерді қолдану оқушылардың білімді меңгеру дәрежелерін жоғары
Сабақ өткізу барысында дайын график құрушы программалрды да пайдалануға
Эксперимент нәтижесінде сабақты компьютерді қолданып оқыту оқушыларды қызықтырып қана
Оқыту процесіндегі компьютерді қолданудың мақсаттары, оның оқушы біліміне әсері,
Оқу процесінде компьютерлік техниканы қолдану оқушыларды саралап оқытудың
Арнаулы құрылған оқыту-үйрету программалары оқушылардың сыныптан тыс өз беттерімен
Ќолданылѓан єдебиеттер

1. “Информатика базовый курс” - Симонович С.В,
2. “Практикум по информатике” - А.В.Могилев, Н.И.Пак, Е.К.Хеннер, Москва
3. “ Visual BASIC” -Маркус Линке, Москва 1998г

4. “ Освой самостоятельно Visual BASIC 6” -
5. “ Visual BASIC Сравочник с примерами” -В.И.Король, Москва
6. “Информатика. Задачник практикум” (том 1,2) - Л.Залогова, М.Южаков
А-қосымша

Option Explicit

Dim tcount As Integer

Dim Primitives As New Collection

Private Enum DrawingState

state_None
state_Rectangle

End Enum

Private m_Drawing As Boolean

Private m_FirstX As Single

Private m_FirstY As Single

Private m_LastX As Single

Private m_LastY As Single

Private m_DrawingObjects As Collection

Private m_SelectedObject As Object

Private Sub Axis(xmax As Single, xmin As Single, ymax
picGraph.Scale (xmin, ymax)-(xmax, ymin)

picGraph.Line (xmin, 0)-(xmax, 0)

picGraph.Line (0, ymin)-(0, ymax)

End Sub

Private Sub GetXValues(xmax As Single, xmin As Single, xscl
xmax = Val(txtXMax.Text)

xmin = Val(txtXMin.Text)

If xmax MsgBox "Your Maximum X value is less than your
End If

xscl = Val(txtXScl.Text)

End Sub

Private Sub GetYValues(ymax As Single, ymin As Single, yscl
ymax = Val(txtYMax.Text)

ymin = Val(txtYMin.Text)

If ymax MsgBox "Your Maximum Y value is less than your
End If

yscl = Val(txtYScl.Text)

End Sub

Private Sub GraphIt(xmax As Single, xmin As Single)

Dim X As Single, expr As String, rslt As
Dim name As String, secvalue As Single, rslt2 As
For a = 1 To tcount

expr = txtFormula(a - 1).Text

For X = xmin To xmax Step 0.01

frmGraphIt.MousePointer = 11

Set Primitives = New Collection

name = "x"

value = X

Primitives.Add value, name

On Error GoTo EvaluateError

rslt = EvaluateExpr(expr)

secvalue = X + 0.01

Set Primitives = New Collection

name = "x"

value = secvalue

Primitives.Add value, name

rslt2 = EvaluateExpr(expr)

picGraph.Line (X, rslt)-(secvalue, rslt2)

Next X

Next a

frmGraphIt.MousePointer = 0

Exit Sub

EvaluateError:

MsgBox Err.Description

txtPreFormula.Text = txtFormula(a - 1).Text

txtFormula(a - 1).Text = ""

If (tcount - 1) = (a) Then

Call cmdRemove_Click

End If

frmGraphIt.MousePointer = 0

End Sub

Private Function EvaluateExpr(ByVal expr As String) As Single

Const PREC_NONE = 11

Const PREC_POWER = 9

Const PREC_TIMES = 8

Const PREC_INT_DIV = 6

Const PREC_MOD = 5

Const PREC_PLUS = 4

Dim is_unary As Boolean, next_unary As Boolean, parens As
Dim expr_len As Integer, ch As String, lexpr As
Dim status As Long, best_pos As Integer, best_prec As
expr = Trim(expr)

expr_len = Len(expr)

If expr_len = 0 Then Exit Function

is_unary = True

best_prec = PREC_NONE

For pos = 1 To expr_len

ch = Mid(expr, pos, 1)

next_unary = False

If ch = " " Then

next_unary = is_unary

ElseIf ch = "(" Then

parens = parens + 1

next_unary = True

ElseIf ch = ")" Then

parens = parens - 1

next_unary = True

If parens Err.Raise vbObjectError + 1001, "EvaluateExpr", "Too many )s in
End If

ElseIf parens = 0 Then

If ch = "^" Or ch = "*" Or
ch = "-" Then

next_unary = True

Select Case ch

Case "^"

If best_prec >= PREC_POWER Then

best_prec = PREC_POWER

best_pos = pos

End If

Case "*", "/"

If best_prec >= PREC_TIMES Then

best_prec = PREC_TIMES

best_pos = pos

End If

Case ""

If best_prec >= PREC_INT_DIV Then

best_prec = PREC_INT_DIV

best_pos = pos

End If

Case "%"

If best_prec >= PREC_MOD Then

best_prec = PREC_MOD

best_pos = pos

End If

Case "+", "-"

If (Not is_unary) And best_prec >= PREC_PLUS Then

best_prec = PREC_PLUS

best_pos = pos

End If

End Select

End If

End If

is_unary = next_unary

Next pos

If parens 0 Then

Err.Raise vbObjectError + 1002, "EvaluateExpr", "Missing ) in '"
End If

If best_prec lexpr = Left(expr, best_pos - 1)

rexpr = Right(expr, expr_len - best_pos)

Select Case Mid$(expr, best_pos, 1)

Case "^"

EvaluateExpr = EvaluateExpr(lexpr) ^ EvaluateExpr(rexpr)

Case "*"

EvaluateExpr = EvaluateExpr(lexpr) * EvaluateExpr(rexpr)

Case "/"

EvaluateExpr = EvaluateExpr(lexpr) / EvaluateExpr(rexpr)

Case ""

EvaluateExpr = EvaluateExpr(lexpr) EvaluateExpr(rexpr)

Case "%"

EvaluateExpr = EvaluateExpr(lexpr) Mod EvaluateExpr(rexpr)

Case "+"

EvaluateExpr = EvaluateExpr(lexpr) + EvaluateExpr(rexpr)

Case "-"

EvaluateExpr = EvaluateExpr(lexpr) - EvaluateExpr(rexpr)

End Select

Exit Function

End If

If Left$(expr, 1) = "(" And Right$(expr, 1) =
EvaluateExpr = EvaluateExpr(Mid$(expr, 2, expr_len - 2))

Exit Function

End If

If Left$(expr, 1) = "-" Then

EvaluateExpr = -EvaluateExpr(Right$(expr, expr_len - 1))

Exit Function

End If

If Left$(expr, 1) = "+" Then

EvaluateExpr = EvaluateExpr(Right$(expr, expr_len - 1))

Exit Function

End If

If expr_len > 5 And Right$(expr, 1) = ")"
lexpr = LCase$(Left$(expr, 4))

rexpr = Mid$(expr, 5, expr_len - 5)

Select Case lexpr

Case "sin("

EvaluateExpr = Sin(EvaluateExpr(rexpr))

Exit Function

Case "cos("

EvaluateExpr = Cos(EvaluateExpr(rexpr))

Exit Function

Case "tan("

EvaluateExpr = Tan(EvaluateExpr(rexpr))

Exit Function

Case "sqr("

EvaluateExpr = Sqr(EvaluateExpr(rexpr))

Exit Function

End Select

End If

On Error Resume Next

value = Primitives.Item(expr)

status = Err.Number

On Error GoTo 0

If status = 0 Then

EvaluateExpr = CSng(value)

Exit Function

End If

On Error Resume Next

EvaluateExpr = CSng(expr)

status = Err.Number

On Error GoTo 0

If status 0 Then

frmGraphIt.MousePointer = 0

Err.Raise status, "EvaluateExpr", "Error evaluating '" & expr &
End If

End Function

Private Sub cmdClearGraph_Click()

picGraph.Cls

picWho.Visible = False

txtEmail.Visible = False

End Sub

Private Sub cmdClearValues_Click()

txtXMax.Text = 10

txtXMin.Text = -10

txtXScl.Text = 1

txtYMax.Text = 10

txtYMin.Text = -10

txtYScl.Text = 1

picGraph.Cls

End Sub

Private Sub cmdEnd_Click()

End

End Sub

Private Sub cmdFormula_Click()

Dim stepYNegative As Single, stepYPositive As Single

Dim xmax As Single, xmin As Single, xscl As
Dim ymax As Single, ymin As Single, yscl As
Dim xn As Single, xp As Single, yp As
picWho.Visible = False

txtEmail.Visible = False

picGraph.Cls

Call GetXValues(xmax, xmin, xscl)

Call GetYValues(ymax, ymin, yscl)

Call Axis(xmax, xmin, ymax, ymin)

Call StepXValues(stepXPositive, stepXNegative, ymax, ymin)

Call xScls(xmax, xmin, xscl, stepXPositive, stepXNegative)

Call stepYValues(stepYPositive, stepYNegative, xmax, xmin)

Call yScls(ymax, ymin, yscl, stepYPositive, stepYNegative)

Call GraphIt(xmax, xmin)

End Sub

Private Sub xScls(xmax As Single, xmin As Single, xscl
Dim xposition As Single

xposition = xposition + xscl

Do

picGraph.Line (xposition, stepXPositive)-(xposition, stepXNegative)

xposition = xposition + xscl

Loop Until xposition >= xmax

xposition = xposition - xscl

Do

picGraph.Line (xposition, stepXPositive)-(xposition, stepXNegative)

xposition = xposition - xscl

Loop Until xposition End Sub

Private Sub yScls(ymax As Single, ymin As Single, yscl
stepYPositive As Single, stepYNegative As Single)

Dim yposition As Single

yposition = yposition + yscl

Do

picGraph.Line (stepYPositive, yposition)-(stepYNegative, yposition)

yposition = yposition + yscl

Loop Until yposition >= ymax

yposition = yposition - yscl

Do

picGraph.Line (stepYPositive, yposition)-(stepYNegative, yposition)

yposition = yposition - yscl

Loop Until yposition End Sub

Private Sub StepXValues(stepXPositive As Single, stepXNegative As Single, _
Dim a As Single, b As Single

stepXPositive = 0

For a = 0 To ymax Step 2

stepXPositive = stepXPositive + 0.03

Next a

stepXNegative = 0

For b = 0 To Abs(ymin)

stepXNegative = stepXNegative + 0.03

Next b

stepXNegative = -(stepXNegative)

End Sub

Private Sub stepYValues(stepYPositive As Single, stepYNegative As Single, _xmax
Dim c As Single, d As Single

stepYPositive = 0

For c = 0 To xmax Step 2

stepYPositive = stepYPositive + 0.03

Next c

stepYNegative = 0

For d = 0 To Abs(xmin)

stepYNegative = stepYNegative + 0.03

Next d

stepYNegative = -(stepYNegative)

End Sub

Private Sub cmdReFocus_Click()

Dim newx As Single, newy As Single

newx = Val(txtXREPoint.Text)

newy = Val(txtYREPoint.Text)

xmax = newx + txtXMax.Text

xmin = newx + txtXMin.Text

ymax = newy + txtYMax.Text

ymin = newy + txtYMin.Text

txtXMax.Text = xmax

txtXMin.Text = xmin

txtYMax.Text = ymax

txtYMin.Text = ymin

picGraph.Cls

Call cmdFormula_Click

End Sub

Private Sub cmdRemoveRefocus_Click()

picRefocus.Visible = False

End Sub

Private Sub cmdRemoveZI_Click()

picZoomIn.Visible = False

End Sub

Private Sub cmdRemoveZO_Click()

picZoomOut.Visible = False

End Sub

Private Sub cmdZoomIn_Click()

Dim newx As Single, newy As Single

Const zoom_var = 0.25

newx = Val(txtXZIPoint.Text)

newy = Val(txtYZIPoint.Text)

xmax = (zoom_var * txtXMax.Text) + newx

xmin = (zoom_var * txtXMin.Text) + newx

ymax = (zoom_var * txtYMax.Text) + newy

ymin = (zoom_var * txtYMin.Text) + newy

txtXMax.Text = xmax

txtXMin.Text = xmin

txtYMax.Text = ymax

txtYMin.Text = ymin

picGraph.Cls

Call cmdFormula_Click

End Sub

Private Sub cmdZoomOut_Click()

Dim newx As Single, newy As Single

Const zoom_var = 4

newx = Val(txtXZOPoint.Text)

newy = Val(txtYZOPoint.Text)

xmax = (zoom_var * txtXMax.Text) + newx

xmin = (zoom_var * txtXMin.Text) + newx

ymax = (zoom_var * txtYMax.Text) + newy

ymin = (zoom_var * txtYMin.Text) + newy

txtXMax.Text = xmax

txtXMin.Text = xmin

txtYMax.Text = ymax

txtYMin.Text = ymin

picGraph.Cls

Call cmdFormula_Click

End Sub

Private Sub imgWho_Click()

picGraph.Cls

picWho.BackColor = RGB(255, 255, 255)

picWho.Visible = True

picWho.Cls

picWho.Print "Программаны курган Шакарим атындагы Семей"

picWho.Print "мемлекеттік университетінін студенті."

picWho.Print

picWho.Print "Касымбаева Меруерт"

txtEmail.Font.Underline = True

txtEmail.ForeColor = vbBlue

txtEmail.Text = "Семей каласы, 2004 жыл"

txtEmail.Visible = True

End Sub

Private Sub mnuCancel_Click()

m_State = state_None

picGraph.MousePointer = vbNormal

End Sub

Private Sub mnuClose_Click()

End

End Sub

Private Sub mnuEdit_Click()

m_State = state_Rectangle

picGraph.MousePointer = vbCrosshair

End Sub

Private Sub mnuReFocus_Click()

lblPoint(0).BackColor = RGB(125, 125, 125)

lblComma(0).BackColor = RGB(125, 125, 125)

lblXPoint(0).BackColor = RGB(125, 125, 125)

lblYPoint(0).BackColor = RGB(125, 125, 125)

picRefocus.Visible = True

End Sub

Private Sub mnuZoomIn_Click()

lblPoint(1).BackColor = RGB(125, 125, 125)

lblComma(1).BackColor = RGB(125, 125, 125)

lblXPoint(1).BackColor = RGB(125, 125, 125)

lblYPoint(1).BackColor = RGB(125, 125, 125)

picZoomIn.Visible = True

End Sub

Private Sub mnuZoomOut_Click()

lblPoint(2).BackColor = RGB(125, 125, 125)

lblComma(2).BackColor = RGB(125, 125, 125)

lblXPoint(2).BackColor = RGB(125, 125, 125)

lblYPoint(2).BackColor = RGB(125, 125, 125)

picZoomOut.Visible = True

End Sub

Private Sub picGraph_MouseDown(Button As Integer, Shift As Integer, X
' See what we are doing.

Select Case m_State

Case Else

' If this is the left button, start drawing
' Set drawing parameters for drawing the new object.

With picGraph

.DrawMode = vbInvert

.FillStyle = vbFSTransparent

.DrawWidth = 1

End With

m_Drawing = True

m_FirstX = X

m_FirstY = Y

m_LastX = X

m_LastY = Y

End Select

End Sub

Private Sub Form_Load()

picRefocus.BackColor = RGB(125, 125, 125)

picZoomIn.BackColor = RGB(125, 125, 125)

picZoomOut.BackColor = RGB(125, 125, 125)

picGraphIt.BackColor = RGB(125, 125, 125)

frmGraphIt.BackColor = RGB(125, 125, 125)

lblXMax.BackColor = RGB(125, 125, 125)

lblXMin.BackColor = RGB(125, 125, 125)

lblXScl.BackColor = RGB(125, 125, 125)

lblYMax.BackColor = RGB(125, 125, 125)

lblYMin.BackColor = RGB(125, 125, 125)

lblYScl.BackColor = RGB(125, 125, 125)

frmGraphIt.Top = 0

frmGraphIt.Left = 100

tcount = 1

End Sub

Private Sub picGraphIt_Click()

End Sub

Private Sub txtXMax_GotFocus()

txtXMax.Text = ""

End Sub

Private Sub txtXMin_GotFocus()

txtXMin.Text = ""

End Sub

Private Sub txtXScl_GotFocus()

txtXScl.Text = ""

End Sub

Private Sub txtYMax_GotFocus()

txtYMax.Text = ""

End Sub

Private Sub txtYMin_GotFocus()

txtYMin.Text = ""

End Sub

Private Sub txtYScl_GotFocus()

txtYScl.Text = ""

End Sub

Private Sub cmdRemove_Click()

If tcount > 1 Then