nguyen_de89
24-05-2011, 01:26 PM
Mình muốn vẽ trục x là trục thời gian nhưng khi mà đồ thị được vẽ hết màn hình của teechart thì trục thời gian sẽ không dịch nữa (cho dù thời gian vẫn chạy), theo đó đồ thị sẽ bị co lại về phía bên trái màn hình,mình muốn vẽ đồ thị của teechart nếu đầy màn hình sẽ bị xóa đi và được vẽ lại bằng đồ thị của khoảng thời gian tiếp theo (ví dụ như mình vẽ 10 điểm ứng với một khoảng thời gian trên màn hình, khi tràn sẽ xóa đi và vẽ 10 điểm của khoảng thời gian tiếp theo) Ai có biết cái này trong teechart xử lí như thế nào ko?
-Code của mình như thế naỳ bạn nào biết thì góp ý hộ
Private Sub MSComm1_OnComm()
Dim X As Variant
Dim Y As Variant
If MSComm1.CommEvent = comEvReceive Then
Y = MSComm1.Input
End If
X = Hour(Time) & ":" & Minute(Time) & ":" & ":" & Second(Time)
With TChart1.Series(0)
.asLine.Pointer.Visible = True
.Add Y, X, vbRed
End With
End Sub
-Code của mình như thế naỳ bạn nào biết thì góp ý hộ
Private Sub MSComm1_OnComm()
Dim X As Variant
Dim Y As Variant
If MSComm1.CommEvent = comEvReceive Then
Y = MSComm1.Input
End If
X = Hour(Time) & ":" & Minute(Time) & ":" & ":" & Second(Time)
With TChart1.Series(0)
.asLine.Pointer.Visible = True
.Add Y, X, vbRed
End With
End Sub