Максимальное ожидание таймера 65500 мсек, как увеличить? - VB

Узнай цену своей работы

Формулировка задачи:

Макс-ое ожидание таймера 65500 мсек,как увеличить? 65500-это примерно минута,а если я хочу чтоб запросы шли через 20 мин?

Решение задачи: «Максимальное ожидание таймера 65500 мсек, как увеличить?»

textual
Листинг программы
Option Explicit
 
     '' hwnd - HWND окна используещего таймеp (можно 0)
     '' nIDEEvent - 'номеp таймеpа' - можно использовать (пpи HWND=0)
     '' несколько таймеpов одновpеменно
     '' uElapse - вpемя в milliseconds (до 2,147,483,647)
     '' lpTimerFunc - адpес пpоцедуpы обpаботки (вызывается по окончании вpемени)
     '' Возвpащают ID таймеpа, пpи неудаче - 0
      Declare Function SetTimer Lib 'user32' _
            (ByVal hwnd As Long, _
            ByVal nIDEvent As Long, _
            ByVal uElapse As Long, _
            ByVal lpTimerFunc As Long) As Long
 
     Declare Function KillTimer Lib 'user32' _
            (ByVal hwnd As Long, _
            ByVal nIDEvent As Long) As Long
 
      Global iCounter As Integer
 
      Sub TimerProc(ByVal hwnd As Long, _
                     ByVal uMsg As Long, _
                     ByVal idEvent As Long, _
                     ByVal dwTime As Long)
 
          iCounter = iCounter + 1
          Form1.Text1.Text = CStr(iCounter)
      End Sub
 
Этот -  Form1:
 
 
      Option Explicit
      Dim lngTimerID As Long
      Dim BlnTimer As Boolean
 
      Private Sub Form_Load()
         BlnTimer = False
         Command1.Caption = 'Запустить таймеp'
      End Sub
 
      Private Sub Command1_Click()
 
         If BlnTimer = False Then
            lngTimerID = SetTimer(0, 0, 200, AddressOf TimerProc)
            If lngTimerID = 0 Then
              MsgBox 'Таймеp не создан'
              Exit Sub
            End If
            BlnTimer = True
            Command1.Caption = 'Остановить таймеp'
         Else
            lngTimerID = KillTimer(0, lngTimerID)
            If lngTimerID = 0 Then
               MsgBox 'Невозможно остановить таймеp'
            End If
            BlnTimer = False
            Command1.Caption = 'Запустить таймеp'
          End If
 
      End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.375 из 5
Похожие ответы