CARNET D'ADRESSE SIMPLE "TUTORIAL"

' Défintion des variables
Public Numéro As Integer
Public MaxEnreg As Integer
Private Type Enreg
Nom As String * 25
Prénom As String * 25
Adresse As String * 200
Telephone As String * 20
Fax As String * 25
End Type
Dim adr As Enreg

Private Sub Command6_Click()
Form2.Show
End Sub

Private Sub dernier_Click()
If Nom.Text <> nul Then
Ecrit
Else
MaxEnreg = MaxEnreg - 1
End If
Numéro = MaxEnreg
lit
Nom.SetFocus
End Sub

Private Sub Form_Load()
' ouverture du fichier de données
Open "c:\adresse.adr" For Random As #1 Len = Len(adr)
Get #1, 1, adr
If Asc(adr.Nom) <> 0 Then
MaxEnreg = Val(adr.Nom)
Else
MaxEnreg = 2
End If
Numéro = 2
lit
End Sub

Sub lit()
'Lecture de l'enregistrement "numéro"
Get #1, Numéro, adr
Nom.Text = adr.Nom
Prénom.Text = adr.Prénom
Adresse.Text = adr.Adresse
Telephone.Text = adr.Telephone
Fax.Text = adr.Fax
End Sub

Private Sub precedent_Click()
If Numéro > 2 Then
If Nom.Text <> nul Then
Ecrit
Else
MaxEnreg = MaxEnreg - 1
End If
Numéro = Numéro - 1
lit
Nom.SetFocus
Else
Beep
End If
End Sub

Private Sub Premier_Click()
If Nom.Text <> nul Then
Ecrit
Else
MaxEnreg = MaxEnreg - 1
End If
Numéro = 2
lit
Nom.SetFocus
End Sub

Private Sub Quitter_Click()
If Nom.Text <> nul Then
Ecrit
End If
adr.Nom = MaxEnreg
Put #1, 1, adr
Close #1
End
End Sub

Private Sub suivant_Click()
If Nom.Text <> nul Then
Ecrit
Numéro = Numéro + 1
If Numéro > MaxEnreg Then
MaxEnreg = Numéro
End If
lit
Nom.SetFocus
Else
Beep
End If
End Sub

Sub Ecrit()
adr.Nom = Nom.Text
adr.Prénom = Prénom.Text
adr.Adresse = Adresse.Text
adr.Telephone = Telephone.Text
adr.Fax = Fax.Text
Put #1, Numéro, adr
End Sub