Timer: У меня глюк или у него?

[LexBondAgent007]

Приветствую всех!
Вобщем такая проблема: на форме есть таймер. После того как я отгружаю форму (Unload Form1) - таймер почемуто продолжает свою работу... Раньше это особо не влияло на мои проекты... но вот щас таймер ведет проверку значений и если значения совпадают - то он выдает сообщение... И форму на которой таймер я отгрузил - а вот сообщения продолжают выдаваться... в общем таймер на отгруженной форме работает - вопрос: ПОЧЕМУ? И КАК МОЖНО ЭТО ИСПРАВИТЬ?

з.ы. - Причем даже если я ставил timer1.enabled = false - все равно как только форма ОТГРУЖЕНА - таймер продолжает все!!

[Viper]

а можно узреть код?

[LexBondAgent007]

А как же =P
seconds - текстбокс
minutes - тоже
debugger - это форма
Остальные лэйбелы и переменные работают ОК
Вобщем проблема (наверное) там где UNLOAD AFTERROUND1 (это форма)

Код: Выделить всё

Private Sub Timer2_Timer()
seconds = seconds - 1
If seconds > -1 And seconds < 10 Then seconds = "0" + seconds.Text
If seconds < 0 Then
minutes = minutes - 1
seconds = 59
End If
If minutes < 0 Then
minutes = 8
Label11.Visible = False
huh = Round(bonusdollars)
a = MsgBox("Congratulations! You win bonus " & huh & "$!!!", 48, "Bonus")
Debugger.score = Debugger.score + huh
Label1.Caption = "Status: " & Debugger.score & "$"

If Val(Debugger.score) > Val(Debugger.enemyscore) Then
Line1.Visible = True
Line2.Visible = True
a = MsgBox("WOOHOOO! YOU COLLECTED " & Debugger.score & "$ against Dog Naebshik's " & Debugger.enemyscore & "$!! You won Rang#2 and Easy Zone COMPLETED!", 64, "Congratulations!")

Else
Debugger.MediaPlayer1.FileName = App.Path & "\data\stream\gameover.mp3"
Debugger.MediaPlayer1.Play
a = MsgBox("Awww NOO! You have only " & Debugger.score & "$! Dog Naebshik have more than you...", 16, "Too Bad...")
a = MsgBox("Dog Naebshik says: MOOAUAHUAHUAHUAHAUHAUHAUAAAAHAAA!!!! Looser!", 48, "Game Over")
Debugger.MediaPlayer1.FileName = App.Path & "\data\stream\sometimes.mp3"
Debugger.MediaPlayer1.Play
bmainmenu.Visible = True
Unload afterround1
End If
Timer2.Enabled = False

End If
Label11.Caption = "Time left: " & minutes & ":" & seconds
bonusdollars = bonusdollars + 0.01
Label4.Caption = "Bonus: " & bonusdollars & "$"
End Sub


[LexBondAgent007]

IMHO в коде все впорядке!!! Все 3 раза перепроверял! НО ВОТ ТАЙМЕР ПОСЛЕ ОТГРУЗКИ ФОРМЫ РАБОТАЕТ ВСЕ РАВНО! =(
Мож Unload(form1) недостаточно? Какие еще бывают варианты убийство формы?

[Konst_One]

Код: Выделить всё

Sub Form_Unload(Cancel As Integer)
Timer2.Enabled=False
end sub

[LexBondAgent007]

Код: Выделить всё

Sub Form_Unload(Cancel As Integer)
Timer2.Enabled=False
end sub

не помогло... все равно этот таймер продолжает...

[LexBondAgent007]

Народ! Неужели никто не знает? Нехочу я свой проэкт уничтожать из-за какого то таймера...

[_Brodyaga]

А что несколько форм что ли?И почему Таймер условии:А нутка вынеси его оттуда:)

[_Brodyaga]

Всмысле Почему таймер находится в условии, может он просто не выходит из условия?То есть форма за анлоадилась, а значения остаются на месте, и потому все условия выполняются?

[Amed]

Что-то его опять включает?

[LexBondAgent007]

Всмысле Почему таймер находится в условии, может он просто не выходит из условия?То есть форма за анлоадилась, а значения остаются на месте, и потому все условия выполняются?

Действительно - некоторые значения сравниваются из другой формы, а не только из той, которая будет анлоадная.

Что-то его опять включает?

Его включает таймер, который находится на тойже форме что и второй таймер... Первый таймер проверяет значения - как только условия совпадут - тогда он дестабилизируется и запускает таймер2...
Но проблема исключена - если бы его ктото снова включал - тогда бы он продолжал бы работать в таком же духе - если условия не сошлись то таймер не отгружает форму - но останавливается... А если условия сошлись то форма отгружается... и таймер продолжает работу!

[Amed]

Отключать сначала

таймер, который находится на тойже форме что и второй таймер

.

Сами по себе таймеры не включаются

[LexBondAgent007]

