làm thế nào để vẽ Đồ thị (X,Y), dữ liệu nhận từ cổng COM, ngôn ngữ Visual Baic 6.0

[hoanglongu]

mình cũng dùng teechart7.nhưng bị hết hạn mình không tài nào add lại được.
bạn dã gặp vậy có thể chỉ giúp mình không.
mình đang cần gấp!!!
thanks!!!
mail:bienvangdemthu@yahoo.com

Bạn làm theo HƯỚNG DẪN của mình đây:

Cái TEECHART này không có bản FREE , Version có bản quyền giá rất cao ( 399$) , nên khi Down file Teechart ActiveX Control ,ta dùng được 50 ngày .Để gia hạn ngày dùng ,ta làm cách đơn giản như sau:

Lên trang chủ , Down 1 file ActiveX Control khác ( cùng Version ) , rồi Copy vào Thư mục Hệ thống ( C:/Windows/System32) --> Dán "đè" lên file Cũ --> Tiếp tục được dùng 50 ngày nữa.

Link Download ở trang chủ ( chọn file: Teechart7.cab - chừng 1MB )
http://www.steema.com/downloads/dwn_tch_ax.html

Chúc vui.

[alone_87]

Bạn làm theo HƯỚNG DẪN của mình đây:

Cái TEECHART này không có bản FREE , Version có bản quyền giá rất cao ( 399$) , nên khi Down file Teechart ActiveX Control ,ta dùng được 50 ngày .Để gia hạn ngày dùng ,ta làm cách đơn giản như sau:

Lên trang chủ , Down 1 file ActiveX Control khác ( cùng Version ) , rồi Copy vào Thư mục Hệ thống ( C:/Windows/System32) --> Dán "đè" lên file Cũ --> Tiếp tục được dùng 50 ngày nữa.

Link Download ở trang chủ ( chọn file: Teechart7.cab - chừng 1MB )
http://www.steema.com/downloads/dwn_tch_ax.html

Chúc vui.

mình cũng làm như vậy nhưng nó không được.
mình đành phải cài lại win luôn!!!
Ah!!!
Mình cần khuếch đại tín hiệu nhận từ lm35 lên 5 lần.
Ai có mạch này không chỉ mình với!!!!gần nộp đồ án rồi
thanks!!
Mình đã thử mấy cái rồi mà không được....

[alone_87]

Bạn làm theo HƯỚNG DẪN của mình đây:

Cái TEECHART này không có bản FREE , Version có bản quyền giá rất cao ( 399$) , nên khi Down file Teechart ActiveX Control ,ta dùng được 50 ngày .Để gia hạn ngày dùng ,ta làm cách đơn giản như sau:

Lên trang chủ , Down 1 file ActiveX Control khác ( cùng Version ) , rồi Copy vào Thư mục Hệ thống ( C:/Windows/System32) --> Dán "đè" lên file Cũ --> Tiếp tục được dùng 50 ngày nữa.

Link Download ở trang chủ ( chọn file: Teechart7.cab - chừng 1MB )
http://www.steema.com/downloads/dwn_tch_ax.html

Chúc vui.

Thanks hoanglongu nha!!!
mình cũng làm như vậy nhưng nó không được.

mình đành phải cài lại win luôn!!!
Ah!!!
Mình cần khuếch đại tín hiệu nhận từ lm35 lên 5 lần.
Ai có mạch này không chỉ mình với!!!!gần nộp đồ án rồi
thanks!!
Mình đã thử mấy cái rồi mà không được....

[hoanglongu]

Thanks hoanglongu nha!!!
mình cũng làm như vậy nhưng nó không được.

mình đành phải cài lại win luôn!!!
Ah!!!
Mình cần khuếch đại tín hiệu nhận từ lm35 lên 5 lần.
Ai có mạch này không chỉ mình với!!!!gần nộp đồ án rồi
thanks!!
Mình đã thử mấy cái rồi mà không được....

Quên dặn bạn, khi mở Project của VB lên , bạn Click chuột trái ỏ ToolBox --> Chọn Compoment -->Browe --> Add lại file TeeChart7.OCX --> OK thôi

Còn mạch khuyếch đại lên 5 lần ,bạn dùng OP-AMP ,dùng Khuyếch Đại KHÔNG ĐẢO ( sơ đồ gồm: 1 op-amp , 2 điện trở ), sơ đồ này dễ .Bạn có thể search là sẽ có thôi.

