ongke0711 > 07-11-15, 12:12 AM
maidinhdan > 09-11-15, 09:35 AM
(07-11-15, 12:12 AM)ongke0711 Đã viết: ------------------------------------------------------------------------------------------------
Nhờ trợ giúp:
Bên cạnh đó, mình cần anh em có kinh nghiệm hướng dẫn giùm cách tạo Progress khi xử lý 1 query mà không theo ngày hay record gì cả (vd: 1 Crosstab query với khối lượng dữ liệu lớn). Trường hợp này mình chưa biết cách chia nhỏ thanh progress như thế nào để khi chạy xong query thì cũng đạt 100% thanh progress.
------------------------------------------------------------------------------------------------
Hy vọng có ích cho các bạn.
cannguyen > 09-11-15, 11:47 AM
(07-11-15, 12:12 AM)ongke0711 Đã viết: Chào các bạn,
Tôi có thu thập và chỉnh sửa một số cách tạo thanh tiến trình - Progress bar (không biết dịch có đúng không) để làm đẹp cho form khi xử lý dữ liệu . Chia sẽ các bạn tham khảo và đóng góp để có cách làm hay hơn.
- Dùng cho form khởi động.
- Dùng khi tổng hợp dữ liệu theo ngày.
- Dùng khi tổng hợp dữ liệu theo từng record.
- Dùng khi tổng hợp dữ liệu thông qua các query.
Các cách làm này có thể chưa đủ nhưng mình chỉ biết đến đây thôi, cần các anh em có kinh nghiệm hướng dẫn, chia sẽ thêm các cách làm khác. Cảm ơn trước.
Các bạn xem file Demo để rõ hơn: ProgressBar_Collection.mdb
------------------------------------------------------------------------------------------------
Nhờ trợ giúp:
Bên cạnh đó, mình cần anh em có kinh nghiệm hướng dẫn giùm cách tạo Progress khi xử lý 1 query mà không theo ngày hay record gì cả (vd: 1 Crosstab query với khối lượng dữ liệu lớn). Trường hợp này mình chưa biết cách chia nhỏ thanh progress như thế nào để khi chạy xong query thì cũng đạt 100% thanh progress.
------------------------------------------------------------------------------------------------
Hy vọng có ích cho các bạn.
ongke0711 > 15-11-15, 12:18 AM
(09-11-15, 09:35 AM)maidinhdan Đã viết:(07-11-15, 12:12 AM)ongke0711 Đã viết: ------------------------------------------------------------------------------------------------
Nhờ trợ giúp:
Bên cạnh đó, mình cần anh em có kinh nghiệm hướng dẫn giùm cách tạo Progress khi xử lý 1 query mà không theo ngày hay record gì cả (vd: 1 Crosstab query với khối lượng dữ liệu lớn). Trường hợp này mình chưa biết cách chia nhỏ thanh progress như thế nào để khi chạy xong query thì cũng đạt 100% thanh progress.
------------------------------------------------------------------------------------------------
Hy vọng có ích cho các bạn.
1. Đo sự hoạt động của CPU
2. Test với các mẫu Query + bấm thời gian. ( 1.000 mẫu + 10.000 mẫu + 20.000 mẫu) -- Càng nhiều mẫu càng tốt.
=> Ta sẽ có 1 công thức: để chạy Progress
Mình có 1 công thức, nhưng không cho bạn...bởi tự mình làm ra sẽ giúp bạn nhớ lâu hơn. Đến đường cùng thì mình sẽ gửi.
Thân mến!
maidinhdan > 17-11-15, 10:37 AM
(15-11-15, 12:18 AM)ongke0711 Đã viết: -Nhược điểm: là code rườm ra và mỗi máy tốc độ xử lý khác nhau, ở thời điểm xử lý dữ liệu thì có thể CPU chạy nhiều ứng dụng khác cùng lúc làm ảnh hưởng tốc độ xử lý. Nói chung là không hiệu quả lắm.
ongke0711 > 17-11-15, 05:32 PM
Minh Tiên > 08-10-16, 12:30 PM
huuduy.duy > 13-10-16, 06:36 PM
maidinhdan > 14-10-16, 12:14 AM
(13-10-16, 06:36 PM)huuduy.duy Đã viết: Xin chia sẽ 1 số Progress bar mình sưu tầm được
Link: tại đây
clsPg.Show ' gọi frmProgess
'Tien trinh 1: Vi du 1
clsPg.Capnhatcongviec 0, "Tien trinh 1: Dang Import du lieu Table Vi du 1: " & vbNewLine & 1 & " of 10"
For i = 1 To 10
Sleep 100 ' Toc do chay cua thanh trang thai
clsPg.Capnhatcongviec i / 10, "Tien trinh 1: Dang Import du lieu Table Vi du 1: " & vbNewLine & i & " of 10"
Next
clsPg.AllowCancel = True ' Hien Nut huy
'Tien trinh 2: Vi du 2
clsPg.Capnhatcongviec 0, "Tien trinh 2: Dang so sanh du lieu thong qua Queries vi du 2: " & vbNewLine & "1 of 11"
For i = 1 To 11
Sleep 500 ' Toc do chay cua thanh trang thai
clsPg.Capnhatcongviec i / 11, "Tien trinh 2: Dang so sanh du lieu thong qua Queries vi du 2: " & vbNewLine & i & " of 11"
Next
' Enable Nut Cancell và hien len thong bao tren tieu de
clsPg.AllowCancel = False ' An nut huy
clsPg.Title = clsPg.Title & vbNewLine & "Vui long khong tat tien trinh trong luc nay"
' Tien trinh 3: Vi du 3
clsPg.Capnhatcongviec 0, "Tien trinh 3: Dang kiem tra toan bo file tren He thong Window" & vbNewLine & "0 of 100"
For i = 1 To 100
Sleep 25 ' Toc do chay cua thanh trang thai
clsPg.Capnhatcongviec i / 100, "Tien trinh 3: Dang kiem tra toan bo file tren He thong Window" & vbNewLine & i & " of 100"
Next
Minh Tiên > 17-10-16, 05:01 PM