Làm thế nào để tạo ra sự chậm trễ trong Visual Basic?

B

bb

Guest
Làm thế nào để tạo ra sự chậm trễ trong Visual Basic? thx 4 giúp đỡ .. Private Sub Command1_Click () dim i như Integer Đối với i = 1 - 1000 Next i Picture1.Print End Sub 1 chương trình trên tạo ra bất kỳ sự chậm trễ trước khi in số 1?
 
Có, nhưng bạn sẽ có thời gian khó khăn cố gắng để xem nó. Sử dụng một vòng empy là xấu cách để giới thiệu sự chậm trễ trong chương trình bất kỳ. Xem liên kết này để mô tả tốt hơn: http://support.microsoft.com/kb/q212667/ XSLTH3125121123120121120120 Hoặc sử dụng này: Private Khai báo hàm GetTickCount Lib "kernel32" () Khi suy thoái Long Public Sub ( mili giây Như Long) Dim lngTickStore Long Như lngTickStore = GetTickCount () Trong khi lngTickStore + mili giây> GetTickCount () DoEvents Vòng End Sub
 
Tôi sử dụng Win32 API chức năng QueryPerformanceCounter () và QueryPerformanceFrequency () để có được khoảng thời gian thấp nhất là 3 micro giây thời gian trước đây. Tôi đã giúp một ổ đĩa sinh viên ở hai động cơ bước với nó với độ chính xác hoàn hảo. Nhưng sử dụng chúng trong một vòng lặp có DoEvents () như đã nêu ở trên. Ngoài ra, bạn có thể có được những trục trặc lẻ vì tính chất "phòng ngừa" của một hệ thống đa nhiệm khi các khoảng thời gian nhận được khá nhỏ.
 
Một cách khác để làm trễ cùng một Public Sub (Tiempo Như Integer) salir = False timer1.Interval = Tiempo Timer1.Enabled = True Trong khi làm (Không salir) DoEvents vòng Timer1.Enabled = False End Sub
 
Tôi không biết về VB4 nhưng tôi sử dụng vb 6 và nó có tính giờ. bạn chỉ cần có thêm một đối tượng hẹn giờ để hình của bạn và thiết lập khoảng thời gian của bộ đếm thời gian. Bằng cách này bạn có thể có được một sự chậm trễ 1ms abt 3 giây (tùy thuộc vào giá trị của khoảng thời gian). Nếu vB4 có tính giờ sau đó nó là khá dễ dàng để tạo ra sự chậm trễ!
 
bộ đếm thời gian là một cách dễ dàng để thực hiện sự chậm trễ trong VB
 
You must log in or register to reply here.

Welcome to EDABoard.com

Sponsor

Back
Top