MSComm sende og modtage

Noget som dette måske ??

En form med 2 commandbuttons, en mscomm control og en textbox.

//akj

Private gdone As Boolean


Private Sub Command1_Click()

gdone = False
MSComm1.InBufferSize = 1

MSComm1.PortOpen = True

done = False
ret = ""
MSComm1.Output = "p"

Do

    ret = ret & MSComm1.Input
    Text1.Text = ret
    DoEvents

    If InStr(1, ret, "<cr>") > 0 Then
        done = True
    End If

Loop Until done = True Or gdone = True

done = False
ret = ""
MSComm1.Output = "e"

Do

    ret = ret & MSComm1.Input
    Text1.Text = ret
    DoEvents

    If InStr(1, ret, "<cr>") > 0 Then
        done = True
    End If

Loop Until done = True Or gdone = True

done = False
ret = ""
MSComm1.Output = "L"

Do

    ret = ret & MSComm1.Input
    Text1.Text = ret
    DoEvents

    If InStr(1, ret, "<cr>") > 0 Then
        done = True
    End If

Loop Until done = True Or gdone = True


done = False
ret = ""
MSComm1.Output = "V"

Do

    ret = ret & MSComm1.Input
    Text1.Text = ret
    DoEvents

    If InStr(1, ret, "<cr>") > 0 Then
        done = True
    End If

Loop Until done = True Or gdone = True

MSComm1.PortOpen = False


End Sub

Private Sub Command2_Click()
    gdone = True
End Sub

Private Sub Form_Load()
Command1.Caption = "Send"
Command2.Caption = "Afbryd"
End Sub

Hej dk_akj.

Undskyld den lange svartid, det er næsten rigtigt det du har lavet til mig, men opgave 1 og 2 skal være på 2 sperate command knapper, kan du lave det om til det ??.

Hvorfor, skal der være en afbryd knap ??, hvad er formålet med gdone ??.

Mvh.

Christian_h

PS. resultatet der kommer tilbage fra comporten i opgave 2 vil være mellem 1 og 10 karaketere.

Afbryd knappen er beregnet til at afbryde de loop's der er i programmet hvis den enhed du har tilsluttet com-porten ikke svarer.

' loop intil cr er modtaget eller der er trykket afbryd
"Loop Until done = True Or gdone = True"

gdone er en global variabel der bruges ifm. afbrydelse.

//akj



' start på kode
Private gdone As Boolean


Private Sub Command1_Click()

Command3.Enabled = False

gdone = False
MSComm1.InBufferSize = 1

MSComm1.PortOpen = True

done = False
ret = ""
MSComm1.Output = "p"

Do

    ret = ret & MSComm1.Input
    Text1.Text = ret
    DoEvents

    If InStr(1, ret, "<cr>") > 0 Then
        done = True
    End If

Loop Until done = True Or gdone = True

done = False
ret = ""
MSComm1.Output = "e"

Do

    ret = ret & MSComm1.Input
    Text1.Text = ret
    DoEvents

    If InStr(1, ret, "<cr>") > 0 Then
        done = True
    End If

Loop Until done = True Or gdone = True

done = False
ret = ""
MSComm1.Output = "L"

Do

    ret = ret & MSComm1.Input
    Text1.Text = ret
    DoEvents

    If InStr(1, ret, "<cr>") > 0 Then
        done = True
    End If

Loop Until done = True Or gdone = True



MSComm1.PortOpen = False

Command3.Enabled = True
End Sub

Private Sub Command2_Click()
    gdone = True
End Sub

Private Sub Command3_Click()
Command1.Enabled = False
gdone = False
MSComm1.InBufferSize = 1

MSComm1.PortOpen = True

done = False
ret = ""
MSComm1.Output = "V"

Do

    ret = ret & MSComm1.Input
    Text1.Text = ret
    DoEvents
' cr erstattes med den karakter der indikerer at alle karakterer er sendt fra engheden
    If InStr(1, ret, "<cr>") > 0 Then
        done = True
    End If

Loop Until done = True Or gdone = True

MSComm1.PortOpen = False
Command1.Enabled = True

End Sub

Private Sub Form_Load()
Command1.Caption = "Opgave 1"
Command2.Caption = "Afbryd"
Command3.Caption = "Opgave 3"
End Sub

Takker for hjælpen.

Mvh.
Christian_h

Selvtak

//akj