Réception RS232

Question

Bonjour &#224; tous, j'ai un petit probl&#232;me avec la r&#233;ception sur VB j'envoi la valeur 1023 via un picbasic &#224; 9600 Bauds et la valeur re&#231;ue reste fixe &#224; 203.
Si quelqu'un &#224; une solution je l'en remerci ci joint mon programme:

 Const Serveur = "Excel|C:\Documents and Settings\sts2\Bureau\PROJET\Visual Basic2\Analyseur_PC\relever_polluants.xls"
    Public ligne As Integer
    Public colonne As Integer
    Public Mess As String


Private Sub Com1_Click()
    Com1.Checked = True
    Com2.Checked = False
    MSComm1.CommPort = 1
End Sub


Private Sub Com2_Click()
    Com2.Checked = True
    Com1.Checked = False
    MSComm1.CommPort = 2
End Sub


Private Sub Command1_Click()
    Select Case Command1.Caption
        Case "Acquisition"
            Command1.Caption = "Arr&#234;t"
            MSComm1.Settings = "9600,N,8,1"
            MSComm1.RThreshold = 3
            MSComm1.PortOpen = True
        Case "Arr&#234;t"
            Command1.Caption = "Acquisition"
            MSComm1.PortOpen = False
    End Select
End Sub


Private Sub Command2_Click()
    End
End Sub


Private Sub Excel_Click()
'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\sts2\Bureau\PROJET\Visual Basic2\Analyseur_PC\relever_polluants.xls")
'appExcel.visible=True permet de rendre la fenetre visible, car sans sa, elle est ouverte mais pas visible
    appExcel.Visible = True
End Sub


Private Sub Exit_Click()
    End
End Sub


Private Sub Form_Load()
    MSComm1.InputLen = 3
    ligne = 2
    Label3.LinkTopic = Serveur
    Label3.LinkMode = 2
    Label1.LinkTopic = Serveur
    Label1.LinkMode = 2


End Sub


Private Sub Notice_Click()
'permet d'ouvrir la notice d'utilisation
    Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe C:\Analyseur_PC\Notice.pdf"
End Sub


Private Sub Print_Click()
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\sts2\Bureau\PROJET\Visual Basic2\Analyseur_PC\relever_polluants.xls")
'wsExcel correspond &#224; la premi&#232;re feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    wbExcel.Close
    Set wbExcel = Nothing
    appExcel.Quit
End Sub


Private Static Sub MSComm1_OnComm()
    Dim r&#233;sultat() As Byte
    Dim Quantit&#233;  As Byte
    Select Case MSComm1.CommEvent
        Case comEvReceive
            r&#233;sultat = MSComm1.Input
            Quantit&#233; = r&#233;sultat
            Label3.Caption = Quantit&#233;
            Label1.Caption = Time
            Label3.LinkItem = "L" & ligne & "C2"
            Label1.LinkItem = "L" & ligne & "C1"
            Label3.LinkPoke
            Label1.LinkPoke
            ligne = ligne + 1
    End Select
End Sub


Private Sub Version_Click()
'affiche le message version ...
    Mess = "Version 1.0   Copyright by Chris"
'la message box qui souvre sappele Analyseur PC
    MsgBox Mess, vbOKOnly + vbInformation, "Acquisiton ppb"
End Sub

cs_Jack · Answer

Salut
A mon avis, le probl&#232;me est dans la gestion de la r&#233;ception :
Tu lis LES donn&#233;es dans un tableau de Bytes "r&#233;sultat()" et tu transf&#232;res ce tableau dans un seul Byte "Quantit&#233;"
Qu'es-tu sens&#233; recevoir ?
Un texte compos&#233; de chiffre ou des codes Ascii (limit&#233; entre 0 et 255) correspondant aux valeurs ?
C'est &#224; dire, re&#231;ois-tu la cha&#238;ne "1023" ou une suite de Bytes 255 puis 255 ?
"1023" : Lis le .Input en String, directement
"255 + 255" : R&#233;sultat d&#233;cimal = Val("&h" & Hex(255) & Hex(255)) qui donne -1 en entier sign&#233; --> Compl&#233;ment &#224; 2 de 1024

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

cs_tg57 · Answer

