Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 09 22:15:52

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Périphériques

> OUVRIR/FERMER LES PORTS AVEC VISUEL ET CHECKBOX

OUVRIR/FERMER LES PORTS AVEC VISUEL ET CHECKBOX

Information sur la source

Note :

5,67 / 10

Catégorie :Périphériques Classé sous :ports, com, mscomm, controle, périphérique Niveau :Initié Date de création :25/05/2006 Vu / téléchargé :7 362 / 1 087

Auteur : Frank9321

Ecrire un message privé

Site perso

Ce membre participe au partage de revenus publicitaires

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Bonjour,
Cette source consiste a ouvrir des ports com, 1,2,3,4. elle a une interface visuelle, des check box.
Elle peut servir a allumer des lumières depuis l'ordi grace a un transistor.

Source

Private Sub Command1_Click()
If Option1.Value = True Then
If MSComm1.PortOpen = True Then
MsgBox "Port déja ouvert"
Else
MSComm1.PortOpen = True
Pov.Visible = True
Po.Visible = True
Pfr.Visible = False
Pf.Visible = False
End If
End If
If Option2.Value = True Then
If MSComm2.PortOpen = True Then
MsgBox "Port déja ouvert"
Else
MSComm2.PortOpen = True
Pov.Visible = True
Po.Visible = True
Pfr.Visible = False
Pf.Visible = False
End If
End If
If Option3.Value = True Then
If MSComm3.PortOpen = True Then
MsgBox "Port déja ouvert"
Else
MSComm3.PortOpen = True
Pov.Visible = True
Po.Visible = True
Pfr.Visible = False
Pf.Visible = False
End If
End If
If Option4.Value = True Then
If MSComm4.PortOpen = True Then
MsgBox "Port déja ouvert"
Else
MSComm4.PortOpen = True
Pov.Visible = True
Po.Visible = True
Pfr.Visible = False
Pf.Visible = False
End If
End If
End Sub
Private Sub Command2_Click()
If Option1.Value = True Then
If MSComm1.PortOpen = False Then
MsgBox "Port déja fermé"
Else
MSComm1.PortOpen = False
Pov.Visible = False
Po.Visible = False
Pfr.Visible = True
Pf.Visible = True
End If
End If
If Option2.Value = True Then
If MSComm2.PortOpen = False Then
MsgBox "Port déja fermé"
Else
MSComm2.PortOpen = False
Pov.Visible = False
Po.Visible = False
Pfr.Visible = True
Pf.Visible = True
End If
End If
If Option3.Value = True Then
If MSComm3.PortOpen = False Then
MsgBox "Port déja fermé"
Else
MSComm3.PortOpen = False
Pov.Visible = False
Po.Visible = False
Pfr.Visible = True
Pf.Visible = True
End If
End If
If Option4.Value = True Then
If MSComm4.PortOpen = False Then
MsgBox "Port déja fermé"
Else
MSComm4.PortOpen = False
Pov.Visible = False
Po.Visible = False
Pfr.Visible = True
Pf.Visible = True
End If
End If
End Sub

Private Sub Command1_Click()
    If Option1.Value = True Then
        If MSComm1.PortOpen = True Then
            MsgBox "Port déja ouvert"
        Else
            MSComm1.PortOpen = True
                 Pov.Visible = True
                 Po.Visible = True
                 Pfr.Visible = False
                  Pf.Visible = False
            
            
        End If
        End If
        
 If Option2.Value = True Then
        If MSComm2.PortOpen = True Then
            MsgBox "Port déja ouvert"
        Else
            MSComm2.PortOpen = True
                   Pov.Visible = True
                   Po.Visible = True
                   Pfr.Visible = False
                   Pf.Visible = False
        End If
        End If
 If Option3.Value = True Then
        If MSComm3.PortOpen = True Then
            MsgBox "Port déja ouvert"
        Else
            MSComm3.PortOpen = True
                Pov.Visible = True
                Po.Visible = True
                Pfr.Visible = False
                Pf.Visible = False
        End If
        End If

 If Option4.Value = True Then
        If MSComm4.PortOpen = True Then
            MsgBox "Port déja ouvert"
        Else
            MSComm4.PortOpen = True
                Pov.Visible = True
                Po.Visible = True
                Pfr.Visible = False
                Pf.Visible = False
        End If
        End If

