fonction VB6 à vb.net

Question

je suis arrivé ce code dans VB6

Private Sub pause(ByVal interval As Variant) 
    Dim Current As Variant 

    Current = Timer 
    Do While Timer - Current < Val(interval) 
     DoEvents 
    Loop 
End Sub 

Comment puis-je convertir en vb.net? J'ai essayé de cette façon mais ça ne marche pas.

Où est l'erreur?

Private Sub pause(ByVal interval As Single)    
     Dim newDate As Date  
     newDate = DateAndTime.Now.AddSeconds(interval) 

     While DateAndTime.Now.Second <> newDate.Second     
      Application.DoEvents()   
     End While  
End Sub 

Merci

Answer 1

Je pense que ce qui suit est la meilleure conversion du code d'origine (subtilement différente de andygrips réponse):

Private Sub Pause(ByVal seconds As Integer) 
    Dim current As Date 

    current = DateTime.Now 
    Do While (DateTime.Now - current).TotalSeconds < seconds 
     Application.DoEvents() 
    Loop 
End Sub 

Notez cependant que l'utilisation de DoEvents dans .NET est préférable d'éviter tout à fait

Answer 2

Il n'échapper à la While si les Now secondes égales newDate secondes. Essayez ceci:

Private Sub pause(ByVal interval As Single) 
     Dim waitUntil As Date = DateAndTime.Now.AddSeconds(interval) 
     While DateAndTime.Now < waitUntil 
      Application.DoEvents() 
     End While 
    End Sub 

puis-je suggérer aussi que vous nommez vos méthodes en utilisant PascalCase (la première lettre du nom de la méthode est mise en majuscule).