ПоәК 042-14 07 20. 130/03-2012 03. 09. 2012ж. №1 басылым



жүктеу 4,7 Mb.
бет15/20
Дата24.12.2017
өлшемі4,7 Mb.
#5719
1   ...   12   13   14   15   16   17   18   19   20

Коды:

Private Sub Command1_Click()

CD1.ShowOpen’файлдарды ашу терезесін шақырамыз

MM.FileName=CD1.FileName ‘Тандалаған файлды ашамыз

MM.Comand=”open” ‘ Іске қосамыз

MM.hWndDisplay=Picturel.hWnd

End Sub

14- дәріс. Графиктер мен дыбысты бағдарламалау (1 сағат)

Негізгі мақсаты: Visual Basic ортасындағы графиктер және дыбысты бағдарламалау үшін Windows API функцияларын пайдалану және олардың тағайфндалуын Студенттерге таныстыру.

Білім мен білікке қойылатын талаптар: Студенттер Windows API функцияларының тағайындалуын білуі, көрсетілген функцияларды бағдарламада қодана білуді; Windows API функциясын пайдаланып бағдарлама құра білу қажет.

Visual Basic қолданбасын құру барысында кейбір әркеттерді Visual Basic чтандарты құралдармен орындау туындайды. Бұл жерде Windows API функциясының көмегі зор (оқулықтағы 2.8 тақырыпты қара).

Visual Basic 6.0. графикалық басқару элементтеріне толықтырулар графикалық әдістер жиыны арқылы орындалады:


Тәсіл

Арнаулар

Circle

Шеңбер, эллипс немесе доғаның сурет салады

Cls

Шығару аймағын тазалайды

Line

Сызықтарды сызады

Paint Picture

Кескіндерді салады (жүйелейді)

Point

Нүкенің түсін қайтарады

Print

Мәтін шығарады

Pset

Нүктені орналастырады

Print тәсілі мәтінді шығаруға арналған графикаға жанама түрде қатысты. Бірақ та біз оны қаншалықты ол графиканың «сурет салу» берілген объектіге мәтінді немесе мәтінді сандық графикамен араластырғанда басқа әдісерімен бірге қарастырамыз.

Графикалық әдістерде түстерді есептеу функциялары RGB және QBColor падаланылады. Алдымен осы функцияларды қарастырайық.

Circle тәсілі келесі түрде қолданфылады: objest.Circle[Step][x,y],radius, [Color,sart,end,aspect], мұндағы:



  • Objest- әдіс қолданылатын объект. Егер объект көрсетілмесе, онда, алғашқы келісім бойынша пішін пайдаланылады;

  • Step- шеңбердің элипстік немес доғаның центрлерін координаттарға байланысты анықтайтын, current x; және current у объектерінің қасиетін қайтаратын кілт болып табылады.

  • x,y – Scalemode объектісі қасиетінде шеңбер, элипс, доғалардың ортасының координаттарын бірлікпен анықтайтын сандар;

  • radius- Scalemode объектісі қасиетіне шеңбер, эллипс, доғаларының ортасының радиусын бірлікпен анықтайтын сандар;

  • Color- сызық түсін беретін Land типінің мәні. Гер параметр көрсетілмесе, Fore Color қасиетінің мәнгі қолданылады. Түс тағайындау үшін RGB () немесе QB Color функцияларын қолдануға болады.

  • sart,end- доғаның немесе элипстің бөлігін салу барысында доғаның бастапқы бөлігі мен соңғы бөлігін радианмен береді; 2пи- ден бастап 2-пи радианға дейін.

  • Aspect- шеңбердің «эллипстік» коэфициентін тағайындайды. Алғашқы келісім бойынша бұл коэфициенті шеңберге сәйкес. 1.0- ге тең.

Cls тәсілі көмегімен форманы немесе Picture объектісін бағдарламалық жолмен құрылған мәтіннің және графиктен тазартуға болады. Cls тәсілінің синтаксисі өте қарапайым және мына түрде беріледі: Object.Cls, мұндағы Object- әдіс қолданылатын объект. Егер параметр көрсетілмесе, онда алғашқы келісім бойыфнша пішін қолданылады.

