Перевод из шкалы Цельсия в шкалу Фаренгейта и наоборот

Автор работы: Пользователь скрыл имя, 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

Содержимое работы - 1 файл

готовый отчет.docx

— 164.33 Кб (Скачать файл)

Таблица 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.

Таблица 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(Число, которое необходимо округлить, количество знаков после запятой).

 

 

 

 

 


Информация о работе Перевод из шкалы Цельсия в шкалу Фаренгейта и наоборот