Obligement - L'Amiga au maximum

Dimanche 24 septembre 2017 - 12:39  

Translate

En De Nl Nl
Es Pt It Nl


Rubriques

 · Accueil
 · A Propos
 · Articles
 · Galeries
 · Glossaire
 · Hit Parade
 · Liens
 · Liste jeux Amiga
 · Quizz
 · Téléchargements
 · Trucs et astuces


Articles

 · Actualité (récente)
 · Actualité (archive)
 · Comparatifs
 · Dossiers
 · Entrevues
 · Matériel (tests)
 · Matériel (bidouilles)
 · Points de vue
 · En pratique
 · Programmation
 · Reportages
 · Tests de jeux
 · Tests de logiciels
 · Tests de compilations
 · Articles divers

 · Articles in english
 · Articles in other languages


Twitter

Suivez-nous sur Twitter




Liens

 · Sites de téléchargements
 · Associations
 · Pages Personnelles
 · Moteurs de recherche
 · Pages de liens
 · Constructeurs matériels
 · Matériel
 · Autres sites de matériel
 · Réparateurs
 · Revendeurs
 · Presse et médias
 · Programmation
 · Développeurs logiciels
 · Logiciels
 · Développeurs de jeux
 · Jeux
 · Autres sites de jeux
 · Scène démo
 · Divers
 · Informatique générale


Jeux Amiga

0, A, B, C, D, E, F,
G, H, I, J, K, L, M,
N, O, P, Q, R, S, T,
U, V, W, X, Y, Z


Trucs et astuces

0, A, B, C, D, E, F,
G, H, I, J, K, L, M,
N, O, P, Q, R, S, T,
U, V, W, X, Y, Z


Glossaire

0, A, B, C, D, E, F,
G, H, I, J, K, L, M,
N, O, P, Q, R, S, T,
U, V, W, X, Y, Z


Partenaires

Annuaire Amiga

Amedia Computer

Relec

Hit Parade


Contact

David Brunet

Courriel

 


Programmation : Blitz Basic - lecteur de module de musique
(Article écrit par Mathieu Chènebit et extrait d'Amiga News - juillet/août 1996)


Bonjour et bienvenue dans cette nouvelle série programmation. Comme vous avez pu le constater dans le test sur Amiga News, le Blitz Basic regorge de possibilités et est accessible pour les débutants. De plus, il est disponible pour 420 FF en français chez Orion. Donc, n'hésitez pas à franchir le pas ! Au travers de cette série, je m'efforcerai de vous faire découvrir les subtilités du Blitz Basic pour programmer le système d'exploitation de l'Amiga par le biais d'exemples simples et efficaces. Attention cependant, je le dis tout de suite, ces cours seront de niveau débutant. Bon, allez, on attaque réellement les choses sérieuses...

Le source de ce mois-ci vous permettra de programmer un petit lecteur de module musical pas vraiment puissant, mais c'est déjà mieux que rien pour commencer. La première chose à faire est de trouver l'écran le plus en avant avec la commande FindScreen, puis d'ouvrir une belle fenêtre. Là, déclarez un menu avec ses "items" et en avant... Ah, j'allais oublier, Maxlen nom$ et Maxlen chemin$ sont obligatoires pour l'ouverture des fenêtres de requête de fichiers ASL. On intègre maintenant la routine de gestion des événements. Notez que la variable ev doit obligatoirement être de type long. Bon, ceci fait, je vous laisse examiner le source qui est suffisamment commenté pour être compris par tous.

Le mois prochain, nous verrons un lecteur beaucoup plus complet avec des boutons, un gadget de défilement, l'utilisation de la bibliothèque GadToolBox et l'utilisation des commandes d'une bibliothèque additionnelle du Blitz Basic 2.1. Au mois prochain, si vous le voulez bien !

WBStartup           ; pour que le prog soit démarré depuis le WB
NoCli
x=2
y=5
FindScreen 0        ; trouve l'écran le plus en avant
Window 0,50,50,250,100,$40f|$1000,"MonPlayer",1,2,Ouvre une fenêtre

;déclaration des menus
MenuTitle   0,0,"Projet"
MenuItem    0,0,0,0,"charger"
MenuItem    0,0,0,1,"Jouer"
MenuItem    0,0,0,2,"Stop !"
MenuItem    0,0,0,3,"Quitter"
SetMenu     0

;Obligatoire pour ASL
MaxLen chemin$=192
MaxLen nom$=192

WLocate x,y
NPrint "Nom du fichier :"

Repeat; début routine principale
a.l=WaitEvent;mot long obligatoire
    If a=256            ; évènement correspondant à l'activation d'un menu
        If MenuHit=0 AND ItemHit=0
            p$=ASLFileRequest$("mod a charger",chemin$,nom$)
            LoadModule 0,p$;on charge le module
            WLocate x,y+15
            NPrint nom$
    EndIf
    If MenuHit=0 AND ItemHit=1 Then PlayModule 0;on joue le module
    If MenuHit=0 AND ItemHit=2
        StopModule              ; on arrête le module et on libère la RAM
        Free Module 0
        y+15
    EndIf
    If MenuHit=0 AND ItemHit=3 
        Free Module 0           ; on nettoie tout et on se casse...    
        End
    EndIf
    If a=$200                   ; évènement de fermeture d'une fenêtre
        Free Module 0
        End
    EndIf
Forever
End
BigBrother


[Retour en haut] / [Retour aux articles]