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 copyThis 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