Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Практична робота №12.
Введення/виведення інформації
План:
Обробка подій миші. Регулювання прозорості форми
Обробники подій OnMouseDown і OnMouseUp визначають реакцію програми на відповідно натиснення і відпуск кнопки миші, OnMouseMove -на переміщення покажчика миші на компоненті.
Дві властивості AlphaBlend і AlphaBlendValue уперше були введені у версії Delphi 6 і дозволяють регулювати міру прозорості вікна форми. Якщо AlphaBlend = true, то значення властивості AlphaBlendValue задає міру прозорості. 0 - вікно повністю прозоро, 255 - абсолютно непрозорий. Властивості TransparentColorValue і TransparentColor визначають колір прозорості і можливість його використання. Проте вказані властивості працюють тільки з ОС Windows 2000/XP і вище на процесорах Pentium з тактовою частотою не нижче 90 Мгц і відеокарту комп'ютера повинна відображати більше 255 кольорів.
Процедури і функції виклику діалогових вікон
Процедура ShowMessage('<рядок>') відображає вікно з повідомленням і кнопкою ОК. Приклад: ShowMessage('До побачення!')
Процедура ShowMessageFmt('Задано %d параметрів з %d ',[n1, n2]) Останній оператор при n1=5 і n2=7 видасть сполучення з текстом: "Задані 5 параметрів з 7"
Функції відображають вікна, в яких користувачеві задається яке-небудь питання і аналізується отримана відповідь.
Функція MessageDlg(<рядок>, AType, Abuttons, HelpCtx) відображає діалогове вікно і чекає відповідь користувача. Вид відображення вікна задається параметром AType.
Значення |
Опис |
MtWarning |
Вікно зауважень |
MtError |
Вікно помилок |
MtInformation |
Інформаційне вікно |
MtConfirmation |
Вікно підтвердження |
mtCustom |
Замовлене вікно без малюнка |
Параметр Abuttons визначає, які кнопки будуть присутніми у вікні.
Значення |
Запис на кнопці |
MbYes |
Yes |
MbNo |
No |
MbOk |
Ok |
MbCancel |
Cancel |
MbHelp |
Help |
MbAbort |
Abort |
MbRetry |
Retry |
MbIgnore |
Ignore |
MbAll |
All |
Визначені 3 константи, що відповідає часто використовуваним поєднанням кнопок
MbYesNoCancel |
Входять кнопки Yes, No, Cancel |
mbOkCancel |
Входять кнопки Ok, Cancel |
mbAbortRetryIgnore |
Входять кнопки Abort, Retry, Ignore |
Приклад: В тілі процедури запишимо
Begin
…
if MessageDlg('Yo!',mtWarning,[mbYes, mbNo],0)=mrYes
then close;
end.
Отримаємо:
Завдання для самостійної роботи:
1. Перерозподілити значення змінних x і y так, щоб в х виявилося більше, а в у - менше.
2. Відвідувач програв в казино a рублів. У нього є фішки 2, 5, 15, 20, 50, 100, 500$. Скільки фішок різної гідності віддасть гравець, якщо платитиме з найдорожчих?
Робота з датою і часом
Тип TDateTime
Var t: TDateTime;
Для обробки дати і часу модуль SysUtils містить наступні основні функції:
function Date: TDataTime; - повертає поточну дату як значення типу TDateTime.
function DateToStr(Date: TDateTime) : string; - перетворює дату, вказану параметром Date, в рядок.
function DayOfWeek(Date: TDateTime) : Integer; - повертає номер дня тижня для дати, вказаної параметром Date. Для воскресіння повертається значення 1, для понеділка - 2 і т. д.
function EncodeDate(Year, Month, Day : Word) : TDateTime; - збирає значення дати із заданих складових Year, Month і Day і віз¬обертає його як значення типу TDateTime.
function DecodeDate(Date: TDateTime) : Word; - збирає значення типу TDateTime і віз¬обертає його як значення типу дата із заданих складових Year, Month і Day.
function Now: TDateTime; - повертає значення поточної дати і часу.
function StrToDate(const S; string) : TDateTime; - перетворює значення рядка, що вказується параметром S, в дату типу TDateTime.
function Time: TDateTime; - повертає поточне значення часу.
function TimeToStr(Time: TDateTime) : string; - перетворює час в рядок відповідно до формату, що визначається глобальною змінною LongTimeFormat.
TDateTimePocker - введення і висвітлення дати/часу
Властивості компонента :
Властивість |
Опис |
CalAlignment |
Визначає положення календаря, що розкривається : dtaLeft - зліва від компонента; dtaRight - праворуч від компонента. Враховується тільки для Kind=dtkDate и DateMode=dmComoBox |
CalColors |
Колір календаря |
Checked |
Якщо виконуються умови Checked=True і ShowCheckBox=True, то прапорець поряд з полем дати(часу) буде показаний і встановлений. Наявність прапорця або його відсутність дозволяє або забороняє ручне введення дати або часу |
Date |
Містить введену дату |
DateFormat |
Визначає формат показу дати: dfShort – 11.01.04; dfLong – 5 вересня 2004 г. |
DateMode |
Визначає спосіб вибору дати : dmComboBox - за допомогою календаря, що розкривається; dmUpDown - за допомогою вбудованого компонента TUpDown |
Kind |
Визначає вміст компонента: dtkDate – дата; dtkTime – час |
MaxDate |
Визначає максимальну дату, яку може вибрати або ввести користувач |
MinDate |
Визначає мінімальну дату, яку може вибрати або ввести користувач |
Time |
Містить введений користувачем час |
TMonthCalendar – календар
Призначений для вибору і відображення дати. Дуже схожий на календар, розглянутий вище, але на відміну від нього може одночасно відображати декілька суміжних місяців - залежно від своїх розмірів.
Властивості компонента :
Властивість |
Опис |
CalColors |
Колір календаря(фону, дат, заголовків) |
Date |
Визначає вибрану дату |
EndDate |
Визначає кінцеву дату діапазону вибраних дат |
FirstDayOfWeek |
Визначає перший день тижня |
MaxDate |
Визначає максимальну дату, місяць якої ще буде доступний для відображення в компоненті. Якщо властивість містить порожнє значення, то відображається будь-який наступний місяць |
MinDate |
Визначає мінімальну дату, місяць якої ще буде доступний для відображення в компоненті. Якщо властивість містить порожнє значення, то відображається будь-який попередній місяць |
ShowTodayCircle |
Дозволяє/забороняє обводити поточну дату |
WeekNumbers |
Дозволяє/забороняє показ порядкових номерів тижнів від початку року в лівій колонці |
TTimer – таймер
Цей компонент служить для відліку інтервалів реального часу. Мінімальний реально досяжний інтервал відліку часу в ОС MS - DOS, Windows 95/98/ME не може бути менше 55 мілісекунд(цей інтервал називається тиком). Для ОС Windows NT Server, Windows 2000, Windows XP тривалість тика складає 10 мілісекунд.
TCalenar – календар
Компонент календар відображає календар на вибраний місяць і рік. Його властивості Day, Month, Year можуть містити будь-яку дату від 1 до 9999 року від Різдва Христова.
Розглянемо приклад, в якому числа 2006, 1, 1 виводяться у форматі дати 1.1.2006.
var MyTime: TDateTime;
begin
MyTime := EncodeDate(2006, 1, 1);
Edit1.Text := DateToStr(MyTime); end;
Для виведення в однорядкове вікно поточного запису на екран необхідно Edit1.Text := DateToStr(Now);
Завдання для самостійної роботи:
1. По введеному номеру року знайти кількість понеділків цього року.
2. По введеному номеру року знайти кількість п'ятниць 13.