Petit ocx de ping en forme de compteur de vitesse
Description
Ceci est un petit OCX (le premier que j'ai fait, il est vraiment tout simple) qui ajoute un composant en forme de compteur de vitesse, une icône de 32x32 pixel et qui indique la vitesse de ping d'une machine distante.
Je me sers d'un module "Ping" qui n'est pas de moi, je l'ai trouvé ici il y a longtemps et l'auteur est "KPD-Team 2000" (http://www.allapi.net/) merci à lui.
Si l'on dimentionne l'icône un peu plus haute, on peut également faire apparaître le nom de la machine distante.
Remarque: J'aurais pu faire bouger l'aiguille par trigo, mais le positionnement n'était pas super esthétique alors j'ai préféré définir moi-même le positionnement de cette aiguille.
Comme la réponse de ping peut aller jusqu'à 2 secondes, j'ai mis le timer à 2.5 secondes.
Les principales propriétés sont "Resultat", "Reponse", "BackColor", "Enabled", "Etat" et "Machine"
La propriété "Machine" est l'adresse IP (ou dns) de la machine à pinger
La propriété "Resultat" renvoie le délai en millisecondes ou le temps d'inactivité
La propriété "Réponse" renvoie True ou False si la machine distante réponds on non
La propriété "Etat", si elle est "Vide" enlève la petite LED en bas à droite, sinon elle devient vert si ok, rouge si pas ok et jaune si c'est à nouveau bon après interruption. Pour la remettre vert, on peut, par exemple, remettre cette propriété "Vert" par le code suivant:
Private Sub BoardPing1_Click()
BoardPing1.Etat = Vert
End Sub
Je me sers d'un module "Ping" qui n'est pas de moi, je l'ai trouvé ici il y a longtemps et l'auteur est "KPD-Team 2000" (http://www.allapi.net/) merci à lui.
Si l'on dimentionne l'icône un peu plus haute, on peut également faire apparaître le nom de la machine distante.
Remarque: J'aurais pu faire bouger l'aiguille par trigo, mais le positionnement n'était pas super esthétique alors j'ai préféré définir moi-même le positionnement de cette aiguille.
Comme la réponse de ping peut aller jusqu'à 2 secondes, j'ai mis le timer à 2.5 secondes.
Les principales propriétés sont "Resultat", "Reponse", "BackColor", "Enabled", "Etat" et "Machine"
La propriété "Machine" est l'adresse IP (ou dns) de la machine à pinger
La propriété "Resultat" renvoie le délai en millisecondes ou le temps d'inactivité
La propriété "Réponse" renvoie True ou False si la machine distante réponds on non
La propriété "Etat", si elle est "Vide" enlève la petite LED en bas à droite, sinon elle devient vert si ok, rouge si pas ok et jaune si c'est à nouveau bon après interruption. Pour la remettre vert, on peut, par exemple, remettre cette propriété "Vert" par le code suivant:
Private Sub BoardPing1_Click()
BoardPing1.Etat = Vert
End Sub
Codes Sources
A voir également
- Petit ocx de ping en forme de compteur de vitesse
- Compteur de lettres ✓ - Forum Delphi / Pascal
- Compteur de lettre - Forum C / C++ / C++.NET
- Compteur de caractères ✓ - Forum Visual Basic
- Compteur de jours - Forum PHP
- Compteur de caractère - Forum Visual Basic
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.