Как написать процедуру с параметрами - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д