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

kokok

Sun May 06, 2007 9:29 pm


traffic light testing program

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

hello. im kokok
currently im taking ICE3U
and we need to make a program using turing to control a mini traffic light

what we need to do is we need to click a circle that has color of red and then if you click it, it will turn into brighter red and if you click it again it will turn to the normal red, while you can make all of the lights on and off..
i been thinking about how to do this all day but i just dun get it
i tried to use double if...but it didn work..
im not saying you have to check my program but i want some advise on how to make such programs><

[quote]setscreen ("graphics:300;400:noecho:nocursur")

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%--------------------variables----------------------%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%variables for making pics%%
var red1, red2, green1, green2, yellow1, yellow2 : int
const r := 30
var R, Y, G : int := 0

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%-----------------actual program--------------%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
drawentire
var x, y, button : int

loop
    Mouse.Where (x, y, button)

    if x > 260 and x < 340 and y > 0 and y < 110 then  %%green
        if button = 1 then
            Draw.FillOval (300, 80, r, r, 10)
            G := 1
        elsif button = 1 and G = 1 then
            Draw.FillOval (300, 80, r, r, 2)
            G := 0
        end if

    elsif x > 260 and x < 340 and y > 111 and y < 180 and button = 1 then    %%%yellow
        if button = 1 then
            Draw.FillOval (300, 150, r, r, 44)
            Y := 1
        elsif button = 1 and Y = 1 then
            Draw.FillOval (300, 150, r, r, 42)
            Y := 0
        end if

    elsif x > 260 and x < 340 and y > 190 and y < 260 and button = 1 then %%red
        if button = 1 then
            Draw.FillOval (300, 220, r, r, 12)
            R := 1
        elsif button = 1 and R = 1 then
            Draw.FillOval (300, 220, r, r, 4)
            R := 0
        end if
    end if
end loop