AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 04:21:03
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MODULE A INSÉRER DANS UN PROJECT POUR L'UTILISATION DE "PORT.DLL"


Information sur la source

Catégorie :Périphériques Niveau : Débutant Date de création : 03/11/2002 Date de mise à jour : 03/11/2002 23:40:40 Vu / téléchargé: 8 130 / 1 258
Auteur : lolohtl Ecrire un message privé
Note :
8 / 10 - par 1 personne
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (21)
Ajouter un commentaire et/ou une note

Description

Utilisation des ports ( com, game, //, son,...)

ex:
dans un userform:

ETAT  =  CTS ' renvoie dans la variable "ETAT " l'etat de CTS
RTS 1   ' place RTS à 1



 

Source

  • Declare Function OPENCOM Lib "Port" (ByVal A$) As Integer
  • Declare Sub CLOSECOM Lib "Port" ()
  • Declare Sub SENDBYTE Lib "Port" (ByVal b%)
  • Declare Function READBYTE Lib "Port" () As Integer
  • Declare Sub DTR Lib "Port" (ByVal b%)
  • Declare Sub RTS Lib "Port" (ByVal b%)
  • Declare Sub TXD Lib "Port" (ByVal b%)
  • Declare Function CTS Lib "Port" () As Integer
  • Declare Function DSR Lib "Port" () As Integer
  • Declare Function RI Lib "Port" () As Integer
  • Declare Function DCD Lib "Port" () As Integer
  • Declare Sub DELAY Lib "Port" (ByVal b%)
  • Declare Sub TIMEINIT Lib "Port" ()
  • Declare Sub TIMEINITUS Lib "Port" ()
  • Declare Function TIMEREAD Lib "Port" () As Long
  • Declare Function TIMEREADUS Lib "Port" () As Long
  • Declare Sub DELAYUS Lib "Port" (ByVal l As Long)
  • Declare Sub REALTIME Lib "Port" (ByVal i As Boolean)
  • Declare Sub OUTPORT Lib "Port" (ByVal A%, ByVal b%)
  • Declare Function INTPORT Lib "Port" (ByVal p%) As Integer
  • Declare Function JOYX Lib "Port" () As Long
  • Declare Function JOYY Lib "Port" () As Long
  • Declare Function JOYZ Lib "Port" () As Long
  • Declare Function JOYW Lib "Port" () As Long
  • Declare Function JOYBUTTON Lib "Port" () As Integer
  • Declare Function SOUNDSETRATE Lib "Port" (ByVal Rate%) As Integer
  • Declare Function SOUNDGETRATE Lib "Port" () As Integer
  • Declare Function SOUNDBUSY Lib "Port" () As Boolean
  • Declare Function SOUNDIS Lib "Port" () As Boolean
  • Declare Sub SOUNDIN Lib "Port" (ByVal puffer$, ByVal size%)
  • Declare Sub SOUNDOUT Lib "Port" (ByVal puffer$, ByVal size%)
  • Declare Function SOUNDGETBYTES Lib "Port" () As Integer
  • Declare Function SOUNDSETBYTES Lib "Port" (ByVal b%) As Integer
  • Declare Sub SOUNDCAPIN Lib "Port" ()
  • Declare Sub SOUNDCAPOUT Lib "Port" () 
Declare Function OPENCOM Lib "Port" (ByVal A$) As Integer
Declare Sub CLOSECOM Lib "Port" ()
Declare Sub SENDBYTE Lib "Port" (ByVal b%)
Declare Function READBYTE Lib "Port" () As Integer
Declare Sub DTR Lib "Port" (ByVal b%)
Declare Sub RTS Lib "Port" (ByVal b%)
Declare Sub TXD Lib "Port" (ByVal b%)
Declare Function CTS Lib "Port" () As Integer
Declare Function DSR Lib "Port" () As Integer
Declare Function RI Lib "Port" () As Integer
Declare Function DCD Lib "Port" () As Integer
Declare Sub DELAY Lib "Port" (ByVal b%)
Declare Sub TIMEINIT Lib "Port" ()
Declare Sub TIMEINITUS Lib "Port" ()
Declare Function TIMEREAD Lib "Port" () As Long
Declare Function TIMEREADUS Lib "Port" () As Long
Declare Sub DELAYUS Lib "Port" (ByVal l As Long)
Declare Sub REALTIME Lib "Port" (ByVal i As Boolean)
Declare Sub OUTPORT Lib "Port" (ByVal A%, ByVal b%)
Declare Function INTPORT Lib "Port" (ByVal p%) As Integer
Declare Function JOYX Lib "Port" () As Long
Declare Function JOYY Lib "Port" () As Long
Declare Function JOYZ Lib "Port" () As Long
Declare Function JOYW Lib "Port" () As Long
Declare Function JOYBUTTON Lib "Port" () As Integer
Declare Function SOUNDSETRATE Lib "Port" (ByVal Rate%) As Integer
Declare Function SOUNDGETRATE Lib "Port" () As Integer
Declare Function SOUNDBUSY Lib "Port" () As Boolean
Declare Function SOUNDIS Lib "Port" () As Boolean
Declare Sub SOUNDIN Lib "Port" (ByVal puffer$, ByVal size%)
Declare Sub SOUNDOUT Lib "Port" (ByVal puffer$, ByVal size%)
Declare Function SOUNDGETBYTES Lib "Port" () As Integer
Declare Function SOUNDSETBYTES Lib "Port" (ByVal b%) As Integer
Declare Sub SOUNDCAPIN Lib "Port" ()
Declare Sub SOUNDCAPOUT Lib "Port" ()

Conclusion

info provenant de "Les interfaces de mon PC sous Windows"   Publitronic/Elector
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  •   Port
    • port.basTélécharger ce fichier [Réservé aux membres club]Voir ce fichier1 739 octets
    • port.dllTélécharger ce fichier [Réservé aux membres club]46 080 octets

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de mic le 04/11/2002 14:59:32

c'est super sauf que je ne sais pas vraiment comment maitriser la chose par la suite. Je m'explique disons que j'ai envie de récupérer des informations provenant de certaines broches de mon port com, que dois je faire ? Le problème n'étant pas de décoder l'information mais seulement de la récupérer. Voila, merci d'avoir lu mon message. J'apprécirais bcp que tu me réponde, car je vais avoir besoin de cette information d'ici peu.

Bonne prog.

signaler à un administrateur
Commentaire de lolohtl le 06/11/2002 23:04:00

RTS, DTR,TXD sont des ports de sortie et CTS, DSR, RI, DCD des entree.
pour utiliser une broche, il faut ouvrir le port com avec la configuration désirée:
OPENCOM ("COM1,1200,N,8,1")          ' ==> 1200 = vitesse en baud, N = pas de bit de parité, 8 = nombre de bit transmi dans la trame rs232, 1 = nombre de bit de stop).  
il faut ouvrir le port com avec sa configuration meme pour utiliser uniquement RTS ou une autre broche.
A la fin du programme, ecrire CLOSECOM  si non, à la prochaine utilisation, il indiquera : "port utilsé"
Une fois le port ouvert, tu as acces à toutes les broches.
ex:
Pour les broches de sorties ( RTS, DTR,TXD ):
RTS 1   ' passe RTS à 1
TXD 0   ' passe TXD à 0
etc.

Pour les ports d'entrées (CTS, DSR, RI, DCD):

variable = DSR

EtatAlarme = CTS

Pour ce qui est du RS232:
SENDBYTE (variable)              envoie le contenu de la variable en rs232 avec les paramètres encodé durant "opencom"

varaiable = READBYTE  lit le buffer rs232 et place la valeur lue dans la variable


voila....:-)

