' gmt_stud.bas '************* ' code module for student code. ' Code here initializes GMT according to their choices. %KristofLauwers = %True $IF %DEF (%KristofLauwers) $INCLUDE "c:\b\pb\gmt\kristof\P4_cons.bi" 'volgorde niet wijzigen ! $INCLUDE "c:\b\pb\gmt\kristof\P4_types.inc" $INCLUDE "c:\b\pb\gmt\kristof\Process4.bas" ' $INCLUDE "c:\b\pb\gmt\kristof\Kristof.bas" $ENDIF $IF %DEF (%JoachimBrackx) $INCLUDE "Joachim.bas" $ENDIF $IF %DEF (%KrisDeBaerdemacker) $INCLUDE "Kris.bas" $ENDIF $IF %DEF (%BrunoForment) $INCLUDE "Bruno.bas" $ENDIF ' ****************************************************** DECLARE SUB InitStudKomps (BYVAL id AS DWORD) '******************************************************* SUB InitStudKomps (BYVAL identifikatiekonstante AS DWORD) ' ... '.... ' verwijs hier door naar de nodige initialisatie voor eigen stukken: ' inlezen databestanden ' init. synthesizer... ' ... ' initialisatie van taken SELECT CASE identifikatiekonstante CASE %ID_KL_KOMPOS1 ' voor kristof lauwers InitProcessing4 CASE %ID_KL_KOMPOS1 +1 'InitKristofPiece msgbox "not available in this build" CASE %ID_JB_KOMPOS1 ' voor Joachim Brackx CASE %ID_KDB_KOMPOS1 ' voor Kris De Baerdemacker CASE %ID_SS_KOMPOS1 ' voor Sven Sterken CASE %ID_BF_KOMPOS1 ' voor Bruno Forment END SELECT END SUB