Жобада қажеттілік бойынша шақырылатын алты пішін қолданылады.
Public k As Integer
Public n As Integer Public m As Integer
Public c As
Integer
Public b As Integer
1-пішін
Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub
2-пішін Private Sub Command1_Click()
If Text1.Text = "" Then Text1.SetFocus
If Text1.Text = "5" Then k = 1
Form2.Visible = False
Form3.Show
End Sub
3-пішін Private Sub Command1_Click()
If Text1.Text = "" Then Text1.SetFocus
If Text1.Text = "5" Then n = 1
Form3.Visible = False
Form4.Show
End Sub
4-пішін Private Sub Command1_Click()
If Text1.Text = "" Then Text1.SetFocus
If Text2.Text = "" Then Text2.SetFocus
If Text3.Text = "" Then Text3.SetFocus
If Text4.Text = "" Then Text4.SetFocus
If Text5.Text = "" Then Text5.SetFocus
If Text6.Text = "" Then Text6.SetFocus
If Text1.Text = "4" Then m = m + 1
If Text2.Text = "1" Then m = m + 1
If Text3.Text = "5" Then m = m + 1
If Text4.Text = "3" Then m = m + 1
If Text5.Text = "2" Then m = m + 1
If Text6.Text = "5" Then m = m + 1
Form4.Visible = False
Form5.Show
End Sub
5-пішін Private Sub Command1_Click()
If Text1.Text = "" Then Text1.SetFocus
If Text2.Text = "" Then Text2.SetFocus
If Text3.Text = "" Then Text3.SetFocus
If Text4.Text = "" Then Text4.SetFocus
If Text5.Text = "" Then Text5.SetFocus
If Text6.Text = "" Then Text6.SetFocus
If Text7.Text = "" Then Text7.SetFocus
If Text1.Text = "3" Then c = c + 1
If Text2.Text = "5" Then c = c + 1
If Text3.Text = "1" Then c = c + 1
If Text4.Text = "4" Then c = c + 1
If Text5.Text = "5" Then c = c + 1
If Text6.Text = "3" Then c = c + 1
If Text7.Text = "2" Then c = c + 1
b = k + m + n + c
Form5.Hide
Form6.Show
End Sub
6-пішін Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
If b = 15 Then
Label1.Caption = "ЖАРАЙСЫҢ!!!"
9
Label2.Visible = False
End If
If b < 15 And b > 0 Then
Label1.Caption = "Мұқият"
Label2.Caption = "Бол!!!"
End If
End Sub
Бекіту (компьютерде тапсырмалар орындау)
№1 «Баланың қозғалысы» жобасы
Адамның жоғары-оңға, жоғары-солға, төмен-оңға, төмен-солға жылжитын жобасын жасайық.
Пішіндегі объектілер Left және Top қасиеттерімен басқарылады.
Top – батырмадан пішіннің жоғары жағына дейінгі ара қашықтығы
Left - батырмадан пішіннің сол жағына дейінгі ара қашықтығы
Пішінге Image объектісін енгіземіз. Stretch қасиетінен True мәнін береміз. «Адам» пішініндегі суретті
таңдаймыз.
Пішінге Command1 және Command2 орналастырып Caption қасиетіне тиісінше «Жоғары және оңға қарай
қозғалту» «Төменге және солға қарай қозғалту» мәтінін береміз, код терезесіне келесі процедурасын енгіземіз:
Private Sub Command1_Click()
Dim I As Integer
Dim left As Single
Dim top As Single
left = Image1.left
top = Image1.top
For I = 1 To 100 Step 1
left = left - 10
top = top - 10
Image1.Move left, top
Next I
End Sub
Private Sub Command2_Click()
Dim I As Integer
Dim left As Single
Dim top As Single
left = Image1.left
top = Image1.top
For I = 1 To 100 Step 1
left = left + 10
top = top + 10
Image1.Move left, top
Next I
End Sub
Жобаны іске қосыңыз.
Жобаны іске қосып, нәтиже шыққан соң бағдарламалық кодты дәптерге жазамыз.
№2 “Бағдаршам” программасының орындалуы:
Visual Basic ортасын ашып, жаңадан проект құрыңыз.
Формаға келесі элементтерді орналастырыңыз және қасиеттерін өзгертіңіз:
Объект
Қасиеті
Мәні
Form1
Caption
Светофор
Shape1
Shape1
Rounded Rectangle
Label1
Caption
BackColor
Label1 мәнін өшіру
Қызыл
Label2
Caption
BackColor
Label2 мәнін өшіру
Ақ
Label3
Caption
BackColor
Label3 мәнін өшіру
Ақ
Label4
Caption
BackColor
Label4 мәнін өшіру
Ақ
Label5
Caption
Бағдаршамды тышқанмен шертіңіз
Shape2 (Label1-дің үстіне)
Shape
3-Circle
10
BorderColor
FillColor
FillStyle
Қызыл түс таңдау
Қызыл түс таңдау
0-Solid
Shape3 (Label2-дің үстіне)
Shape
BorderColor
FillColor
FillStyle
3-Circle
Cары түс таңдау
Сары түс таңдау
0-Solid
Shape4 (Label3-дің үстіне)
Shape
BorderColor
FillColor
FillStyle
3-Circle
Жасыл түс таңдау
Жасыл түс таңдау
0-Solid
3. Келесі кодтарды жазу:
- Label1 элементін екі рет шертіп, шылған код терезесіне келесі процедураны енгізіңіз:
Private Sub Label1_Click()
Label1.BackColor = vbRed
Label2.BackColor = vbWhite
Label3.BackColor = vbWhite
Label4.Caption = "Токтаныз!"
End Sub
- Label2 элементін екі рет шертіп, шылған код терезесіне келес процедураны енгізіңіз:
Private Sub Label2_Click()
Label1.BackColor = vbWhite
Label2.BackColor = vbYellow
Label3.BackColor = vbWhite
Label4.Caption = "Дайындал"
End SubLabel2 элементін екі рет шертіп, шылған код терезесіне келес процедураны енгізіңіз:
Private Sub Label3_Click()
Label1.BackColor = vbWhite
Label2.BackColor = vbWhite
Label3.BackColor = vbGreen
Label4.Caption = "Жур!"
End Sub
№3 Төбелерінің координаталары бойынша үшбұрыш
шығаратын қосымша жасау
Форманың ScaleMode қасиетіне Pixel мәнін, Caption қасиетіне “Үшбұрыш шығару” мәнін жазыңыз
Формаға Picture1 объектісін түсіріп, BackColor қасиетіне ақ түс орнатыңыз.
Формаға үшбұрыштың төбелерінің координаталарын енгізу үшін қызмет ететін Text1, Text2, Text3, Text4, Text5,
Text6 объектілерін түсіріп, Text қасиеттерін тазалаңыз. Олардың жанына түсініктеме ретінде қызмет ететін
Label1, Label2, Label3, Label4, Label5, Label6 объектілерін түсіріп, Caption қасиеттеріне ретімен Х1=, Y1=, X2=,
Y2=, X3=, Y3= мәндерін жазыңыз.
Формаға Command1 объектісін түсіріп, Caption қасиетіне ОК деп жазыңыз.
Command1_Click() процедурасына өтіп, үшбұрыш шығару процедурасын жазыңыз.
Private Sub Command1_Click()
' координаталарды меншіктеу
X1 = Val(Text1.Text)
Y1 = Val(Text2.Text)
X2 = Val(Text3.Text)
Y2 = Val(Text4.Text)
X3 = Val(Text5.Text)
Y3 = Val(Text6.Text)
'сетка шығару
Picture1.Cls
Picture1.DrawWidth = 1
For k = 10 To Picture1.Width Step 10
Picture1.Line (k, 0)-(k, Picture1.Height)
Next k
For i = 10 To Picture1.Height Step 10
Picture1.Line (0, i)-(Picture1.Width, i)
Next i
'Үшбұрышты шығару
Picture1.DrawWidth = 3
Picture1.Line (X1, Y1)-(X2, Y2), vbRed
11