Бұл әдісті currentx және currenty қасиеттеріне қолданған кезде тандалған объектке 0- ге тағайындалатын ескерген жөн.



  • Line-әдісі сызықта салуға арналаған және оның синтаксисі келесі түрде болып келеді, Object. Line. [Step][x1,y1] [Step]-[x2,y2] Color,[B][F], бұл жердегі:

  • Object- әдіс қолданылатын объект. Егер объект көрсетілмесе, онда алғашқы келісім бойынша пішін қолданылады;

  • Step- currentx және current объектілері қасиеттерімен қайтарылатын сызық басы координатасының арасындағы байланысты анықтайтын кіліт.

  • x1,y1, сызықтар басының коордианталары. Бұл параметрлер болмаған жағдайда басы currentx және currenty- дің объекті қасиеттерінің мәніне жалғанды.

  • Step- сызық басы координатасының арасындағы байланысты анықтайтын кілт, сызық сонының координаталары сызық басының координааталарына салыстырмалы түрде беріледі.

  • x1,y1, сызықтар басының координаталары.

  • Color- RGB палитрасында сызықтардың түсін береді. Егер параметр көрсетілмесе, онда Fore Color объектісінің қасиеті пайдаланылады.

  • [B]- тік төртбұрыштың суретін салуды білдіреді, сонымен координатасы қатар сол жақ жоғарғы және оң жақ төменгі бұрыштарының координаталары арқылы анықталады.

  • F- тік төрбұрышты оның сызығының түсімен толтырылады;

Pset әдісі объектінің белгілеген нүктесінің түсін тағайындайды. Бұл Point әдісіне керісінше әдіс. Бұл әдістің синтаксисі келесі түрде болып келеді: Object. Pset. [Step](х,у), [Color], мұндағы;

  • Object- әдіс қолданылатын объект. Егер объект көрсетілмесе, онда алғашқы келісім бойынша пішін қолданылады;

  • Step- currentx және currenty объектілері қасиеттерімен қайтарылатын нүкте координаттарының байланысын анықтайтын кіліт.

  • x,y, объектідегі нүкте координаталары.

  • Color- RGB палитрасында нүктенің түсін береді. Егер параметр көрсетілмесе, онда Forecoior объектісінің қасиеті пайдаланылады.

Pset әдісін қолдану барысында нүкте мөлшері объектісінің қалындығымен анықталатының ескеру қажет, яғни Draro Width объектісінң қасиеттері арқылы. 1 қалындығы үшін- бұл бір пиксель, бірден артық қалындықтарға- бұл объектінің көрсетілген координаттардан тұратын центрінің аймағы. Осыдан барып нүктені салу әдісі DrawMode және DrawStyle объектілерінің қасиеттерімен анықталады.

  1. мысал. Пішінде салынған келесі суреттің бағдараламасын құрындар.

Dim XP, YP

Private Declare Function Flood Fill Lib”gdi32”

(By Val hdc As Long, By Val X as Long,

By Val crColor As Long) As Long

Private Sub Frm_Activate ()

‘шеңбер салып оны бояумен толтырыныз’

YP=200

Fill Style=0



Fill Color=QBColor (12)

Circle (XP, YP), 50, QBColor

Flood Fill hds, XP, YP, QBColor(0)

‘тік төртбұрыш салып оны бояумен толтырыныз’

XP=120

YP=200


Fill Stile=0

Fill Color=QBColor(10)

Line (XP, YP)-(XP+100, YP+50), QBColor (9), B

Flood Fill hds, XP, YP, QBColor (9)

‘үшбұрыш салып оны бояумен толтырыныз’

XP=100


YP=250

Fill Stile=0

Fill Color=QBColor(14)

Line (XP, YP/2)-(XP*2, YP/2), QBColor(3)

Line (XP*2, YP/2)-(XP502, YP), QBColor(3)

Line (XP+50, YP)-(XP, YP/2), QBColor(3)

‘сурет салудың нүктесін жасанды түрде араластырамыз’

