Автор работы: Пользователь скрыл имя, 11 Мая 2013 в 20:04, лабораторная работа
Форма содержит четыре текстовых поля: для ввода и для вывода результатов перевода единиц длины.: сантиметров, дюймов, миллиметров, метров.
Каждое текстовое поле имеет соответствующие надписи (метки) с названиями единиц измерения длины: сантиметры, дюймы, миллиметры, метры.
А также командные кнопки «Очистить», «Выход» и «Перевод».
На форме предусмотрена горизонтальная полоса прокрутки.(рис.1)
1 Постановка задачи «Фаренгейт» 3
1.1 Цель решения задачи «Фаренгейт» 3
1.2 Периодичность решения задачи «Фаренгейт» 3
1.3 Определение круга пользователей задачи «Фаренгейт» 3
1.4 Описание выходной информации задачи «Фаренгейт» 3
1.5 Описание входной информации 3
1.6 Описание алгоритма решения задачи «Фаренгейт» 3
1.7 Технология решения задачи «Фаренгейт» 4
2 Выполнение самостоятельного задания 8
2.1 Цель решения задачи «Перевод» 8
2.2 Периодичность решения задачи «Перевод» 8
2.3 Определение круга пользователей задачи «Перевод» 8
2.4 Описание выходной информации задачи «Перевод» 8
2.5 Описание входной информации 8
2.6 Описание алгоритма решения задачи «Перевод» 8
2.7 Технология решения задачи «Перевод» 10
Таблица 2. Свойства используемых элементов управления.
Приложение:
Private Sub Cmd1_Click()
If Dym.Text = "" And Mili.Text = "" And Metr.Text = "" Then
Dym.Text = Int(Santi.Text / 2.54)
Mili.Text = Int(Santi.Text * 10)
Metr.Text = Int(Santi.Text / 100)
: GoTo 1
End If
If Santi.Text = "" And Dym.Text = "" And Metr.Text = "" Then
Santi.Text = Int(Mili.Text / 10)
Dym.Text = Int(Mili.Text / 10 / 2.54)
Metr.Text = Int(Mili.Text / 1000)
: GoTo 1
End If
If Santi.Text = "" And Dym.Text = "" And Mili.Text = "" Then
Santi.Text = Int(Metr.Text * 100)
Dym.Text = Int(Metr.Text * 100 / 2.54)
Mili.Text = Int(Metr.Text * 1000)
: GoTo 1
End If
If Santi.Text = "" And Mili.Text = "" And Metr.Text = "" Then
Santi.Text = Int(Dym.Text * 2.54)
Mili.Text = Int(Dym.Text * 10 * 2.54)
Metr.Text = Int(Dym.Text * 2.54 / 100)
: GoTo 1
End If
1: End Sub
Private Sub clear_Click()
Santi.Text = ""
Dym.Text = ""
Mili.Text = ""
Metr.Text = ""
Santi.SetFocus
End Sub
Private Sub Pult_Change()
Santi.Text = Pult.Value
Dym.Text = Pult.Value
Mili.Text = Pult.Value
Metr.Text = Pult.Value
Dym.Text = Int(Pult.Value / 2.54)
Mili.Text = Int(Pult.Value * 10)
Metr.Text = Int(Pult.Value / 100)
End Sub
Private Sub cmdExit_Click()
End
End Sub
3 Выполнение самостоятельного задания
3.1
Цель решения задачи «Перевод»
Перевод чисел в единицы измерения веса: килограммы, фунты, граммы, миллиграммы.
3.2
Периодичность решения задачи «Перевод»
Задача
решается при возникновении
3.3
Определение круга пользователей задачи «Перевод»
Ученые, учащиеся средних и высших заведений и работники торговых центров.
3.4
Описание выходной информации задачи «Перевод»
Значения при переводе в единицы веса, выводятся с точностью до двух знаков после запятой.
3.5
Описание входной информации
С клавиатуры возможен ввод любых целых чисел и при помощи горизонтальной полосы прокрутки.
3.6
Описание алгоритма решения задачи «Перевод»
Алгоритм задачи представлен в математическом виде.
Для перевода
килограммов в остальные
Text2.Text = Int(Text1.Text * 2.2) (1)
Text3.Text = Int(Text1.Text * 1000) (2)
Text4.Text = Int(Text1.Text * 1000000) (3)
где Text1- вводимая переменная, измеряемая в килограммах;
Text2-выводимая переменная, измеряемая в фунтах;
Text3- выводимая переменная, измеряемая в граммах;
Text4-выводимая переменная, измеряемая в миллиграммах.
3.7
Технология решения задачи «Перевод»
Форма содержит четыре текстовых поля: для ввода и для вывода результатов перевода единиц веса.
Каждое текстовое поле имеет соответствующие надписи (метки) с названиями единиц измерения веса: килограммы, фунты, граммы, миллиграммы.
А также командные кнопки «Очистить» и «Перевод».
На форме предусмотрена вертикальная полоса прокрутки.(рис.1)
Рисунок 1 – Форма с элементами управления.
Для выполнения перевода следует ввести в любое текстовое поле необходимое значение, затем нажать на кнопку «Перевод» и во всех остальных текстовых окнах появится результат перевода.(рис.2)
Рисунок 2 – перевод килограммов в фунты, граммы, миллиграммы.
Альтернативным же способом введения значений является использование полосы прокрутки. (рис.3)
Рисунок 3 – Ввод значения веса при помощи полосы прокрутки.
В таблице 3 приводятся начальные установки свойств используемых элементов управления.
Название элемента |
Свойства |
Значение |
Метка |
Caption |
килограммы |
Name |
Label1 | |
Метка |
Caption |
Фунты |
Name |
Label2 | |
Метка |
Caption |
Граммы |
Name |
Label3 | |
Метка |
Caption |
миллиграммы |
Name |
Label4 | |
Полоса прокрутки |
Name |
VScroll1 |
Max |
||
Min |
||
Value |
||
Название элемента |
Свойства |
Значение |
Текстовое поле |
Text |
|
Name |
Text1 | |
Текстовое поле |
Text |
|
Name |
Text2 | |
Текстовое поле |
Text |
|
Name |
Text3 | |
Текстовое поле |
Text |
|
Name |
Text4 | |
Командная кнопка |
Caption |
Перевод |
Name |
Command1 | |
Командная кнопка |
Caption |
Очистка |
Name |
Command2 |
Таблица 3. Свойства используемых элементов управления.
Приложение:
Private Sub Command1_Click()
Text2.Text = Int(Text1.Text * 2.2)
Text3.Text = Int(Text1.Text * 1000)
Text4.Text = Int(Text1.Text * 1000000)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
Text2.Text = Int(Text1.Text * 2.2)
Text3.Text = Int(Text1.Text * 1000)
Text4.Text = Int(Text1.Text * 1000000)
End Sub
4. Краткое описание всех использованных в приложении объектов, свойств, функций, операторов
Описание используемых
в приложении элементов
Таблица 2 - Описание используемых в приложении элементов управления
Элемент |
Название |
Назначение |
|
Label (метка) |
Отображение надписей в форме |
|
TextBox (текст) |
Ввод текста, чисел и дат |
|
HscrollBar (горизонтальная полоса прокрутки) |
Используется для управления вводом параметра, значение которого может меняться в некотором диапазоне. |
|
VscrollBar (вертикальная полоса прокрутки) |
Используется для управления вводом параметра, значение которого может меняться в некотором диапазоне. |
|
Command Button (управляющая кнопка) |
Выполнение приложением |
Свойства горизонтальной и вертикальной полос прокрутки (HscrollBar,VscrollBar) представлены в таблице 3.
Таблица 3 - Свойства элементов управления HScrollBar,VscrollBar
Свойство |
Назначение |
LargeChange, SmallChange |
Задают величины, на которые будет смещаться ползунок при щелчке кнопкой мыши на полосе или стрелке прокрутки |
Свойство |
|
Min, Max |
Задают диапазон вводимых с помощью полосы прокрутки чисел |
Value |
Целое число, соответствующее положению ползунка на полосе прокрутки |
Функция Str преобразовывает численное значение в символьное представление. Синтаксис функции следующий: Str (число)
Конструкция If... Then
Конструкция If.. .Then применяется в том случае, когда необходимо выполнить один или группу операторов при соблюдении определенного условия, то есть когда значение заданного условия равно True. Существует две разновидности данного оператора: однострочный и многострочный. Однострочный оператор имеет следующий синтаксис:
IF условие Then конструкция
В этом операторе условие и выполняемые при соблюдении условий действия располагаются в одной строке.
В том случае, если
при выполнении условия
IF условие Then
конструкции
End If
GoTo line - оператор для перехода на определённую метку. Синтаксис:
GoTo Метка
Метка:
Функция Round служит для округления чисел до заданной точности. Синтаксис:
Round(Число, которое необходимо округлить, количество знаков после запятой).
Информация о работе Перевод из шкалы Цельсия в шкалу Фаренгейта и наоборот