Thông báo

Collapse
No announcement yet.

teechart8

Collapse
X
 
  • Lọc
  • Giờ
  • Show
Clear All
new posts

  • teechart8

    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

  • #2
    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.


    Add: 97 Quán Nam - Lê Chân - Hải Phòng.
    Tel: 031 518648 Phone: 0904 283 505

    Comment


    • #3
      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
      Last edited by vankhoakmt; 29-10-2009, 09:58.

      Comment


      • #4
        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
        Last edited by vankhoakmt; 29-10-2009, 10:20.

        Comment

        Về tác giả

        Collapse

        vankhoakmt Tìm hiểu thêm về vankhoakmt

        Bài viết mới nhất

        Collapse

        Đang tải...
        X