help! help!hiển thị trên vb

[svdt_pro]

Private Sub MSComm1_OnComm()
Dim T As String
Dim tam
T = Me.MSComm1.Input
NHIETDO.Value = Val((Mid(T, 1, 3)))
tam = Val(Mid(T, 4, 1))
Em làm đồ án đếm sản phẩm , sử dụng 3 led 7 đoạn, dùng chốt 74595 xuất ra led7
Khi hiển thi trên vb : su dụng đoạn code trên nhưng số hiển thị bị giựt, và nhảy loạn xạ, k đúng vị trí đơn vị, trăm ,chục...khi sản phẩm đi qua
các bác có thể giải thích và sửa lỗi giúp em được k a?
thank các bác nhiều nhiều!!!!

[loveelectron]

Bạn port cả code của vi điều khiển và đầy đủ code của vb lên thì mọi người mới giúp được chứ.
Riêng phần code trên đã có vấn đề rùi.
Bạn có thể tham khảo chương trình giao tiếp máy tính mình đã làm và hoạt động tốt.
http://www.mediafire.com/?z86cb5uc8ba6zbk