InfoHub Logo

Visual Basic باعدارلامالاۋ ءتىلىن باستاۋىش سىنىپتا قولدانۋ جولدارى
قازاقستان رەسپۋبليكاسى 2010 جىلعا دەيىنگى ءبىلىم بەرۋدى دامىتۋدىڭ مەملەكەتتىك باعدارلاماسىندا «ورتا ءبىلىم بەرۋدىڭ ماقساتى - قارقىندى وتكىزىلىپ وتىرعان دۇنيە جاعدايىندا يگەرىلگەن تەرەڭ ءبىلىمنىڭ، كاسىبي داعدىلاردىڭ نەگىزىندە ەركىن باعدارلاما الۋعا، ءوزىنىڭ ىس-ارەكەتتەرىن جۇمىلدىرۋعا، ءوزىن-وزى دامىتۋعا جانە ءوز بەتىنشە دۇرىس، ادامگەرشىلىك تۇرعىسىنان جاۋاپتى شەشىم قابىلداۋعا قابىلەتتى جەكە تۇلعانى قالىپتاستىرۋ ەكەندىگى اتاپ كورسەتىلگەن. بۇدان وقىتۋدىڭ مازمۇنى مەن قۇرالدارىنا، ادىس-تاسىلدەرىنە ۇيىمداستىرۋ فورماسىنا وزگەرىستەر ەنگىزۋ قاجەتتىلىگى تۋىندايدى.
جاڭا تەحنولوگيالار پەداگوگتىڭ مۇمكىندىگىن كۇشەيتەتىن قۇرال. كومپيۋتەردى ءمۇعالىم قوسىمشا ماتەريالدار، ءتۇرلى انىقتامالىق مالىمەتتەردەن اقپاراتتار بەرۋ ءۇشىن كورنەكى قۇرال رەتىندە پايدالانا الادى. قاجەتتى اقپاراتتاردى جيناقتاۋدا ەلەكتروندى تەحنيكالاردى ەنگىزۋ ۋاقىتتى ۇنەمدەيدى.
قازىرگى ۋاقىتتا ەلەكتروندى وقۋلىقتاردى پايدالانا وتىرىپ، وقىتۋدىڭ وڭ ناتيجە بەرەتىندىگىن الىس شەتەل عالىمدارى ءوز ەڭبەكتەرىندە دالەلدەپ كورسەتۋدە. بۇگىنگى كۇندە وقىتۋدى ەلەكتروندى وقۋلىقتاردىڭ كومەگىمەن ۇيىمداستىرۋ وقۋشىنىڭ بىلىمدەرىن جەتىلدىرۋگە، ساباققا قىزىعۋشىلىقتارىن ارتتىرۋعا مۇمكىندىك بەرىپ وتىر. جاراتىلىستانۋ-ماتەماتيكا باعىتىنداعى 10 سىنىپتىڭ وقۋ باعدار-لاماسىنداعى ماڭىزدى تاراۋدىڭ ءبىرى-Visual Basic پروگرامماسىنىڭ جۇيەسى. باعدارلامانى مەڭگەرتۋگە جيىرما ساعات بولىنگەن. بۇل ۋاقىتتا باعدارلاماعا جالپى تەوريالىق تۇرعىدا توقتالا الامىز. ءبىراق وقۋشىلارمەن قوسىمشا جۇمىس بارىسىندا تولىق يگەرىپ جاقسى جۇمىستار جاساۋعا بولادى.

Visual Basic باعدارلاماسىنىڭ باستاۋىش سىنىپتا پراكتيكالىق تۇرعىدا ديداكتيكالىق ماتەريالداردى جاساۋ ەرەكشەلىگى جوعارى. ديدياكتيكالىق ماتەريالداردى دايىنداۋدا مىناداي توپتارعا ءبولدىم:
- ءمۇعالىم ءۇشىن ادىستەمەلىك ماتەريالدار؛
- وقۋشىلاردىڭ وزىندىك جۇمىستارى ءۇشىن ديداكتيكالىق ماتەريالدار؛
- ءوزىن-وزى تەكسەرۋ ماتەريالدارى؛
- انىقتامالىق ماتەريالدارى، ت. ب. جاتادى.

