-
10-08-2009, 05:41 AM #1Junior 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:
- Cách kết hợp VBA với access
- Autonumber nó không chạy từ 1 mà là chạy từ số nào đó
- xin chào mọi người nhờ mọi người giúp mình vấn đề tìm theo ngày nhập vào được không?
- Hiện nội dung từng lỗi theo bảng (table) ta dựng sẵn.
- Tùy biến trên report access
- Chuyên đề ứng dụng : Thiết kế chương trình Sổ Quỹ Tiền Mặt(Phần 2 - Query và Report)
- Sửa dùm mình đoạn Code VB này với !
- xin hỏi cách tìm record giống nhau giữa hai table
- mở file Word có điều kiện từ combobox thì làm sao đây?
- Tạo chương trình trắc nghiệm bằng ACcess
-
10-08-2009, 06:40 PM #2Junior 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 #3Junior 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 #4Junior 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 #5Silver 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 #6Junior 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 #7Junior 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 #8Junior 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 #9Junior 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 #10Junior 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
Dr. Care cam kết mang đến cho bạn giải pháp trồng răng Implant với chất lượng cao nhất, giúp bạn có lại nụ cười tự tin. Mất răng ở người trung niên tại Việt Nam không chỉ là vấn đề cá nhân mà còn là...
Trồng Răng không Đau: Sự Linh Hoạt và Tiện Lợi tại Dr. Care Implant Clinic