Member 13569975 Ответов: 1

Создавайте таймеры с помощью флажков, которые можно вывести в excel


Привет,

Я тот, кто разумно разбирается в VBA, и я просто делаю гигантский скачок к VB.net-да. То, что я хочу, чтобы моя программа делала, по существу,

1)временные события с использованием флажков
2)отображение общего времени события в текстовом поле.
3)Вывод в excel

Представьте, что у меня есть CheckBox1 и TextBox1.

Как бы я нажал checkbox1, который запустил бы таймер в Textbox1, который был бы виден, когда таймер считал. Затем таймер остановится, когда флажок будет снят, и это будет зарегистрировано как событие. Если я снова нажму на поле, начнется новое событие и так далее. Каждое событие будет регистрироваться и сохраняться

В настоящее время у меня нет кода, только форма. Любая помощь будет оценена по достоинству и спасибо за ваше время

Шон

Что я уже пробовал:

Это мой первый ресурс, я построил свою форму и добавил таймер из компонентов в VB.net 2017 год

Member 13569975

Привет, это снова я. Я сделал простой код для двух таймеров и общего таймера. Я хотел, чтобы общий таймер был синхронизирован с флажками, которые у меня были, поэтому я сделал действительно простой оператор IF. Могу ли я просто спросить из интереса, насколько плох мой код и как бы я сделал его лучше? Я не хочу с самого начала приобретать дурные привычки

Общественного Класса Form1
Dim ht как целое число
Dim mt как целое число
Dim st как целое число

Dim h как целое число
Dim m как целое число
Дим как целое

Dim h1 как целое число
Dim m1 как целое число
Dim s1 как целое число
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) обрабатывает CheckBox1.CheckedChanged
Если CheckBox1.CheckState = CheckState.Тогда Не Проверено

Таймер1.Стоп()

Конец, Если
Конец Подводной Лодки
Private Sub Timer1_Tick(sender As Object, e As EventArgs) обрабатывает Timer1.Tick
s += 1
КАПИТАН.Текст = Н & ":" &амп; м &амп; ":" &амп; с


КАПИТАН.Текст = Н & ":" &амп; м &амп; ":" &амп; с
Если s = 60, то
s = 0
m += 1
КАПИТАН.Текст = Н & ":" &амп; м &амп; ":" &амп; с
Если m = 60, то
m = 0
h += 1
КАПИТАН.Текст = Н & ":" &амп; м &амп; ":" &амп; с
Конец, Если

Конец, Если

Конец Подводной Лодки

Private Sub Timer2_Tick(sender As Object, e As EventArgs) обрабатывает Timer2.Tick
s1 += 1
Пробоотборник.Текст = Н1 &ампер; ": "и усилитель; & М1; ":" &амп; С1


Если s1 = 60, то
s1 = 0
m1 += 1
КАПИТАН.Текст = Н1 &ампер; ": "и усилитель; & М1; ":" &амп; С1
Если m1 = 60, то
m1 = 0
h1 += 1
КАПИТАН.Текст = Н1 &ампер; ": "и усилитель; & М1; ":" &амп; С1

Конец, Если

Конец, Если


Конец Подводной Лодки

Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) обрабатывает CheckBox2.CheckedChanged
Если CheckBox2.CheckState = CheckState.Тогда Не Проверено


Таймер2.Стоп()

Конец, Если
Конец Подводной Лодки
Частная суб обработчика button1_click(отправителя как объект, а равно EventArgs) обрабатывает кнопки button1.Щелчок
Если CheckBox1.CheckState = CheckState.Бесконтрольно И CheckBox2.Состояния Checkstate = Состояния Checkstate.Тогда Не Проверено

MsgBox("Сначала Выберите Тип Операции")

Еще

Timer18.Начать()
Если CheckBox1.CheckState = CheckState.Тогда Проверено

Таймера1.Начать()
Конец, Если

Если CheckBox2.CheckState = CheckState.Тогда Проверено

Timer2.Начать()
Конец, Если

Конец, Если
Конец Подводной Лодки

Частная суб методе button2_click(отправителя как объект, а равно EventArgs) обрабатывает элемент button2.Нажмите
Timer18.Стоп()
Таймер1.Стоп()
Таймер2.Стоп()
Конец Подводной Лодки

Private Sub Timer18_Tick(sender As Object, e As EventArgs) обрабатывает Timer18.Tick
st += 1
Весь.Текст = ХТ &ампер; ":" & &усилителя Т; ":" &амп; ст


Весь.Текст = ХТ &ампер; ":" & &усилителя Т; ":" &амп; ст
Если st = 60, то
st = 0
Т += 1
Весь.Текст = ХТ &ампер; ":" & &усилителя Т; ":" &амп; ст
Если mt = 60, то
mt = 0
ht += 1
Весь.Текст = ХТ &ампер; ":" & &усилителя Т; ":" &амп; ст
Конец, Если

Конец, Если
Конец Подводной Лодки
End Класса

1 Ответов

Рейтинг:
4

Leo Chapiro

Сделайте это шаг за шагом: сначала посмотрите, как таймер работает.

Забудьте о записи в excel, это еще одна задача, которая пока не зависит от задачи таймера.

Таким образом, теперь вы инициализируете свой таймер, запускаете его щелчком по флажку и останавливаете его щелчком по флажку и записываете текущее время на этикетке.

Во-первых, после того как вы будете готовы с этой задачей, посмотрите, как общаться с excel:
Как создать файл Excel в VB.Net


Member 13569975

Спасибо за ответ. Я немного изменил ситуацию. Я использовал метки в качестве счетчиков таймера, так как это гораздо аккуратнее и проще. Мой код таков

Private Sub Timer1_Tick(sender As Object, e As EventArgs) обрабатывает Timer1.Tick
мл += 1
КАПИТАН.Текст = м &амп; ":" &амп; ы &ампер; ":" &амп; мл

Если ml = 100, то
мл = 0
s += 1
КАПИТАН.Текст = м &амп; ":" &амп; ы &ампер; ":" &амп; мл
Если s = 60, то
s = 0
m += 1
КАПИТАН.Текст = м &амп; ":" &амп; ы &ампер; ":" &амп; мл
Если m = 60, то
m = 0
h += 1
КАПИТАН.Текст = м &амп; ":" &амп; ы &ампер; ":" &амп; мл
Конец, Если

Конец, Если
Конец, Если
Конец Подводной Лодки

Я буду работать через ваши ссылки. Спасибо за помощь!