[kyda]

Chào bác Thảo (hoanglongU), EM có đọc các bài của bác và thấy Bác rất pro về cái đồ thị trên VB này rùi. Em đang có bài thiết kế một bản đồ số dùng cho thiết bị GPS. Trên bản đồ số có các điểm ví dụ cho trước, nối với nhau bởi các con đường (các điểm là một địa danh nào đó như bản đồ thật), Các điểm được gói gọn trong bản đồ mà Em nghĩ là thiết kế như một đồ thị, Thiết bịGPS sẽ đưa địa điểm mình đang đứng lên bản đồ thông qua cổng nối tiếp dùng chuẩn RS232 và hiện thị nhấp nháy cho người dùng biết.
Em chưa dùng VB mấy mà lại sắp phải hoàn thành bài này rùi nên mong Bác Thảo và các Bác giúp đỡ
Em có down các ví dụ vẽ đồ thị của bác về mà không mở được file VB. Xem được code mà không xem được dao diện thì chán chết..Bác có cách nào post lại cho Em xin được không ạ?

Cảm ơn các bác!!!!

[tungtuantu]

bạn nào sử dụng thành thạo teechart cho mình hỏi tí, mình vẽ đồ thị tốc độ động cơ gửi về, thì để dễ quan sát mình có cách nào làm cho trục x của đồ thig khi vẽ nó sẽ tự động dịch sang trái khi tọa độ x tăng lên, mặc định của nó là nó sẽ co hẹp khoảng cách 2 tọa độ cạnh nhau, như thế này thì đồ thị sẽ bị co vào và khó quan sát, hoặc mình muón zoom lên theo chiều ngang nghĩa là khi mình lăn chuột thì độ thì dãn ra để mình dễ quan sát
Thanks

[anhdu]

cách vẽ đồ thị XY , với X là trục thời gian, Y là dữ liệu đọc từ

[alone_87]

cái này mình cũng không biết

[alone_87]

bạn thử cách này đi.
khi nó vẽ được vài điểm thì bạn kích chuột phải vào đồ thị và kéo đi.
như thế đồ thị sẽ giãn ra.nhưng nó không tự động dịch chuyển nũa.

[hoangleanh87]

Để người quan sát luôn thấy được các giá trị mới nhất trên đồ thị.Bạn viết thử như thế này nhé ( Code VC 2005 )

if((tChart1->Series(1)->Count)>30)
{
tChart1->Axis->Bottom->MinimumOffset=(tChart1->Axis->Bottom->MinimumOffset - 3);
tChart1->Axis->Bottom->Maximum=(tChart1->Axis->Bottom->Maximum + 1);

tChart1->Zoom->Animated=true;

tChart1->Zoom->AnimatedSteps=5; // không nhất thiết là 5 đâu,tùy bạn cho

}
Thân
Chúc bạn thành công.

[xuanvu_dk2]

các bạn dùng NTgraph đi hoàn toàn free có code rồi. Mình đã làm và chạy ngon ai cần thì mail cho mình:xuanvudk2@gmail.com

[lehanhla]

Bạn xuanvu_dk2 ơi bạn gửi cho mình nhé,mình dùng thử xem sao.Đang thi nên ko có thời gian search cái NTgraph.
Email: hoangleanh87@yahoo.com.vn
Thanks bạn nha.

[hoanglongu]

các bạn dùng NTgraph đi hoàn toàn free có code rồi. Mình đã làm và chạy ngon ai cần thì mail cho mình:xuanvudk2@gmail.com

Cái này mình đã TEST sử dụng trong luận văn tốt nghiệp vừa qua . Nói chung rất tốt , có đầy đủ chức năng ( tuy rằng chỉ 2D) . Nhưng được cái miễn phí, nên có lợi TEECHART ở điểm này ( đương nhiên là không đẹp bằng Teechart) . Mình giới thiệu lại cho các bạn sử dụng.

1. Đây là một số hình ảnh về NTGraph với Visual Basic 6 ( được lấy từ Luận Văn Tốt Nghiệp của mình )






********************************

