Je ne comprend pas trop l'erreur

Question

Alors je ne suis pas expert VB comme vous

Je suis dans un programme dans la partie 
Private Sub Read_Click()

je souhaite écrire ceci
While DlPortWritePortUshort(statusregister, DlPortReadPortUshort(statusregister) + &H40)  'On met le 7eme bit du SR à 1

et j'ai un message qui me dit Erreur de compilation Function ou variable attendue

Est ce que celà est due à que je suis dans un Sub click ?

faudrait il que je fasse un programme read, et que là je fasse
While Read(............)

dans ce cas ça ne m'arrange pas trop, y aurait une autre solution ?

econs · Answer

DlPortWritePortUshort n'est sans doute pas une function renvoyant True ou False.

While (expression_booléenne)
actions
Wend

Manu

Minikisscool · Answer

La fonction DlPortWritePortUshort sert à écrire 1 sur un bit particulier du port parallèle.

Si je souhaite faire un condition du type surveille ce bit et attend jusqu'a ce qu'il soit à 0
je fais comment ?

econs · Answer

il faut qu'elle retourne True quand elle a fini :

Public Function DlPortWritePortUshort(arguments) As Boolean
'Traitements
'[...]
If l_operation_est_effectuee Then
DlPortWritePortUshort=False
Else
DlPortWritePortUshort=True
End if
End Function

Manu

Je ne comprend pas trop l'erreur

3 réponses

Discussions similaires