Programme Darkbasic pro

rem * Titre  : programmer1
rem * Auteur : programmeur prog'
rem * Date   : 22/ 02/ 2009
`;
`###################################################################################
`|PROG PRINCIPAL "_prog.dba" ; "_prog-PRO.dbpro"///////////////////////////////////|
`################################################################################### #
`Débuter PROGRAMME PRINCIPAL ; déclarer les variables en premier;
`;
GOSUB Initialiser_GOS ;` commencer par déclarer variables ;
f_Initialiser_prog()  :` commencer le prog' par cette fonction ;
`;
FINIR_TOUT:
END :` FIN de TOUT LE PROGRAMME
`;
` =====================
` FIN
`;
remstart
;
; NOTER | Enregistrer sousI | Enregistrer sousII | Répertoire à structurer | INCLURE dans l'éxecutable | LIRE comme suit |
;
|***********************************************************|
NOTER; |************---------------------------------------||
|*********************************************************|||

-FONCTIONS préfixe 'f_'
-VARIABLES préfixe majuscule 'V_' = globale ; 'v_' = locale ; SUFFIXE Variables _E ; _# ; _$ (Entier ; réel ; caractères)
-numéroter variables globales 1,2 etc pour les différencier des locales déclarées dans des fonctions;
-TABLEAUX préfixes majuscule 'T_' = GLOBAL ; 't_' = LOCAL ; SUFFIXE Tableaux _E ; _# ; _$
-TYPES préfixes 'TYP_'
-ETIQUETTES suffixe majuscule '_GOT' = GOTO ; '_GOS' = GOSUB
-CHEMINS "\\" séparateur ; ".." dossier parent ;

|-------------------------------------------------------|
Enregistrer sousI '_Préférences.txt'; |----------------||
|-----------------------------------------------------|||

>enregistrer sous '_Préférences.txt'
>enregistrer sous '\\Bin32\\Données_0a\\_Préférences.txt' (<-préf. par défaut)

