Tweet
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!!!!
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!!!!
Comment