Методические указания к выполнению лабораторной работы по программированию в VB

няются в диапазоне от 0 до 100.Примерный вид программы показан на рис. 2.2.

Рис.2.2

Технология выполнения задания

1.Создайте новый проект командой File, New Project (Файл, Новый проект). Задайте свойству Name формы значение frmCalc, а свойству Caption значение Калькулятор.

2.Создайте на форме frmCalc три текстовых элемента и два элемента -надписи, расположив их по горизонтали в следующем порядке: текстовый элемент, элемент надпись, текстовый элемент, элемент надпись, текстовый элемент (рис. 2.2).

3.Задайте для созданных текстовых элементов свойства Name: txtTextl, txtText2, txtText3. Свойства Text задайте пустыми. Задайте размер шрифта 18 (свойство Font).

4.Задайте для элементов надписей значение свойства Caption: "X" и "=", соответственно. Отрегулируйте размеры элементов так, чтобы они представляли строку калькулятора.

5.Дважды щелкните на элементе-кнопке и поместите кнопку на форме. Задаем для свойства Name значение cmdCalc , а для свойства Caption — значение Пуск.

6.Дважды щелкните на кнопке и откройте окно с подпрограммой cmdCalc_Clickf(). Откорректируйте подпрограмму следующим образом

Private Sub cmdCalc_Click() Dim intNum1As Integer

Dim intNum2 As Integer Dim intNum3 As Integer intNum1 =Val(txtText1.Text) intNum2 = Val(txtText2Text)

intNum3= intNum1* intNum2 txtText3.Text = Str(intNum3) End Sub

В этой процедуре используются две стандартные функции Val и Str. Функция Val преобразует строку в число. Функция Str преобразует число любого типа в строку.

7. Сохраните проект программы командой File, Save Project As (Файл, Сохранить Проект как) с именем z2-2, а также сохраните модуль формы командой File, Save frmCalc.frm As (Файл, Сохранить frmCalc.frni как) с именем zl-2. К. Запустите программу командой Run, Start (ПИТО. Старт).

Контрольные вопросы

1.Что такое переменная? Чем она отличается от константы?

2.С какой целью переменным назначаются типы данных?

3.Какие операторы используются для объявления переменных или констант?

4.Что такое целая переменная? Какой ее диапазон значений?

5.Что такое оператор присваивания? Приведете пример такого оператора из зада-

Методические указания к выполнению лабораторной работы по программированию в VB

ния?

6.Что такое целочисленное деление и деление по модулю?

7.Почему переменные intNum1, intNum2, intNum3 вышеприведенной программы описаны как Integer? Чем отличается тип Integer от типа Long? IB каком случае переменную intNum3 необходимо описывать как Long?

8.Какое событие возникает при нажатии кнопки Пуск?

9.Для чего рекомендуется имя переменной начинать с префикса?

10.Что означает конструкция txtTextl.Text? Что означает текст, стоящий слева от точки?

11.Какие действия происходят при выполнении оператора

intNum1 = Val(txtText1.Tеxt)?.

12. Какие действия происходят при выполнении оператора txtTextS.Text = Str(intNum3)?

14. Какие стандартные функции используются в задании?

Задание 2.3

Напишите программу, которая определяет стоимость количества золога, равного вашему весу (рис. 2.3).

Рис. 2.3.

Технология выполнения задания

1.Создайте новый проект командой File, New Project (Файл, Новый проект).

2.Выделите форму и измените свойство Name на frmGold, а свойству Caption

3.Создайте на форме frmGold элемент-надпись и задайте его свойству Name значение lblGold, а свойству Caption присвоим значение 'Стоите ли Вы своего веса в золотом эквиваленте?".

4.Дважды щелкните по элементу-кнопке на панели инструментов и поместите кноп-

Методические указания к выполнению лабораторной работы по программированию в VB