وسى ديداكتيكالىق ماتەريالداردى جاساۋ ءۇشىن Visual Basic باعدارلاماسىن پايدالانۋدى تومەندەگى سىزبا ارقىلى كورۋگە بولادى.
Visual Basic باعدارلاماسىن باستاۋىش سىنىپتا قولدانۋ جولدارى: ەلەكتروندى كوبەيتۋ كەستەسى؛ گرامماتيكالىق جاتتىعۋلار؛ تانىمدىق تاپسىرمالار؛ تەست
باستاۋىش سىنىپتىڭ ءبىلىم الۋشىلارى ءۇشىن وسى باعدارلامامەن جاسالعان كەيبىر جۇمىستارعا توقتالىپ كەتەيىن.

2-سىنىپتىڭ قازاق ءتىلى وقۋلىعىنداعى تىلدىك گرامماتيكالىق جاتتىعۋلارىن (1، 2-سۋرەت) جانە تانىمدىق جاتتىعۋلارعا بەرىلگەن ءسوز جۇمباقتاردى (3-سۋرەت)، رەبۋس(4-سۋرەت)، جۇمباق(5-سۋرەت) Visual Basic ورتاسىندا ۇسىنۋعا بولادى. بۇل باعدارلامامەن جاسالعان جۇمىستا وقۋشى ورىنداعان تاپسىرماسىنىڭ دۇرىس، نە دۇرىس ەمەستىگىن ءدال ۋاقىتىندا ءبىلىپ، قايتادان ەنگىزۋگە مۇمكىندىك الادى.

جۇمىس بارىسىندا قاتە جاۋاپ بولعاندا ەنگىزگەن ءارپىنىڭ قىزىل، ال دۇرىس بولسا كوك تۇستە بويالاتىنىن “جىلجىمالى جولاقتا” جازىپ كورسەتكەن. بۇل ارەكەتتەر تومەندەگى پروسەدۋرامەن جازىلعان. 1، 2، 4-سۋرەتتەر ءۇشىن:
Private Sub Text1_Change()
If Text1. Text = "س" Or n = “c” Then Text1. ForeColor = vbBlue Else Text1. ForeColor = vbRed
End Sub ت. س. س.
ال جىلجىمالى جولاق جاساۋ ءۇشىن كومپونەنتىن پايدالانىپ، مىنا پروسەدۋرانى جازامىز:
Dim w، L As Integer
Private Sub Form_Load()
L = Label1. Left
w = Label1. Width
End Sub
Private Sub Timer1_Timer()
If Label1. Left >= -w Then
Label1. Left = Label1. Left - 20
Else: Label1. Left = L
End If
End Sub
ال 3-سۋرەتتەگى ءسوزجۇمباقتى شەشۋ بارىسىندا ءاربىر جولعا ەنگىزىلگەن ءسوزدىڭ دۇرىس نەمەسە بۇرىس ەكەندىگىن قويىلعان سۇراقتىڭ ۇستىنە بارىپ ماۋستىڭ سول جاعىن ءبىر رەت شەرتكەندە تومەندەگىدەي پروسەدۋرا ورىندالۋى ناتيجەسىندە قول جەتكىزە الادى.
Private Sub Command1_Click()
Dim n As String
n = Text1. Text + Text2. Text + Text3. Text + Text4. Text + Text5. Text + Text6. Text
Label1. Visible = True
If n = "الماتى" Or n = "الماتى" Or n = "الماتى" Then Label1. Caption = "دۇرىس"
Else Label1. Caption = "دۇرىس ەمەس"

