Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondim found as boolean Dim delimiter As Char Private Function checkfile() As Boolean 'verifie si le fichier existe Try 'copy tout le fichier dans un array of string listitems = System.IO.File.ReadAllLines("e:\test.txt") For iter = 0 To listitems.Length - 1 ' cherche si le candidat existe si oui found se met à true If listitems(iter).IndexOf 'nom prenom provienent de ton interface (nom) >= 0 And listitems(iter).IndexOf(prenom) >= 0 Then index = iter found = True End If Next Catch ex As Exception Console.Write("erreur fichier introuvable") Return False Exit Function End Try Return True End Function if found then messagebox.show("tu as déja joué") else
'quand tu dis l'affichage de l'image Dim dt1 As DateTime Dim dt2 As DateTime Dim ts As TimeSpan 'dans la sub où tu affiches l'image dt1 = DateTime.Now 'dans l'évenement keypress ou keyup (touche appuyée ou touche relevé à toi de voir) où 'tu verifies si la touche est bien x keypress = b dt2 = DateTime.Now ts = dt2.Subtract(dt1) 'mets Dim dt1 As DateTime 'Dim dt2 As DateTime 'Dim ts As TimeSpan en tete de ta form 'je décris le flowchart le déroulement des évenements 1 j'inscris mes coordonnées et je valide on suppose que je joue la 1er fois 2 compteur images = 0 3 ici une loop do until compteur images = 10 dans loop j'appelle la sub chargeimage c'est sub doit charger la prochaine image et l'afficher et aussi peut etre dans le picture.tag = "v" ou "b" selon l'image donc ici je prends l'heure dt1 = DateTime.Now dans l'évenement du keypress selon le picture.tag on vérifie si le jouer a appuyé la meme touche si oui dt2 = DateTime.Now ts = dt2.Subtract(dt1)