Задание 2 (графика и таймер).

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ Русской ФЕДЕРАЦИИ

Федеральное государственное экономное образовательное учреждение высшего

Проф образования

«Казанский государственный исследовательский технический институт

Им. А.Н. Туполева - КАИ»

(КНИТУ-КАИ)

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

Кафедра АСОИУ

Лабораторная работа №2.

По дисциплине

«Объектно - направленное программирование»

Элементы программирования в Visual Basic.

Внедрение графики и таймера.

Исполнитель: ст. гр. 4252 Ивасенко А.А.

Управляющий: к.т.н., доцент, Бондаренко Б.П Задание 2 (графика и таймер)..

Казань 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 Задание 2 (графика и таймер). 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 Задание 2 (графика и таймер). 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

Рис Задание 2 (графика и таймер)..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 Задание 2 (графика и таймер). 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

Label Задание 2 (графика и таймер).1.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 Command Задание 2 (графика и таймер).3_Click()

End

End Sub

Private Sub Form_Load()

Text1.Enabled = False

Text2.Enabled = False

Command1.Enabled = False

n = 1

End Sub


zadanie-3-napishite-otricatelnie-predlozheniya.html
zadanie-3-oboznacheniya-rezus-prinadlezhnosti-uchebnoe-posobie-dlya-samostoyatelnoj-vneauditornoj-raboti-studentov.html
zadanie-3-ocenka-nedvizhimosti-metodom-kapitalizacii-dohoda.html