Visual Basic gecikme oluşturmak için?

[bb]

Visual Basic gecikme oluşturmak için? thx 4 yardım .. Tamsayı olarak i Private Sub Command1_Click () dim i = 1 To 1000 Next i Picture1.Print 1 End Sub için yukarıdaki program numarası 1 yazdırmadan önce herhangi bir gecikme yaratır?

 

[cfant]

Evet, ama bunu görmeye çalışıyorum zor bir zaman olacak. Bir empy döngü kullanarak herhangi bir programda gecikme tanıtmak için kötü bir yoldur. Iyi açıklaması için bu linke bakınız: http://support.microsoft.com/kb/q212667/ # XSLTH3125121123120121120120 Veya bu kullanın: Private Long Public Sub yavaşlama Function GetTickCount Lib "kernel32" () Declare ( Uzun lngTickStore gibi = GetTickCount () As Long) Dim lngTickStore milisaniye Do While lngTickStore + milisaniye> GetTickCount () DoEvents Loop End Sub

 

[atnos_ee]

nasıl zamanlayıcı dersiniz?

 

[Cortex]

Uyku (1000) / / duraklat 1 s

 

[jhbbunch]

Ben bir süre önce 3 mikrosaniye gibi düşük zaman aralıklarında almak için Win32 API işlevlerini QueryPerformanceCounter () ve QueryPerformanceFrequency () kullanılır. Ben mükemmel doğruluk ile birlikte bir öğrenci sürücü iki adım motorları sağladı. Ancak yukarıda belirtildiği gibi) (DoEvents sahip bir döngü içinde bunları kullanmak. Ayrıca, çünkü zaman aralıkları oldukça küçük olsun bir multitasking sistemi preemptif doğanın tek aksaklık alabilirsiniz.

 

[algilsan]

Aynı Public Sub Gecikme yapmanın bir başka yolu (tiempo As Integer) salir = False Timer1.Interval = tiempo Timer1.Enabled = Doğru (değil salir) DoEvents Döngü = False End Sub Timer1.Enabled iken yapın

 

[ibrahim03]

Ben vb4 hakkında bilmiyorum ama ben vb 6 kullanıyorum ve zamanlayıcılar vardır. sadece form için bir zamanlayıcı nesnesi ekleyin ve zamanlayıcı aralığını ayarlamak zorunda. Bu şekilde 1ms abt 3 saniye (aralık değerine bağlı olarak) bir gecikme alabilirsiniz. Vb4 ardından zamanlayıcılar varsa bu gecikmeler oluşturmak oldukça kolay!

 

[nav_vlsi]

zamanlayıcı VB gecikmeler uygulamak için kolay bir yoldur