Forum Liberty Basic France
• Index
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 :
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
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
Si le meilleurs langage de programmation existe, alors le Just Basic est loin devant.
Ne me tappez pas dessus ! Je débute

Web
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 :
Edité par Roland Le 05/09/2012 à 22h23
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
Roro
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
Si le meilleurs langage de programmation existe, alors le Just Basic est loin devant.
Ne me tappez pas dessus ! Je débute

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