ال تومەندەگى جۇمباقتاردى (5، 6-سۋرەتتەر) دۇرىس شەشىپ «جارايسىڭ»، دۇرىس شەشپەسە «قاتەلەستىڭ» دەگەن اقپاراتتى بىردەن الا الادى. ول ءۇشىن مىنا پروسەدۋرا جازىلادى:
Private Sub Text3_Change()
Dim n As String
n = Text1. Text + Text2. Text + Text3. Text
If n = "ءجىپ" Or n = "ءجىپ" Or n = "ءجىپ" Then Label2. Caption = "جارايسىڭ" Else Label2. Caption = "قاتەلەستىڭ"
Label2. Visible = True
End Sub

دۇنيە تانۋ پانىنەن تەست جۇمىستارىنا توقتالا كەتەتىن بولسام، تەست سۇراقتارىنا رەتىمەن جاۋاپ بەرىپ، ءاربىر سۇراق ءۇشىن جاۋاپتىڭ دۇرىستىعىن «جاۋاپتىڭ دۇرىستىعىن تەكسەرۋ» باتىرماسىمەن جانە بارلىق ناتيجەسىن باعالاۋ ارقىلى بىلە الادى. (7-سۋرەت)

Visual Basic باعدارلاماسىنىڭ كوپتەگەن مۇمكىندىگىن پايدالانىپ كوبەيتۋ كەستەسىن مەڭگەرۋ ءۇشىن ونى ەلەكتروندى تۇرگە اينالدىرۋعا بولادى. ەندى سول جاسالعان وقۋلىققا توقتالا كەتەيىن. بۇل وقۋلىقتى جاساۋداعى ماقساتىم:
1) ماتەماتيكا ءپانىنىڭ ۇنەمى قولدانىستان تۇسپەيتىن، بىلۋگە ءتيىستى نەگىزگى ماتەريالى-نىڭ ءبىرى - كوبەيتۋ كەستەسىن ءبىلىم الۋشىنىڭ ءوز بەتىنشە ۇيرەنۋىنە قولدانۋى ءۇشىن جاسالعان كومەكشى قۇرال.
2) ءمۇعالىمنىڭ ءبىلىم الۋشىمەنمەن جەكە جۇمىس جۇرگىزۋى بارىسىندا ءبىلىم الۋشىنىڭ كوزدەگەن ماقساتىنا سول جەردە جەتۋىنە، ياعني بىلمەگەنىن ءبىلىپ كەتۋ مۇمكىنشىلىگى جانە ۋاقىتتى ءتيىمدى پايدالانۋى قاراستىرىلعان؛ 3) اتا-انانىڭ ۇيىندە بالاسىنىڭ دايىندىعىن جۇرگىزۋى ءۇشىن پايدالانۋعا دا قولايلى.

بۇل وقۋلىقتىڭ العاشقى بەتىندە وقۋلىقتىڭ اتى جانە “اۆتور”، “جۇمىس جاساۋ الگوريتمى”، “باستاۋ” دەگەن باتىرمالار بەرىلگەن. (8-سۋرەت).
“اۆتور” باتىرماسىن شەرتىپ، وقۋلىقتى جاساعان اۆتوردى تاني الاسىز. (10-سۋرەت). ال “جۇمىس جاساۋ الگوريتمى” باتىرماسىن شەرتۋ ارقىلى وقۋلىقپەن جۇمىس جاساۋ الگوريتمىمەن تانىساسىز. (9-سۋرەت).
“باستاۋ” باتىرماسىمەن وقۋلىقپەن جۇمىس باستالادى. بۇل جەردە قاجەت سانداردى (2، 3، 4، 5، 6، 7، 8، 9) تاڭداۋ باتىرمالارى ارقىلى سول سانعا سايكەس جۇمىس الاڭىنا وتۋگە بولادى (11-سۋرەت). ول ءۇشىن ءاربىر باتىرما ءۇشىن مىنا پروسەدۋرا جازىلادى:
Private Sub Command2_Click()
Form2. Hide
Form12. Show
End Sub

