Giao tiếp RS232 trên PC

[ltpbkis]

Anh Bắc ơi.em đang làm bài tập lớn về VXL.yêu cầu của bài là:
1. nhập nhiệt độ max va min để gửi xuống cho PIC .Nhiệt độ đó là khoảng để PIC ra báo động bằng loa nêu vượt ra khỏi khoảng [max ,min]
2.nhập xong gửi dữ liệu xuống
3.nhận nhiệt độ đo từ LM 335 đo được lên để hiển thị
Tất cả nhập, nhận và truyền dữ liệu đều được viết bằng Visual Basic

Anh cho em hỏi đoạn chương trình sau em viết để truyền nhiệt độ xuống đã đúng chưa mà sao vẫn không được.

' ham de gui du lieu xuong tu PC'
'================================================= ======================='
Private Sub Gui_Click()
Dim Tmaxs As String 'kieu bien truyen la string'
Tmaxs = Tmax 'Bien chua nhiet do max de truyen'
Dim Tmins As String
Tmins = Tmin 'Bien chua nhiet do min de truyen'
If (RS232.PortOpen = True) And (RS232.CTSHolding = False) Then
'neu cong da mo va khong trong wa trinh truyen du lieu thi truyen'
RS232.Output = Tmaxs 'truyen Tmax'
RS232.Output = Tmaxs 'Truyen Tmin'
Else
RS232.PortOpen = True 'nguoc lai phai mo cong'
RS232.Output = Tmaxs
RS232.Output = Tmaxs
End If 'ket thuc kiem tra dieu khien va truyen'
End Sub

và anh cho em cái thuật toán gửi và nhận dữ liệu đi.như để gửi và nhận cần làm cái gì từng bước một kiểm tra cái gì.Truyền và nhận chuỗi ký tự số thì làm như thế nào.