signaler à un administrateur
Commentaire de Zeus94 le 24/12/2002 12:01:39

Sympa le code mais cette modite dll elle fonctionne sous NT/2K&XP ou pas ? Merci du renseignement

signaler à un administrateur
Commentaire de jackky le 30/12/2002 21:03:46

no ca marche pas sous 2000

signaler à un administrateur
Commentaire de lolohtl le 09/01/2003 18:00:59

moi, j'ai 2000 et ca fonctionne parfaitement

signaler à un administrateur
Commentaire de LeWolf le 10/03/2003 17:51:11

Idem chez moi
ca fonctionne parfaitement sous 2000.
Juste un petit soucis, la comm ne s'initialise pas correctement a chaque fois
Question : Peut-on communiquer avec plusiseurs port Com en meme Temps ?

signaler à un administrateur
Commentaire de lolohtl le 11/03/2003 10:00:49

j'avoue ne pas avoir essayé.
Si tu as essayé, le resultat serait le bien venue
:-)

signaler à un administrateur
Commentaire de hachou le 16/04/2003 16:30:48

Salut a tous
Chez moi ca marche nickel mais je voulais savoir si ca marchait avec les ports usb et si ou comment faire (quel nom mettre et quels sont les noms des entrées / sorties du port usb) ?
Merci d'avance

