Récupérer la valeur de sa latence
Fermé
Adrien2a
Messages postés
90
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
8 mars 2016
-
8 mars 2016 à 15:30
Adrien2a Messages postés 90 Date d'inscription jeudi 15 janvier 2009 Statut Membre Dernière intervention 8 mars 2016 - 8 mars 2016 à 17:23
Adrien2a Messages postés 90 Date d'inscription jeudi 15 janvier 2009 Statut Membre Dernière intervention 8 mars 2016 - 8 mars 2016 à 17:23
A voir également:
- Récupérer la valeur de sa latence
- Recuperer video youtube - Guide
- Recuperer message whatsapp supprimé - Guide
- Comment récupérer un compte facebook piraté - Guide
- Impossible de récupérer mon compte gmail - Guide
- Récupérer mon compte facebook désactivé - Guide
2 réponses
jordane45
Messages postés
38241
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 septembre 2024
4 689
8 mars 2016 à 16:26
8 mars 2016 à 16:26
Bonjour,
En VB ... ok ... mais .... LEQUEL ? VBA ? VB6 ? VB.NET ? VBScript ??
Et... qu'as tu commencé à écrire comme code ? (montres le nous )
Je suis en train de develepper un petit logiciel en VB
En VB ... ok ... mais .... LEQUEL ? VBA ? VB6 ? VB.NET ? VBScript ??
Et... qu'as tu commencé à écrire comme code ? (montres le nous )
Adrien2a
Messages postés
90
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
8 mars 2016
5
8 mars 2016 à 17:23
8 mars 2016 à 17:23
Public Class Cadre
Const GOOGLE = "https://www.google.fr/"
Const RESEAU = "192.168.1.1"
Const BADPING = 100 'BAD PING > 100
Const GOODPING = 50 'GOOD PING < 50
Public ARRETBOUCLE As Boolean
Const INTERVALLE = 1000
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
Private Sub DEMARRER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DEMARRER.Click
ARRETBOUCLE = False
While ARRETBOUCLE = True
Me.Refresh()
'LE CODE QU'IL ME MANQUE
Sleep(INTERVALLE)
COLORREFRESH()
Me.Refresh()
End While
End Sub
Sub COLORREFRESH()
If PINGBOX.Text <= GOODPING Then
PINGBOX.ForeColor = Color.Green
ElseIf PINGBOX.Text > GOODPING And PINGBOX.Text < BADPING Then
PINGBOX.ForeColor = Color.Orange
ElseIf PINGBOX.Text > GOODPING And PINGBOX.Text >= BADPING Then
PINGBOX.ForeColor = Color.Red
End If
End Sub
Private Sub ARRETER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ARRETER.Click
ARRETBOUCLE = True
End Sub
End Class
Autant pour moi ... :'(
C'est en VB.NET avec Visual Basic 2010 ! :)
8 mars 2016 à 17:16
Public Class Cadre
Const GOOGLE = "https://www.google.fr/"
Const RESEAU = "192.168.1.1"
Const BADPING = 100 'BAD PING > 100
Const GOODPING = 50 'GOOD PING < 50
Public ARRETBOUCLE As Boolean
Const INTERVALLE = 1000
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
Private Sub DEMARRER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DEMARRER.Click
ARRETBOUCLE = False
While ARRETBOUCLE = True
Me.Refresh()
'LE CODE QU'IL ME MANQUE
Sleep(INTERVALLE)
COLORREFRESH()
Me.Refresh()
End While
End Sub
Sub COLORREFRESH()
If PINGBOX.Text <= GOODPING Then
PINGBOX.ForeColor = Color.Green
ElseIf PINGBOX.Text > GOODPING And PINGBOX.Text < BADPING Then
PINGBOX.ForeColor = Color.Orange
ElseIf PINGBOX.Text > GOODPING And PINGBOX.Text >= BADPING Then
PINGBOX.ForeColor = Color.Red
End If
End Sub
Private Sub ARRETER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ARRETER.Click
ARRETBOUCLE = True
End Sub
End Class
Mon but est de lancer le ping lorsque j'appuis sur le bouton demarrer et que lorsque j'appuis sur arreter, le programme s'arrete.
D'ailleurs j'ai un deuxiême probleme : c'est comment sortir de ma boucle avec un Bouton car quand la boucle se lance, je peux plus cliquer nul part ! :'(
8 mars 2016 à 17:18
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
2 - Tu ne nous as toujours pas dit dans quel VB tu codes !