Текущий архив: 2004.01.05;
Скачать: CL | DM;

Вниз

Нужна помощь в написании программы, часть учебного проекта   Найти похожие ветки 

← →
deltoro ©   (2003-12-10 02:44) [0]

В программе присутствуют элементы:
1.Поместить показание из часов в виндовз в статическое поле ( точнее 2 поля ------> 1- Часы 2- Минуты)
2.Послать на LPT-порт сигналы 1 и 0, соответствующее кол-ву часов(минут), количество раз
-------------------LPT-------------------
hours -------- out #6 =
Minutes--------out #5 =
=========================================

Заранее спасибо откликнувшимся :-)

---

← →
ALEIIIKA ©   (2003-12-18 14:01) [1]

со времененм все просто:

procedure TForm1.Button1Click(Sender: TObject);

var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := " День " + IntToStr(Day) +
" Месяц "+ IntToStr(Month) +
" Год " + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := " Минуты " + IntToStr(Min) +
" Часы " + IntToStr(Hour);
end;

а про порт LPT смотри примеры в форумах.

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.032 c