Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/14: Рейтинг темы: голосов - 14, средняя оценка - 4.64
Well78
#1

Как на форму поставить таймер?

27.06.2012, 16:28. Просмотров 2510. Ответов 1
Метки нет (Все метки)

Как на форму поставить таймер, чтобы он работал независимо от других методов отдельным потоком?

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.06.2012, 16:28
Ответы с готовыми решениями:

Помогите установить таймер на форму под excel
Написал тест под excel, нужно ограничение по времени выполнения, а я не могу...

Как сделать форму в Excel в которую нужно вывести данные из Sheet-а, а затем пустить эту форму на принтер?
Как сделать форму в Excel в которую нужно вывести данные из Sheet-а, а затем...

Как использовать Таймер в VBA
Здравствуйте, проблема в следующем: в экселе нужно создать код, который...

Как на форме по клику на кнопке запустить таймер?
Помогите, пожалуйста. Как на форме по клику на кнопке запустить таймер. Форма...

Как убрать форму делфи и поставить свою форму
Как убрать форму делфи и поставить свою нарисованую форму???

1
VladConn
2 / 2 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
27.06.2012, 18:04 #2
Dlya organizacii dvux potokov (multithreading): postav' na formu knopku cmdDvaPotoka i skopiruj v formu etot kod:

Visual Basic
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
69
70
71
72
73
74
75
Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub cmdDvaPotoka_Click()
    Dim objTicks1 As New clsTicks
    Dim objTicks2 As New clsTicks
 
    Debug.Print Vizovi(objTicks1, objTicks2) & " Oba vizova zaversheni..."
    Debug.Print Potoki(objTicks1, objTicks2) & " Oba potoka zaversheni..."
    
    Set objTicks1 = Nothing
    Set objTicks2 = Nothing
End Sub
 
Private Function Vizovi(ByRef ioobjTicks1 As clsTicks, _
                        ByRef ioobjTicks2 As clsTicks) As Long
    Dim lngNachalo As Long
    
    lngNachalo = GetTickCount
    plngVixodPervogoPotoka = ioobjTicks1.ProdolzhitelnostIntervala(INTERVAL_ODIN)
    plngVixodVtorogoPotoka = ioobjTicks2.ProdolzhitelnostIntervala(INTERVAL_DVA)
    
    plngVixodPervogoPotoka = 0
    plngVixodVtorogoPotoka = 0
    
    Vizovi = GetTickCount - lngNachalo
    
End Function
 
Private Function Potoki(ByRef ioobjTicks1 As clsTicks, ByRef ioobjTicks2 As clsTicks) As Long
    Dim lngPotok As Long
    Dim lngNachalo As Long
    
    lngNachalo = GetTickCount
    lngPotok = CreateThread(ByVal 0&, ByVal 0&, AddressOf IntervalOdin, ByVal 0&, ByVal 0&, 0&)
    CloseHandle lngPotok
    lngPotok = CreateThread(ByVal 0&, ByVal 0&, AddressOf IntervalDva, ByVal 0&, ByVal 0&, 0&)
    CloseHandle lngPotok
    
    While plngVixodPervogoPotoka = 0 Or plngVixodVtorogoPotoka = 0
        DoEvents
    Wend
     
    plngVixodPervogoPotoka = 0
    plngVixodVtorogoPotoka = 0
   
    Potoki = GetTickCount - lngNachalo
    
End Function
 
Dobav' modul' i skopiruj v nego etot kod:
 
Option Explicit
 
Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Public plngVixodPervogoPotoka As Long
Public plngVixodVtorogoPotoka As Long
 
Public Const INTERVAL_ODIN  As Long = 2000 'millisecundi
Public Const INTERVAL_DVA  As Long = 4000 'millisecundi
 
Public Sub IntervalOdin()
    Dim objTick As New clsTicks
    plngVixodPervogoPotoka = objTick.ProdolzhitelnostIntervala(INTERVAL_ODIN)
    Set objTick = Nothing
End Sub
 
Public Sub IntervalDva()
    Dim objTick As New clsTicks
    plngVixodVtorogoPotoka = objTick.ProdolzhitelnostIntervala(INTERVAL_DVA)
    Set objTick = Nothing
End Sub
Dobav' class clsTicks i skopiruj v nego etot kod:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Public Function ProdolzhitelnostIntervala(ByVal plngSekundi As Long) As Long
    Dim lngNachalo As Long
    
    lngNachalo = GetTickCount
    
    Do Until GetTickCount - lngNachalo >= plngSekundi
    Loop
    
   ProdolzhitelnostIntervala = plngSekundi
End Function
Primer dan dlya VB6.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.06.2012, 18:04

Как поставить таймер ?
у меня есть форма и там одна кнопка "активация" if( c("edit1")->text == "15"){...

Как поставить таймер на сайт
Как поставить вот этот таймер на сайт? все делал, а он не работает....

Как правильно поставить таймер?
Здравствуйте! У меня есть программа, которая решает СЛАУ методом Гаусса. Мне...


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

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

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