время

[Fedesius]

Допустим я нажимаю первую кнопку и в течении 5 секунд должен нажать вторую кнопку что бы совершилось какое либо действие, и если я не нажимаю вторую кнопку в течении 5 секунд, то что бы совершилось действие мне надо опять сперва нажать первую кнопку потом вторую.
Если кто че понял то обьясните как это сделать?

[xolod]

Для начала нам нужен таймер с интервалом 5 секунд
...
Завести флаг

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

m_bAlreadyPressed as boolean


Когда нажата первая кнопка, "включаем" флаг и таймер

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

m_bAlreadyPressed = True
Timer1.Enabled=True


Когда первый раз вызывается событие таймера сбрасываем флаг и выключаем таймер

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

m_bAlreadyPressed = False
Timer1.Enable=False


Теперь, когда юзер нажмет вторую кнопку, смотрим влючен или нет флаг

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

if (m_bAlreadyPressed) then
'Делаем то действие которое тебе надо
end if


[DragonTriste]

вроде понял...

кинь на форму пару кнопок и таймер

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

Dim firstpresed As Integer

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

Private Sub Command2_Click()
If firstpresed = 0 Then
Me.Caption = "нажми первую"
Else
Me.Caption = "поздравлляю, получилось!"
End If
End Sub

Private Sub Form_Load()
firstpresed = 0
Command1.Caption = "Первая"
Command2.Caption = "Вторая"
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
firstpresed = firstpresed + 1
If firstpresed >= 50 Then
firstpresed = 0
Timer1.Enabled = False
End If
End Sub


оно ?

[Fedesius]

Попробовал способ от xolod и возник один вопрос (может быть глупый) что значит

Завести флаг

. У меня на этот код ошибку вот такую выдает: Statement invalid outside Type Block. А способ от DragonTriste щас попробую тока.

[GM]

Завести флаг
m_bAlreadyPressed as boolean

Переменная которая отвечает за то что была ли нажата первая кнопка или нет.