سايكەس سان تاڭدالعاننان كەيىن سول سانعا بايلانىستى “قايتالايمىن”، “بىلەمىن”، “كومەك”، “تازالا”، “شىعۋ” باتىرمالارى ورنالاسقان فورما كەزدەسەدى. (12-سۋرەت). ەگەر “قايتالايمىن” باتىرماسىن تاڭداساڭىز، وندا قاجەت جولىنىڭ تۇسىنا بارىپ ماۋستىڭ سول جاعىن ءبىر رەت باسسا، سول سانداردىڭ كوبەيتىندىسىنىڭ ءمانىن بىلۋگە بولادى. (13-سۋرەت).
Private Sub Command1_Click()
Frame1. Visible = True
Frame2. Visible = False
Frame3. Visible = False
End Sub
Frame1 وبەكتىسىندەگى كوبەيتىندى تاڭداپ، ءمانىن الۋ ءۇشىن تومەندەگىدەي ەتىپ جازامىز.
Private Sub Combo1_Click()
p = Combo1. ListIndex
Select Case p
Case 0: Label1. Caption = "4"
Case 1: Label1. Caption = "8" ت. س. س
End Select
Label1. Visible = True
End Sub
Private Sub Frame1_MouseMove(Button As Integer، Shift As Integer، X As Single، Y As Single)
Combo1. Text = "تاندا"
Combo1. AddItem "4x1=" ت. س. س.
End Sub
ال “بىلەمىن” باتىرماسىن تاڭداسا، وندا ءبىلىم الۋشى ءوزى ۇياشىقتارعا سايكەس ماندەرىن پەرنەتاقتادان ەنگىزەدى. ەگەر دۇرىس بولسا، ەنگەن سان كوك تۇسكە، ال قاتە بولسا قىزىل تۇسكە اينالادى. (14-سۋرەت).
Private Sub Text2_Change()
n = Val(Text2. Text)
If n = 8 Then Text2. ForeColor = vbBlue Else Text2. ForeColor = vbRed
End Sub
ەندى وسى جەردە ءبىلىم الۋشىعا “كومەك” باتىرماسى ارقىلى قاتەلەسكەن كوبەيتىندى ءمانىنىڭ دۇرىس جاۋابىن الۋعا مۇمكىندىك بولادى. (15-سۋرەت).
«تازالا» باتىرماسىن ماۋستىڭ سول جاعىن ءبىر رەت شەرتكەندە بارلىق ەنگىزۋ الاڭدارى تازالانادى.
Private Sub Command3_Click()
Text1. Text = ""
Text1. SetFocus
End Sub
ول ءۇشىن قاتە بولعان كوبەيتىندىگە سايكەس ۇياشىقتى ەكى رەت شەرتۋ ارقىلى PowerPoint-تا جاسالعان پرەزەنتاسيادان جاۋاپ الادىبۇندا سانعا سايكەس سۋرەتتەر ارقىلى كوبەيتكىشتەر قوسىلعىشتارمەن الماستىرىلىپ ناتيجەسىن الۋ دىبىسپەن بەرىلگەن. سونان سوڭ ءبىر رەت شەرتۋ ارقىلى باستاپقى فورماعا قايتىپ ورالادى. (17-سۋرەت).
Private Sub Picture2_Click()
Frame3. Visible = True
End Sub
«تاپسىرما» باتىرماسى ارقىلى كەلەسى فورماعا ءوتىپ، ءۇش ءتۇرلى ەسەپتى شىعارا الادى. ەگەر ەسەپتەگى بوس ۇياشىققا ەنگىزگەن سانى دۇرىس بولسا، وندا «دۇرىس» ال، دۇرىس بولماسا «دۇرىس ەمەس» دەگەن جاۋاپتار بەرىلەدى.
Private Sub Text1_Change()
n = Val(Text1. Text) ت. س. س.
If n = 9 Then Label7. Caption = "دۋرىس" Else Label7. Caption = "دۋرىس ەمەس"
End Sub

