Module a insérer dans un project pour l'utilisation de "port.dll"

Soyez le premier à donner votre avis sur cette source.

Vue 12 528 fois - Téléchargée 1 757 fois

Télécharger le projet
Commenter

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 / Exemple : 


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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
bquentin
Messages postés
2
Date d'inscription
vendredi 9 septembre 2005
Statut
Membre
Dernière intervention
14 juillet 2007
 -
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 !!!
Signaler
darkj57
Messages postés
9
Date d'inscription
lundi 13 novembre 2006
Statut
Membre
Dernière intervention
4 février 2007
 -
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
damien174
Messages postés
78
Date d'inscription
jeudi 4 janvier 2001
Statut
Membre
Dernière intervention
2 mars 2012
 -
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
nicodada
Messages postés
43
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
12 juillet 2007
 -
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
thegame88
Messages postés
12
Date d'inscription
samedi 20 mai 2006
Statut
Membre
Dernière intervention
15 juin 2009
 -
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
Afficher les 21 commentaires
S'inscrire maintenant

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.