serien port

Значи, има следната задачка:
Пиша си софтуер за управление на релета през серийния порт.
Хардуера не е нищо особено, базиран е нa PIC16F84.
Изпращам команди към устройството по следния начин:

Function SendCommand(Command As String)
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Output = Command
Debug.Print setme & MSComm1.CommEvent
MSComm1.PortOpen = False


End Function

и после например:

SendCommand(1)

(1-включва 1-во реле, 2-изклюва 1-во реле и т.н. до 4 релета.)

При успешно или неуспешно изпращане на команда, PIC-a връща даден резултат (например command ok)

Въпороса ми е как да прихвана какво ми се изпраща от серийния порт?

Идеята е да се добави нещо като статус...

1. [линк]

2. [линк] (там има нещо от сорта: The Receive Buffer....... text1.text = MSComm1.Input)

иначе имам това - дано ти е от полза:

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Handshaking = comNone
MSComm1.PortOpen = True
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
txtReceive.Text = ""
If MSComm1.InBufferCount > 0 Then

lReceived = MSComm1.Input
txtReceive.Text = lReceived
End If

End Sub

Стана.
Мерси :)

Няма за какво! Радвам се, щом се е получил желания резултат!

Prostete me za nevezestvoto, no moga li da zapitam MSComm kontrola vurvi li sus Visual Studio 6 ili dopulnitelno se svalia i ot kude?
Blagodarja vi za vnimanieto!

I taka nakraja njakoi shte mi kaze li kak da se sdobija s tozi kontrol? :)

като си инсталираш студио-то

Prostete i za moeto nevejestvo, no sega zapo4vam s programiraneto na VB , ta pri men MSCOMM1 se pod4ertava s na4upena liniq i ne iska da raboti. Може би защото използвам Бейсик 2005 Експрес Едишън. Откъде мога да си изтегля 6.0?
Извинете ме за латиницата но имам проблем с превключването и.