boucle

Question

bonjour




je suis entrain de programmer une pointeuse : je dois lire du pointeuse et enregistrer ces données dans une fichier texte ; mon probleme c'est que j'arrive pas a faire ça dans un boucle (do while...Loop) alors que c'est réussi quand je le fais sans le boucle 
mais il m'enregistre que le premier ligne. 
voila le code et merci infinement 

Private Sub apply_Click()
Dim vMachineNumber As Long, vTMachineNumber(0) As Long
Dim vEnrollNumber(0) As Long, vEMachineNumber(0) As Long
Dim vVerifyMode(0) As Long
Dim vInOutMode(0) As Long
Dim vYear(0) As Long, vMonth(0) As Long, vDay(0) As Long
Dim vHour(0) As Long, vMinute(0) As Long
Dim bRet As Boolean
vMachineNumber = 1
bRet = CZKEM1.ReadGeneralLogData(1)
If bRet = False Then
 Exit Sub
Else
   Do While (CZKEM1.GetGeneralLogData(1, vTMachineNumber(0), vEnrollNumber(0), _
    vEMachineNumber(0), vVerifyMode(0), vInOutMode(0), vYear(0), vMonth(0), _
    vDay(0), vHour(0), vMinute(0)) = True)
 
Text1.Text = Text1.Text & CStr(vYear(0)) & "-" & Format(vMonth(0), "00") & "-" & Format(vDay(0), "00") _
& "  " & Format(vHour(0), "00") & ":" & Format(vMinute(0), "00") & ":" & CStr(vTMachineNumber(0)) & ":" & CStr(vEnrollNumber(0)) & ":" & CStr(vEMachineNumber(0)) & ":" & CStr(vVerifyMode(0)) & Chr(13) & Chr(10)
   
Loop
End If





 



'on ouvre le fichier
Open "pointeuse.txt" For Output As #1
Print #1, Text1.Text
'fermeture du fichier
Close #1
End Sub

drikce06 · Answer

Salut
tu devrais ouvrir ton fichier dans la boucle avant le loop je pense.

 Drikce 06

econs · Answer

Salut,





Tu peux ouvrir ton fichier à la fin. Comme tu concatènes tes lignes dans Text1.Text, tu écriras tout dans ton fichier à la fin.

Si rien ne s'écrit dans ton fichier texte quand tu mets la boucle, c'est que 


GetGeneralLogData()

renvoit False, dès le premier passage.








Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

GADSN · Answer

merci d'avoir me repondre 
elle me renvoi faux des le debut si je mé un boucle, elle ne lit meme pas la premier ligne 
alors que lorsque j'elimine le boucle (sans do while loop) elle me renvoi la premier ligne 
donc le probleme est au niveau du boucle non ?

chaibat05 · Answer

Bonjour,
Ajoute And bRet = True à ton Do While.Et
bRet = CZKEM1.ReadGeneralLogData(1) juste avant LOOP. Car 
Quand il boucle  bRet n' est pas toujours True.
 Il faut que quand il rencontre bRet = False, il quitte la boucle.
A+

Boucle

4 réponses

Votre réponse

Discussions similaires