Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.031 c
14-12148
Igorek
2003-12-14 11:15
2004.01.05
Есть идея! Оптимизатор скорости работы программы!


3-11839
Maksym
2003-12-05 17:00
2004.01.05
DBLookupListbox


3-11813
vlgrig1961
2003-12-10 08:17
2004.01.05
Вопрос по TSession.GetTableNames в Oracle8


3-11772
peypivo
2003-12-09 18:12
2004.01.05
TDbgrid


1-11889
serge
2003-12-17 18:07
2004.01.05
Display TEdit comp. in TMenuItem ?