Создавайте таймеры с помощью флажков, которые можно вывести в 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 Класса