1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Formulaire
  5. Carnet d'adresse simple "tutorial"

Carnet d'adresse simple "tutorial"

Soyez le premier à donner votre avis sur cette source.

Vue 8 358 fois - Téléchargée 835 fois

Télécharger le projet
Commenter

Description

C'est un carnet d'adresse qui permet de sauver par numero d'enregistrement et mode sequenciel avec la possibilité d'éffacer un n° enreg.

Tous est dans le zip

Source / Exemple : 


' 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

Conclusion :


Bonne prog A tous
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Alex001)