Tạo đồng đếm thời gian trong quá trình tính toán

[emi_younggirl2506]

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, cmdTinhKhi em bấm nút cmdTinh thì ứng dụng sẽ cộng giá trị vừa nhập và vừa xuất dùng, thời (gian) 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 để làm ra (tạo) ra một cùng hồ đếm ngược hay tương tự 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à "Đã trả tất" và bất bay từ trái sang phải nữa.Thank anh chị!

 

[trqhuong]

Trích:

Nguyên văn bởi tienduyet 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ị vừa nhập và vừa xuất dùng, thời (gian) 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 để làm ra (tạo) ra một cùng hồ đếm ngược hay tương tự 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à "Đã trả tất" và bất bay từ trái sang phải nữa. Thank anh chị!

Lời khuyên của nha sĩ: đừng nên làm, vì như thế lại làm lâu thêm cho công việc.

Nếu muốn làm thì cũng bất 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

 

[gol_lele]

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 chuyện cần làm, ghi chú và thời (gian) gian nhắc nhở để không 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.....