Microsoft Visual Basic
Практические задания.
Власов А.А.
2012 г.
Cодержание:
I.
Проект «занимательная
форма» - 3
II. Программа для подсчета затрат- 6
III.
Программа для решения квадратных уравнений - 9
IV. Проект
«Часы» - 12
V.Проект
«Будильник» - 15
VI.Проект
- заставка «Точки» - 17
VII.Игра
«Головоломка» - 19
VIII. Игра «Поймай кнопку» - 21
II.
Проект «Занимательная форма».
Создадим форму и поместим на нее шесть
командных кнопок, первая кнопка будет уменьшать размеры формы, вторая –
увеличивать, третья – закрашивать форму в красный цвет, четвертая – в синий
цвет, пятая – делать все кнопки невидимыми, шестая – возвращать кнопки. Для
этого:
1.Запустите
Microsoft Visual Basic.
2. Поместите на
форму шесть управляющих кнопок:
3. Назначьте
следующие свойства элементов управления:
-
Форма:
Name – frmFormFun,
Caption – Занимательная форма.
-
управляющая кнопка Command1:
Name – cmdShrink,
caption – Уменьшение формы.
-
управляющая кнопка Command2:
Name – cmdGrow,
caption – Увеличение формы.
-
управляющая кнопка Command3:
Name – cmdRed,
caption – Красная форма.
-
управляющая кнопка Command4:
Name – cmdBlue,
caption – Синяя форма.
-
управляющая кнопка Command5:
Name – cmdHide,
caption – Скрыть кнопки.
-
управляющая кнопка Command6:
Name – cmdShow,
caption – Вернуть кнопки,
visible - False.
4. Запишите
следующие процедуры обработки событий для управляющих кнопок:
cmdShrink –
Private Sub cmdShrink_Click()
'уменьшение формы
'уменьшаем высоту
формы на 100 твипов
frmFormfun.Height =
frmFormfun.Height - 100
'уменьшаем ширину
формы на 100 твипов
frmFormfun.Width = frmFormfun.Width - 100
End Sub
Cmd Grow –
Private Sub cmdGrow_Click()
'увеличение формы
'увеличение высоты
формы на 100 твипов
frmFormfun.Height =
frmFormfun.Height + 100
' увеличение ширины
формы на 100 твипов
frmFormfun.Width = frmFormfun.Width + 100
End Sub
CmdRed –
Private Sub cmdRed_Click()
frmFormfun.BackColor = vbRed '
закрашиваем форму в красный цвет
End Sub
CmdBlue –
Private Sub cmdBlue_Click()
frmFormfun.BackColor = vbBlue 'закрашиваем форму в синий цвет
End Sub
CmdHide –
Private Sub cmdHide_Click()
'скрыть все кнопки
cmdGrow.Visible = False
cmdShrink.Visible = False
cmdHide.Visible = False
cmdRed.Visible = False
cmdBlue.Visible = False
' показать кнопку
cmdShow.Visible = True
End Sub
CmdShow –
Private Sub cmdShow_Click()
'показать кнопки
cmdGrow.Visible = True
cmdShrink.Visible = True
cmdHide.Visible = True
cmdRed.Visible = True
cmdBlue.Visible = True
' скрыть кнопку
cmdShow.Visible = False
End Sub
5. Запустите
проект, при необходимости исправьте ошибки.
6. Отредактируйте
проект следующим образом:
a)
Щелчок по форме увеличивает ее ширину на
300 твипов.
b)
Щелчок по форме уменьшает ее высоту на 250
твипов.
c)
Нажатие любой клавиши, в тот момент когда
кнопка cmdRed активна, закрашивает форму в зеленый
цвет.
d)
Нажатие любой клавиши, в тот момент когда
кнопка cmdBlue активна, закрашивает форму в черный
цвет.
e)
При нажатии на кнопку cmdRed она закрашивается в красный цвет (свойство Style кнопки установите в положение 1- Graphical).
f)
При нажатии на кнопку cmdBlue она закрашивается в синий цвет (свойство Style кнопки установите в положение 1- Graphical)..
7. Скомпилируйте
проект в папку Мои документы под именем Занимательная форма.
II. Программа для
подсчета затрат.
Создадим программу, для подсчета
недельных затрат на питание в школьной столовой, для этого:
- Запустите Microsoft Visual
Basic.
- Поместите на форму четыре метки, два
текстовых окна и две управляющие кнопки, как показано на рисунке:
В текстовое окно 1 будем вводить
стоимость обеда, в текстовое окно 2 – количество дней, в метке 4 - получать
ответ. Кнопка 1 будет служить для подсчета затрат, кнопка 2 – для выхода из
программы.
- Назначьте следующие свойства для
элементов управления:
-
Форма:
Name – frmExpenses,
caption – Подсчет затрат.
-
Метка 1:
Name – lblCost,
caption – стоимость обеда.
-
Метка 2:
Name – lblDays,
caption – количество дней.
-
Метка 3:
Name – lblWeekExpenses
caption – Недельные затраты на обед.
-
Метка 4:
Name – lblTotal,
caption – (пустая графа),
BackColor – белый цвет,
BorderStyle – 1 – Fixed Single.
-
Текстовое окно 1:
Name – txtCost,
caption – (пустая графа).
-
Текстовое окно 2:
Name – txtDays,
caption – (пустая графа).
-
Управляющая кнопка 1:
Name –cmdCompute,
caption – Подсчитать затраты.
-
Управляющая кнопка 2:
Name –cmdExit,
caption – Выход.
- Введите код программы:
Объявите переменные:
Dim Cost
As Double ‘стоимость обеда
Dim Days As Integer’количество дней
Dim Total As Double’недельные затраты на обед.
Запишите
процедуру обработки события – щелчок по кнопке cmdCompute:
Private Sub cmdCompute_Click()
Cost =
Val(txtCost.Text) ' переменной cost присваиваем значение свойства Text
текстового окна txtCost (переведя его из символьного значения в числовое)
'аналогично:
Days = Val(txtDays.Text)
Total = Cost * Days
' находим недельные затраты на обед
lblTotal.Caption =
Str(Total) ' в метку 1 вписываем значение переменной Total (переведя его из
числового значения в символьное)
End Sub
Запишите
процедуру обработки события – щелчок по кнопке cmdExit:
Private Sub cmdExit_Click()
End 'выходим из
программы
End Sub
- Запустите проект, при необходимости
исправьте ошибки.
Отредактируйте программу следующим
образом:
a)
Щелчок по кнопке cmdCompute закрашивает форму в красный цвет;
b)
Двойной щелчок по метке lblCost делает ее невидимой;
c)
Двойной щелчок по метке lblCost делает кнопку cmdCompute неактивной;
d)
Двойной щелчок по метке lblCost делает кнопку cmdExit неактивной;
e)
Щелчок по текстовому окну 1 закрашивает его
в зеленый цвет;
f)
Щелчок по текстовому окну 2 закрашивает его
в желтый цвет;
g)
Ответ выводится как в метке lblTotal, так и в метке lblWeekExpenses в виде: Недельные затраты на обед = х
рублей.
7. Скомпилируйте проект в папку Мои
документы под именем: Подсчет затрат.
III. Программа для решения квадратных
уравнений.
Создадим программу для решения квадратных
уравнений, для этого:
- Запустите Microsoft Visual
Basic.
- Поместите на форму семь меток, три
текстовых окна и управляющую кнопку:
В текстовые
окна 1, 2 ,3 будем вводить значение коэффициентов А, В, С, кнопка будет служить
для решения уравнения, в метке 5 выведем на экран значение дискременанта, а в
метках 6 и 7 – корней уравнения.
- Назначьте следующие
свойства для элементов управления:
- Форма:
Name – frmMain,
- метка 1:
Name – lblParamA,
caption – A:
- метка 2:
Name – lblParamB,
caption – B:
- метка 3:
Name – lblParamC,
caption – C:
- метка 4:
Name – lblInscr,
caption – Результаты решения,
font – arial black, 12, подчеркнутый.
- метка 5:
Name – lblD,
caption – Дискременант,
font – arial black, 10.
- метка 6:
Name – lblX1,
caption – Корень №1,
font – arial black, 10.
- метка 7:
Name – lblX2,
caption – Корень №2,
font – arial black, 10.
- управляющая кнопка:
Name – cmdCalculate,
caption – Решить.
- Введите программный код:
' объявляем переменные
Dim paramA As Double
Dim paramB As Double
Dim ParamC As Double
Dim X1 As Double
Dim X2 As
Double
Dim D As Double
Запишите процедуру обработки события – щелчок по кнопке cmdCalculate:
Private Sub cmdCalculate_Click()
'присваиваем
переменным значения текстовых окон 1,2,3
paramA = Val(txtParamA.Text)
paramB = Val(txtParamB.Text)
ParamC = Val(txtParamC.Text)
'находим дискременант
D = (paramB * paramB) - (4 *
paramA * ParamC)
'находим корни
уравнения
If D > 0 Then
X1 = (-paramB + Sqr(D)) / (2
* paramA)
X2 = (-paramB - Sqr(D)) / (2
* paramA)
lblD.Caption = "Дискременант:" + Str(D)
lblX1.Caption = "корень №1:" + Str(X1)
lblX2.Caption = "Корень №2:" + Str(X2)
ElseIf D = 0 Then
X1 = paramB / (2 * paramA)
X2 = X1
lblD.Caption = "Дискременант:" + Str(D)
lblX1.Caption = "корень:" + Str(X1)
lblX2.Caption = " "
ElseIf D < 0 Then
lblD.Caption = "Дискременант:" + Str(D)
lblX1.Caption =
"корней нет"
lblX2.Caption
= " "
End If
End Sub
5.
Запустите программу, при необходимости исправьте
ошибки.
6.
Отредактируйте программу следующим образом:
a)
Добавьте управляющую
кнопку, поместите на нее надпись «Выход», нажатие на эту кнопку должно
приводить к выходу их программы;
b)
Добавьте управляющую кнопку с надписью
«Подсветка», нажатие на кнопку должно закрашивать текстовые окна в зеленый
цвет;
c)
Добавьте кнопку с надписью «Закрась форму»,
нажатие на кнопку закрашивает форму в желтый цвет,
d)
Добавьте кнопку «Сумма», при нажатии на эту
кнопку в метке lblInscr должна выводиться сумма
коэффициентов А, В, С;
e)
Добавьте кнопку «Произведение», при нажатии
на эту кнопку в метке lblInscr должно выводиться
произведение коэффициентов А, В, С;
f)
При загрузке формы кнопка «Решить» не
активна, она становится активной при введении в текстовое окно txtParamA какого-либо значения;
g)
При загрузке формы кнопка «Решить» невидима,
она становится видимой при введении в текстовое окно txtParamС какого-либо значения.
7. Скомпилируйте
программу в папку Мои документы под именем Решение квадратных уравнений.
IV. Проект
«Часы»
Создадим электронные часы, которые
будут показывать текущее время и дату, для этого:
1. Запустите
Microsoft Visual Basic.
2. Поместите на форму Таймер и
четыре Метки:
3. Назначьте следующие свойства для
элементов управления:
-
Форма:
Name – frmMain,
BackColor – синий,
Caption – Часы,
-
Таймер:
Name – tmrTime,
Interval – 1,
-
Метка 1:
Name – lblTimeIns,
Alignment – 2-Center,
BackColor – синий,
caption – Местное время,
font – Courier New, жирный курсив, 20,
foreColor – желтый,
-
Метка 2:
Name – lblTime,
Alignment – 2-Center,
BackColor – синий,
caption – время,
font – Courier New, жирный курсив, 20,
foreColor – ярко зеленый,
-
Метка 3:
Name – lblDataIns,
Alignment – 2-Center,
BackColor – синий,
caption – Сегодня:,
font – Courier New, жирный курсив, 20,
foreColor – желтый,
-
Метка 4:
Name – lblData,
Alignment – 2-Center,
BackColor – синий,
caption – Дата,
font – Courier New, жирный курсив, 20,
foreColor – ярко зеленый.
4. Напишите программный код
Private Sub tmrTime_Timer()
lblTime.Caption = Time ' выводим
в метку 2 системное время
lblData.Caption = Date 'выводим в метку 4 текущую дату
End Sub
5. Запустите программу, при необходимости
исправьте ошибки.
6. Отредактируйте программу следующим образом:
a)
Каждую минуту, когда количество секунд = 0,
в метке 1 появляется сообщение: «Сейчас (х) минут».
b)
Каждую минуту, когда количество секунд = 0,
на экране появляется сообщение: «Сейчас (х) минут».
c)
Каждую минуту, когда количество секунд = 0,
раздается звук, установленный в системе как стандартный.
d)
Каждую минуту, когда количество секунд = 0,
цвет формы меняется на красный.
e)
Каждую минуту, когда количество секунд = 0,
цвет шрифта метки 2 меняется на красный.
f)
Каждую минуту, когда количество секунд = 0,
ширина и высота формы увеличивается на 100 твипов.
g)
Создаете кнопку, нажатие на которую будут
выводить на экран сообщение: «Местное время (х) минут».
7. Скомпилируйте проект в папку Мои
документы под именем Часы.
V.Проект «Будильник».
Создадим часы с будильником для этого:
- Запустите Microsoft Visual
Basic.
- Поместите на форму 4 метки, таймер, рамку, 2
управляющие кнопки и текстовое окно:
В метку 2
выведем значение текущего времени, в метку 3 – дату, текстовое окно будет
служить для ввода времени срабатывания будильника, управляющая кнопка 1 – для
включения будильника, кнопка 2 для отображения элементов будильника.
- Задайте следующие свойства для элементов
управления:
-
Форма:
Name – frmMain,
caption – Будильник,
-
Таймер:
Name – tmrClock,
Interval – 1,
-
Метка 1:
Name – lblClock,
Alignment – 2 – center,
caption – Будильник,
font – Arial, жирные курсив, 20,
-
Метка 2:
Name – lblTime,
Alignment – 2 – center,
caption – Time,
font – Arial, жирные курсив, 20,
-
Метка 3:
Name – lblDate,
Alignment – 2 – center,
caption – Date,
font – Arial, жирные курсив, 20,
-
Метка 4:
Name – lblInscr,
caption – не забывайте ставить двоеточие после
часов и минут,
-
Метка 5:
Name – lblTimeClock,
Visible – False,
-
Рамка 1:
Name – fraClock,
caption – Будильник,
visible – False,
-
Управляющая кнопка 1:
Name – cmdWind,
caption – Завести,
-
Управляющая кнопка 2:
Name – cmdClock,
caption – Будильник,
-
Текстовое окно 1:
Name – txtTime,
text – (пустая графа)
-
Таймер 1:
Name – tmrClock,
interval – 1.
- Напишите программный код:
Private Sub cmdClock_Click()
fraClock.Visible = True ' делаем рамку 1 видимой
End Sub
Private Sub cmdWind_Click()
lblTimeClock.Caption =
txtTime.Text 'заводим будильник
fraClock.Visible = False 'делаем рамку невидимой
End Sub
Private Sub tmrClock_Timer()
lblTime.Caption
= Time 'выводим в метку 2 системное время
lblDate.Caption
= Date 'выводим в метку 3 текущую дату
If
lblTimeClock.Caption = lblTime.Caption Then 'если системное время совпадает со
временем будильника - подаем сигнал
Beep
End If
End Sub
- Запустите программу, при необходимости
исправьте ошибки.
- Отредактируйте программу следующим
образом:
a)
При срабатывании будильника цвет формы
изменяется на красный.
b)
При срабатывании будильника выходит
сообщение: «Пора вставать!».
c)
При срабатывании будильника ширина и высота
формы увеличиваются на 500 твипов.
d)
Добавьте в проект управляющую кнопку,
нажатие на нее должно выводить на экран сообщение: «Будильник заведен на
(время)».
e)
Добавьте а проект кнопку «Подсветка»,
нажатие на нее должно закрашивать метки со временем и датой в желтый цвет.
f)
При нажатии на кнопку «Завести» рамка «Будильник
не становится невидимой, а закрашивается в синий цвет.
- Скомпилируйте программу в папку Мои
документы под именем Будильник.
VI.Проект - заставка «Точки».
Создадим заставку «Точки». На белом фоне будут
хаотично появляться точки разного цвета, для этого:
- Запустите
Microsoft Visual Basic.
- Поместите на форму таймер.
- Задайте следующие свойства элементов
управления:
- Форма:
Name – frmMain,
Caption – Точки,
BackColor – белый,
- Таймер:
Name – tmr1,
Interval – 1.
- Напишите программный код:
'объявляем переменные
Dim R, G, B As Variant
Dim X, Y As Variant
Dim C As Variant
Private Sub tmr1_Timer()
For C = 1 To 10 Step 1
' выбираем случайные значения переменных R,G,B
для оператора RGB
R = Rnd * 255
G = Rnd * 255
B = Rnd * 255
'выбираем случайные значения координат точки
X = Rnd * frmMain.ScaleWidth
Y = Rnd * frmMain.ScaleHeight
frmMain.PSet (X, Y), RGB(R, G, B)
Next C
End Sub
- Запустите программу, при необходимости
исправьте ошибки.
- Измените конечное значение цикла на 100,
затем на 1000, что изменилось?
- Скомпилируйте программу в папку Мои
документы под именем Точки.
VII.Игра
«Головоломка».
Создадим игру
«Головоломка», для этого:
1. Запустите Microsoft
Visual Basic.
2. На форму
поместите два окна списка, две метки и управляющую кнопку:
В окно списка 1 запишем 10 чисел,
смысл игры заключается в том, чтобы выбрать из этого окна числа, сумма которых
равна 50. Выбранные числа будут помещаться в окно списка 2, сумма чисел будет
отображаться в метке 2, управляющая кнопка предназначена для выхода из игры.
3. Назначьте следующие свойства
элементов управления:
форма:
Name – frmMain,
Caption –
Головоломка.
Окно списка 1:
Name – lstNambers,
Style – 1 – Checkbox,
List – 25,27,03,12,06,15,09,30,21,19. (после каждого числа
нажимайте Ctrl+Enter).
Окно списка 2:
Name – lstSelectNam.
Метка 1:
Name – lblAmount,
Caption – Сумма:
Управляющая кнопка:
Name – cmdExit,
Caption – Выход.
4. Напишите программный код:
‘объявляем переменные
Dim s As Integer
Dim i As Integer
Private Sub
cmdExit_Click()
End ‘ выход из программы при нажатии на кнопку
од
End Sub
Private Sub
lstNambers_ItemCheck(Item As Integer)
If
lstNambers.Selected(Item) Then
lstSelectNam.AddItem lstNambers.List(Item) ' в окно списка 2 выводим выбранные в окне
списка 1 значения
Else
For i = 0 To
lstSelectNam.ListCount - 1
If
lstSelectNam.List(i) = lstNambers.List(Item) Then
lstSelectNam.RemoveItem
i
End If
Next i
End If
s = 0
'слаживаем
числа, находящиеся в окне списка 2
For i = 0 To
lstSelectNam.ListCount - 1
s = s +
Val(lstSelectNam.List(i))
Next i
'выводим
значение суммы в метку 1
lblAmount.Caption =
"Сумма" + Str(s)
If s = 50 Then
lblAmount.Caption =
"Победа" + Str(s)
'делаем
окно списка 1 и 2 неактивным
lstNambers.Enabled
= False
lstSelectNam.Enabled
= False
End If
End Sub
5. Запустите программу, при
необходимости исправьте ошибки.
6. Добавьте в проект управляющие элементы по своему усмотрению.
7. Скомпилируйте проект в папку Мои документы под именем Головоломка.
VIII. Игра «Поймай кнопку».
Создадим
игру, на поле формы будет появляться в разных местах небольшая кнопка, задача –
щелкнуть мышью по ней, для этого:
- Запустите Microsoft Visual
Basic.
- Поместите на форму управляющую кнопку и
таймер.
- Задайте следующие свойства для элементов
управления:
Форма:
- Name – frmMain,
- BorderStyle – 1-Fixed Single,
- Caption – Поймай кнопку,
- Height – 8000,
- ScaleHeight – 2800,
- ScaleWidth – 4800,
- Width – 5000,
Управляющая
кнопка:
- Name – cmdClick,
- Caption – Нажми сюда!,
- Height - 500,
- Width – 800,
Таймер:
- Name – tmr1,
- Interval – 500.
4. Напишите
программный код:
'объявляем переменные
Dim i As Integer
Private Sub cmdClick_Click()
cmdClick.Caption = "Попал!" 'при нажатии на кнопку
надпись на ней изменяется
cmdClick.Enabled = False 'кнопка становится неактивной
tmr1.Enabled = False 'отключаем
таймер
End Sub
Private Sub tmr1_Timer()
i = Int(9 * Rnd) ' выбираем целое случайное число
от 1 до 9
cmdClick.Top = 200 + 600 * (i / 3) 'определяем
местоположение кнопки относительно верхнего края формы
cmdClick.Left = 200 + 900 * (i / 3) 'определяем местоположение
кнопки относительно левого края формы
End Sub
5. Запустите программу, при
необходимости отредактируйте код.
6.
Отредактируйте программу следующим образом:
a)
Добавьте управляющую кнопку с надписью «Медленнее»
нажатие на которую будет замедлять движение кнопки (свойство Interval таймера уменьшается на 100).
b)
Добавьте управляющую кнопку с
надписью «Быстрее» нажатие на которую будет увеличивать скорость движения
кнопки (свойство Interval таймера увеличивается на 100).
c)
Добавьте управляющую кнопку «Стоп», нажатие на
которую будет останавливать кнопку.
d)
Добавьте управляющую кнопку «Увеличить кнопку»,
нажатие на которую будет увеличивать высоту и ширину кнопки на 100 твипов.
e)
При каждом щелчке мышью мимо кнопки раздается звук,
установленный на компьютере как стандартный.
f)
При попадании по кнопке выходит сообщение
«Молодец!».
7.
Скомпилируйте программу в папку Мои документы под
именем Попади в кнопку.
IX.
Проект «Калькулятор».
Создадим
простейший калькулятор, который будет осуществлять сложение, вычитание, умножение
и деление двух любых чисел, для этого:
- Запустите Microsoft Visual
Basic.
2.
Поместите на форму три метки, три текстовых окна и
четыре управляющих кнопки:
В текстовые окна 1 и 2 будем вводить
два числа и, нажав на одну из командных кнопок, произведем над ними нужную
арифметическую операцию. Текстовое окно 3 служит для вывода ответа.
3.
Задайте следующие свойства для элементов
управления:
Форма:
- Name – frmMain,
- Caption – Калькулятор.
Метка 1:
-
Name – lblNamber1,
-
Caption –первое число.
Метка
2:
-
Name – lblNamber2,
-
Caption – второе число.
Метка
3:
-
Name – lblResult,
-
Caption – ответ.
Текстовое
окно 1:
-
Name – txtNamber1,
-
text –(пустая графа).
Текстовое
окно 2:
-
Name – txtNamber2,
- Text –(пустая графа).
Текстовое
окно 3:
-
Name – txtResult,
-
Text –(пустая графа).
Управляющая
кнопка 1:
-
Name – cmdPlus,
-
Style – 1-Graphical,
-
Caption – (пустая графа),
-
Picture – вставить рисунок из файла Мой
компьютер/Общий диск/Плюс.
Управляющая
кнопка 2:
-
Name – cmdMinus,
-
Style – 1-Graphical,
-
Caption – (пустая графа),
- Picture – вставить рисунок из файла Мой компьютер/Общий диск/Минус.
Управляющая
кнопка 3:
-
Name – cmdMultiply,
-
Style – 1-Graphical,
-
Caption – (пустая графа),
-
Picture – вставить рисунок из файла Мой
компьютер/Общий диск/Умножение.
Управляющая
кнопка 4:
-
Name – cmdFission,
-
Style – 1-Graphical,
-
Caption – (пустая графа),
-
Picture – вставить рисунок из файла Мой
компьютер/Общий диск/Деление.
4.
Напишите программный код:
Option Explicit
Dim A As Double
Dim B As Double
Dim C As Double
Private Sub cmdFission_Click()
A = Val(txtNamber1.Text)
B = Val(txtNamber2.Text)
C = A / B
txtResult.Text = Str(C)
End Sub
Private Sub cmdMinus_Click()
A = Val(txtNamber1.Text)
B = Val(txtNamber2.Text)
C = A - B
txtResult.Text = Str(C)
End Sub
Private Sub cmdMultiply_Click()
A = Val(txtNamber1.Text)
B = Val(txtNamber2.Text)
C = A * B
txtResult.Text = Str(C)
End Sub
Private Sub cmdPlus_Click()
A = Val(txtNamber1.Text)
B = Val(txtNamber2.Text)
C = A + B
txtResult.Text = Str(C)
End Sub
5.
Запустите программу, при необходимости исправьте
ошибки.
6.
Отредактируйте программу следующим образом:
a)
Добавьте управляющую кнопку «Выход», при нажатии на
которую будет осуществляться выход из программы.
b)
Добавьте управляющую кнопку «Сброс», которая будет
обнулять все три текстовых окна.
c)
Добавьте рядом с первым текстовым окном две
управляющие кнопки «+» и «-», которые будут соответственно увеличивать или
уменьшать на 1 число, находящееся в этом текстовом окне.
d)
Добавьте рядом со вторым текстовым окном две
управляющие кнопки «+» и «-», которые будут соответственно увеличивать или
уменьшать на 1 число, находящееся в этом текстовом окне.
7.
Скомпилируйте программу в папку Мои документы под
именем Калькулятор.
X.
Проект «Случайные числа».
Создадим
игральный кубик, позволяющий выбирать случайные числа от 1 до 6, для этого:
- Запустите Microsoft Visual
Basic.
2.
Поместите на форму управляющую кнопку и шесть
Картинок (Image):
3.
Задайте следующие свойства для элементов
управления:
Форма:
- Name – frmMain,
- Caption – Кубик.
Управляющая
кнопка:
-
Name – cmdStart,
-
Caption –Жми!!!.
Картинка 1:
-
Name – img1,
-
Picture – вставить рисунок 1 из папки, указанной
учителем.
-
Visible – False.
Картинка
2:
-
Name – img2,
-
Picture – рисунок 2.
-
Visible – False.
Картинка
3:
-
Name – img3,
-
Picture – рисунок 3.
Картинка
4:
-
Name – img4,
-
Picture – рисунок 4.
Картинка
5:
-
Name – img5,
-
Picture – рисунок 5.
Картинка
6:
-
Name – img6,
-
Picture – рисунок 6.
4.
Переместите картинки таким образом, чтобы они
налагались друг на друга:
5.
Напишите программный код:
Dim x As Integer
Private Sub cmdStart_Click()
img1.Visible = False
img2.Visible = False
img3.Visible = False
img4.Visible = False
img5.Visible = False
img6.Visible = False
Randomize
x = Int((Rnd * 6) + 1)
If x = 1 Then
img1.Visible = True
ElseIf x = 2 Then
img2.Visible = True
ElseIf x = 3 Then
img3.Visible = True
ElseIf x = 4 Then
img4.Visible = True
ElseIf x = 5 Then
img5.Visible = True
Else
img6.Visible = True
End If
End Sub
6.
Запустите программу, при необходимости исправьте
ошибки.
7.
Скомпилируйте программу в папку Мои документы под
именем Кубик.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.