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" ()
Télécharger le zip
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.
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 à 1TXD 0 ' passe TXD à 0etc.Pour les ports d'entrées (CTS, DSR, RI, DCD):variable = DSREtatAlarme = CTSPour 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 variablevoila....:-)
Sympa le code mais cette modite dll elle fonctionne sous NT/2K&XP ou pas ? Merci du renseignement
no ca marche pas sous 2000
moi, j'ai 2000 et ca fonctionne parfaitement
Idem chez moi ca fonctionne parfaitement sous 2000.Juste un petit soucis, la comm ne s'initialise pas correctement a chaque foisQuestion : Peut-on communiquer avec plusiseurs port Com en meme Temps ?
j'avoue ne pas avoir essayé.Si tu as essayé, le resultat serait le bien venue:-)
Salut a tousChez 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
Bonjour,Je ne pense pas que la Dll fonctionne avec l'usbSi 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.
Je le sais mais c'était au cas ou A+
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.
Bonjour je voudrai savoir comment utiliser soundin ??JE suis un nouveau et je voudrai savoir merciInfomania.
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
svp envoyer à moi une application avec le vb de db9 qui partager les disc dure + tchater @: abdoinfo19@yahoo.fr
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.
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:portQue doi je fairemerci
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 à 1TXD 0 ' passe TXD à 0etc.>>
bonjourj'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
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.
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 !!!
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 244 membres 42 nouveaux aujourd'hui 16 152 membres club