Forum Liberty Basic France

Le 05/09/2012 à 15h34

Libertynaute Avancé

Groupe: Membre

Inscrit le: 08/06/2012
Messages: 270
Bonjour à tous, j'ai retrouvé un vieux code qui date de mes début ( précisément lorsque j'ai finis le tuto de ce site ) et j'avais créé ceci :
Code :
 

[menu]  'le menu principal

    cls
    print "**ANNUAIRE**"
    print
    print " 1) Ajouter un numéro"
    print
    print " 2) Rechercher un nom "
    print
    print " 3) Information sur ce logiciel"
    print
    print " 4) Utilisation du logiciel"
    print
    print " 5) Quitter"
    print
    print "Choisissez une option de 1 a 5."
    print
    input ">"; option

    if option < 1 or option > 5 then gosub [pasbon] ' il faut que l'utilisateur entre un numéro entre 1 et 5
    if option = 1 then gosub [ajout.num] ' va vers ajouter un numéro
    if option = 2 then gosub [recherche] ' va vers la recherche d'un nom
    if option = 3 then [info] ' va vers les informations du logiciels
    if option = 4 then [tuto] ' va vers un mini tuto qui explique le fonctionnement du logiciel
    if option = 5 then [quitter] ' ferme le logiciel

    goto [menu]

[pasbon] ' si l'utilisateur n'entre pas un bon numéro :
    print
    beep
    print "L'option "; option; " n'existe pas."
    print "Appuyez sur une touche."
    dummyVar$ = input$(1)

    return
[ajout.num]  ' C'est ici que l'utilisateur donne le nom et le numéro

    cls
    print "  Ajouter un numéro  "
    print

    input "Nom : "; nom$
    input "Numero de telephone : "; numéro$


[sauvegarde]  ' C'est ici que l'utilisateur accepte ou non la sauvegarde du numéro

    cls
    gosub [info.entrer.par.lutilisateur]
    print "Sauvegarder,Modifier,Effacer (S/M/E)?";
    answer$ = input$(1)

    if answer$ = "S" or answer$ = "s" then gosub [enregistrement] : goto [menu]
    if answer$ = "M" or answer$ = "m" then gosub [modif]
    if answer$ = "E" or answer$ = "e" then [menu]

    goto [sauvegarde]


[info.entrer.par.lutilisateur]  ' ici l'utilsateur voit ce qu'il à rentré

    print "        Nom  : "; nom$
    print "Numero de telephone : "; numéro$

    return


[modif]

    cls
    print "  Modifications  "
    print


    print "   Nom : "; nom$
    input "  Appuyez sur Entrée,ou retapez > "; newEntry$
    if newEntry$ <> "" then nom$ = newEntry$

    print "Numero : "; numéro$
    input " Appuyez sur Entree,ou retapez > "; newEntry$
    if newEntry$ <> "" then numéro$ = newEntry$

    return


[enregistrement]  ' Ici se déroule l'action de la sauvegarde des donnés entrées par l'utilisateur dans un fichier texte

    open "PHONELOG.TXT" for append as #out ' le programme ouvre/créé le fichier texte
    print #out, nom$ ' le programme écrit dedans le nom de la personne ( ce que l'utilisateur à entré dans la variable nom$ )
    print #out, numéro$ ' le programme écrit dedans le numéro de la personne ( ce que l'utilisateur à entré dans la variable numéro$ )

    close #out

    return
[quitter]

end

[info]
cls
print
print " Ce logiciel à été édité par alex877 "
input "Appuyer sur une touche pour revenir au menu";bidon
goto[menu]


[recherche]  ' C'est ici que le programme recherche le nom entré par l'utilisateur

    cls
    print "**Rechercher un nom**"
    print
    print "Entrer le début du nom"
    input ">"; searchCalled$
    if searchCalled$ = "" then [menu]

    searchCalled$ = upper$(searchCalled$)

    open "PHONELOG.TXT" for input as #in

    foundFlag = 0
    quitFlag = 0
    if eof(#in) = -1 then [inexistant]


[recherche2]
    gosub [montrer]
    if instr(upper$(personCalled$), searchCalled$) > 0 then gosub [trouvé]
    if eof(#in) = 0 and quitFlag = 0 then [recherche2]


[inexistant]
    close #in
    if foundFlag = 0 then print "Ce nom n'existe pas"
    print "Appuyer sur entrer pour revenir au menu"
    dummyVar$ = input$(1)
    goto [menu]


[montrer]  ' ici le programme montre le nom et le numéro demandé par l'utilisateur

    line input #in, nom$ ' le nom
    line input #in, numéro$ ' le numéro

    return


[trouvé]  ' ici le programme à trouvé le numéro et le nom

    foundFlag = 1
    print "---------Trouvé---------"
    gosub [montrer]
    print
    print "Appuyer sur N pour revenir en arrière ou Q revenir au menu (N/Q)?"
    answer$ = input$(1)
    'only check for quit response
    if answer$ = "Q" or answer$ = "q" then quitFlag = 1

    return

[tuto]


    open "tuto.TXT" for append as #out2
    close #out2
open "tuto.txt" for input as #out2

while eof(#out2) <> -1
    input #out2,ligne$
    print ligne$
wend
wait
close #out2

print
input " Appuyer sur entrer pour revenir à l'acceuil";nul

goto [menu]



Bien entendu c'est un code de débutant mais j'ai retravaillé les commentaires en expliquant au mieux ce qui se passe dans ce logiciel .

J'espère pouvoir aider avec ce code .

a pus
____________________
Si le meilleurs langage de programmation existe, alors le Just Basic est loin devant.
Ne me tappez pas dessus ! Je débute :D

Web    
Le 05/09/2012 à 22h22

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2099
Comme tu a l'air de bien aimer la mainwin, regarde ce que j'ai trouvé dans les exemples de jb.
Tu pourrais rectifier ton annuaire avec ça.

Code JB :
 
 
  'INKEY.BAS  - how to use the Inkey$ variable
 
  open "Inkey$ example" for graphics as #graph
  print #graph, "when characterInput [fetch]"
 
[mainLoop]
  print #graph, "setfocus"
  input r$
 
[fetch]  'a character was typed!
 
  key$ = Inkey$
  if len(key$) = 1 then
      notice key$+" was pressed!"
  else
      keyValue = asc(right$(key$, 1))
      if keyValue = _VK_SHIFT then
          notice "Shift was pressed"
        else
          if keyValue = _VK_CONTROL then
              notice "Ctrl was pressed"
            else
              notice "Unhandled key pressed"
          end if
      end if
  end if
 
  goto [mainLoop]
 
 




Edité par Roland Le 05/09/2012 à 22h23
____________________
Roro

   
Le 07/09/2012 à 17h02

Libertynaute Avancé

Groupe: Membre

Inscrit le: 08/06/2012
Messages: 270
Bof moi je m'en contre fiche de l'annuaire c'etait juste pour "aider" les admins du site pour faire avancer le tuto .
____________________
Si le meilleurs langage de programmation existe, alors le Just Basic est loin devant.
Ne me tappez pas dessus ! Je débute :D

Web    

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie