comment utilise t'on un timer style chrono pour un tps d'arrêt
comment utilise t'on un timer style chrono pour un tps d'arrêt - VB/VBA/VBS - Programmation
Marsh Posté le 28-05-2004 à 14:08:38
j'ai réussi je vais mettre ce que j'ai fait dans un nouveau sujet pour les personnes qui cherchaient comme moi
Marsh Posté le 30-05-2004 à 12:43:22
non, mets le ici plutôt !
Et ton code est moche : il faut utiliser les balises Code et l'indentation...
Marsh Posté le 25-01-2006 à 12:25:22
ca aurait été sympa de mettre ton code quand même s'il te plait
---------------
http://www.ypikay.com
Marsh Posté le 25-01-2006 à 14:32:48
application.wait marque un temps d'arrêt jusqu'à une heure données.
Tu peux également passer par des API.
Je te renvoi aux diverses sources dispo sur vbfrance, notemmet celle de Renfield, compatible avec vba.
Sujets relatifs:
- [Java] question sur le Timer de javax.swing
- changer de style graphik sur 1 site
- [css]changer le style d'un autre element
- mise en oeuvre d'un timer
- [ Borland C++ Builder ] Partager une variable sous windows (SHM style)
- MFC appeler un "event" pour simuler 1 timer
- Timer
- Feuilles de style : CSS
- attacher un timer à une fonction
- Modifier le style de tous les labels d'un formulaire precis ?
Marsh Posté le 28-05-2004 à 13:16:10
Shell "c:\WINNT\system32\command.com /cping " & RTrim(rText1.Text) & " > c:\romain\ping.txt"
[#ff0e00]j'aimerai mêtre un temps d'arrêt ici pour éviter qu'il ouvre le fichier text alors que la commande ping n'est pas terminer
Open "c:\romain\ping.txt" For Random As #1 Len = Len(carac)
Get #1, 7, carac
Text1.Text = carac.ligne
For i = 1 To 51
If Mid(Text1.Text, i, 1) = "=" Then
If envoyer = "" Then
envoyer = RTrim(Mid(Text1.Text, i + 2, 1))
Else
If reçu = "" Then
reçu = RTrim(Mid(Text1.Text, i + 2, 1))
Else
perdu = RTrim(Mid(Text1.Text, i + 1, 2))
End If
End If
End If
Next i
Close #1
envoyer = ""
reçu = ""
perdu = ""
End If