DECLARE SUB Recherche ()
DECLARE SUB Nouveau ()
DECLARE SUB Aller ()
DECLARE SUB Liste ()
COMMON SHARED Fichier$
 
ON ERROR GOTO Correct       'Initialisation
 
TYPE TClient
  Numero AS INTEGER
  Prenom AS STRING * 30
END TYPE
 
 
Fichier$ = "profils.txt"
SCREEN 12
DO
  PRINT "  [N]ouveau client"
  PRINT "  [A]ller …"
  PRINT "  [L]iste"
  PRINT "  [R]echerche"
  PRINT "  [Q]uitter"
  DO
  Touche$ = UCASE$(INKEY$)
  LOOP UNTIL Touche$ <> ""
  SELECT CASE Touche$
  CASE "N"
    Nouveau
  CASE "A"
    Aller
  CASE "L"
    Liste
  CASE "R"
    Recherche
  CASE ELSE
    CLS
  END SELECT
LOOP UNTIL Touche$ = "Q"
END
 
Correct:                            'Cr&#8218;e le fichier stockant les infos s'il n'existe pas déja
SELECT CASE ERR
CASE 53
  CLOSE #1
  OPEN "Nombre.txt" FOR OUTPUT AS #1
  CLOSE #1
END SELECT
RESUME NEXT
 
SUB Aller
DIM client AS TClient
CLS
PRINT "*** Aller &#8230; un num&#8218;ro de profil ***"
PRINT
INPUT "Num&#8218;ro du profil &#8230; rechercher : ", Numero
 
OPEN Fichier$ FOR RANDOM AS #1 LEN = LEN(client)
  GET #1, Numero, client
CLOSE #1
 
PRINT "Pr&#8218;nom : ", client.Prenom
END SUB
 
SUB Liste
 
DIM client AS TClient
CLS
PRINT "*** Afficher une liste de profil ***"
PRINT
INPUT "Faire une liste du num&#8218;ro : ", a
INPUT "au num&#8218;ro : ", b
 
COLOR 12
PRINT ""
FOR Numero = a TO b
 
OPEN Fichier$ FOR RANDOM AS #1 LEN = LEN(client)
  GET #1, Numero, client
CLOSE #1
 
IF client.Numero <> 0 THEN
PRINT "", client.Numero; " --> ", client.Prenom
END IF
 
NEXT
COLOR 15
PRINT ""
 
END SUB
 
SUB Nouveau
DIM client AS TClient
CLS
PRINT "*** Cr&#8218;ation d'un nouveau profil ***"
PRINT
 
OPEN "Nombre.txt" FOR INPUT AS #1
INPUT #1, Num
CLOSE #1
 
IF Num = 0 THEN Num = 1
 
 
 
client.Numero = Num
INPUT "Pr&#8218;nom : ", client.Prenom
PRINT "Num&#8218;ro de profil : "; Num
DO
at$ = INKEY$
LOOP UNTIL (at$ <> "")
 
PRINT ""
OPEN Fichier$ FOR RANDOM AS #1 LEN = LEN(client)
  PUT #1, client.Numero, client
CLOSE #1
PRINT ""
 
Num = Num + 1
OPEN "Nombre.txt" FOR OUTPUT AS #1
PRINT #1, Num
CLOSE #1
 
END SUB
 
SUB Recherche
 
DIM client AS TClient
CLS
PRINT "*** Rechercher un profil ***"
PRINT
INPUT "Entrez le d&#8218;but du pr&#8218;nom &#8230; rechercher ", a$
nbletter = LEN(a$)
 
COLOR 12
PRINT ""
FOR Numero = 1 TO 100
 
OPEN Fichier$ FOR RANDOM AS #1 LEN = LEN(client)
  GET #1, Numero, client
CLOSE #1
 
startprofil$ = LEFT$(client.Prenom, nbletter)
 
IF startprofil$ = a$ THEN
PRINT "", client.Numero; " --> ", client.Prenom
END IF
 
NEXT
COLOR 15
PRINT ""
 
 
END SUB