PSet (XP+50, YP-50, Y-55, QBColor(3)

Flood Fill hds, XP+50, YP55, QBColor(0)

End Sub


Private Sub Form Load ()

Form1.ScaleMode=3

Form1.AutoRedraw=True

Form1.Height=4800

Form1.Width=4800

End Sub





  1. мысал. Гарфикалық тәсілді пайдаланып «Сызықтардың әсерлері» деген бағдарлама құрамыз.

Пішінге мына объектілерді орналастырындар: Caption- Start, Timer объектісін Interval- 1,Enabled- False.

Dim b, a, c As Long

Private Sub Command1_Click ()

Form1.Cls

Form Load

Timer1.Enabled=True

End Sub

Private Sub Command1_Click ()



End

End Sub


Private Sub Form Load ()

b=0


a=Form1.ScaleWidth

c= Form1.Scale Height

End Sub

Private Sub Timer1_Timer ()



b=b+100

a=a-100


Line (0, b)-(b, Form1. Scale Height), QBColor (14)

Line (Form1. Scale Width, a)-(a, 0), QBColor (12)

Line (b, Form1. Scale Width), QBColor (11)

Line (b, Form1. Scale Height)-(Form1. Scale Width, a), QBColor (15)

End Sub


  1. мысал. Графикалық тәсілді пайдаланып, «Шеңбердің әсерлері» бағдарламасын құрындар.

Caption қасиетінде: біріншісіне- 1 әсер, екіншісіне- 2 әсер, үшіншісіне- 3 әсер. Пішін үшін Caption қасиетіне- Шеңбердің әсері.

Dim A, b, c, ANGLE As Long

Private Sub Command1_Click ()

For c=1 To 10

For c=1 To 200 Step 5

For c=1 To 360 Step 20

ANGLE=A*3.141592654/180

Circle (b*Sin (ANGLE) +300, b*Cos (ANGLE) +225), b

Next A

If c=10 Then Fore Color=QbColor (0)



Fore Color= Int (Rnd*QbColor (15))

If c= 9 Then Fore Color= QbColor (2)

Next b

Next c


Fore Color= QbColor (15)

End Sub


Private Sub Command2_Click ()

Cls


C=Int (Rnd*6) +1

Circle (320, 40+rot), rot, QbColor (11)

Circle (320, 440-rot), rot, QbColor (10)

Circle (120+rot, 240), rot, QbColor (13)

Circle (520-rot, 240), rot, QbColor (14)

Circle (320-(20000^0.5) + (0.5^.05)*(rot), 240+(20000^0.5)-(0.5^0.5)*(rot)), rot, QbColor (11)

Circle (320) + (20000^0.5) - (0.5^0.5)*(rot), 240 + (20000^0.5) - (0.5^0.5)*(rot)), rot, c+6

Circle (320-(20000^0.5) + (0.5^0.5)*(rot), 240-(20000^0.5) + (0.5^0.5)*(rot)), rot, c+7

Circle (320+ (2000^0.5)-(0.5^0.5)*(rot), 240-(2000^0.5) + (0.5^0.5)*(rot)), rot, c+8

Line (rot, 0) - (rot, 480), 0

Line (640, rot, 0) - (640-rot, 480), 0

Line (0, rot) - (640, rot), 0

Line (0, 480- rot) - (640, 480, rot), 0

Next rot


End sub
15- дәріс. Мультимедиялық бағдарламаларды өндеу технологиясы. Бағдарламалар құру (1 сағат).

Негізгі мақсаты: Студенттердің Visual Basic бағдарламалау ортасының негізі бойынша алған білімьерін жүйелеу және бекіту. Мультимедиалық бағдарламаларды құрудың кезендері мен технологиясымен таныстыру.

Білім мен білікке қойлатын талаптар: Студенттер Visual Basic ортасында қоданбаларды жобалаудың негізгі кезендерін білу керек. Visual Basic ортасында негізгі компоненттерді пайдаланып қарапайым қолданбаларды жобалай білу керек.

Мультимедиялық бағдарламалдарды өндеу технологиясы. Бағдарламалар құру.