End Sub

Private Sub Command2_Click()
 If Option1.Value = True Then
        If MSComm1.PortOpen = False Then
            MsgBox "Port déja fermé"
        Else
            MSComm1.PortOpen = False
                Pov.Visible = False
                Po.Visible = False
                Pfr.Visible = True
                Pf.Visible = True
        End If
        End If

 If Option2.Value = True Then
        If MSComm2.PortOpen = False Then
            MsgBox "Port déja fermé"
        Else
            MSComm2.PortOpen = False
                Pov.Visible = False
                Po.Visible = False
                Pfr.Visible = True
                Pf.Visible = True
        End If
        End If

 If Option3.Value = True Then
        If MSComm3.PortOpen = False Then
            MsgBox "Port déja fermé"
        Else
            MSComm3.PortOpen = False
                Pov.Visible = False
                Po.Visible = False
                Pfr.Visible = True
                Pf.Visible = True
        End If
        End If
        
 If Option4.Value = True Then
        If MSComm4.PortOpen = False Then
            MsgBox "Port déja fermé"
        Else
            MSComm4.PortOpen = False
                Pov.Visible = False
                Po.Visible = False
                Pfr.Visible = True
                Pf.Visible = True
        End If
        End If
End Sub

Conclusion

Merci de noter ma source et d'ajouter d'éventuels Comentaires

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Ouvrir et fermer les ports
- Form1.frm 8 690 octets
- Projet1.ex_28 672 octets
- Projet1.vbp 686 octets
- Projet1.vbw 49 octets

Télécharger le zip

Sources du même auteur

CPU_LED, SURVEILLEZ LE FONCTIONNEMENT DE VOTRE PROCESSEUR GR...

CONVERTISSEUR LANGUAGE BINNAIRE

GÉNÉRATEUR DE LIENS URL EN BBCODE ET EN HTML D'IMAGES ET DE ...

Toutes les sources de Frank9321

Sources de la même categorie

TEST MODBUS/TCP par Churchill

ROTATION D'ÉCRAN par Willi

SPYKEE LE ROBOT par Tropic

WIIMOTE ET VB6 par Tropic

WIIMOTE AVEC VB6 par RATHEONS

Toutes les sources de la catégorie Périphériques

Sources en rapport avec celle ci

BOUTON UP_DOWN par epson1

COMMANDE EXTERNE TELEVISEUR LG PAR SA PRISE RS232 par domikdomik

MINITABLEUR EXCEL AVEC FLEXGRID par lezj

UTILISATION DU PORT COM VS2005 par lesdis

COMMUNICATION PORT SERIE AVEC DLL par cuq

Commentaires et avis

Commentaire de jean_marc_n2 le 25/05/2006 21:39:13

Hello,

Tes End If sont mal indentés, chaque Endif doit être sous son IF:

If tutu then
    If toto then
        ' coucou
    End If
End If

Ton code est inutilement dupliqué: Dans ce cas, on fait un tableau de controle:
MSComm(1), MScomm(2), etc ..

Il suffit de leur donner le même nom et de changer la propriété index: 0, 1, 2, 3.

Comme ça, plus de code dupliqué :-)

Bonne suite!

Commentaire de katsankat le 26/05/2006 13:52:23

Salut, autre suggestion: récupérer l' index dans option_click() puis l' utiliser pour éviter la redondance du code. Voici comment j'aurais fait

private ID as integer

private sub option_click()
  ID = index
end sub

private sub command_click()

dim FLAG as boolean

If MSComm(index).PortOpen = True Then
   MsgBox "Port déja ouvert"
Else
   MSComm(index).PortOpen = True

   if ID=1 or ID=2 or ID=3 then FLAG=true
   Pov.Visible = FLAG
   Po.Visible = FLAG
   Pfr.Visible = not FLAG
   Pf.Visible = not FLAG
