Member Avatar for sura17

well i have set two tasks firstly create the seven segement display and do some sort of timer with the 7 segment display, i have done the seven segment display and here it is:-

Program SevenSegmentDisplayConverter;
Uses Wincrt;

var
   Line1  : string;
   Line2  : string;
   Line3  : string;
   x      : real;
   Number : string;

Procedure SevenSegmentDisplay (Number:string);

 Begin

  if Number='.' then
   begin
    Line1 := Line1 +'   ';
    Line2 := Line2 +'   ';
    Line3 := Line3 +' . ';
   end

............................. (I DONT WANT PEOPLE STEALING MY HARD WORK SO I JUST MISSED PARTS OUT).......................................

Procedure PrintResult;

 Begin

  writeln(Line1);
  writeln(Line2);
  writeln(Line3);

 End;

Begin

     Line1 := '';
     Line2 := '';
     Line3 := '';

     Write('Enter Number...');
     ...................

     str(...................);

     .................Display(......................);
    .....................
    ..............................

     PrintResult;

End.

the ...................... are the bit what i missed out so people dont copy

This code works, if you need to see it because you need to referncae to it i might just put it on anyway

this was the hard part for me

i have a options screen then when i clik for example 1 i want there str8 away to a sort of timer in the 7 segement display stytle and say when i clik eneter key it starts ticking and press another key so it stops

i have been told to use the 'Keypressed' function but i cant find this anywhere

i dont not want to u just wright it out but guide me so i do the work

thank you if you can help

  • 1 Contributor
  • 1 Reply
  • 135 Views
  • 7 Hours Discussion Span
  • Latest Post Latest Post by sura17
Member Avatar for sura17

Can I Have This Thread Deleted Please

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.