rem voici la versio corrigée de mon uilitaire!
rem sauvegarde : l´utilitaire de lecture !
rem même chose que tout à l´heure : plein écran et Verdana
rem avec accents
set window off
set text font " Verdana",1
rem pour mettre un peu de fantaisie, je vous propose de mettre un peu
rem de couleur dans votre programme
blanc = rgb(255,255,255)
noir = rgb(0,0,0)
vert = rgb(0,255,0)
bleu = rgb(0,0,255)
rouge = rgb(255,0,0)
rem début du code
print
print " utilitaire de lecture des sauvegardes"
print " j´ai besoin de savoir dans quel répertoire sont stockées vos données"
print " appuyez sur une touche pour choisir votre repertoire"
wait key
rem les deux choix sont copier dans les variables, pour ne pas avoir besoin de les
rem retaper à chaque fois
cur = 1
a$ = " je désire taper le nom du repertoire"
b$ = " pour allez plus vite, je préfère copier-coller le nom du repertoire"
repeat
rem partie une : lecture des actions de l´utilisateur
rem si l´utilisateur appuie sur haut, le curseur vert monte
if upkey() = 1
cur = cur - 1
endif
rem si l´utilisateur appuie sur bas, le curseur vert descend
if downkey() = 1
cur = cur + 1
endif
rem ça, c´est pour éviter que le curseur soit sur le choix 3 ou -1,
rem vue que ces derniers n´existent pas !
if cur < 1
cur = 1
endif
if cur > 2
cur = 2
endif
rem partie deux : affichage
rem s´occupe de mettre le focus en surbrillance
cls
print
if cur = 1
set text opaque
ink noir,vert
print a$
ink blanc,noir
set text transparent
else
print a$
endif
if cur = 2
set text opaque
ink noir,vert
print b$
ink blanc,noir
set text transparent
else
print b$
endif
print
print " appuyez sur return pour valider votre choix"
rem quand l´utilisateur appuyera sur RETURN, on sortira de la boucle
until returnkey() = 1
rem détermine le choix de l´utilisateur
if cur = 1
rem choix 1 : l´utilisateur entre les données au clavier
input " veuillez indiquer où sont stockées les données : " ; sousdos$
rem si le chemin n´existe pas, le programme se termine
if path exist(sousdos$) = 0
print " erreur : le fichier que vous avez écrit n´existe pas"
wait key
end
endif
else
rem choix deux, l´utilisateur veut copier-coller le nom du repertoire
cls
print
print " allez dans le repertoire où se trouve votre sauvegarde,"
print " sélectionnez le nom complet du répertoire et faites :"
print " -clique droit"
print " -copier"
print " et revenez dans le programme en cliquant sur son icône dans"
print " la barre en bas de l´écran."
print
print " appuyez sur une touche pour cacher le programme sans l´interrompre"
wait key
rem réduit la fenêtre
set window on
wait key
rem repasse en mode plein écran
set window off
set text font " Verdana",1
print " appuyez sur une touche pour coller le nom du repertoire"
wait key
rem get clipboard$() retourne le contenu du presse papier et le
rem stocke dans la variable sousdos$
sousdos$ = get clipboard$()
rem si le chemin n´existe pas, le programme se termine
if path exist(sousdos$) = 0
print " erreur : le chemin que vous avez entré n´existe pas"
wait key
end
endif
endif
rem choisi comme répertoire le répertoire mentionné
set dir sousdos$
print " emplacement du bloc de sauvegarde : " ; get dir$()
rem demande à l´utilisateur le n° du bloc
print " veuilez spécifier le n° du bloc : " ;
input nbloc
wait key
cls
print " la lecture des données commencera automatiquement dans quelques secondes..."
sleep 1000
rem cherche le nom de fichier " bloc"+n°du bloc+".txt"
datname$ = " bloc" + str$(nbloc) + " .txt"
rem vérifie que le fichier existe
if file exist(datname$) = 1
rem ouvre le fichier en mode lecture
open to read 1,datname$
sleep 1000
rem lit les informations qu´il contient
read string 1,info1$
read string 1,info2$
else
rem pour le cas où le fichier n´existerait pas, affiche un message d´erreur
print " le fichier " ; datname$; " n´existe pas ou n´est pas dans le dossier spécifié"
wait key
end
endif
rem affiche le contenu du fichier
print
print " * contenu de " ; datname$; " *"
print
print info1$
print info2$
wait key
end
remstart
écrit par prog_debutant
commentaire : ce programme est libre de droit. Vous pouvez le publier en
exemple sur votre site ou l´utiliser dans votre programme sans autorisation spéciale.
Si vous repérez des problèmes ( bug, remarque pas clairs...), n´hésitez pas
à me le faire savoir, je me ferai un plaisir de vous renseigner !
Note : ce programme a été testé et fonctionne parfaitement sous DarkBASIC pro
remend
Oui il y a moyen de faire des jeux avec DarkBasic, c´est à ça qu´il sert, que ce soit en 2D ou en 3D ( mais à condition de savoir utiliser un autre programme 3D, par exemple 3D Studio Max, pour importer des objets et des animations).