TIMER E ARQUIVOS RES - JOGOS

USUARIO.EXCLUIDOS 25/04/2004 16:52:30
#22550
Ai gente estou escrevendo um simulador em vb sobre emocoes de um cachorro (tipo um tamagochi) para um projeto de escola. So que nao sei como fazer a seguinte coisa:

1) Fazer um timer para q a cada 3 minutos um numero seja adicionado a uma txt box.

2) Quando adicionar 1 nesta textbox a imagem do cachorro automaticamente mudaria.

3) Tb queria saber como criar arquivos res (para colocar sons dentro dele) e como tocar os sons no vb ^_^

Muito obrigado desde ja
rsampaio
USUARIO.EXCLUIDOS 26/04/2004 00:24:57
#22634 Resposta escolhida
Timers com intervalos maiores pode ser implementado via API.
[c]
Option Explicit

Private Sub Form_Load()
' Define timer com 3 minutos
SetTimer Me.hwnd, 0, 180000, AddressOf TimerProc
End Sub

Private Sub Form_Unload(Cancel As Integer)
' Destroi o timer
KillTimer Me.hwnd, 0
End Sub

' Coloque as definições abaixo num módulo externo. A função TimerProc NÃO pode estar dentro do form!
Option Explicit

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

Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Text1.Text = CInt(Text1.Text) + 1
End Sub
USUARIO.EXCLUIDOS 26/04/2004 00:32:50
#22636
Como a função TimerProc espera fora do form faltou informar o nome do form:
Troque: Text1.Text = CInt(Text1.Text) + 1
Por: Form1.Text1.Text = CInt(Form1.Text1.Text) + 1
Tópico encerrado , respostas não são mais permitidas
Voltar