teechart8

[vankhoakmt]

các bạn ai có teechart8.ocx không? sao mình copy bản teechart7 vào C:\WINDOWS\system32 và vào add teechart trong Vb6.0 thì lại không xuất hiện ???
ai có bản teechart8 thì sent cho mình với !!!
cám ơn nhiều... cần gấp lắm

[hoangdai]

cái ông mở luồng lắm thế.Lần trước đã hướng dẫn rồi mà.Lên mạng download bản teechar trial về.Cài ra,vào thư mục cài đặt mà lấy file teechar8.dll là OK.Vậy là ổn chưa???Còn teechar 7 dùng cũng ngon.Muốn add vào VB6 thì vào project-->comment-->apply nó vào-->Finish.

[vankhoakmt]

chào bạn hoangdai, tôi đã sử dụng được teechart8, và tôi đã làm 1 ứng dụng nhỏ cho truyền nhận nối tiếp dùng cổng com, cách làm của tôi là :
tạo 1 mảng 100 phần tử và 1 biến đếm integer
tạo 1 timer 1s để gọi chuơng trình oncomm với oncomm là chuơng trình đọc dữ liệu đầu vào
cứ mỗi lần gọi oncomm là đọc giá trị đầu vào và tăng biến đếm lên 1 vì đo trong time = 100s nên đếm = 100 thì lại reset dem

...........
vấn đề của toi là:
khi chạy thì timer gọi oncomm không hoạt động và khi build chương trình thì teechart vẽ rất nhanh và không cần gọi oncomm..????
đây là code của mình :
--------------------------------------------
Dim mangT(1 To 100) As Integer 'nhiet do
Dim dem As Integer ' bien dem


Private Sub Form_Load()

' Fire Rx Event Every single Bytes
MSComm1.RThreshold = 1

' When Inputting Data, Input 1 Byte at a time
MSComm1.InputLen = 1

' 9600 Baud, No Parity, 8 Data Bits, 1 Stop Bit
MSComm1.Settings = "9600,N,8,1"
' Disable DTR
MSComm1.DTREnable = False

' Open COM1
MSComm1.CommPort = 3
MSComm1.PortOpen = True
Label6.Enabled = False


'------------------------------------------
dem = 1 ' cho bien dem =1
End Sub



Private Sub MSComm1_OnComm()
Dim Data As String
Dim Nhietdo, read, temp As Integer
read = 0
temp = 0

'If comEvReceive Event then get data and display

If MSComm1.CommEvent = comEvReceive Then
Data = MSComm1.Input 'get data
dem = dem + 1
If dem >= 10 Then dem = 1
If (Data = "") Then
Exit Sub
Else: hienthi.Caption = Asc(Data) 'convert to ASCII and display
End If
mangT(dem) = CInt(Asc(Data)) ' lay gia tri hien tren man hinh
With TChart1.Series(0)
.Add mangT(dem), "", vbRed
End With

End If
End Sub

Private Sub Time_Timer()
lbltime.Caption = DateTime.Now
End Sub
Private Sub Cmdoff_Click()
MSComm1.Output = Chr(0)

End Sub
Private Sub cmdon_Click()
MSComm1.Output = Chr(1)

End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False 'Close the COMM port
End Sub

Private Sub cmdexit_Click()
MSComm1.PortOpen = False 'Close the COMM port
End
End Sub


Private Sub cmdset_Click()
read = Val(txtdat)
Label6.Enabled = True
Txt.Enabled = True
Txt = read
End Sub

[vankhoakmt]

khi nhận được 1 byte dữ liệu dạng string từ VDK truyền lên, làm sao có thể chỉnh sửa chuỗi đó
ví dụ truyền lên là 10010000 muốn sửa thành 00010000 thì làm như thế nào ?
xin chỉ giúp