>Fichier '_Préférences.txt' ; contenu;
-résolution largeur. hauteur. profondeur. Vsync. Anti-aliasing;
1024
-
768
-
32
-
1
-
1
-Langue, 1 français, 2 Anglais;
1
-Qualité / performances 1=très bas, 2=bas, 3=Bon, 4=Très Bon, 5=Max élevé;
4
-Typo texte (s'assurer que la typo est installée sur votre disque dur) sinon laisser ARIAL;
Arial
-Taille Texte: 1,2 ou 3 pour améliorer la définition utilisée par les lettres du texte;
1
-demander confirmation avant de quitter le programme grâce à touche ECHAP ; 0=non ;1=oui ;
0

|--------------------------------------------------------|
Enregistrer sousII _initialisation.txt; |---------------||
|------------------------------------------------------|||

>enregistrer sous '\\Bin32\\Données_0a\\_initialisation.txt'

>Fichier '_initialisation.txt' ; contenu;
-fréquence d'images/seconde;
60
-Titre de barre de titre;
programme darkbasicpro
-Titre jeu;
"programme1"
-Auteur;
"programmeur prog'"
-année;
(c)2009
-Message d'erreur de base;
"erreur"


|--------------------------------------------------------|
Répertoires à structurer; |-----------------------------||
|------------------------------------------------------|||

->\\Repertoire Parent\\; *Exécutable.exe ; _prog-PRO.dbpro ; LisezMoi.txt ; _Préférences.txt*
___|->\\Aide_Help_Informations\\; * Aide.txt ; Auteur.txt ; Raccourci vers _Préférences.txt*
___|->\\_Cprog-PRO\\; * _Fprog.dba ; _Fprog-PRO.dbpro ; Lisez-Moi.txt *
___|->\\Bin32\\; *  *
______|->\\Données_0a\\; * _initialisation.txt ; _Préférences.txt (défaut)* 		-à zipper-protéger
______|->\\Données_0b\\; *  * 													-à zipper-protéger
______|->\\Données_001 (&++)\\; *  * 	 (\\Données_001 (&++)\\ ces répertoires sont à zipper-protéger)
______|->\\Algos\\; *(copie de) _prog-PRO.dbpro*
_________|->\\mes_Sources\\; *tutos.dba ; médias et icône.ico*
fin;
|__|__|__|
1__2__3__4 ème niveau

|-------------------------------------------------------|
INCLURE dans l'éxecutable; |---------------------------||
|-----------------------------------------------------|||

médias de base, icône, sprites ; données textuelles.

|*******************************************************|
LIRE comme suit; |**********************---------------||
|*****************************************************|||
;
------------------------------------------------
séparateur simple
------------------------------------------------
;
************************************************
séparateur plus
************************************************
;
__________________________________________________________
BOUCLE DO|________________________________________________|
;
__________________________________________________________
FIN LOOP|_________________________________________________|
;
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
CHANGEMENT DE REPERTOIRE DE TRAVAIL
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;
#################################################
|//////////////////////////////////////////////|
#################################################
début de fichier prog'
;
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||
début et fin de fonction
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||fin
;
remend
`;
`;
`#############################################################
`|"F_Initialisation.dba" |///////////////////////////////////|
`# (c) prog' ############################################ #############################
`But du programme; initialiser le programme, ajuster résolution et rafraîchissement de l'écran;
`;
`DéCLARER les variables du programme;
Initialiser_GOS:
` déclarer Variables globales d'erreurs;
    GLOBAL V_Erreur1_$ : GLOBAL V_Erreur2_$ : V_Erreur2_$=" Erreur  - presser ECHAP pour QUITTER ce programme. "
    GLOBAL V_Langue1_E :` VARIABLE GLOBALE LANGUE
remstart
` déclarer Variables globales de lecture;
    GLOBAL _LectureA$ : GLOBAL _LectureB$ : GLOBAL _LectureC$ : GLOBAL _LectureD$ : GLOBAL _LectureE$ : GLOBAL _LectureF$
` Crée/efface un memblock pour permmettre à SC_Collision de marcher;
    IF MEMBLOCK EXIST(1) THEN DELETE MEMBLOCK 1
remend
` Fin retour;
RETURN
`;
remstart
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||
rem f_Deroulement() gère le bon déroulement de TOUT le programme;
FUNCTION f_Deroulement()
    f_Sequence_INTRO()
` FIN de la Fonction;
    GOTO FINIR_TOUT
ENDFUNCTION
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||fin
remend
`;
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||
rem f_Initialiser_prog() initialiser le prog., ajuster résolution, charger fichier "_préférences.txt"
FUNCTION f_Initialiser_prog()
remstart
ENDFUNCTION
` >>>>>>>> CHANGE LE REPERTOIRE DE TRAVAIL <<<<<<<<<<<< !!!
    SET DIR ".." : ` <<<<<<<<< !!!
        f_OPEN_TO_READ(1,"Données_0a\\Préférences.txt","Fichier introuvable: ''FPSute-New\\Bin32\\Données_0a\\Préférences.txt''") : ` Charger fichier "Préférences.txt" afin de changer résolution;
        READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;
        READ STRING 1,_LectureA$ : ` lire 3 lignes résolution LxHxProfondeur;
        READ STRING 1,_LectureB$ : READ STRING 1,_LectureC$ : READ STRING 1,_LectureD$ : READ STRING 1,_LectureE$ : READ STRING 1,_LectureF$
        SET DISPLAY MODE VAL(_LectureA$),VAL(_LectureB$),VAL(_LectureC$),VAL(_LectureD$),VAL(_LectureE$),VAL(_LectureF$)
        READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;
        READ STRING 1,_LectureA$ : _Langue1=VAL(_LectureA$) : ` lire 1, langue
        READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;
        READ STRING 1,_LectureA$ : SET TEXT FONT _LectureA$ : ` lire 1, Police texte
        READ STRING 1,_LectureA$ : SET TEXT SIZE VAL(_LectureA$) : ` lire 1, TAILLE texte
        READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;
        READ STRING 1,_LectureA$ : SYNC ON : SYNC RATE VAL(_LectureA$) : ` lire 1, fréquence d'image SYNC RATE;
        READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;
        READ STRING 1,_LectureA$ : SET WINDOW TITLE _LectureA$ : SET WINDOW OFF : ` lire 1, Titre du programme;
        READ STRING 1,_LectureA$ : ` lire 1 ligne intermédiaire;
        READ STRING 1,_LectureA$ : ` lire 1, Activer ECHAP Presto;
        IF 10=VAL(_LectureA$) THEN ENABLE ESCAPEKEY
        IF 0=VAL(_LectureA$) THEN DISABLE ESCAPEKEY : ` Sinon désactiver ECHAP ;
        ` <<<<<<<<<<<<< !!!!!! ECHAP !!! ^^^^
        READ STRING 1,_LectureA$ : _Erreur1$=_LectureA$ : ` message d'erreur
    CLOSE FILE 1
    BACKDROP ON
    COLOR BACKDROP RGB(64,64,64)
    AUTOCAM OFF
    SET NORMALIZATION ON
    null = MAKE VECTOR3(1) :` réglages pour fonctions distance entre 2 points ;
remend
    ` FIN DE FONCTION ;
ENDFUNCTION
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||fin
`;
`;
`######################################################
`|"F_variées.dba" |///////////////////////////////////|
`# (c) prog' ############################################ #############################
`But du programme; plusieurs fonctions variées;
`;
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||
`f_Message_erreur() prévenir le programme du plantage, afficher un message d'erreur, afficher menu QUITTER.
FUNCTION f_Message_erreur()
` informer Utilisateur du problème, proposer ECHAP pour QUITTER ;
    ENABLE ESCAPEKEY : ` <<<<<<<<<<<< !!!!! TOUCHE ECHAP ACTIVE !!!!!!!! 
    SET TEXT FONT "Arial"
    SET TEXT SIZE SCREEN WIDTH()/40
    SYNC RATE 60
    BACKDROP OFF
    CLS
    DO
        SET CURSOR 0,35
        PRINT TEXT FONT$()
        PRINT TEXT SIZE()
        PRINT _Langue1
        PRINT SCREEN FPS()
        PRINT SCREEN WIDTH()
        PRINT SCREEN HEIGHT()
        PRINT SCREEN DEPTH()
        TEXT 5,5,"message d'erreur"
        PRINT _Erreur1$
        PRINT _Erreur2$
        SYNC
    LOOP
ENDFUNCTION
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||fin
`;
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||
`f_QUITTER_ECHAP() permet de QUITTER grâce à la touche ECHAP;
FUNCTION f_QUITTER_ECHAP()
    IF KEYSTATE(1)=0 THEN GOTO FIN
    CLS
    DO
     	SET CURSOR 0,0
     	PRINT "VOUS POUVEZ QUITTER EN APPUYANT SUR ENTREE SINON ESPACE POUR CONTINUER"
     	IF RETURNKEY()=1 THEN END
     	IF SPACEKEY()=1 : WAIT 300  : EXIT : ENDIF
     	SYNC
    LOOP
    FIN:
ENDFUNCTION
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||fin
`;
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||
`f_OPEN_TO_READ_(id,nom_du_fichier,message_d'erreur) vérifie si fichier existe et l'ouvre ;
FUNCTION f_OPEN_TO_READ_(v_id_E,v_nom_$,v_Erreur_$)
    IF FILE EXIST (v_nom_$)=0 : V_Erreur1_$=v_Erreur_$ : f_Message_erreur() : ENDIF
    OPEN TO READ v_id_E,v_nom_$
ENDFUNCTION
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||fin
`;
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||
`f_Sequence_INTRO() affiche une Séquence_d'_Intro au début du programme;
FUNCTION f_Sequence_INTRO()
    CLS
`    SET CURSOR 0,5
    DO
        TEXT 0,5,"BIENVENUE DANS '';;;;;;'', LE JEU VIDEO DE ;;;;;;; (c);;;;; - "
        TEXT 0,50,"LE CONTENU PRESENTé DANS CE PROGRAMME N'EST PAS REEL."
        TEXT 0,95,"Cliquez POUR CONTINUER ou bien ECHAP POUR QUITTER"
        f_QUITTER_ECHAP()
        IF MOUSECLICK()=1 THEN EXIT
        SYNC
    LOOP
 
ENDFUNCTION
`__________________________________________________
`||||||||||||||||||||||||||||||||||||||||||||||||||fin
`;
`;

`#######################################################
`|"Conclusion.dba" |///////////////////////////////////|
`# (c) prog' ########################################### #############################
`Conclusion, notes finales;
`;
` faut Arranger le prog' comme suit;
`Initialiser_GOS ; commencer par déclarer variables;
`f_Initialiser_prog() : ` commencer le prog' par cette fonction ;
`f_Sequence_INTRO()

`;
`FINIR_TOUT: ` pour finir
`END :` FIN de TOUT LE PROGRAMME
`;
`-------------------------------
`pour charger des fichiers;
`f_OPEN_TO_READ_(id,nom_du_fichier,message_d'erreur)    `charger fichiers;
`;
`f_Message_erreur()                                     `message d'erreur ;
`f_QUITTER_ECHAP()                                      `Quitter ECHAP;
`;
`;
`;
`#CORBEILLE, à supprimer;
`f_Deroulement()                                        `gèrer le déroulement du programme ENTIER ;
`;
`;
`TODO liste;
` corriger variables
` ajouter des champs info, initialisation.txt
` lister les menus
` decrire les médias ;
`;
`;
remstart
edit: mis à jour
description: ce programme est complet et peut servir comme modèle.
le but de ce programme est:
-réunir tout les #inclus en un même fichier et baliser le programme pour repérer les #inclus pour les extraire aisément.
-à l'aide de remarques décrire tout le projet, y compris les fichiers et répertoires qui le composent:
décrire les médias: ou enregistrer les médias et fichiers, comment les enregistrer ?
-lister les fonction clés, la syntaxe et la méthode.
-faire marcher le programme sans média si possible et si des fichiers sont manquants les remplacer.
-servir de modèle à partir duquel on part pour écrire un programme complet tel que: jeux etc... :
-servir de ressource réutilisable et prêt pour l'emploi dans tout programme;
-demander un mot de passe à l'utilisateur pour démarrer (comme le fait un OS)
-informer/avertir l'utilisateur de la nature du contenu.
-introduire et présenter le programme.
-afficher un menu rapide d'accès permettant de découvrir le contenu, définir des préférences d'usage, modifier mot de passe de démarrage et permettre de quitter de manière sécurisé ..
-gérer les ressource utilisées par l'utilisateur et le programme pour un déroulement optimum: effacer de la mémoire toute donnée inutilisée et quitter le programme sans laisser de traces.
-faciliter la vie, travailler plus vite, avec méthode.

une fois compilé c'est un programme exécutable qui donne ces avantages:
-pas besoin de recompiler le programme pour le mettre à jour car il est prêt; (exception: soucis de compatibilité)
-mettre à jour le prog' par le biais de nouveaux médias et fichiers: pour un jeu, par exemple, ajouter de nouveaux levels et ainsi enrichir le contenu du jeu.
-possibilité d'ajout illimité de contenu & médias pour enrichir le programme...
-supporter des fichiers de musique et bande son de grande qualité, et les jouer.
-supporter des images en haute résolution et les afficher/traiter.
-supporter le rendu en haute définition.
-supporter des configurations différentes.
-supporter plusieurs langues et menus.

"fais-en ce que tu veux. ni plus ni moins"
"tout ce qu'il faut c'est une forte envie d'écrire ton propre programme"
remend
`;

// FUNCTION

V_numero_E = 1
V_TOTAL_E = 0
V_FICHIER_$ = ""

SYNC ON : SYNC RATE 60
MAKE DIRECTORY "_1"
PERFORM CHECKLIST FOR FILES

FOR Z= 1 TO CHECKLIST QUANTITY()
// PRINT LEFT$( CHECKLIST STRING$(Z), LEN(CHECKLIST STRING$(Z))-2 )
IF RIGHT$(CHECKLIST STRING$(Z),2) = ".x" OR RIGHT$(CHECKLIST STRING$(Z),2) = ".X"
V_FICHIER_$ = LEFT$( CHECKLIST STRING$(Z), LEN(CHECKLIST STRING$(Z))-2 )
IF FILE EXIST(V_FICHIER_$+".dbo") = 0 OR FILE EXIST(V_FICHIER_$+".DBO") = 0
LOAD OBJECT CHECKLIST STRING$(Z),V_numero_E : SAVE OBJECT "_1"+V_FICHIER_$+".dbo",V_numero_E : DELETE OBJECT V_numero_E
INC V_TOTAL_E,1
ENDIF
ENDIF
NEXT Z
DO
SET CURSOR 0,0
PRINT "ECHAP POUR QUITTER"
PRINT "CONVERSION TERMINEE:"
PRINT V_TOTAL_E," FICHIER(S) SUR ",CHECKLIST QUANTITY()
PRINT "DANS LE REPERTOIRE '_1'"
SYNC
LOOP
WAIT KEY
PRINT "CONVERSION TERMINEE"
// ENDFUNCTION