Как написать процедуру с параметрами - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. Мне нужно вводить в программу много значений углов (именно в градусах, минутах и секундах) но в дальнейших расчетах принимают участие десятичный вил угла (пример: 4 градуса 30 минут = 4,5 градуса) Вводить значение каждого угла я планирую в 3 текстбокса. Перевести одно значение не проблема - формула: дес. вид = град + (мин/60) + (сек/3600) хотелось бы в коде при получении значений в классическом виде делать какую то ссылку на эту схему перевода. Как это осуществить? Проблема еще усиливается тем, что я заранее не знаю кол-во углов и каждый раз сначала нужно ввести кол-во углов (бейсик должен как то автоматом создать такое же кол-во переменных, которые бы назывались "Х" и имели соответственный порядковому номеру индекс. Как этосделать я тоже не знаю) Далее он по очереди (от первого до последнего) должен спросить у пользователя эти углы и записать их в совершенствующие переменные в ДЕСЯТИЧНОМ ВИДЕ. Вот краткая суть проблемы.

Решение задачи: «Как написать процедуру с параметрами»

textual
Листинг программы
Option Explicit
 
Private Sub Комманда1_Click()
Dim S
MR 20, 30, 40, 30, 25, 45, 52, 30, 50
End Sub
 
 Sub MR(ParamArray myArray())
Dim M()
Dim J
M = myArray
For J = 0 To UBound(M) - 2 Step 3
MsgBox дес(M(J), M(J + 1), M(J + 2))
Next J
End Sub
 
Private Function дес(град, мин, сек)
дес = Round(град + (мин / 60) + (сек / 3600), 3)
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы