timer et MsFlexgrid sur VB 6.0

Question

salut et merci de me repondre.
je debute en VB et je dois réaliser un programme comme le jeu télévisé LES CHIFFRES ET LES LETTRES.
mais moi je m'occupe juste des chiffres.
mon problème est tout d'abord avec les timers car j'essaye de creer un compte à rebours mais il va trop vite et quand je diminue la vitesse il démarre plus.
voici mon code:
 compteur.Caption = Format(#2:00:00 AM#) 
 compteur.Caption = CDate(compteur.Caption) - 0.00001

j'ai un autre probleme, c'est l'utilisation du controle MsFlexgrid
je ne sais pas du tout comment ca fonctionne
ceci est pour realiser des operation toute simple (+,-,*,/) dans les cases.

merci d'avance

drpsico · Answer

Dim s As Integer
Private Sub Timer1_Timer()
s = s + 1
Label1.Caption = (s)
End Sub
tien pour ton compeur si tu ve que sa deconte tu remplace s=s+1
par s=s-1
et pour le reste tu modifi comme tu ve par contre pour le reste je c pas lol pck je suis debutan comme toi
                     ==psicofox6@hotmail.com==

energiez · Answer

Je suppose que ton timer doit etre précis, par exemple, durer 30 secondes. 
dans ce cas, je pense qu'il est plus aproprié d'utiliser une fonction de ce genre :

tu déclare ca :

Public Function hb_sec_sleep(secondes As Long)
Dim attente As Long
attente = GetTickCount + (secondes * 1000)
Do Until GetTickCount >= attente
DoEvents
Loop
End Function

Puis, ensuite, tu apelle la fonction:

hb_sec_sleep(30) 

voila, ce sera mieux je pense ;)

Timer et MsFlexgrid sur VB 6.0

2 réponses

Discussions similaires