ال “شىعۋ” باتىرماسىمەن باسقا سان تاڭداۋ بەتىنە كوشۋگە بولادى. (11-سۋرەت)
كومپيۋتەرمەن جۇمىس جاساۋدا كىم كىمنىڭ دە قىزىعۋشىلىعى ارتادى. ءبىراق كومپيۋتەر-دەن بولىنەتىن زياندى ساۋلەلەردى جادىمىزدان شىعارماعانىمىز ءجون. سوندىقتان وسى جۇ-مىستا 2، 3 جانە 4ء-تىڭ كەستەسىمەن جۇمىس جاساپ بولعان سوڭ، سسونىمەن بىرگە 5، 6 جانە 7ساندارىنىڭ كەستەسىمەن جۇمىس سوڭىندا سەرگىتۋ ساتتەرى رەتىندە جاتتىعۋ جۇمىستارى قاراستىرىلعان. ول ءۇشىن Ole كونتەينەرى ارقىلى 3-سىنىپتىڭ وقۋشىسىنىڭ جاتتىعۋ جۇمىسىن جاساپ جاتقان ۆيدەوسى بايلانىستىرىلعان. جۇمىستى پايدالانۋشى «سەرگىتۋ» باتىرماسىن ەكى رەت باسىپ، جاتتىعۋ جۇمىسىن كوزىمەن كورىپ بىرگە جاساي الادى. بۇل وقۋلىقتى ءبىلىم الۋشى سىنىپتان تىس ۋاقىتتا، ۇيدە پايدالانۋ ارقىلى كوبەيتۋ كەستەسىن جاتتاپ، ەسىندە وڭاي ساقتاۋ مۇمكىندىگىنە يە بولا الادى.

جوعارىداعى جاسالعان جۇمىستاردىڭ ارتىقشىلىقتارى:
- ءبىلىم الۋشىعا ىڭعايلىعى؛
- ءوز دەڭگەيىن باعالاي الۋى؛
- ورىنداعان تاپسىرما ناتيجەسىن ءدال ۋاقىتىندا الۋى؛
- قاتەلىگىن قايتا جوندەۋ مۇمكىندىلىگى؛
- تەز قايتارىمدىلىعى؛
-اسەرلىلىگى؛
- ءمۇعالىم ءۇشىن بىردەن ءبىر كومەكشى قۇرالى؛

ءسوزىمدى قورىتىندىلاي كەلە بۇل كورسەتىلگەن جۇمىستار وقۋشىلاردىڭ تانىمدىق قابىلەتىمەن قاتار قىزىعۋشىلىق قابىلەتتەرىن ارتتىرادى. كومپيۋتەر وقۋشىلاردىڭ وقۋ تانىم قىزمەتىن جانە وزىندىك جۇمىستارىن ارەكەتتەستىكپەن بايلانىستىراتىن بۋىن. ەلىمىزدىڭ ەرتەڭى بولار بۇگىنگى جاس ۇرپاق كومپيۋتەردىڭ قىر سىرىن تەرەڭ مەڭگەرۋى ءتيىس. كومپيۋتەردەگى ورنالاسقان باعدارلامالاردىڭ ءبىرى Visual Basic ينسترۋمەنتتەرىنىڭ ۇلكەن جيىنتىعىن پايدالانا وتىرىپ، گرافيكالىق وبەكتىلەردى كورنەكى قۇراستىرۋعا بولاتىن گرافيكالىق ورتا. وسى باعدارلامامەن جاسالعان ەلەكتروندى كوبەيتۋ كەستەسى، رەبۋس، ءسوزجۇمباق، جۇمباق تەست كەيىنگى جەتكىنشەككە قولايلى جانە ءتيىمدى دەپ ويلايمىن.