-
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:
-
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
Trong lĩnh vực ngân hàng, các tổ chức tín dụng đang phát triển mạnh mẽ, đồng thời phải đối mặt với áp lực từ sự cạnh tranh gay gắt và nhu cầu cải tiến công nghệ. Các ngân hàng thương mại cũng đang...
Tài chính Việt Nam năm 2024: Đánh giá và hướng phát triển mới