|
Private Sub MSComm1_OnComm()
With TChart1.Series(1)
.AddXY x, y, "", vbBlack
End With
'k = k + 1 'bo
temp = MSComm1.Input 'nhan du lieu tu com
'data = data + temp 'bo
'If (k = 4) Then 'bo
'txtnhan.Text = "" 'bo
'data = data + Chr(10) ' bo
'k = 0 'bo
'End If
txtnhan.Text = txtnhan.Text + temp + Chr(13) + Chr(10)
x = x + 1
y = Val(temp) 'y duoc chuyen tu chuoi sang so
temp = ""
End Sub
đoạn code vb của em đây bác NAM
con ccs đơn giản như sau:
if (m==50) //dung 1s xuat gia tri nhiet_do ra man hinh
{
nhiet_do=value2;
// puts(nhiet_do);
printf("%f",(float)nhiet_do);
m=0;
}
trong hàm ngắt timer cứ 1s xuất ra lcd và máy tính, lcd thi bình thường còn máy tính có vấn đề kiểm tra mãi mà chưa ra
|