Accueil > > > OUVRIR/FERMER LES PORTS AVEC VISUEL ET CHECKBOX
OUVRIR/FERMER LES PORTS AVEC VISUEL ET CHECKBOX
Information sur la source
Description
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
Conclusion
Merci de noter ma source et d'ajouter d'éventuels Comentaires
Sources du même auteur
Sources de la même categorie
Commentaires et avis
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é
|
Derniers Blogs
[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : TEMPS REEL RE : TEMPS REEL par ucfoutu
Cliquez pour lire la suite par ucfoutu
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
|