Problema

[Doublepinga 0]

olha estou azendo um programa mas estou com um problema é tipo um jogo dai no final de pontuaçao tipo karaoke dai tem um cronometro e quero fazer para q nos pontos de assim olha no codigo como eh:

Private Sub tmrPontos_Timer()

Static intDigito As Integer, intVoltas As Integer

lblPontos(tmrPontos.Tag).Caption = intDigito

If intVoltas = intNumeroDeVoltas And Val(Mid(strPontos, Len(CStr(strPontos)) - 2 + tmrPontos.Tag, 1)) = intDigito Then

tmrPontos.Tag = tmrPontos.Tag - 1

If tmrPontos.Tag = 0 Then

If strPontos = 100 Then

lblPontos(0).Visible = True

End If

tmrPontos.Enabled = False

Select Case Val(strPontos)

Case 0 To 29

lblFrase.Caption = "NUBA" 'Demore de 21 até 1800 segundos para acabao o jogo.

Case 30 To 49

lblFrase.Caption = "Precisa treinar muito" 'Demore de 17 ate 20 segundos para acaber o jogo.

Case 50 To 69

lblFrase.Caption = "Você está quase lá" 'Demore de 11 até 16 segunos para terminar.

Case 70 To 89

lblFrase.Caption = "Parabéns. Você é quase um profissional" 'Demore de 6 até 10 Segundos para terminar o jogo.

Case 90 To 100

lblFrase.Caption = "Parabéns você é um Profissional" 'Demore de 0 ate 5 segundos para chegar até o final.

End Select

End If

intVoltas = 0

intNumeroDeVoltas = Int(Rnd * 5 + 5)

End If

intDigito = intDigito + 1

If intDigito = 10 Then

intDigito = 0

intVoltas = intVoltas + 1

End If

cmdVoltar.Visible = True

Timer1.Enabled = False

Me.Start.Caption = "Reiniciar"

 

End Sub

o que eu quero fazer esta em verde algum pode ajudar?

[kauebranco 0]

Segundos = 5 stime = Time While DateDiff("s", stime, Time) < Segundos DoEvents Wend_______________________________________________na variavel "Segundos" você coloca o tempo que quer esperar .. o programa fica em LOOP durante o tempo que você colocar em Segundos !!!coloque 5 pra 5 segundos coloque 3 pra 3 segundos ..etc etc etc

[Doublepinga 0]

ow poem para mim no codigo pq naum vo sabe ondee teem q por

[Doublepinga 0]

ajuda ae por favor falta isso para acabar meu progrrama

[Luizgrs 0]

Você quer fazer o programa parar por algum tempo?

Se sim use essa api:

 

No General do form ou em um módulo escreva o seguinte:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Para usar a função é só escrever Sleep(tempo_em_milisegundos)

Essa função ira fazer o programa para pelo tempo estipulado.