[dvkhoi06d1]

Em đang làm đồ án giao tiếp với máy tính như sau: đọc số liệu từ đầu cân hiển thị lên máy tính,em dùng VB6, em cho số liệu hiển thị trên TEXTBOX thì nó chỉ hiện mấy dấu chấm hỏi :????? KG em rối quá không biết làm sao nữa!
Đầu cân em dùng là YH-T3 ,mã truyền lên lên máy tính là mã ASCII

các sư huynh giúp em với !!!
code em viết như sau:

Private Sub Form_Load()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False

MSComm1.CommPort = 1 'chon cong de giao tiep la cong 1

MSComm1.InputLen = 0 'doc het noi dung cua bo dem

MSComm1.Settings = "4800,N,8,1" 'cac thong so mo cong

MSComm1.RThreshold = 4

MSComm1.InputMode = comInputModeBinary 'chon kieu du lieu nhan theo kiêu nhi phan

MSComm1.PortOpen = True
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Dim nhandulieu As Variant
nhandulieu = MSComm1.Input
text1.Text = nhandulieu
text1.Text = nhandulieu & "KG"
End Select
End Sub