Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Roma Vi
0 / 0 / 0
Регистрация: 04.03.2015
Сообщений: 25
1

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

16.03.2015, 17:39. Просмотров 329. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

Выполнение по расписанию.
Уважаемые, возникла не то, чтобы необходимость, но очень хотелось бы данное действо реализовать. В...

0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2015, 17:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Агент по расписанию.
Помогите, пожалуйста, разобраться почему не работает агент по расписанию. Раньше с агентами не...

Агент по расписанию..
Всем здравствуйте! Столкнулся вот с такой штукой! У меня есть агент вот его код: Option Public...

Агент по расписанию
Доброго времени!! Сталкнулся с такой проблемкой.Возникла необходимость запускать агента по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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