Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
ВнизНужна помощь в написании программы, часть учебного проекта Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c