1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

RS232 Gestion du RTS/CTS

WagoFr Messages postés 1 Date d'inscription vendredi 7 janvier 2005 Statut Membre Dernière intervention 7 janvier 2005 - 7 janv. 2005 à 11:44
space_walker Messages postés 84 Date d'inscription mardi 3 février 2004 Statut Membre Dernière intervention 22 juillet 2008 - 7 juin 2007 à 21:08
je souhiterais géré le ctrl de flux materiel et à cet effet controller dans mon apli VB NET les signaux RTS / CTS à savoir :
controller dynamiquement le signal RTS
connaitre l'état du signal CTS
par avance merci
A voir également:

3 réponses

Réponse 1 / 3
cs_nr Messages postés 164 Date d'inscription mardi 16 décembre 2003 Statut Membre Dernière intervention 11 juillet 2005
7 janv. 2005 à 15:40
Salut,

Sur .net je ne sais pas mais sur vb6 si tu veux contrôler dynamiquement cts et rts il faut utiliser io.dll (imposible avec mscomm).

@+
0
Réponse 2 / 3
slmd37 Messages postés 1 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 12 janvier 2005
12 janv. 2005 à 22:49
Salut,

J'aurais aussi besoin de controler ces lignes de controle, j'ai téléchargé la IO.DLL mais je ne vois pas comment controler les lignes avec cette dll.

Pouvez vous m'aider svp ?

merci d'avance.
0
Réponse 3 / 3
space_walker Messages postés 84 Date d'inscription mardi 3 février 2004 Statut Membre Dernière intervention 22 juillet 2008
7 juin 2007 à 21:08
j'essaye justement en ce moment de gerer la ligne CTS ... voici mon bout de code, mais est ce que qqun pourrait confirmer si c'est ok .. car ca deconne un peut et je ne sais pas si c'est a cause de ca ... ?

-------------------------------------------------------------------------------------------












Private



Sub
Button_Send_Click(

ByVal
sender

As



Object
,

ByVal
e

As
System.EventArgs)

Handles
Button_Send.Click


Dim
index, index2

As



Integer






Dim
linetowrite

As



String






Dim
charout

As



String






Dim
datagridview2

As
DataGridViewdatagridview2 = Form_Main.DataGridView2

 


If
SerialPort1.IsOpen =

True



AndAlso
datagridview2.Rows.Count > 0

Then

Cursor = Cursors.WaitCursor




' On passe le curseur en sablier

ProgressBar1.Value = 0




' On initialise la ProgressBar.

ProgressBar1.Maximum = datagridview2.Rows.Count - 1




' Maximum= nombre total d'octet.








For
index = 0

To
(datagridview2.Rows.Count - 1)   linetowrite =


"x"
& (

CStr
(Hex(datagridview2(0, index).Value)))


  For
index2 = 1

To
75  linetowrite = linetowrite &


"x"
&

CStr
(Hex(datagridview2(index2, index).Value))


Next






For
index2 = 0

To
linetowrite.Length - 1


If
CheckBoxCTS.Checked =

True



Then






   While
SerialPort1.CtsHolding =

True






   End



While






End



If

charout = linetowrite(index2)


SerialPort1.Write(charout)







Next 



ProgressBar1.PerformStep()







Next

Cursor = Cursors.Arrow




' On repasse le curseur en normal






End



If






End



Sub
0
Rejoignez-nous