signaler à un administrateur
Commentaire de lolohtl le 19/04/2003 02:14:38

Bonjour,

Je ne pense pas que la Dll fonctionne avec l'usb
Si tu ouvres le module port.bas, tu verras toutes les fonctions utilisable avec la dll ( com, joystick, etc) mais il n'y a rien sur l'usb.

signaler à un administrateur
Commentaire de hachou le 22/04/2003 17:30:03

Je le sais mais c'était au cas ou
A+

signaler à un administrateur
Commentaire de supremecastor le 05/12/2003 13:17:40

Salut!
Cette petite routine fonctionne tres bien, mais je voudrais lire des valeurs avec 2 chiffres apres la virgule et non pas des entiers. Quelqu'un sait quel type je peux utiliser? J'ai essayer avec single mais ca ne marche pas...
Merci bcp.

signaler à un administrateur
Commentaire de infomania le 06/07/2005 23:06:51

Bonjour je voudrai savoir comment utiliser soundin ??
JE suis un nouveau et je voudrai savoir

merci

Infomania.

signaler à un administrateur
Commentaire de infomania le 06/07/2005 23:46:50

non en fait je veux faire un logi qui detecte si du son sort de ma carte son et je sais pas comment faire...
merci

signaler à un administrateur
Commentaire de abdoinfo19 le 20/10/2005 13:42:47

svp envoyer à moi une application avec le vb de db9 qui partager les disc dure + tchater
@:       abdoinfo19@yahoo.fr

signaler à un administrateur
Commentaire de blingblingmoney le 26/04/2006 16:18:25

bonjour ta dll est pile ce qui me faut mais j'arrive pas trés bien à l'utiliser je voudrais mettre la broche CTS du port série à 1 comment faut-il faire?
merci de me répondre.

signaler à un administrateur
Commentaire de blingblingmoney le 26/04/2006 16:32:01

bonjour ta dll est pile ce qui me faut mais j'arrive pas trés bien à l'utiliser je voudrais mettre la broche CTS du port série à 1 comment faut-il faire?
merci de me répondre.

signaler à un administrateur
Commentaire de thegame88 le 23/05/2006 11:06:16

Bonjour g écrit un programme en VB5 pour ouvrir le COM1 et mettre RTS a 1, mais lorsque j exécute le programme VB5 me met Run-Time error 53 fil not found:port
Que doi je faire

merci

signaler à un administrateur
Commentaire de nicodada le 07/07/2006 15:31:23

Je ne l'ai pas encore testé mais ces exactement ce que je cherché notament:
<<
Une fois le port ouvert, tu as acces à toutes les broches.
ex:
Pour les broches de sorties ( RTS, DTR,TXD ):
RTS 1   ' passe RTS à 1
TXD 0   ' passe TXD à 0
etc.
>>

signaler à un administrateur
Commentaire de damien174 le 31/10/2006 21:56:02

bonjour
j'utilise depuis un petit moment cette dll.
now je veux l'utilisé avec un convertisseur sub que j'ai fait (a l'aide d'un TUSB3410).

mon soucis, c'est que la dll ouvre le port qu'a 1200 et non pas à 19200.
savez vous pourquoi ? et comment corriger le problème ?

merci

signaler à un administrateur
Commentaire de darkj57 le 04/02/2007 10:59:08

bonjour cette dll est pile ce qui me faut mais j'arrive pas trés bien à l'utiliser, pour RTS TXD et DTR pas de problème, mais je voudrais mettre les broche CTS, DCD DSR du port série à 1 de façon a déclencher mon timer. Comment faut-il faire?
merci de me répondre.

signaler à un administrateur
Commentaire de bquentin le 14/07/2007 19:39:09

Tu devrais faire un programme pour expliquer chacune des fonctions de la DLL.Je sais comment envoyer quelquechose sur le port série mais le reste je ne voit absolument pas...
HELLLPPP !!!

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,234 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.