Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Visual Basic .NET Определить количество процессоров https://www.cyberforum.ru/vb-net/thread1396445.html
помогите пожалуйста ((( Используя RegOpenKey, RegQueryValueEx, RegCloseKey, определить количество процессоров (HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor). vb.net не пойму как...
Visual Basic .NET Обратиться к CheckBox, расположенному на GroupBox
Есть три кнопки, три группы, в каждой из которых по три чекбокса. У чекбоксов стоит параметр Tag, причём этот параметр одинаковый у некоторых чекбоксов из разных групп. Суть в том, что при нажатии на...
Visual Basic .NET При отладке не работает WebBrowser1.Navigate
В VB 2010 Экспресс при отладке не работает: WebBrowser1.Navigate(URL) пишет ошибку: "SEHException не обработано Внешний компонент создал исключение." А в скомпилированном виде работает...
Visual Basic .NET Сформировать двумерный массив по правилу VS(Basic) Сформируйте двумерный массив N(5,7) по правилу: N i,j=|i+5j, если j<=3 |7i+2(j-1),если i>3 Вставьте после строки с заданным номером k (0<= k <=5) строку из нулей (значение... https://www.cyberforum.ru/vb-net/thread1396315.html
Visual Basic .NET Проверить, является ли отношение R функцией? https://www.cyberforum.ru/vb-net/thread1396284.html
Прикрепила лабу и сами задания. В четвертом задании ошибка, и я не могу ее найти. 4) Проверить, является ли отношение R функцией? вроде все нормально, но когда выпадают одинаковые пары вроде...
Что нужно сделать, чтобы анимация не оставляла черные "следы" Visual Basic .NET
Здравствуйте, что нужно сделать, чтобы анимация не оставляла черные "следы"?
Событие изменения содержимого TextBox пользователем Visual Basic .NET
Нужно событие не реагирующее на изменение содержимого TextBox программно. Проблема вроде выеденного яйца не стоит, хочется решить просто и изящно. Например у ComboBox есть SelectionChangeCommitted...
Visual Basic .NET COM-USB приём, передача данных Добрый день! Такая проблема: данные с микроконтроллера ATMEGA 128 идут по RS232C после чего попадают в переходник COM-USB, хотелось бы считывать данные, которые пуляет МК и соответственно отвечать... https://www.cyberforum.ru/vb-net/thread1396138.html
Visual Basic .NET Не запускаются программы на другом ПК https://www.cyberforum.ru/vb-net/thread1395919.html
Здравствуйте! писал проги на vb.net, идет все хорошо!. Но, перекинул программы на другой ноут ( где установлен net framework 1.1 - 4.5.1) выдает вот такую вот ошибку!
Visual Basic .NET Нет пункта "Целевой ЦПУ" в свойствах проекта По-моему где-то тут должен быть пункт Target CPU (Целевой ЦПУ). Что-то я его найти никак не могу. Или я что-то путаю? https://www.cyberforum.ru/vb-net/thread1395893.html
Roma Vi
0 / 0 / 0
Регистрация: 04.03.2015
Сообщений: 25
0

Процедура, выполняющаяся по расписанию

16.03.2015, 17:39. Просмотров 343. Ответов 0
Метки (Все метки)

Доброго времени суток, уважаемые пользователи данного форума )))
Нужна ваша помощь, по подправки кода.

Суть :

Программа выполняет операцию в заданное время, допустим в [11]ч [10]м [10]с.
Далее мы указываем "Повтор", допустим повторять каждую 1 минуту.
И так он будет через каждую минуту выполнять процедуру.

Вопрос: Как мне перевести что бы повтор можно было указывать не в минутах, а в секундах.?

Проблема : Я практически решил этот вопрос, но проблема встала на том, что часы остаются не изменными.
Т.е Время 12:59:00, далее он покажет не 13:00:00 а снова 12:00:00.


Вот начальный исходник :
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        TextBox2.Text = My.Settings.login
        TextBox3.Text = My.Settings.pass
        ToolTip1.SetToolTip(Label1, "То, что указано в сетевых подключениях")
        ToolTip1.SetToolTip(Label2, "Переключить состояние указаного подключения в часов:минут:секунд")
        ToolTip1.SetToolTip(CheckBox1, "Вернуть состояние через минут:секунд")
        ToolTip1.SetToolTip(CheckBox2, "Повторить это действие через хх минут")
 
    End Sub
 
    
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label3.Visible = False
        If NumericUpDown1.Value = Date.Now.Hour.ToString And NumericUpDown2.Value = Date.Now.Minute.ToString And NumericUpDown3.Value = Date.Now.Second.ToString Then
            ChangeReturnValue()
            Label3.Visible = True
            Label3.Text = "Переподключение..."
            reconnect()
            If CheckBox2.Checked Then
                If NumericUpDown2.Value + NumericUpDown6.Value < 60 Then
                    NumericUpDown2.Value = NumericUpDown2.Value + NumericUpDown6.Value
                Else
                    NumericUpDown2.Value = NumericUpDown2.Value + NumericUpDown6.Value - 60
                    If NumericUpDown1.Value = 23 Then
                        NumericUpDown1.Value = 0
                    Else
                        NumericUpDown1.Value = NumericUpDown1.Value + 1
                    End If
                End If
            End If
        End If
        If RHour = Date.Now.Hour.ToString And RMin = Date.Now.Minute.ToString And RSec = Date.Now.Second.ToString And CheckBox1.Checked Then
            Label3.Visible = True
            Label3.Text = "Состояние возвращается..."
            reconnect()
        End If
 
        If NumericUpDown7.Value = Date.Now.Hour.ToString And NumericUpDown8.Value = Date.Now.Minute.ToString And NumericUpDown9.Value = Date.Now.Second.ToString And CheckBox3.Checked Then
            Button1.Text = "Start"
            Timer1.Stop()
        End If
    End Sub
 
 
 
 
    Shared Sub ChangeReturnValue()
 
        Form1.RHour = Form1.NumericUpDown1.Value
        Form1.RMin = Form1.NumericUpDown2.Value
        Form1.RSec = Form1.NumericUpDown3.Value + Form1.NumericUpDown5.Value
 
        If Form1.RSec > 59 Then
            Form1.RSec = Form1.NumericUpDown3.Value + Form1.NumericUpDown5.Value - 60
            Form1.RMin = Form1.RMin + 1
            If Form1.RMin > 59 Then
                Form1.RMin = 0
                Form1.RHour = Form1.RHour + 1
                If Form1.RHour > 23 Then
                    Form1.RHour = 0
                End If
            End If
        End If
 
    End Sub
Добавлено через 5 минут
Похоже не в ту категорию разместился, прошу прощения )))

Вернуться к обсуждению:
Процедура, выполняющаяся по расписанию
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2015, 17:39
Готовые ответы и решения:

Неверно выполняющаяся интерполяция
Всем привет, такая проблема: С оси ординат должна была выйти перпендикулярная прямая, и...

Функция, выполняющаяся каждые 4 часа
Мне хотелось бы узнать, можно ли, что бы каждые 4 часа вызывалась определённая функция?

Есть ли долго выполняющаяся функция в js?
Вобщем искал аналог sleep() в js но так ничего не нашел. Решил просто найти функцию, которая...

Процедура ПередЗаписью и Процедура ПередЗаписьюНаСервере
В документе после нажатия на кнопку Провести и закрыть надо запросить информацию у пользователя :...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.