МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ
Федеральное государственное бюджетное образовательное учреждение высшего
Профессионального образования
«Казанский национальный исследовательский технический университет
Им. А.Н. Туполева - КАИ»
(КНИТУ-КАИ)
-------------------------------------------------------------------------------------------
Кафедра АСОИУ
Лабораторная работа №2.
По дисциплине
«Объектно - ориентированное программирование»
Элементы программирования в Visual Basic.
Использование графики и таймера.
Исполнитель: ст. гр. 4252 Ивасенко А.А.
Руководитель: к.т.н., доцент, Бондаренко Б.П.
Казань 2014
Задание №1.
Отобразить на форме результат суммы и произведения 2-х чисел Аи В.
Полученный результат:
Рис.1
Написание программы:
Private Sub cmdSumma_Click()
txtRez.Text = Str(Val(txtA.Text) + Val(txtB.Text))
End Sub
Рис.2
Private Sub cmdProiz_Click()
txtRez.Text = Str(Val(txtA.Text) * Val(txtB.Text))
End Sub
Рис.3
Задание 2 (графика и таймер).
Полученный результат:
Рис.4
Написание программы:
Private Sub Form_Load()
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape5.FillColor = vbBlack
End Sub
Private Sub Command1_Click()
Shape3.FillColor = vbYellow
Shape4.FillColor = vbYellow
Shape5.FillColor = vbYellow
Timer1.Enabled = False
End Sub
Private Sub Command2_Click()
Shape3.FillColor = vbBlack
Shape4.FillColor = vbBlack
Shape5.FillColor = vbBlack
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Shape3.FillColor <> vbYellow Then
Shape3.FillColor = vbYellow
Else: Shape3.FillColor = vbBlack
End If
If Shape4.FillColor <> vbYellow Then
Shape4.FillColor = vbYellow
Else: Shape4.FillColor = vbBlack
End If
If Shape5.FillColor <> vbYellow Then
Shape5.FillColor = vbYellow
Else: Shape5.FillColor = vbBlack
End If
End Sub
Вывод элементов массива:
Рис.5
Рис.6
Рис.7
Рис.8
Рис.9
Рис.10
Рис.11
Рис.12
Option Base 1
Dim i As Integer 'порядковый номер элемента
Dim j As Integer 'порядковый номер элемента в массиве при выводе
Dim n As Integer 'размер массива
Dim mass() As String 'массив
Option Explicit
Private Sub Command1_Click()
If i = 0 Then
n = Val(Text1.Text)
Label1.Caption = "Введите 1-й элемент массива. Всего элементов: " & n
ReDim Preserve mass(n) As String
Text1.Text = ""
Text1.SetFocus
Else
Label1.Caption = "Введите " & i + 1 & "-й элемент массива:"
mass(i) = Val(Text1.Text)
Text1.Text = ""
Text1.SetFocus
End If
If i = n Then
Label1.Caption = "Ввод завершён"
Text1.Enabled = False
Command1.Enabled = False
End If
i = i + 1
End Sub
Private Sub Command2_Click()
Text1.Enabled = True
Command1.Enabled = True
If j = 0 Then
Label1.Caption = "Введите количество элементов массива:"
Command2.Caption = "Вывод массива"
Text1.SetFocus
Else
Text1.Enabled = False
Command1.Enabled = False
Text2.Enabled = True
Text2.Text = mass(j)
End If
j = j + 1
If j - 1 = n Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command2.Visible = False
Command3.Visible = True
Label2.Caption = "Вывод завершён"
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
n = 1
End Sub