-----------------------------------

WordLife619

Mon Jan 03, 2005 3:06 pm


Assistance in modifying code....

-----------------------------------

Hello everyone, my group in computer engineering class is working on a Music Box project. Almost everything is under control, the circuit is done, and same with the report, the only thing left is.....you guessed it, the coding for the programming that interfaces with the Music Box circuit.

The following is the coding for the program, my group and I just want to make a completely different song, instead of the default "Mary Had A Little Lamb".  If anyone can make up a new song and incorporate it into the coding I've provided, it would be well appreciated. Thank you.  :D 

-----------------------------------------------------------------------------


% The "MusicBox" Program
%
% Here are the input and output values for a specific computer. 
% These change from machine to machine.
%
%  letter         button             LED
%  (musical)     (input)           (output)
%    "C"             111                8
%    "D"              95                1
%    "E"              63                4
%    "G"             255                2
%
% This message was included so that if this program is altered
% in the future, the new programmer has input and output
% values for the LED and buttons. If you change the input and
% output values be sure to change this comment.

const w1 := 200
const w2 := 650
const w3 := 100

% These constants represent the parameters to parallelput that
% light the LED for a particular note.
const C_LED := 8
const D_LED := 1
const E_LED := 4
const G_LED := 2
const ALL_LED_DARK := 0
const ALL_LED_LIT := 255

% These constants represent the value returned from
% parallelget for each of the buttons.
const C_BUTTON := 111
const D_BUTTON := 95
const E_BUTTON := 63
const G_BUTTON := 255

% These are the lower-left and upper-right corners of each of
% the four buttons.
const BTN_X1 := 130
const BTN_Y1 := 130
const BTN_X2 := 200
const BTN_Y2 := 200

const BTN2_X1 := 230
const BTN2_Y1 := 130
const BTN2_X2 := 300
const BTN2_Y2 := 200

const BTN3_X1 := 330
const BTN3_Y1 := 130
const BTN3_X2 := 400
const BTN3_Y2 := 200

const BTN4_X1 := 430
const BTN4_Y1 := 130
const BTN4_X2 := 500
const BTN4_Y2 := 200

% Draws the four  boxes corresponding to the notes.
procedure DrawButtons
    drawbox (BTN_X1, BTN_Y1, BTN_X2, BTN_Y2,
        brightmagenta)
    drawbox (BTN2_X1, BTN2_Y1, BTN2_X2, BTN2_Y2, brightcyan)
    drawbox (BTN3_X1, BTN3_Y1, BTN3_X2, BTN3_Y2, brightred)
    drawbox (BTN4_X1, BTN4_Y1, BTN4_X2, BTN4_Y2, brightblue)
    drawfill (BTN_X1 + 1, BTN_Y1 + 1, brightmagenta, 0)
    locate (20, 21)
    colour (brightmagenta)
    put "C" ..
    locate (20, 34)
    colour (brightcyan)
    put "D" ..
    locate (20, 47)
    colour (brightred)
    put "E" ..
    locate (20, 60)
    colour (brightblue)
    put "G" ..
end DrawButtons

% Lights the LED and the on-screen button corresponding
% to the C note. Plays the note.
procedure PlayCNote
    parallelput (C_LED)
    drawfill (BTN_X1 + 1, BTN_Y1 + 1, brightmagenta,
        brightmagenta)
    play ("8c")
    delay (w3)
    drawfillbox (BTN_X1, BTN_Y1, BTN_X2, BTN_Y2, 0)
    DrawButtons
end PlayCNote

% Lights the LED and the on-screen button corresponding
% to the D note. Plays the note.
procedure PlayDNote
    parallelput (D_LED)
    drawfill (BTN2_X1 + 1, BTN2_Y1 + 1, brightcyan, brightcyan)
    play ("8d")
    delay (w3)
    drawfillbox (BTN2_X1, BTN2_Y1, BTN2_X2, BTN2_Y2, 0)
    DrawButtons
end PlayDNote

% Lights the LED and the on-screen button corresponding
% to the E note. Plays the note.
procedure PlayENote
    parallelput (E_LED)
    drawfill (BTN3_X1 + 1, BTN3_Y1 + 1, brightred, brightred)
    play ("8e")
    delay (w3)
    drawfillbox (BTN3_X1, BTN3_Y1, BTN3_X2, BTN3_Y2, 0)
    DrawButtons
    
