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 2012 02 12 11:25:17

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é :8 216 / 1 199

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

LIRE ET CHANGER LA LUMINOSITÉ DES ÉCRANS LCD (DE PORTABLE) C... par ShareVB

VISUAL BASIC ET MICROPROCESSEUR MBED par ccllee

VARIATEUR SECTEUR 11 VOIES SUR PORT SERIE OU USB par mays

PILOTER LES PORTS PARALLELES. par djebbipgm

PILOTER LES PORT COMM DE PC par djebbipgm

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

Sources en rapport avec celle ci

AUTORUN : DÉTECTION DU LANCEMENT DE L'AUTORUN, DÉTECTION DU ... par ShareVB

CONTROLE STARS par jaknight007

CLASSE POUR PILOTER EXCEL SIMPLEMENT par elguevel

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 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é 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

Nos sponsors

Derniers Blogs

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

Forum

RE : UN NOM EGALE UNE COULEUR par mibri

RE : UN NOM EGALE UNE COULEUR par ucfoutu

RE : UN NOM EGALE UNE COULEUR par mibri

RE : MACRO DE REPRISE DE SéLECTION MULTIPLE par ucfoutu

MISE à JOUR EN CASCADE (TABLES MèRE/FILLE) AVEC COLONNES AUTO-INCREMENTéS par BasicZx81

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning