«Программирование в среде Visual Basic»
| Вид материала | Лабораторная работа |
| Элементы формы. Есть картинка Нет картинки Имя граф. файла Private Sub Cmd1_Click() Private Sub Cmd2_Click() |
- Тематическое планирование учебного времени раздела «Введение в программирование» (15, 68.18kb.
- Н. Г. Волчёнков программирование на visual basic 6 Учебное пособие, 128.99kb.
- Краткий курс по изучению языка программирования Visual Basic, 357.37kb.
- Даний курс призначений для тих, хто: ніколи не програмував, але хоче навчитися, 360.9kb.
- Тема урока: Массивы в Visual Basic, 35.5kb.
- Учебное пособие Рекомендовано учебно-методическим советом угаэс уфа-2006, 1339.31kb.
- Язык Visual Basic имеет разнообразные средства визуализации разрабатываемых приложений., 41.17kb.
- Опис модуля назва модуля: Visual Basic для додатків. Код модуля, 40.19kb.
- Myreferatik at ua, 109.55kb.
- Visual Basic Основы работы с базами данных, 1336.88kb.
Элементы формы.
Элемент Переключатель (OptionButton) - имеет два состояния включено и выключено.
Элемент Рисунок (Image) - используется для отображения рисунка на форме.
Пример: Создать форму для задания (см.выше), используя новые элементы и их свойства. Предусмотреть, чтобы при появлении в поле вывода результата, рядом появлялась надпись одного из уравнений системы по которому вычисляется результат.
| Элемент | Свойства | Описание | Значение |
| Form1 | Name | | Frm1 |
| | Caption | | Лабораторная … |
| | Icon | Выбор иконки в заголовке формы | *.icon, *cur |
| Label1 | Name | | LblX |
| | Caption | | Ввести х |
| | Autosize | Приведение в соответствие размера элемента к длине надписи | True |
| Label2 | Name | | LblY |
| | Caption | | Пусто |
| TextBox1 | Name | | TxtX |
| | ToolTipText | Добавить всплывающее примечание | Введите Х от -5 до 5 |
| TextBox2 | Name | | TxtY |
| | Locked | Не доступность ввода | True |
| CommandButton1 | Name | | Cmd1 |
| | Caption | | Вычислить |
| CommandButton2 | Name | | Cmd2 |
| | Caption | | Сброс |
| CommandButton3 | Name | | Cmd3 |
| | Caption | | Выход |
| OptionButton1 | Name | | Opt1 |
| | Caption | | Есть картинка |
| | Value | Состояние переключателя | True |
| OptionButton2 | Name | | Opt2 |
| | Caption | | Нет картинки |
| | Value | | False |
| Image | Name | | Img1 |
| | Visible | Видимость | True |
| | Picture | Выбор картинки | Имя граф. файла |
| | Stretch | Приведение в соответствие размеров картинки и элемента | True |
| Метод | SetFocus | Помещает фокус клавиатуры на данный объект | |
Процедура-событие нажатия кнопки Вычислить:
P
rivate Sub Cmd1_Click()Dim x As Single, y As Single
Const a As Single = 3, b As Single = 2
x = Val(TxtX.Text)
Select Case x
Case Is < -1
y = a * x
LblY.Caption = "y=a*x"
Case -1 To 1
y = Abs(x)
LblY.Caption = "y=|x|"
Case Else
y = x b
LblY.Caption = "y=xb"
End Select
TxtY.Text = y
End Sub
Процедура кнопки Сброса, очищает поля ввода Х и вывода Y и надпись с уравнением, а также активизирует поле ввода Х:
Private Sub Cmd2_Click()
TxtX.Text = ""
TxtY.Text = ""
LblY.Caption = ""
TxtX.SetFocus
End Sub
Процедура нажатия на Переключатель, делает видимой/невидимой картинку:
Private Sub Opt1_Click()
if Opt1.Value = True Then Img1.Visible = True
End Sub
Private Sub Opt2_Click()
if Opt2.Value = True Then Img1.Visible = False
End Sub