commander port parallèle en VB_brider vitesse

[inviteee2ce2b6]

Bonjour,

Je souhaite commander un robot (robot YOUPI pour les connaisseurs) par le port parallèle. J'ai déjà réussi à piloter le port en utilisant le code ci-dessous.
Extrait:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function Inp32 Lib "inpout32.dll" _
    (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out32 Lib "inpout32.dll" _
    (ByVal PortAddress As Integer, ByVal Value As Integer)

    For i = 1 To NbPas
        Sleep 1
        Call Out32(888, Moteur + 64) 'avance le moteur d'un pas
        Call Out32(888, Moteur) 'validation du mouvement
    Next i

Le problème, c'est que je souhaite envoyer les instructions avec des intervalles de temps plus courts qu'une milliseconde.
Lorsque je ne temporise pas, le robot ne bouge pas car les moteurs n'ont pas le temps de réagir (moteurs pas à pas).

Avez-vous une solution pour ralentir l'éxécution de Out32, ou avez vous une fonction similaire à Sleep mais en microsecondes (ou autre solution à laquelle je n'aie pas pensé) ?

Merci d'avance de votre aide,

Mikaël.
-----

[inviteee2ce2b6]

Bon, en attendant, j'ai ajouté ça:

k = 1000
For j = 0 To tmpMax
        k = k / 3.1416
        k = k * 3.1416
Next j

et je modifie tmpMax
Ca fonctionne, mais c'est plus mamailleux qu'autre chose.

Avez-vous une solution ?

Mikaël.

[simon.]

Une rapide recherche dans google révèle que non, sous windows, on ne peut pas faire mieux. On doit pouvoir faire un peu mieux sous linux avec les hrtimers.. mais la vraie solution serait un vrai OS temps réel.

Par contre, faire des calculs en flottant dans ta boucle d'attente ne me parait pas utile. Au mieux ça va faire chauffer encore plus ton CPU.