Кодирующее устройство для кода Файера
| Категория реферата: Рефераты по коммуникации и связи
| Теги реферата: сообщение об открытии счета, дипломная работа 2011
| Добавил(а) на сайт: Makarov.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
For i:=_N+1 to _N+_M-1 Do
Begin
MoveTo(10+x+i*k,y);
Str(Cicle_Kod[i],Elm);
OutText(Elm);
End;
End;
{---------------------------------}
{выход из программы}
Function _Exit(Fon,Color : Integer;Col_Simv : Byte) : integer;
Var x,y,k : Integer;
Stop : Boolean;
Ch : Char;
Begin
Window_(250,200,450,300,1,'Выход'); x:=225; y:=260; k:=80;
SetTextStyle(0,0,1);
SetColor(Col_Simv);
For i:=1 to 2 do
Begin
MoveTo(x+i*k,y);
OutText(Y_No[i]);
End;
i:=1;
SetFillStyle(1,Fon);
Bar(x+i*k-30,y-15,x+i*k+30,y+15);
MoveTo(x+i*k,y);
Setcolor(Color);
OutText(Y_No[i]);
Stop:=False;
Repeat ch:=ReadKey;
Case ch Of
#75:Begin
SetFillStyle(1,7);
Bar(x+i*k-30,y-15,x+i*k+30,y+15);
Setcolor(Col_Simv);
MoveTo(x+i*k,y);
Рекомендуем скачать другие рефераты по теме: конспект урока, диплом государственного образца.
Категории:
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Главная