[mostafabakar]

الكود يرسل ما بداحل text 1 وبعد التجربة يعمل جيدا بعد الضغط على زر الارسال
ويستقبل المعلومات على2 text ولكنه لا يستقبل اى معلومه سواء كانت binary or
text
الكود
Private Sub Command1_Click
MSComm1.Output = Text1.Text
End Sub


Private Sub Command2_Click
End
End Sub

Private Sub Command3_Click
Text2.Text = ""
Text1.Text = ""
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 1
MSComm1.InputLen = 1
MSComm1.InBufferCount = 0
MSComm1.PortOpen = True
End Sub


Private Sub MSComm1_OnComm()
Static InBuff As String
InBuff = InBuff & StrConv(MSComm1.Input, vbUnicode)
Text2.Text = Text2.Text & InBuff
End Sub