Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmais dans le fichier je ne trouve pas le pseudo et le mot de passe
je trouve une écriture chinoise !!!!!!!
Open "C:\Users\Chayma\Desktop\projetvb\inscription.txt" For Random As #1 Len = Len(joueur)
Put #1, , joueur
ligne Put #1, , joueur
joueur.niveau = Me.Combo1.ListIndex
niveau As String
Private Type ENR
pseudo As String * 10
passe As String * 6
niveau As Byte
score As Integer
End Type
Private joueur As ENR
Private Sub Form_Activate()
Dim i As Byte
Combo1.Clear
For i = 0 To 3
Combo1.AddItem i + 1
Next
End Sub
Private Sub valider_Click()
' je te laisse (on ne va tout de même pas tout faire à ta place)
' faire ici tes contrôles de cohérence (sur les textboxes et ma combo)
' et quitter cette procédure (ravec message éventuel) si incohérence.
' c'est trop rudimentaire pour que je l'écrive à ta place
With joueur
.pseudo = Text1.Text
.passe = Text2.Text
.niveau = Val(Combo1.List(Combo1.ListIndex))
.score = Val(Text3.Text)
End With
ajout_inscription joueur
End Sub
Private Sub ajout_inscription(joueur As ENR)
Dim fichier As String, nb_enr As Integer, num_enr As Integer, kiki As ENR
fichier = "D:\joujou.txt" ' ===> mets ici le chemin de TON fichier
Open fichier For Random As #1 Len = Len(joueur)
nb_enr = FileLen(fichier) \ Len(joueur)
' MsgBox nb_enr ==>> mis en commentaire (m'en suis servi ..)
Select Case nb_enr
Case 0
Put #1, 1, joueur
Case Else
For num_enr = 1 To nb_enr
Get #1, num_enr, kiki
If kiki.pseudo = joueur.pseudo Then
MsgBox "pseudoi déjà existant ! refusé "
Exit For
End If
Put #1, nb_enr + 1, joueur
Next
End Select
Close #1
End Sub