----------------------------------- hamza.swag Thu May 01, 2014 10:28 pm Traffic Intersection ----------------------------------- How do i do left turn signal either as a flashing green mode and pedestrian walk / do not walk signals. Please help me ... ----------------------------------- Insectoid Thu May 01, 2014 10:31 pm RE:Traffic Intersection ----------------------------------- Have you tried anything? ----------------------------------- hamza.swag Thu May 01, 2014 10:40 pm RE:Traffic Intersection ----------------------------------- I don't know how to do that. Its summative project and i have been trying for this for past week but still i dont get it ----------------------------------- Tony Thu May 01, 2014 10:58 pm Re: RE:Traffic Intersection ----------------------------------- i have been trying for this for past week What have you tried during that week? ----------------------------------- hamza.swag Fri May 02, 2014 12:51 am RE:Traffic Intersection ----------------------------------- I am new to this turing programming so i don't know properly ... I did pretty good job in hardware assignment and now i have to write the code of the hardware assignment in turing and now i have to write the code of pedestrial signals and flashing green mode ----------------------------------- Tony Fri May 02, 2014 1:49 am RE:Traffic Intersection ----------------------------------- it sounds like you are looking for [tdoc]parallelput[/tdoc] (read the linked documentation for examples); but it's really hard to say, since you are not saying what you've been doing so far. ----------------------------------- hamza.swag Fri May 02, 2014 2:56 pm RE:Traffic Intersection ----------------------------------- Now, Can you help me to make pedestrial signals and not walk signals var winID : int winID := Window.Open ("graphics:maxx,maxy") var x1, y1, clr1 : int for : 1 .. 20 x1 := Rand.Int (0, maxx) y1 := Rand.Int (0, maxy) end for cls locatexy (150, 250) put "Press any key start this program " locatexy (150, 230) var ch : char := getchar Window.Close (winID) var winID2 : int winID2 := Window.Open ("graphics:900,680") delay (1000) View.Set ("graphics:750;550") drawfillbox (0, 0, 640, 480, green) View.Set ("graphics:640;480") drawfillbox (0,0,640,480,green) %Road (Black) drawfillbox (0,130,640,350,7) drawfillbox (200,0,450,480,7) %Road Lines drawfillbox (0,280,30,290,0) drawfillbox (0,200,30,210,0) drawfillbox (40,280,70,290,0) drawfillbox (40,200,70,210,0) drawfillbox (80,280,110,290,0) drawfillbox (80,200,110,210,0) drawfillbox (120,280,150,290,0) drawfillbox (120,200,150,210,0) drawfillbox (160,280,190,290,0) drawfillbox (160,200,190,210,0) drawfillbox (460,280,490,290,0) drawfillbox (460,200,490,210,0) drawfillbox (500,280,530,290,0) drawfillbox (500,200,530,210,0) drawfillbox (540,280,570,290,0) drawfillbox (540,200,570,210,0) drawfillbox (580,280,610,290,0) drawfillbox (580,200,610,210,0) drawfillbox (620,280,650,290,0) drawfillbox (620,200,650,210,0) drawfillbox (370,0,380,30,0) drawfillbox (280,0,290,30,0) drawfillbox (370,40,380,70,0) drawfillbox (280,40,290,70,0) drawfillbox (370,80,380,110,0) drawfillbox (280,80,290,110,0) drawfillbox (370,360,380,390,0) drawfillbox (280,360,290,390,0) drawfillbox (370,400,380,430,0) drawfillbox (280,400,290,430,0) drawfillbox (370,440,380,470,0) drawfillbox (280,440,290,470,0) %Side Walk drawfillbox (0,96,199,129,darkgrey) drawfillbox (166,0,199,129,darkgrey) drawfillbox (0,100,195,125,grey) drawfillbox (170,0,195,125,grey) drawfillbox (0,351,199,385,darkgrey) drawfillbox (166,355,199,480,darkgrey) drawfillbox (0,355,195,380,grey) drawfillbox (170,355,195,480,grey) drawfillbox (451,100,645,129,darkgrey) drawfillbox (451,0,485,125,darkgrey) drawfillbox (455,100,640,125,grey) drawfillbox (455,0,480,125,grey) drawfillbox (451,351,645,385,darkgrey) drawfillbox (451,355,485,480,darkgrey) drawfillbox (455,355,640,380,grey) drawfillbox (455,355,480,480,grey) %Traffic Light %middle left drawfillbox (90,220,200,270,43) drawfilloval (110,245,15,15,7) drawfilloval (145,245,15,15,7) drawfilloval (180,245,15,15,7) %middle right drawfillbox (450,220,560,270,43) drawfilloval (470,245,15,15,7) drawfilloval (505,245,15,15,7) drawfilloval (540,245,15,15,7) %middle bottom drawfillbox (305,20,355,130,43) drawfilloval (330,40,15,15,7) drawfilloval (330,75,15,15,7) drawfilloval (330,110,15,15,7) %middle top drawfillbox (305,345,355,455,43) drawfilloval (330,365,15,15,7) drawfilloval (330,400,15,15,7) drawfilloval (330,435,15,15,7) %parallelput (Green) var Green : int := 1 var Yellow : int := 2 var Red : int := 5 var status : int status := Green %Green light drawfilloval (330,365,15,15,green) %Yellow Light drawfilloval (330,400,15,15,7) %Red Light drawfilloval (330,435,15,15,7) %statements on changing lights if status = Green then drawfilloval (330,365,15,15,7) delay (5000) parallelput (Yellow) status := Yellow drawfilloval (473, 385, 10, 10, Yellow) elsif status = Yellow then delay (2000) parallelput (Red) status := Red drawfilloval (473, 410, 10, 10, Red) elsif status = Red then delay (5000) parallelput (Green) status := Green drawfilloval (473, 360, 10, 10, Green) end if ----------------------------------- Tony Fri May 02, 2014 3:27 pm RE:Traffic Intersection ----------------------------------- var Green : int := 1 var Yellow : int := 2 var Red : int := 5 Have you tested out the wiring for Red? Seems that it would also set the bit for Green. Once you have your traffic lights, pedestrian signs are just... more lights (imagine a traffic light with 4th and 5th colours). green = 1 yellow = 2 red = 4 walk = 8 dont_walk = 16 ----------------------------------- hamza.swag Fri May 02, 2014 3:36 pm RE:Traffic Intersection ----------------------------------- then how can i make a signal for left and right turns? And can you help me to add pedestrial code and left and right signal code in my code please ----------------------------------- Tony Fri May 02, 2014 4:28 pm RE:Traffic Intersection ----------------------------------- See [tdoc]parallelput[/tdoc] -- you get 8 distinct pins to wire up. ----------------------------------- hamza.swag Fri May 02, 2014 9:46 pm RE:Traffic Intersection ----------------------------------- can you write me a program for that please ----------------------------------- Insectoid Fri May 02, 2014 10:13 pm RE:Traffic Intersection ----------------------------------- Nope.