end PlayENote

% Lights the LED and the on-screen button corresponding
% to the G note. Plays the note.
procedure PlayGNote
    parallelput (G_LED)
    play ("8g")
    drawfill (BTN4_X1 + 1, BTN4_Y1 + 1, brightblue, brightblue)
    delay (w3)
    drawfillbox (BTN4_X1, BTN4_Y1, BTN4_X2, BTN4_Y2, 0)
    DrawButtons
end PlayGNote

% Blinks the LEDs the specified number of times.
procedure BlinkLEDs (numberOfBlinks : int)
    for i : 1 .. numberOfBlinks
        parallelput (ALL_LED_LIT)                       % Light all the LEDs.
        delay (200)
        parallelput (ALL_LED_DARK)              % Darkens all the LEDs.
        delay (200)
    end for
end BlinkLEDs

% Plays the a demonstration piece of "Mary Had a Little Lamb".
procedure Demo
    var xcount, ycount : int
    var character : string (1)
    xcount := 0
    ycount := 0
    parallelput (ALL_LED_DARK)                   % Darken all the LEDs.
    loop
        drawfilloval (2, 2, xcount, ycount, brightmagenta)
        xcount := xcount + 4
        ycount := ycount + 4
        exit when xcount >= 800
    end loop
    drawfillbox (0, 95, 700, 350, white)
    locate (10, 20)
    colour (gray)
    put "     This demo will play"
    colour (blue)
    put " "
    put "                       MARY HAD A LITTLE LAMB."
    put " "
    colour (red)
    put "     A light will come on for each corresponding note."
    put " "
    put "               (i.e. play-by-light-made-even-easier)"
    put " "
    put " "
    put " "
    put " "
    put " "
    put " "
    put "Press any keyboard key to start the demo, and watch "
    put "the magical light show!!"
    loop
        exit when hasch
    end loop
    getch (character)
    cls
    locate (10, 5)
    colour (green)
    put "                      YE GOOD OL' DEMO!!!!"
    DrawButtons
    PlayENote
    delay (w1)
    PlayDNote
    delay (w1)
    PlayCNote
    delay (w1)
    PlayDNote
    delay (w1)
    PlayENote
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (w1)
    PlayENote
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (w1)
    PlayENote
    delay (w2)
    PlayDNote
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (w1)
    PlayDNote
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (w1)
    PlayDNote
    delay (w2)
    PlayENote
    delay (w1)
    PlayGNote
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (w1)
    PlayGNote
    delay (w2)
    PlayENote
    delay (w1)
    PlayDNote
    delay (w1)
    PlayCNote
    delay (w1)
    PlayDNote
    delay (w1)
    PlayENote
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (w1)
    PlayENote
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (w1)
    PlayENote
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (w1)
    PlayENote
    delay (w1)
    PlayDNote
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (w1)
    PlayDNote
    delay (w1)
    PlayENote
    delay (w1)
    PlayDNote
    delay (w1)
    PlayCNote
    delay (w1)

    % Blinks all the LEDs on, then off five times.
    BlinkLEDs (5)
end Demo

% Allows the user to play with the notes until she or he is
% ready to begin.
procedure Test
    var note : int
    var character : string (1)
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    locate (5, 10)
    put "Warm up your fingers on the buttons."
    put " They are labelled according to the correct pitches..."
    put " "
    colour (brightmagenta)
    put "                        " ..
    put "C      " : 7 ..
    colour (brightcyan)
    put "D" : 7 ..
    colour (brightred)
    put "E" : 7 ..
    colour (brightblue)
    put "G" : 7
    locate (24, 10)
    put " When you're ready to start, press any keyboard key..."
    DrawButtons
    loop
        note := parallelget
        delay (50)
        if note = C_BUTTON then
            PlayCNote
        elsif note = D_BUTTON then
            PlayDNote
        elsif note = E_BUTTON then
            PlayENote
        elsif note = G_BUTTON then
            PlayGNote
        end if
        exit when hasch
    end loop
    getch (character)
end Test

