(Resolvido) Ação com Timer

[Danleonhart]

Pessoal...

Ainda não aprendí a usar o Timer muito bem, então:

Como faço para que a cada 30 segundos seja apresentado uma caixa de mensagem ?

mas assim:

30 seg = Oi.

60 seg = Olá

30 seg = Oi.

60 seg = Olá

entendem ?

seriam sempre estas mensagens, só que no intervalo de 30 segundos de uma para outra...

Sei que 30 Seg. = 30000 no Interval <_<

mas não estou conseguindo seguir a lógica (falta de cafeína :wacko: )

:rolleyes: :rolleyes: :rolleyes:

Editado Abril 9, 2011 por Danleonhart

[kuroi]

crie uma variavel q va alternando entre 1 e 2 a cada passagem do timer (ai se você resolver mostrar mais de uma mensagem, você conta ate 3 e assim por diante).

ai quando a variavel for 1 na passagem do timer, você mostra "oi" e quando for 2, você mostra "ola".

pra facilitar, poderia deixar as mensagens num array e usar esse variavel de contador pra acessar os indices (nesse caso, em vez de 1 e 2, use 0 e 1).

[Matheus-vb6]

edit:

Fiz aqui rapidinho

Dim x As Single

Private Sub Form_Load()
x = 1
End Sub

Private Sub Timer1_Timer()
If x = 1 Then
MsgBox "um"
x = x + 1
ElseIf x = 2 Then
MsgBox "dois"
x = x + 1
ElseIf x = 3 Then
MsgBox "tres"
x = x + 1
End If
End Sub

ABraços :D

Editado Abril 5, 2011 por Matheus-vb6

[kuroi]

é esse codigo q o matheus passou mesmo, mas no quando for 3, acho q em vez de somar na variavel, você deveria setar 1 de novo nela, assim ele fica repetindo as mensagens.

[Matheus-vb6]

No caso...

ElseIf x = 3 Then
MsgBox "tres"
x = 1

[Danleonhart]

Kuroi:

Manda um exemplo aí de como fica com array...

da maneira que o Matheus opinou já tá OK...quero só ver por pura curiosidade :D

[kuroi]

tente assim:

Dim x As Integer, msg(2) As String

Private Sub Form_Load()
    x = 0

    msg(0) = "um"
    msg(1) = "dois"
    msg(2) = "tres"
End Sub

Private Sub Timer1_Timer()
    MsgBox msg(x)

    x = x + 1
    If x > Ubound(msg) Then 'Ubound() pega o ultimo indice do array.
        x = 0
    End If
End Sub[/code]