5. Дважды щелкните на кнопке и откройте окно С подпрограммой cmdGold_ClickQ. Добавьте в подпрограмму следующий фрагмент

Private Sub cmdGold_Click() Dim str Re As String

Dim sngWeight As Single Dim sngGold As Single

strRc = 1при1Вох("Введите свой вес в кг:") ‘ преобразование строки в число sngWeight = Val (strRc)

sngGold = 15000 * sngWeight

' преобразование числа в строку strRc = Str(sngGold)

MsgBox "Стоимость вашего веса в золотом эквиваленте" _ & strRc & " $"

MsgBox "Вы несомненно стоите столько!" &_ "Если цена золота упадет, ешьте больше," &_ "чтобы сохранить свою стоимость"

End Sub

Обратите внимание!

Для переноса строки программного кола используется так подчеркивания_. В процедуре используются две стандартных функции Val и Str. Функция Val преобразует строку в число, функция Str преобразует число любого типа в строку.

6. Сохраните проект программы командой File, Save Project As (Файл, Сохранить Проект как) с именем z2-3, а также сохраните модуль формы командой File, Save frmGold.frm As (Файл, Сохранить frmGold.frm как) с именем z2-3.

7. Запустите программу командой Run, Start (Пуск, Старт).

Контрольные вопросы

1.Для чего нужны вещественные переменные? Как они описываются?

2.Что такое приоритеты операций и почему они важны?

3.Чем отличается тип Single от типа Double. В каких случаях эти типы должны использоваться?

4.Что означает оператор sngWeight = Val(strRc)? Можно ли его записать в виде

sngWeight = strRc?

5. Что означает оператор strRc = Str(sngGold)? Корректна ли будет запись strRc = sngGold?

6.Что означает символ &, используемый в операторе MsgBox

7.Для чего используется функции Str() и Val()?

Задание 2.3 (дополнительное)

Методические указания к выполнению лабораторной работы по программированию в VB

Создайте программу, которая изменяет единицы измерения веса: килограммы в фунты. Форма должно иметь два текстовых элемента (TextBox), озаглавленных «Ваш вес в кг» и «Ваш вес в фунтах», а также кнопку «Переведи в фунты» Формула перевода: 1 фунт = 0.41 кг.

Задание 2.4

Напишите программу, которая выводила сегодняшнюю дату, а также год месяц и день сегодняшней даты. Кроме того после ввода вашей даты рождения она бы указывала сколько дней прошло от вашего рождения до сегодняшнего дня. Кроме того, вычислите дату 10 000 дня от даты вашего рождения (рис. 2.4).

Рис.2.4.

Технология выполнения задания.

1.Создайте новый проект командой File, New Project (Файл, Новый проект).

2.Выделите форму и измените свойство Name на frmBirthDay, а свойству Caption задайте значение Правильно определите дату.

3.Разместите на форме текстовое поле, свойству Name которой задайте значение txtNow. За-

дайте свойству Text элемента значение "" (пусто). Сверху над полем поместите надпись Сегодня.

значения txtYear, txtMonth, txtDay. Задайте свойствам Text элементов значения "" (пусто). Сверху над полями разместите надписи Год, Месяц, День.

5.Добавьте кнопку на форму frmBirthDay. В окне свойств задайте свойству

Name кнопки значение cmdDate. Задайте свойству Caption кнопки значение &Дата.

6.Щелкните дважды по кнопке Дата и добавьте в процедуру обработчик события

код

Private Sub cmdDate_Click() Dim dim Now As Date

Dim intYear As Integer, intMonth As Integer, intDay As Integer

‘определяем cei однншнюю дагу dtmNow = Date

‘ раскладываем даmу на год, месяц и день intYear = Year(dtmNow)

intMonth = Month (dtmNow) intDay = Day(dtmNow)

‘присваиваем значения переменных свойству Text текстовых элементов txtNow.Text = Str(dtmNow)

txtYear.Text = Str(intYear)