thiết kế và thi công mạch cân điện tử sử dụng 89c51

voi giao thuc truyen la com1... MsgBox " do an tot nghiep dai hoc su pham ki thuat nam dinh.

Dim khoiluong As Double

_ Private Sub Command1_Click()

Timer3.Enabled = True

Timer4.Enabled = True

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

MSComm1.CommPort = 1

MSComm1.Settings = "9600,N,8,1"

MSComm1.InputLen = 0

MSComm1.InputMode = comInputModeText

MSComm1.InBufferSize = 1

MSComm1.PortOpen = True

Timer3.Enabled = False

Timer4.Enabled = False

End Sub

_

Private Sub Form_Unload(Cancel As Integer)

If MSComm1.PortOpen = True Then

MSComm1.PortOpen = False

End If

End Sub

_

Private Sub Picture1_Click()

MsgBox " giao dien phan mem ket noi voi modem can dinh luong hien thi tren may tinh.dung loadcell.phien ban v1.0 demo voi giao thuc truyen la com1 buad 900,n,8,1.", vbOKOnly, "gioi thieu so bo ve phan mem! "

End Sub

Private Sub Picture2_Click()

MsgBox " do an tot nghiep dai hoc su pham ki thuat nam dinh de tai can dinh luong dung loadcell va vdk 89c51 ket noi voi may tinh", vbOKOnly, "gioi thieu so bo ve phan mem! "

End Sub

_ Private Sub Timer1_Timer()

Text2.Text = "com1 9600,N,8,1 "

End Sub

Private Sub Timer2_Timer()

Text2.Text = ""

End Sub

_ Private Sub Timer3_Timer()

Dim klTest As String 'Tao mot bien de luu du lieu tam thoi tu com truyen ve

klTest = MSComm1.Input

On Error Resume Next 'Co gang convert du lieu thanh kieu Int

klTest = Trim$(klTest) 'Cat khoang trang 2 dau

khoiluong = Asc(klTest) 'Convert to Interger

MSComm1.InputLen = 0 'Xoa bo dem

End Sub

_ Private Sub Timer4_Timer()

Text1.Text = khoiluong & "Kg"

End Sub