Так я их оба отключил.... Но как только форма АНЛОАД - он вновь запускается сам! И ЕГО НЕ ЧТО НЕ ЗАПУСКАЕТ! 100% Полистайте код выше... мож там я че напортачил... хотя как я уже и непробовал....

[Kovu]

Ну попробуй через SetTimer и KillTimer
Может надежней будет =)

[_Brodyaga]

или вообще Поставь пи анлоаде магическую команду:
End
и живи спокойно:))

[MeMBus]

afterround1 - это та форма в которой стоит таймер Timer2? Если да, то у тебя таймер остается в работе, т.к. происходит выгрузка данной формы...

Код: Выделить всё

Unload afterround1
End If
Timer2.Enabled = False

на

Код: Выделить всё

Timer2.Enabled = False
Unload afterround1
End If

Если нет, то код нужен, по возможности, полнее...

[LexBondAgent007]

_Brodyaga, ха-ха

MeMBus, Да я уже куда тока не пихал этот timer.enabled=false...
и перед, и после и вообще через каждую строчку

Kovu, что за SetTimer и KillTimer??? Первый раз слышу...

[Kovu]

Declare Function SetTimer Lib "user32" Alias "SetTimer" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Устанавливает таймер
Пример использования:
SetTimer Form1.Hwnd,222,100,addressof TimerProc,
где 100-интервал таймера , TimerProc -процедура в модуле куда перенеси всё что у тебя есть в событии Timer1_Timer
Public Function TimerProc(Byval hwnd as long, byval uMsg as Long, Byval idEvent, dwSystemTime as long)
твой код
End Function
Declare Function KillTimer Lib "user32" Alias "KillTimer" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Соответственно убивает заданный таймер(KillTimer Form1.Hwnd,222)

[Ennor]

Хозяйке на заметку: если вы не помните, сколько таймеров у вас на форме и когда они выключаются (если выключаются вообще), то гарантированно застопить все таймеры при выгрузке формы можно с помощью примерно следующего кода:

Код: Выделить всё

Private Sub Form_Unload(Cancel as Integer)
Dim V as Control
for each v in me.controls
  if typeof v is timer then v.enabled = false
next v
doevents
...

[LexBondAgent007]

Ничего не помогает!!!! Ни SetTimer (с которым я ели разобрался), ни for Each... Что то меня терзают смутные сомнения что форма вообще не выгружается... Или она "ПЕРЕЗАПУСКАЕТСЯ" - то есть она выгружается и тутже запускается вновь с первоначальными значениями... =\\

[Viper]

Поставь брейкпойнты в процедуру Form_Load и смотри когда и как она загружается. Стек вызовов посмотри.

Замечание: приведенный тобой код, мягко говоря, плохо воспринимается и читается. Из него понять что-либо очень трудно.

[Kovu]

Слущай а тебе нужно именно эту форму выгрузить или завершить приложение

[LexBondAgent007]

!Viper!
Проверил - все впоряде - форма оказывается и выгружается и загружается... НО ТАЙМЕР ВСЕ ЕЩЕ ТУПИТ! А код я 1000 раз уже проверял - точно что не в коде проблема... IMHO

Kovu
Ясное дело нужно выгрузить форму... (End тут не поможет)

Мдя... вот вам и проблемка... второй день решить не можем...

[Mikle]

LexBondAgent007
Возможно в какой-то процедуре формы сидит незавершенный цикл, пока процедура не закончена - форма не выгрузится, хотя и пропадет с экрана. Проверь, в остальных процедурах формы точно нет никаких циклов ожидания, или операторов\вызовов, которые могут ждать завершения?

[ARTES]

Sub Form_Unload(Cancel As Integer)
Cancel=True
Timer2.Enabled=False
Cancel=False
end sub

Кстати,проверь имя таймера

[LexBondAgent007]

Mikle Нет таких -( Все завершено когда форма соберается быть АНЛОАД

ARTES
Бесполезно... я даже пробовать небуду

А вобще такая дребедень может быть из за того что таймер работает со значениями не только на форме на которой сидит - просто когда форма с этим таймером выгружается - другая форма с которой работает таймер - ОСТАЕТСЯ?

[Kovu]

Телепаты не могут больше применять свои магические способности
Проект в студию

[LexBondAgent007]

http://lehas-entertainment.narod.ru/timgGGS.zip

Вырезал все что можно до минимума - вот ошибочка то осталась, небеспокойтесь

И кто нить меня может научить как на форум выкладывать файлы? (Ну не тут конечно - а то и так проблем хватает в этой теме -\)

[Sebas]

Почитал... да, правильно Сишники смеются над ВБистами))))
Как МС могла допустить фишки создания форм "от балды", тоесть совсем не объекным способом.

dim f as form1
f=new form1

unload f
f=nothing

и небудет никогда твоего таймера.

ЗЫ: правда не факт что у тя там циклических ссылок нет(((


Забудте про FORM1.method_name !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! J,
Объекты нужно создавать ЯВНО!!!!

[d3drm]

Sebas, а вот самое забавное что даже твой способ не сработал =) смотрю и веселюсь, поведение программы не поддается никаким разумным объяснениям