Thanks but the delay is not important, the problem I Think is when you use the commevent, you can't put a send statment in case of receive for exemple
tPosted on: April 29, 2008, 09:51:20 09:51 - Automerged
Here vb code:
Private Sub Comm1_OnComm()
Select Case Comm1.CommEvent
byterec = Comm1.Input
If Asc(byterec) = 13 Then
fin = Len(Text1.Text)
temp = Val(Text1.Text)
' here the code for data treatment
Text1.Text = ""
' Here I want to put a send statment but nothing append !!
Comm1.Output = Format(adress, "00000") & Chr(0) & _
Format(ordre, "000") & Chr(0)
Text1.Text = Text1.Text + byterec