Вот задали написать программу и нарисовать для неё блок схему, программа готова а вот схему я незнаю как рисовать помогите пожалуйста. | Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Mask, jpeg,MMSystem, ComCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Timer1: TTimer;
Button1: TButton;
Panel1: TPanel;
Panel3: TPanel;
Edit3: TEdit;
Image1: TImage;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
ProgressBar1: TProgressBar;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
vvodchas,vvodmin,vvodsec,milschas,milsmin,x:integer;
const
mils=1000;
chas=3600;
implementation
{$R *.dfm}
{$R com.RES}
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
if edit1.Text='' then edit1.Text:='0';
if edit2.Text='' then edit2.Text:='0';
if edit3.Text='' then edit3.Text:='0';
begin
if strtoint(edit1.Text)>250 then showmessage('Число не должно превышать 250');
if strtoint(edit1.Text)>250 then exit;
if strtoint(edit2.Text)>60 then showmessage('Число не должно превышать 60');
if strtoint(edit2.Text)>60 then exit;
if strtoint(edit3.Text)>59 then showmessage('Число не должно превышать 59');
if strtoint(edit3.Text)>59 then exit;
//exit;
end;
end;
vvodchas:=strtoint(Edit1.Text);//ввод часов
vvodmin:=strtoint(Edit2.Text); //ввод минут
vvodsec:=strtoint(Edit3.Text);//ввод секунд
milschas:=vvodchas*chas;//высчитываем сколько секунд в часах
milsmin:=vvodmin*60;//Высчитываем сколько секунд в минутах
x:=milschas+milsmin+vvodsec+1;//присваеваем таймеру начальное значение
progressbar1.Max:=x;
Button1.Enabled:=false;//Выключаем кнопку старт
Timer1.Enabled:=true;//запускаем таймер
CheckBox1.Enabled:=false;
CheckBox2.Enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var b,a,s:real;
f:string;
begin
begin
s:=60;
a:=strtofloat(inttostr(x));
b:=a/s;
f:=Floattostr(b);
panel1.Caption:=f;
end;
begin
dec(x);//вычитаем из переменной Х единицу
progressbar1.Position:=x;
Panel3.Caption:= IntToStr(x);//присваеваем полю текущее значение Х
if x = 0 then //Когда Х будет равен 0
begin
Timer1.Enabled:= False;// выключаем таймер
panel1.Caption:='0';
if checkbox2.Checked then PlaySound('budilnik',0,SND_RESOURCE);
if checkbox1.Checked then Showmessage('Время вышло');
Button1.Enabled:=true;//Включаем кнопку
CheckBox1.Enabled:=true;
CheckBox2.Enabled:=true;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Button1.Enabled:=true;
progressbar1.Position:=0;
CheckBox1.Enabled:=true;
CheckBox2.Enabled:=true;
end;
//Фильтрация ввода
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#27,#8]) then Key := #0;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#27,#8]) then Key := #0;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#27,#8]) then Key := #0;
end;
end.
|
|
[Delphi]Нарисовать блок-схему, пожалуйста очень надо до завтра 
Дата 6.5.2007, 14:07 (
Загрузка ...