Электрондық басылымдар- бұл графикалық, мәтіндік, сандық, сөйлеу, әуендік, бейне және басқа ақпараттар, сонымен қатар қолданушының басылған құжаттарының жиыны. Электрондық басылымдар кез- келегн электрондық тасымалдаушыда (магниттік лента, диск), оптикалық қолданылуы мүмкін, сонымен қатар электрондық компьютерлік желілерде де көреді.

Мультимедиалық бағдарламаларды өндеу барысында оның қандай болуы керек екенің ескеру қажет.


  • Эргономиялық, яғни қолданушының қолдануы жіне менгеру үшін қарапайым болу қажет.

  • Оқыту барысында қолдану үшін әмбебаптағы, бұл әр компьютерлік оқыту бағдарламысн тек автордың өзі ғана қолданбай әрбір мұғалім қолданатындайц болуы керек.

  • Жеке және өзіндік жұмыстарын ұсынатын оқытуда жеке- бағдарланған бағытта болу керек;

Мультимедиялық бағдарламалардың өңделуінің деңгейлерін, жалпы сапа көрсеткішін тізіп шығарайық:



  • өту, сілтемелер т.с.с. барлық қарастырылған компоненттері орындалады;

  • бағдарламады іске қосу операциялық ортаның немесе орындалады;

Дидактикалық көрсеткіштері:

  • Студенттердің жеке бағдарламаны баптау мүмкіндіктері;

  • Студенттердің өздік жұмысы құралдарының мүмкін болуы;

  • бағдарлама компоненттерінің интерактивті әсерлерінің қолданушыға әсерінің шапшаңдығы мен адекваттылығы;

  • бағдарлама бөлімдері бойынша ауысудың (навегациялауының) қарапайымдылығы;

Эргонимикалық көрсеткіштері:

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

  • Бір-бірімен мағынасы бойынша байланысқан бірнеше қосылатын модульдероден тұратын бағдарламалар, экранға сиятын қолданушының белгішемен жұмысының әректін іске асыратын әр компоненттін жұмысына қосылатын ортақ бағдарламалық топ ретінде рәсімделуі қажет.

Мультимедиялық бағдараламаларды өңдеу технологиясын бастауыш мектептің математикалық пәнін оқытудың «5 санының құрамы» тақырыбын оқыту үшін құрылған бағдарлама мысалын көреміз.

1-қадам. Есептің қойылуы.

1-сынып Студенттеры үшін математика пәнінен «5 санының құрамы» бағдарламасын өңдеу қажет. Бағдарлама Студенттердің 5 санының құрамымен таныстыратындай болуы, сонымен қатар білімін тексеріп, 1 мен 5 аралығындағы сандарды қосуды және азайтуды орындай білуі қажет.

2-қадам. Визуалді жобалау.

3-қадам. Код бойынша бағдарламалау.

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



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

Ол үшін жоба терезесінде Project → Add Module командасын орындандар. Пайда болған терезеде келесі әрекетерді көрсетіндер:
Public k As Integer

Public n As Integer

Public m As Integer

Public c As Integer



Public b As Integer


  1. 1-пішін. Пішіннің Picture қасиетінде сурет файылына жол көрсетеміз. Пішінде батырманы орналастырамыз, Picture қасиетінде сурет файылына жол көрсетіледі, Style қасиетінде – Graphical көрсетіледі. Пішін және батырмалар үшін қажетті қасиеттерді пішінді жүктеу барысында бағдарламалық жолмен өзгертеміз. Пішіннің түрі суретте ұсынылған.



Бірінші пішіннің коды:

Private Sub Command1_ Click ()

Form1.Hide

Form2.Show

End Sub
Private Sub Form Load ()

Form2.Hide

Form3.Hide

Form4.Hide

Form5.Hide

Form1.Left=10

Form1.Top=10

Form1.Height=Screen. Height

Form1.Width=Screen. Width

Form1.Caption=’5 саны’

x= Form1.Height

y= Form1.Width

Command1. Left=x-50

Command1.Top=y-4500



End Sub


  1. жүктеу 4,7 Mb.

    Достарыңызбен бөлісу:
1   ...   12   13   14   15   16   17   18   19   20




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

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау