Module a insérer dans un project pour l'utilisation de "port.dll"
Soyez le premier à donner votre avis sur cette source.
Vue 12 671 fois - Téléchargée 1 772 fois
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
info provenant de "Les interfaces de mon PC sous Windows" Publitronic/Elector
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
Codes Sources
A voir également
- Port.dll
- Visual Basic / VB.NET : Lecture d'informations sur rx du port serie avec port.dll - CodeS SourceS - Guide
- Visual Basic / VB.NET : Telecommande pc + port.dll - CodeS SourceS - Guide
- Librairie port.dll ✓ - Forum - VB.NET
- Serial port dans une dll - Forum - C++ & C++ .NET
- Serveur d'un port serie au choix du client (dll activex ) - Codes sources - Visual Basic / VB.NET (Divers)
HELLLPPP !!!
merci de me répondre.
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
<<
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.
>>
Que doi je faire
merci
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.