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

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