Discussion :

[marco80]

Bonjour a tous,

Voici un bout de mon code. J'aimerai savoir si l'utilisation de ma fonction "TabGoTo" est correct, car quand je vais en mode debug et que je regarde ce que j'ecris dans le buffer, je m'aperçois que j'ai bien la commande voulu qui me permet de déplacer mon moteur, mais sa ne donne aucune action au niveau hardware sur les moteurs. Ai-je oublié quelque chose dans l'appelle de la fonction ou y-a-t-il quelque chose d'incorrect, que je ne vois pas? Si vous avez besoin de plus d'information demander. Merci à tous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
'Code
....
Private Sub CmdMain_Click(Index As Integer)
Dim Test As Long
 
  Select Case Index
  ' Go to the absolute position
    Case BtnAbsPos
      Test = TabGoto(1000, 1000)
 
  ' Close and reset the handle, btnClose = 6
    Case BtnClose
      CloseHandle
 
    Case Else
      Exit Sub
  End Select
 
End Sub
 
Function TabGoto(ByVal X As Long, ByVal Y As Long) As Long
'X move
    lngBytesToWrite = Len("X" & X) + 1
    strWriteBuffer = "X" & (X) & vbCrLf
    WriteHandle
' Y move
    lngBytesToWrite = Len("Y" & Y) + 1
    strWriteBuffer = "Y" & (Y) & vbCrLf
    WriteHandle
  TabGoto = 0
  Exit Function
End Function
 
'Procedure to close the handle and "reset"
Private Sub CloseHandle()
  Status = FT_Close(lngHandle)
  If Status <> FT_OK Then
    Exit Sub
  End If
 
  Status = FT_ResetDevice(lngHandle)
  If Status <> FT_OK Then
    Exit Sub
  End If
End Sub
 
'Procedure to write character in writting buffer, srtWriteBuffer in string
Private Sub WriteHandle()
  lngBytesWritten = 0
  Status = FT_Write(lngHandle, strWriteBuffer, lngBytesToWrite, lngBytesWriten)
    If Status <> FT_OK Then
      Exit Sub
    End If
 
End Sub
 
'Procedure to read character put in the buffer reading
Private Sub ReadHandle()
  Sleep (250)       ' Use to wait the buffer reading is full before go to read
 
  'Read the buffer from driver motors
  lpszBuffer = ""
  Status = FT_GetQueueStatus(lngHandle, amountInRxQueue)
  If Status <> FT_OK Then
    read = MsgBox(Error, ok & vbOKOnly, "False")
  Else
    Status = FT_Read(lngHandle, lpszBuffer, amountInRxQueue, lngBytesReturned)
    If Status <> FT_OK Then
      Exit Sub
    End If
  End If
 
   Disp1.Text = Disp1.Text & "rcvd < " & lpszBuffer & ""
 
  Sleep (250)
 
End Sub

[zazaraignée]

C'est quoi l'problème? Une erreur à l'exécution? Un résultat inattendu? ...?

En passant, j'ai ajouté les balises CODE. C'est le bouton . La prochaine fois, s'il te plaît, penses-y.

[Edit] bbil a été plus rapide que moi pour l'ajout des balises code. Salut bbil!

[marco80]

C'est quoi l'problème? Une erreur à l'exécution? Un résultat inattendu? ...?

En passant, j'ai ajouté les balises CODE. C'est le bouton . La prochaine fois, s'il te plaît, penses-y.

C'est un résultat inattendue. Au fait, quand j'envoie la commande le moteur n'a aucune réaction, lors de l'écriture. Est-ce un problème de passage des arguments, de timers, ??? je ne comprend pas.

PS: dsl pour les balises.

[zazaraignée]

Un moteur ?

Bon je n'ai pas tout compris l'objet du code ni de quel moteur il s'agit, mais quand il y a un Sleep, tout arrête! Alors, à mon avis, tu devrais programmer ton délai avec un Timer, et attendre ton entrée de données hardware avec un DoEvents. Mais c'est juste une idée. Je ne crois pas pouvoir tester, puisque je n'ai pas tout compris et que je n'ai probablement pas le hardware en question à ma disposition.

[marco80]

Un moteur ?

Bon je n'ai pas tout compris l'objet du code ni de quel moteur il s'agit, mais quand il y a un Sleep, tout arrête! Alors, à mon avis, tu devrais programmer ton délai avec un Timer, et attendre ton entrée de données hardware avec un DoEvents. Mais c'est juste une idée. Je ne crois pas pouvoir tester, puisque je n'ai pas tout compris et que je n'ai probablement pas le hardware en question à ma disposition.

ok merci, je vais essayer sa.
Pour info c'est un moteur PAS à PAS. avec un driver permettant de gerer les moteurs.

je vais tester et essayer de me debrouiller, pas simple tous sa:-)

[rv26t]

Bonjour

lngBytesToWrite = Len("X" & X) + 1
strWriteBuffer = "X" & (X) & vbCrLf

attention vbCrLf donne 2 caractères (teste avec des msgbox)
lngBytesToWrite = 6
len ( strWriteBuffer ) = 7

essaye,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
strWriteBuffer = "X" & (X) & vbCrLf
lngBytesToWrite = len(strWriteBuffer )

tu auras la bonne taille (idem pour Y)
Je ne sais pas si cela résoudra ton problème, mais il me semble que si tu tronques l'envoie ça peut poser des problèmes.

A+, Hervé.