2. Cách sử dụng NTGraph: Đây là ví dụ Mẫu của trang chủ , mình biên dịch ra cho các bạn mới bắt đầu sử dụng
( Link Nguồn: http://www.codeproject.com/KB/miscct...h_activex.aspx )

Bước 1: Download File "NTGraph.ocx" về máy ( file này được gởi kèm theo bài này: file NTGraph_ActiveX )
Bước 2: Copy file "NTGraph.ocx" và paste vào thư mục system32 theo đường dẫn "C:\WINDOWS\system32"

Bước 3: Mở VB6 chọn "StandardEXE"

Bước 4: Trên menu "Project" chọn "Components..." khi đó hộp hội thoại Components xuất hiện và chúng ta click chuột vào nút "Browse..." sau đó chọn đường dẫn "C:\WINDOWS\system32" và chọn file "NTGraph.ocx", click "Apply" và Ok.

Bước 5: Chọn "NTGraph ActiveX Control Modul" trong hộp thoại và Click "Apply" sau đó chọn "Ok"

Bước 6: Trên Form1, chọn, NTGraph ( biểu tượng như Dao động ký) trên "ToolBox" và vẽ lên Form1, thiết kế nút Draw và Exit như hình sau:


Bước 7: Click chuột phải vào NTGraph trên Form1 và chọn "Properties" để định dạng các tính chất cho đồ thị ( tùy theo mỗi cách sử dụng)

Bước 8: Nhấn kép vào nút Exit và viết dòng lệnh thoát chương trình như sau:

unload me

Bước 9: Nhấn kép nút "Draw" và viết dòng lệnh như sau:

With NTGraph1
.PlotAreaColor = vbBlack ' chon mau nen la mau den
.FrameStyle = Bitmap ' chon khung la dang Bitmap
' khung co 3 dang Bitmap, Flat, Scope
.Caption = " Ve do thi " 'Dat tieu de cho do thi
.XLabel = "truc x" 'Dat tieu de cho truc X
.YLabel = "truc y" 'Dat tieu de cho truc Y

.ClearGraph ' Xoa tat ca cac do thi va cai dat do thi moi

.ElementLineColor = RGB(255, 255, 0) ' chon mau cho duong do thi 1
.AddElement ' them vao duon gdo thi thu 2

.ElementLineColor = vbGreen ' chon mau cho duong do thi thu 2

For X = 0 To 100 'cho x chay tu 0 toi 100
Y = Sin(X / 3.15) * Rnd - 1 'tinh gia tri y theo x
.PlotY Y, 0 've gia tri y tren duong do thi thu nhat "0"
Y = Cos(X / 3.15) * Rnd + 1 'tinh gia tri y theo x
.PlotXY X, Y, 1 've gia tri x,y tren duong do thi thu 2 "1"
.SetRange 0, 100, -3, 3 'xac lap gia tri hien thi tren cac truc
'X min =0, X max = 100, Y min = -3, Y max = 3
Next X
End With


Bước 10: Nhấn nút "Draw" thì chúng ta có kết quả như hình dưới.

***********************************************

Như vậy ,ngoài ActiveX TEECHART ,các bạn có thể dùng thêm ActiveX NTGraph để vẽ đồ thị trên giao diện của mình.
( Note: Anh em nào thấy bài viết có ích thì giới thiệu cho mọi người và Thanks mình cái cho zui hen ,hi hi )

[lehanhla]

Các bạn cho mình hoi về phần truyền tốc độ.Mình thấy trên hình bạn hoanglongu up lên có 1 textBox để nhập tốc độ ( Vset ) và truyền xuống Vi điều khiển.Làm cách nào để truyền chuổi 2007 xuống Atemega32.Chỉ mình với,mình muốn truyền luôn các thông số Ki,Kp,Kd nửa.

[han_nang_008]

Để người quan sát luôn thấy được các giá trị mới nhất trên đồ thị.Bạn viết thử như thế này nhé ( Code VC 2005 )

if((tChart1->Series(1)->Count)>30)
{
tChart1->Axis->Bottom->MinimumOffset=(tChart1->Axis->Bottom->MinimumOffset - 3);
tChart1->Axis->Bottom->Maximum=(tChart1->Axis->Bottom->Maximum + 1);

tChart1->Zoom->Animated=true;

tChart1->Zoom->AnimatedSteps=5; // không nhất thiết là 5 đâu,tùy bạn cho

}
Thân
Chúc bạn thành công.

bạn ơi bạn có code trên VB6 ko
Bạn nào có đoặn code tự đọng dịch chuyển trục X cho techar hoặc NTGrapth ko