|
|
|
|
Witaliy |
Пятница, 25 Июля 2003, 14:58
|
Участник
Профиль
Группа: Участник
Сообщений: 23
Регистрация: 25.07.2003
Из: Санкт-Петербург
Пользователь №: 5604
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: 128х2 Видеокарта: ASUS v3400 TNT TV In\Out, AGP Жесткий диск (винчестер): Quantum as20 Дисковод: 3.5" CD/DVD: Acer 56x Модем: Lucent WinModem Сетевой адаптер: -- Звуковая плата: Crystal Монитор: Nokia 449za Операционная система: WindowsXP SP1 + full update Прочее: --
|
Можно ли каким нибудь образов вставить в офисовский бэсик таймер из обычного 6го визуал бэйсика? Заранее спасибо.
|
|
|
|
|
yozh |
Пятница, 25 Июля 2003, 15:55
|
Ведущий
Профиль
Группа: WinCity Team
Сообщений: 2409
Регистрация: 06.09.2002
Из: Петербург/Штутгарт
Пользователь №: 3321
Конфигурация
Корпус: Compaq nx8220 PY518ET Процессор: Другой Материнская плата: HP 82915PM/GM/GMS Оперативная память: DDR2-SDRAM 1024 Mb Samsung M4 70T2953BY0-CD5 Видеокарта: ATI Mobility Radeon X600 128MB Жесткий диск (винчестер): ST9808211A, 75Gb Дисковод: Нет дисковода CD/DVD: MATSHITA DVD-RAM UJ-832S Модем: Agere Systems AC'97 Сетевой адаптер: Broadcom NetXtreme Gigabit + Intel PRO/Wireless 2200BG Звуковая плата: Intel 82801FB ICH6 - AC'97 Монитор: 15,4'' TFT, SWXGA (1680 x 1050) Операционная система: WinXPProGerSP2,Slackware 11.0,FreeDOS Beta9 Прочее: HP LaserJet 1000, HP ScanJet 2400
|
|
|
|
|
|
Witaliy |
Воскресенье, 27 Июля 2003, 15:06
|
Участник
Профиль
Группа: Участник
Сообщений: 23
Регистрация: 25.07.2003
Из: Санкт-Петербург
Пользователь №: 5604
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: 128х2 Видеокарта: ASUS v3400 TNT TV In\Out, AGP Жесткий диск (винчестер): Quantum as20 Дисковод: 3.5" CD/DVD: Acer 56x Модем: Lucent WinModem Сетевой адаптер: -- Звуковая плата: Crystal Монитор: Nokia 449za Операционная система: WindowsXP SP1 + full update Прочее: --
|
yozh почитал я твои ссылки, создал ocx фаил, но как применить таймер я так и не понял (вернее не смог перевести всё до конца). Не могбы ты рассказать мне по подробней, как это делается или дать ссылку на рускоязычный ресурс?
|
|
|
|
|
yozh |
Воскресенье, 27 Июля 2003, 16:17
|
Ведущий
Профиль
Группа: WinCity Team
Сообщений: 2409
Регистрация: 06.09.2002
Из: Петербург/Штутгарт
Пользователь №: 3321
Конфигурация
Корпус: Compaq nx8220 PY518ET Процессор: Другой Материнская плата: HP 82915PM/GM/GMS Оперативная память: DDR2-SDRAM 1024 Mb Samsung M4 70T2953BY0-CD5 Видеокарта: ATI Mobility Radeon X600 128MB Жесткий диск (винчестер): ST9808211A, 75Gb Дисковод: Нет дисковода CD/DVD: MATSHITA DVD-RAM UJ-832S Модем: Agere Systems AC'97 Сетевой адаптер: Broadcom NetXtreme Gigabit + Intel PRO/Wireless 2200BG Звуковая плата: Intel 82801FB ICH6 - AC'97 Монитор: 15,4'' TFT, SWXGA (1680 x 1050) Операционная система: WinXPProGerSP2,Slackware 11.0,FreeDOS Beta9 Прочее: HP LaserJet 1000, HP ScanJet 2400
|
НЕ знаю, сам не делал. Русскоязычных ресурсов не нашёл.
|
|
|
|
|
Witaliy |
Воскресенье, 27 Июля 2003, 17:15
|
Участник
Профиль
Группа: Участник
Сообщений: 23
Регистрация: 25.07.2003
Из: Санкт-Петербург
Пользователь №: 5604
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: 128х2 Видеокарта: ASUS v3400 TNT TV In\Out, AGP Жесткий диск (винчестер): Quantum as20 Дисковод: 3.5" CD/DVD: Acer 56x Модем: Lucent WinModem Сетевой адаптер: -- Звуковая плата: Crystal Монитор: Nokia 449za Операционная система: WindowsXP SP1 + full update Прочее: --
|
Я тут покопался и нашёл такой код:
Public Declare Function SetTimer Lib "user32" ( _ ByVal HWnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" ( _ ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long Public TimerSeconds As Single
Sub StartTimer() TimerSeconds = 1 ' how often to "pop" the timer. TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc) End Sub
Sub EndTimer() On Error Resume Next KillTimer 0&, TimerID End Sub
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _ ByVal nIDEvent As Long, ByVal dwTimer As Long) ' ' The procedure is called by Windows. Put your ' timer-related code here. ' End Sub
но процедура EndTimer почемуто не работает, никаих ошибок, ничего, просто никак не реагирует, может кто знает в чём дело?
|
|
|
|
|
yozh |
Воскресенье, 27 Июля 2003, 17:26
|
Ведущий
Профиль
Группа: WinCity Team
Сообщений: 2409
Регистрация: 06.09.2002
Из: Петербург/Штутгарт
Пользователь №: 3321
Конфигурация
Корпус: Compaq nx8220 PY518ET Процессор: Другой Материнская плата: HP 82915PM/GM/GMS Оперативная память: DDR2-SDRAM 1024 Mb Samsung M4 70T2953BY0-CD5 Видеокарта: ATI Mobility Radeon X600 128MB Жесткий диск (винчестер): ST9808211A, 75Gb Дисковод: Нет дисковода CD/DVD: MATSHITA DVD-RAM UJ-832S Модем: Agere Systems AC'97 Сетевой адаптер: Broadcom NetXtreme Gigabit + Intel PRO/Wireless 2200BG Звуковая плата: Intel 82801FB ICH6 - AC'97 Монитор: 15,4'' TFT, SWXGA (1680 x 1050) Операционная система: WinXPProGerSP2,Slackware 11.0,FreeDOS Beta9 Прочее: HP LaserJet 1000, HP ScanJet 2400
|
Не понял. Процедура TimerProc вызывается или нет? Именно ей при каждом срабатывании таймера должна передавать управление Windows (SetTimer - обычная APIшная функция, именно её я чаще всего и использую в Delphi, хотя там есть и свои компоненты). Что касается EndTimer, то из приведённого тобой кода мне лично неясно, кто и где должен эту процедуру вызывать. SetTimer запускает таймер. С этого момента каждые TimerSeconds секунд он будет срабатывать (вызывать функцию, адрес которой ты ей передал в четвёртом параметре), пока ты его не заткнёшь путём вызова KillTimer. Оно у тебя вообще срабатывает? Если нет, то ты проверял значение TimerID сразу после вызова SetTimer? Там не ноль случайно?
Сообщение отредактировал yozh - Воскресенье, 27 Июля 2003, 17:33
|
|
|
|
|
Witaliy |
Воскресенье, 27 Июля 2003, 17:56
|
Участник
Профиль
Группа: Участник
Сообщений: 23
Регистрация: 25.07.2003
Из: Санкт-Петербург
Пользователь №: 5604
Конфигурация
Корпус: -- Материнская плата: -- Оперативная память: 128х2 Видеокарта: ASUS v3400 TNT TV In\Out, AGP Жесткий диск (винчестер): Quantum as20 Дисковод: 3.5" CD/DVD: Acer 56x Модем: Lucent WinModem Сетевой адаптер: -- Звуковая плата: Crystal Монитор: Nokia 449za Операционная система: WindowsXP SP1 + full update Прочее: --
|
Всё спасибо, я понял в чём была моя ошибка.Теперь всё работает. Тему можно считать закрытой.
|
|
|
|
|
|
1 чел. читают эту тему (1 Гостей и 0 Скрытых Пользователей)
|
0 Пользователей:
|
|
© Copyright by WinCity.Ru 2001 - 2008 | Обратная связьУслуги веб-хостинга предоставлены компанией MTW.RU
|
|