End If

end sub

Cette approche évite les tests de condition inutiles.
Le mieux étant de factoriser le code redondant avec une petite fonction:

private sub Ouverture(id as integer)
  If MSComm(id).PortOpen = True Then
    MsgBox "Port déja ouvert"
  else
   Pov.Visible = true
   Po.Visible = true
   Pfr.Visible = false
   Pf.Visible = false
end if
end sub

le code en est simplifié:
private sub command_click()
Ouverture(ID)
end sub

Reste à intégrer le command2_click dans la fonction Ouverture() !

Commentaire de jean_marc_n2 le 26/05/2006 14:09:59

Hello Katsankat,

j'aurais adopté exactement la même approche :o); Au final, 2 fonctions sur command1 et command2 plus une ou 2 fonctions de service.

Commentaire de ABF le 29/05/2006 13:25:20

Salut, Je ne pense pas que cette personne ait besoin de 3 commentaires ayant la même idée mais d'1 encouragement ou du suggestion, critique... du contenu de la source, de la matière.

Pour ma part je n'ais pas trop regardé : continue.

Commentaire de Erat78 le 10/08/2006 03:25:59

Salut,
L'auteur parle de comander une lumière avec un transistor... Ce la (si je ne m'abuse) equivaut à utiliser une carte tout ou rien (la carte en moins!...). QQ pourrait il m'aiclairer a ce sujet...

Bonne journée

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

application du controle mscomm [ par Lamine ] salutje voudrai des programmes d' application avec le controle MSCOMM. probleme avec le controle mscomm pour vb6 [ par ftx7000 ] je pocede l'edition initiation de visualbasic 6, et a chaquetentative d'utilisation du controle MSCOMM pour des communication sur le port serie, j'ai MSCOMM ET ACCESS [ par mario831 ] Bonjour a tous,Etant novice dans le domaine, j'ai quelques difficultes a utiliser le controle MSCOMM avec ACCESS.Je dispose de ACCESS 2003 mais pas de mscomm: le maitriser [ par leo ] salutj'utilise le port serie pour envoyer des info sur unix mais je ne maitrise pas tout le controle surtout au niveau de l'ouverture du port , qui au Controle MSComm [ par TeRrOrGOD ] Salut, qqun saurait comment faire pour..Jai un controle MSComm ainsi que 2 textbox et je veux que si mettons un tel # de telephone appelle ca affiche problème d'ouverture avec MSComm [ par necsys ] J'ai un truc de fou. J'ai 4 ports com dispo (1-4) sur mon PC (windows 2000) . 2 de bases + 2 via carte PCI spécialisée les 4 ports sont reconnus et vi MSComm VB6 [ par capitaineING ] Bonjour à tous !Est ce que c'est possible d'envoyer le code ascii 255 avec MSComm? Présentement, je suis capable d'envoyer de 0 jusqu'à 127 mais de 1 controle des ports usb et COM [ par shadowproject ] Bonjour,je souhaiterai pouvoir relier une interface via un port usb ou bien COM, et controller les flux de courant(tension,intensité) propre à chaque Listing port com sortant [ par djooles ] Bonjour,Je n'y connait pas grand chose en informatique, c'est pourquoi je fais appel à vos lumières !Après avoir fait détecté un périphérique bluetoot VB et port com [ par lokomass ] Bonjour a tous,Je suis tout nouveau sur le forum et j'utilise VB pour mon projet de fin d'année. Le projet consiste à la mise en place d'un outil codé

Nos sponsors

Derniers Blogs

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice

Forum

RE : CASE VIDE DANS ACCESS par sancho12345

RE : OVERRIDE FONT DANS UN USERCONTROL ? par ucfoutu

RE : CASE VIDE DANS ACCESS par sancho12345

RE : TEMPS REEL par ucfoutu

RE : OVERRIDE FONT DANS UN USERCONTROL ? par NHenry

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5