Всё гениальное просто...

[Terarist]

Как заставить менять картинку через каждую секунду, я пробовал, но такое не катит...

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

Private Sub Command4_Click()
Timer1.Enabled = True
s = 300
Timer1_Timer

End Sub


Private Sub Timer1_Timer()
Label1.Caption = "Âû äîëæíû ïðîéòè èãðó çà îñòàâøèåñÿ / ñåê " & Str(s) & "ñåêóíä"
s = s - 1
If Image1.Picture = LoadPicture("c:\pt.bmp") Then
Image1.Picture = LoadPicture("c:\Ïòè÷êà1.bmp")
ElseIf Image1.Picture = LoadPicture("c:\Ïòè÷êà1.bmp") Then
Image1.Picture = LoadPicture("c:\pt.bmp")
End If
End Sub

[Firestorm]

всё дело в Timer1_Timer...
тебе достаточно написать timer1.interval = 1000 (например интервал 1 секунда)...
т.к. ты ссылаешься на процедуру таймера, и эта процедура срабатывает всего один раз при выключенном таймере...

[LsD85]

так он таймер то всё равно включает о от того, что он лишний раз к нему обращается ничего не изменит.

[Terarist]

Объясняю в чём дело: нужно чтобы при нажатии на кнопку4 русунок менялся каждую секунду(ну два рисунка между друг другом) и так это должно повторяться 300 секунд, я пробовал и через цыкл - так ничего и не получилось, может кто покажет как через цыкл, а насчёт того что таймер выполняется только один раз - это неправда, но мой пример почему-то неработает..., тем более если делать через кнопку, то тем более будет выполняться один раз, надо либо через цыкл+таймер, либо как-то в таймере выкручиваться...???

[Terarist]

Объясняю в чём дело: нужно чтобы при нажатии на кнопку4 русунок менялся каждую секунду(ну два рисунка между друг другом) и так это должно повторяться 300 секунд, я пробовал и через цыкл - так ничего и не получилось, может кто покажет как через цыкл, а насчёт того что таймер выполняется только один раз - это неправда, но мой пример почему-то неработает..., тем более если делать через кнопку, то тем более будет выполняться один раз, надо либо через цыкл+таймер, либо как-то в таймере выкручиваться...???

[Cyrax]

а ты в таймере считай скока у тебя секунд и при 300 выходи из процедуры и выключай таймер
а интервал таймера поставь 1000

[Terarist]

а ты в таймере считай скока у тебя секунд и при 300 выходи из процедуры и выключай таймер
а интервал таймера поставь 1000

Блин, ну дак я так и делаю, тока я отсчёт обратный веду, может это несостыковка с условием по замене рисунков...???

[Stas]

Создай 2 TextBox`a "s" и "PictureNumber"
Код:

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

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
s.Text = 300
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = "Au aie?iu i?ieoe ea?o ca inoaaoeany / nae " & Str(s) & "naeoia"
If s.Text = 0 Then
Timer1.Enabled = False
s.Text = 1000
Exit Sub
Else
If s.Text = 300 Then
Image1.Picture = LoadPicture("c:\1.bmp")
PictureNumber.Text = 1
s.Text = s.Text - 1
Else
If PictureNumber.Text = 1 Then
Image1.Picture = LoadPicture("c:\2.bmp")
PictureNumber.Text = 2
ElseIf PictureNumber.Text = 2 Then
Image1.Picture = LoadPicture("c:\1.bmp")
PictureNumber.Text = 1
End If
s.Text = s.Text - 1
End If
End If
End Sub

[Cyrax]

а ты в таймере считай скока у тебя секунд и при 300 выходи из процедуры и выключай таймер
а интервал таймера поставь 1000

Блин, ну дак я так и делаю, тока я отсчёт обратный веду, может это несостыковка с условием по замене рисунков...???

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

Private Sub Timer1_Timer()
Label1.Caption = "Âû äîëæíû ïðîéòè èãðó çà îñòàâøèåñÿ / ñåê " & Str(s) & "ñåêóíä"
s = s - 1
If Image1.Picture = LoadPicture("c:\pt.bmp") Then
Image1.Picture = LoadPicture("c:\Ïòè÷êà1.bmp")
ElseIf Image1.Picture = LoadPicture("c:\Ïòè÷êà1.bmp") Then
Image1.Picture = LoadPicture("c:\pt.bmp")
End If
End Sub

да отчет ты ведеш. а кто проверять будет, что s = 0? Пушкин, что ли?

[Terarist]

Блин, ну ты меня за кого держишь, для меня сначала это сделать надо, а потом уже проверять, ты же не хочешь сказать что из-за этой проверки увсё неработает...

[Cyrax]

нет ну я не пойму... что так трудно это сделать чтоли?

ладно держи код

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

Private Sub Command1_Click()
    s = 300
    Timer1.Interval = 1000
    Timer1.Enabled = True
   
End Sub

Private Sub Timer1_Timer()
    Static State As Boolean
   
    If State Then
        Set Picture1.Picture = LoadPicture("E:\Cyrax\Picture's\ToolBarIcons\ClosedFolder.BMP")
        State = Not State
    Else
        Set Picture1.Picture = LoadPicture("E:\Cyrax\Picture's\ToolBarIcons\OpenFolder.BMP")
        State = Not State
    End If
    s = s - 1
    If s = 0 Then Timer1.Enabled = False
End Sub

на форме должны быть PictureBox, CommandButton и Timer
имена не меняй
в процедуре таймера поставь свои пути для LoadPicture

Блин, ну ты меня за кого держишь, для меня сначала это сделать надо, а потом уже проверять, ты же не хочешь сказать что из-за этой проверки увсё неработает...

я ничего не хочу сказать, по той простой причине, что твой код не видел, кроме как здесь

[Terarist]

Не кактит, ему что-то в страке

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

Set Picture1.Picture = LoadPicture("E:\Cyrax\Picture's\ToolBarIcons\OpenFolder.BMP")

не нравиться, имя своё подставил, файл сушествует, такойже как и первый, в чём проблема...???

[Cyrax]

Не кактит, ему что-то в страке

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

Set Picture1.Picture = LoadPicture("E:\Cyrax\Picture's\ToolBarIcons\OpenFolder.BMP")

не нравиться, имя своё подставил, файл сушествует, такойже как и первый, в чём проблема...???

я тебе что - телепат или ясновидящий, чтоли?
конкретно давай, что за проблема, какая ошибка, и строчку со своим путем покажи

[Firestorm]

ёпт, вруби отладку, наставь брекпоинтов и смотри чё не так!!!!!!!!!

[Terarist]

если я о том, то у меня накройняк мсдн нету...

[Cyrax]

если я о том, то у меня накройняк мсдн нету...

http://msdn.microsoft.com
теперь есть

[Terarist]

ну на самый кройняк, я не знаю настолько хорошо английский...

[Cyrax]

ну на самый кройняк, я не знаю настолько хорошо английский...

ты от темы-то не отвлекайся
или заработало?

[Terarist]

неа...

[Cyrax]

можно еще так сделать

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

    ...
If State Then
    Set Picture1.Picture = picImages(0).Picture
    State = Not State
Else
    Set Picture1.Picture = picImages(1)Picture
    State = Not State
End If
    ...

picImages 0 и 1 в режиме конструктора формы загрузи свои картинки
так даже быстрее будет

[X-BOND]

По моему, Set там не нужен

[RayShade]

Нужен

[GSerg]

Не нужен!
Явное присвоение значения одного указателя другому...

Начитался я мануалов всяких, самому страшно