-
10-08-2009, 05:41 AM #1
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Tạo đồng đếm thời gian trong quá trình tính toán
Kính gửi các anh, các chị!
Trong một ứng dụng nho nhỏ em có frmTonKho, trên form này có: txtTonDau, txtNhap, txtXuat, txtTonCuoi, cmdTinh
Khi em bấm nút cmdTinh thì ứng dụng sẽ cộng giá trị đã nhập và đã xuất dùng, thời gian cho ứng dụng cộng lại cũng khá lâu nên giờ em mong được anh chị chỉ em viết code để tạo ra một đồng hồ đếm ngược hay giống như kiểu chạy từ trái sang phải trong copy của Windows cũng là đẹp rồi anh chị ah. Khi nào kết thúc thì báo là "Đã hoàn tất" và không bay từ trái sang phải nữa.
Cảm ơn anh chị!View more random threads:
- Trong Form có số liệu Thành Tiền mà sang Report bằng không?
- Cần giúp đỡ gấp
- Cho mình hỏi có cách nào để kiểm tra 1 Control có nhận Focus hay không ?
- Làm đông hồ đếm ngược trong Access
- Giúp sinh mã quản lý cho từng sản phẩm
- Lấy dữ liệu và xóa từ bảng động
- Lấy Ngày làm việc khi đăng nhập
- Cần Giúp đỡ về giải thuật Tính Toán " Giá Trị Hàng Tồn Kho "
- giúp e 1 bài VBA này cái
- Lấy dữ liệu từ một form sang form khác
-
10-08-2009, 06:40 PM #2
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo đồng đếm thời gian trong quá trình tính toán
Gửi bởi tienduyet
Nếu muốn làm thì cũng không phải là quá khó:
Bạn làm một cái label (ví dụ tên nó labelSeconds). Khi bắt đầu tính thì nó nhảy số, khi kết thúc thì nó dừng.
Bạn sẽ thực hiện tiếp như sau:
Tạo thủ tục sự kiện Form_Timer, thêm:
labelSeconds.Caption = CStr(Val(labelSeconds.Caption) + 1)
Repaint
Trong nút cmdTinh:
Dòng đầu trong thủ tục Click, thêm:
TimerInterval = 1000 ' bật timer, khoảng cách giữa các lần là 1 giây
Dòng cuối trong thủ tục Click, thêm:
TimerInterval = 0 ' tắt timer
-
10-08-2009, 08:43 PM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo đồng đếm thời gian trong quá trình tính toán
Cho mình hỏi ké 1 tẹo nhen, mình thấy máy tính của 1 người bạn có chương trình nhắc nhở lịch làm việc. Có thể ghi chép những công việc cần làm, ghi chú và thời gian nhắc nhở để ko bị quên hay bỏ sót việc.
Có bạn nào biết cách cài đặt thì chỉ cho mình với với.....
-
10-12-2009, 01:30 AM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo đồng đếm thời gian trong quá trình tính toán
Gửi bởi phatnq2002
Cám ơn câu trả lời hữu ích của anh!
-
11-17-2009, 11:39 PM #5
Silver member
- Ngày tham gia
- Feb 2016
- Bài viết
- 30
Ðề: Tạo đồng đếm thời gian trong quá trình tính toán
Gửi bởi tienduyet
Các PRO xem giúp tôi với nhé. Các đoạn code như sau:
Private Sub cmdThuchien_Click()
If (Forms!frmNhapDULIEU!optChon) = 1 Then
'Tao cac table tam
lblTB.Visible = True
TimerInterval = 5000
DoCmd.TransferDatabase acImport, "dBASE 5.0", "c:-/httttd\hosogd", acTable, "hsku.dbf", "zt_hsku", False
DoCmd.TransferDatabase acImport, "dBASE 5.0", "c:-/httttd\hosogd", acTable, "hscv.dbf", "zt_hscv", False
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "zt_hskh", "c:-/httttd\hosogd\hskh.xls", True
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "zt_hssv", "c:-/httttd\hosogd\hssv.xls", True
DoCmd.TransferDatabase acImport, "dBASE 5.0", "c:-/httttd\hosogd", acTable, "kugntn.dbf", "zt_kugn", False
DoCmd.TransferDatabase acImport, "dBASE 5.0", "c:-/httttd\hosogd", acTable, "btgntn.dbf", "zt_btgn", False
DoCmd.TransferDatabase acImport, "dBASE 5.0", "c:-/httttd\hosogd", acTable, "kulai.dbf", "zt_kulai", False
DoCmd.TransferDatabase acImport, "dBASE 5.0", "c:-/httttd\hosogd", acTable, "hsb3.dbf", "zt_hsb3", False
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "zt_dmtruong", "c:-/httttd\hosogd\dmtruong.xls", True
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "zt_caphoc", "c:-/httttd\hosogd\caphoc.xls", True
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "zt_loaidt", "c:-/httttd\hosogd\loaidt.xls", True
lblTB.Visible = False
TimerInterval = 0
MsgBox "Da nhap xong du lieu giao dich.", vbOKOnly, "THONG BAO"
End If
----
Private Sub Form_Timer()
lblTB.Caption = CStr(Val(lblTB.Caption) + 1)
Repaint
End Sub
-
11-22-2009, 07:02 PM #6
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo đồng đếm thời gian trong quá trình tính toán
Bài viết tham khảo của Noname trên KHPT. Tuy không tạo được đồng hồ nhưng cũng hiện được 1 thông báo, sau khi xng tập lệnh thì tự đóng lại:
Gửi bởi Noname
-
11-22-2009, 08:03 PM #7
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo đồng đếm thời gian trong quá trình tính toán
Gửi bởi LoveBlue
-
11-22-2009, 11:00 PM #8
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo đồng đếm thời gian trong quá trình tính toán
Gửi bởi xuanthanh
-
11-22-2009, 11:53 PM #9
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo đồng đếm thời gian trong quá trình tính toán
Gửi bởi xuanthanh
-
11-23-2009, 05:11 AM #10
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo đồng đếm thời gian trong quá trình tính toán
Gửi bởi haquocquan
Muốn nằm giữa màn hình thì đặt Auto Center = Yes
For pet owners who prioritize style and comfort, a large wicker dog bed on legs offers a blend of functionality, aesthetic appeal, and durability. Designed to provide your furry friend with a cozy...
Elevate Your Pet's Comfort: Large Wicker Dog Bed on Legs