% This procedure is called when the user wins the game.
procedure DrawYouWin
    % Blink all the LEDs on, then off 5 times
    BlinkLEDs (5)

    % Plays a tune, shows a message, and displays a graphic.
    colourback (white)
    locate (14, 30)
    put "DY-NO-MITE!!!!!"
    play ("gg8fe4e8de2e")
    play ("8de4e8de4ge16g2f2d")
    cls
    locate (9, 5)
    put "            WOOOOOOOOOOOWWWWWWW!!!!!"
    put " "
    put "               YOU DID IT!!!!!!!!!"
    for counter1 : 1 .. 20 * maxcolor by 20
        for counter : 1 .. 50
            drawline (counter1 + counter, counter1 + counter,
                maxx - counter1 - counter,
                maxy - counter1 - counter,
                counter1 div 20)
        end for
    end for
    locate (20, 60)
    put "Congratulations!"
end DrawYouWin

% Plays the difficult version of the game (no hints).
procedure PlayHardDifficulty (var name : string)
    var last_note, counter, note : int
    var cnote, dnote, enote, gnote : int := 0
    var character : string (1)
    counter := 0
    last_note := -1
    DrawButtons
    locate (5, 10)
    put "   OK ", name, ", when the beep sounds, correctly play"
    colour (red)
    put " "
    put "            MARY HAD A LITTLE LAMB" ..
    colour (brightblue)
    put " at your own speed on the buttons."
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.
    delay (3000)
    play (">>2C" ..
    get name : *
    put "      Thank you"
end EnterName

% Lights the LED indicating which note to play.
% Waits until the user presses the correct button
% in the music box and then plays the note and delay.
procedure WaitForButtonPress (ledToLight, buttonToWaitFor : int)
    var note : int
    parallelput (ledToLight)
    loop
        note := parallelget
        exit when note = buttonToWaitFor
    end loop
    if note = C_BUTTON then
        PlayCNote
    elsif note = D_BUTTON then
        PlayDNote
    elsif note = E_BUTTON then
        PlayENote
    elsif note = G_BUTTON then
        PlayGNote
    end if
    delay (w1)
end WaitForButtonPress

% Plays the easy version of the game.
procedure PlayEasyDifficulty (var name : string)
    var note : int
    var xcount, ycount : int
    var character : string (1)
    parallelput (ALL_LED_DARK)                          % Darkens all the LEDs.

    % Draws some graphics.
    xcount := 0
    ycount := 0
    loop
        drawfilloval (2, 2, xcount, ycount, brightred)
        xcount := xcount + 4
        ycount := ycount + 4
        exit when xcount >= 800
    end loop
    drawfillbox (0, 95, 700, 350, 0)
    locate (10, 20)
    colour (gray)
    put "            EASY VERSION"
    put " "
    put " "
    put "    Since we always want to help, here's an easier way "
    put " "
    put "    a real success in this game.  You can "
    put " "
    put "    PLAY-BY LIGHTS!!!!!   When you're ready, press "
    put " "
    put "    a keyboard key. After each beep, press the button"
    put " "
    put "    that matches the light that just flashed."
    put " "

    % Waits until the user presses a key.
    loop
        exit when hasch
    end loop
    getch (character)
    cls
    locate (10, 5)
    colour (green)
    put "                           PLAY-BY-LIGHT"
    DrawButtons

    delay (w2 + w1)

    % For each note, lights the LED indicating which note to play.
    % Then waits until the user presses the correct button
    % in the music box and plays the note.
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (C_LED, C_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (G_LED, G_BUTTON)
    WaitForButtonPress (G_LED, G_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (C_LED, C_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (E_LED, E_BUTTON)
    WaitForButtonPress (D_LED, D_BUTTON)
    WaitForButtonPress (C_LED, C_BUTTON)
    cls
    locate (15, 36)
    put " DONE"
    locate (17, 30)
    put "Now try the real thing."
    BlinkLEDs (3)
    delay (1000)
end PlayEasyDifficulty

% Introduces the game by blinking LEDs and playing music.
procedure StartGame (var name : string)
    play ("16CEG8>C2C")
    BlinkLEDs (3)
    locate (15, 30)
    put "Welcome ", name, "!!!!!!!!!!!!"
    play ("16CEG8>C2C