Archief - [PROG][VB 6.0] Serieele communicatie RS232

jeppe · 9 mei 2006

hallo,

Ik heb een probleem met mijn vb 6.0 programma. Als ik via een microcontroller een single serieel doorstuur naar men pc, dan zou hij deze moeten ontvangen en weergeven in een label maar dat doet hij niet(flipt nogal). Hij geeft het dus niet goed weer.
Met de hyperterminal kan ik deze gegevens wel lezen dus met het sturen van de waarden zijn geen problemen. Ik denk dat het probleem ergens zit met de ontvangen buffer. Als hij de gegevens ontvangt, dat hij alle waarden van die buffer in die label toont en niet alleen die waarden die ik wil?!
Alvast bedankt,

Jeppe

jeppe · 9 mei 2006

Het programma

Code:

Private Sub form_load()
MSComm1.Settings = "9600,N,8,1"
Com_Option1 = True
Com_Option2 = True
Com_Option3 = True
Com_Option4 = True
End Sub

Private Sub Com_Option1_Click()
choice_com_port
End Sub

Private Sub Com_Option2_Click()
choice_com_port
End Sub

Private Sub Com_Option3_Click()
choice_com_port
End Sub

Private Sub Com_Option4_Click()
choice_com_port
End Sub

Private Sub MSComm1_OnComm()
 Dim unit As String
    unit = "°C"
    
 If MSComm1.CommEvent = comEvReceive Then
         Label_temp.Caption = MSComm1.Input
 End If
End Sub

Private Sub choice_com_port()
  If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
    End If
           
        
    If Com_Option1 = True Then
        MSComm1.CommPort = 1
        On Error GoTo failed1
        MSComm1.PortOpen = True
        Com_Option1.Caption = "Com1: OK"
                        
    ElseIf Com_Option2 = True Then
        MSComm1.CommPort = 2
        On Error GoTo failed2
        MSComm1.PortOpen = True
        Com_Option2.Caption = "Com2: OK"
             
    ElseIf Com_Option3 = True Then
        MSComm1.CommPort = 3
        On Error GoTo failed3
        MSComm1.PortOpen = True
        Com_Option3.Caption = "Com3: OK"
                
    ElseIf Com_Option4 = True Then
        MSComm1.CommPort = 4
        On Error GoTo failed4
        MSComm1.PortOpen = True
        Com_Option4.Caption = "Com4: OK"
    
    End If
    Exit Sub

failed1:
Com_Option1.Caption = "Com1: NOT CONNECT"
Exit Sub
failed2:
Com_Option2.Caption = "Com2: NOT CONNECT"
Exit Sub
failed3:
Com_Option3.Caption = "Com3: NOT CONNECT"
Exit Sub
failed4:
Com_Option4.Caption = "Com4: NOT CONNECT"
End Sub



Private Sub check_log_to_file_click()

If Check_log_to_file.Value = 1 Then
    CommonDialog1.ShowSave
    On Error GoTo wrongfile
    FileName$ = CommonDialog1.FileName
    Open FileName$ For Append As #1
    Print #1, Date$, Time$, Text1.Text
Else
    Close #1
End If

Exit Sub

wrongfile:
Close #1
End Sub

Private Sub Quit_Click()
If MSComm1.PortOpen Then
        MSComm1.PortOpen = False
    End If
End
End Sub

Archief - [PROG][VB 6.0] Serieele communicatie RS232

jeppe

Legacy Member

jeppe

Legacy Member