Salut dej&#224; merci d'avoir r&#233;pondu aussi vite
En fait j'envoi plus une valeur de 0 &#224; 1023 mais de 0 &#224; 255 et je veux que ces valeurs s'affichent dans le label
Peux tu me dire clairement qu'elle ligne je dois changer de mon c&#244;ter je vais tenter ta solution merci

cs_Jack · Answer

Re Ta phrase n'est pas claire : Les valeurs vont de 0 à 255, c'est ça ? Mais cela ne nous dit pas si tu es sensé les recevoir sous forme de 3 chiffres qui se suivent 2-5-5, ou bien si chaque Byte représente une valeur. Je penche pour cette dernière théorie. Donc ton programme devrait fonctionner. Seule chose : Lors d'une récupération de données, tu peux très bien récupérer plusieurs données qui sont stockées dans le buffer. Alors que comptes-tu en faire ? Si tu ne dois afficher que le dernier lu, il te suffit de transformer le dernier Byte de ton tableau d'acquisition en chaine Private Static Sub MSComm1_OnComm() Dim résultat() As Byte ~~Dim Quantité As Byte~~ Select Case MSComm1.CommEvent Case comEvReceive résultat = MSComm1.Input ~~Quantité = résultat~~ Label3.Caption = ~~Quantité~~ CStr(résultat(UBound(résultat))) Label1.Caption = Time Label3.LinkItem = "L" & ligne & "C2" Label1.LinkItem = "L" & ligne & "C1" Label3.LinkPoke Label1.LinkPoke ligne = ligne + 1 End Select End Sub Le CStr est juste là pour la forme, pas obligatoire. UBound(Tableau) renvoie l'index le plus élevé dans le tableau. résultat(UBound(résultat)) est donc la valeur du dernier élément du tableau. Vala Jack, MVP VB NB : Je ne répondrai pas aux messages privés Champion du monde de boule de cristal - 2005 Le savoir est la seule matière qui s'accro

cs_Jack · Answer

En y reflechissant, je vois que tu veux remplir une feuille excel avec ces donn&#233;es. Bonne astuce que d'utiliser les liens DDE.
Donc, si on veut &#234;tre puriste, il ne faut pas perdre de donn&#233;es. Si plusieurs sont lues dans le m&#234;me temps, il faut quand m&#234;me les donn&#233;es.
Elles auront juste toutes la m&#234;me heure (Label1)
Private Static Sub MSComm1_OnComm()
    Dim r&#233;sultat() As Byte, r As Long
    Select Case MSComm1.CommEvent
        Case comEvReceive
            r&#233;sultat = MSComm1.Input
            For r = 0 To UBound(r&#233;sultat)   ' Les tableaux commencent &#224; 0 par d&#233;faut
               Label3.Caption = CStr(r&#233;sultat(r))
               Label1.Caption = Time
               Label3.LinkItem = "L" & ligne & "C2"
               Label1.LinkItem = "L" & ligne & "C1"
               Label3.LinkPoke
               Label1.LinkPoke
               ligne = ligne + 1
            Next r
    End Select
End Sub

Juste une pr&#233;caution : Il me semble que Excel ne sait pas g&#233;rer les tableaux de plus de 32768 lignes ...
Et rappelle toi que la scrutation DDE n'est pas toujours instantan&#233;e (charge machine ...). Il se peut donc que certaines cellules restent vides.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

cs_tg57 · Answer

Re 
Oui tu as bien compris je veux envoyer une valeur qui va de 0 &#224; 255 exemple 50 et que cette valeur apparaisse dans le label ce qui se rapporte &#224; ta premiere proposition je vais essayer merci pour ton aide
En fait c'est pour mon projet BTS alors j'essais &#231;a lundi merci encore

cs_tg57 · Answer

Re j'ai essay&#233; tes deux solutions aucune ne fonctionne
je te rappelle ce que je fais j'envois une valeur qui varie de 0 &#224; 255 et celle ci va s'ins&#233;rer dans une feuille excel si t'as une autre solution merci de me le dire

cs_tg57 · Answer

Re j'ai essay&#233; tes deux solutions aucune ne fonctionne
je te rappelle ce que je fais j'envois une valeur qui varie de 0 &#224; 255 et celle ci va s'ins&#233;rer dans une feuille excel si t'as une autre solution merci de me le dire

Réception RS232

7 réponses

Discussions similaires