Discussion :

[fariweb]

Bonjour,

Voilà, je veux envoyer des commandes PTZ(zoom, gauche...) à une caméra via le port COM, ces commandes ont une structure spécifique :
une commande est composée de 7 octets sous forme héxadécimale.

Un exemple de message : FF 01 88 00 00 00 89.

J'utilise un objet SerialPort, pour créer et ouvrir le port COM1 j'appelle la méthode My.Computer.Ports.OpenSerialPort(portName ,baudRate ,parity ,dataBits ,stopBits), ensuite je lui envoie un message avec la méthode com1.WriteLine(message).

Mais le problème c'est qu'on envoie une chaîne et pas des valeurs hexadécimales et c'est la seule méthode que j'ai trouvé permettant d'envoyer des informations à un objet SerialPort.

Alors, est-ce-que quelqu'un a une solution pour envoyer des données héxadécimales vers un port COM?

Merci à tous!

[fariweb]

Bonjour,

A ce que je vois personne ne peut m'aider, c'est dommage. Je trouvais que ce problème pouvait en intéresser plus d'un, pouvoir piloter une caméra à distance ou tout autre dispositifs pilotable via visual basic 2005.

Peut être que je n'ai pas été assez précis :

J'éssaie de créer une petite application pour contrôler une caméra fonctionnant avec un protocol PELCO D RS422/485.

Pour ce faire je dois envoyer des données au port série grâce à un adaptateur RS232/RS422.

Mais ces données doivent avoir un format bien précis, vouv vous en doutez :
exemple : FF, 01, 88, 00, 00 , 00, 89

Il s'agit de 7 octets sous forme héxadécimale, actuellement j'ai écris un code pour pouvoir envoyer un tableau de 7 octets à un port en série et cela par diverses méthodes mais aucune ne fonctionnent, quelqu'un aurait la solution à mon probléme?

Voici un de mes codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Imports System.IO.Ports
Imports System
Imports System.Collections
 
Public Class Form2
 
    Sub GetSerialPortNames()
        ' Show all available COM ports.
        For Each sp As String In My.Computer.Ports.SerialPortNames
            ListBox1.Items.Add(sp)
        Next
    End Sub
 
	Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        	GetSerialPortNames()
    	End Sub
 
 
    Sub SendSerialData(ByVal data1 As Byte(), ByVal data2 As Byte())
        ' Send bytes to a serial port.
        Using com1 As IO.Ports.SerialPort = _
                My.Computer.Ports.OpenSerialPort("COM1", 4800, Parity.None, 8, StopBits.One)
            If com1.IsOpen Then
                MsgBox("port opened")
                com1.Write(data1, 0, 7)
                com1.Write(data2, 0, 7)
                MsgBox("message sended")
                com1.Close()
                MsgBox("port closed")
            Else
                MsgBox("port closed")
            End If
        End Using
    End Sub
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim adresse As UInteger = 1
        adresse = Byte.Parse((adresse).ToString())
        Dim b As Byte() = New Byte() {&HFF, adresse, &H0, &H4, &H0, &H20, &H26}
        Dim c As Byte() = New Byte() {&HFF, adresse, &H88, &H0, &H0, &H0, &H89}
        SendSerialData(c, b)
    End Sub
 
 
End Class

merci!

PS: pour d'autres informations telles que le fonctionnement de protocole ou le format des messages à envoyer ou quoi que ce soit, n'hésitez pas contactez moi!

[fariweb]

Bonjour à tous,

Vous m'avez oublié ou c'est que personne n'a la moindre idée pour me donner un coup de main?

Merci.

[Mose]

Je pense que personne ne sait.

Quant à l'intérêt de piloter qqch via le port série, bah.... franchement.... y'a pas de port série sur mon ordi Et vu l'ampleur que prend l'USB, je comprend que ça n'intéresse pas grand monde, contrairement à ce que tu penses.

Voilou, dsl de pas pouvoir t'aider.