Отправляет email-рассылки с помощью сервиса Sendsay

KLSoft company - программирование в Delphi и PHP

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Веб-разработка: пособие начинающим" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
ADMIN

Статистика

989 подписчиков
0 за неделю
←   Все выпуски   →

X-Program ПО, новости сайта и программирование в Delphi7


Информационный Канал Subscribe.Ru

РАССЫЛКА                       Корпорация X-Program                      РАССЫЛКА 

В сегодняшнем выпуске:

Программа MagDate3
Сайт программы MagDate
Виды навигации и меню(HTML)
Как записать число прописью(Delphi)

 

 

Программа MagDate3

 

Программа о, которой я бы хотел рассказать называется MagDate3 (3- это версия программы).
MagDate- это программа-календарь на рабочий стол. Первая версия программы вышла в 2003 году,
вторая в начале 2004 и вот сегодня на официальном сайте программы MagDate появилась новая версия, 3_тья(07.09.2004).
В новую версии программы добавлено множество настроек программы (от цветовой схемы до звуковой), систематизация файлов-сообщений улучшена, все ошибки исправлены (программа тестировалась в течении месяца). Также появились две новые функции программы:
--> Ярлыки
--> CD-Rom
Программа совершенно бесплатная. Работа с XML документами расширила возможности программы.
Программа не загружает память, реестр и диск(размер программы 1.40 Mb)
Официальный сайт программы http://www.MagDate.narod.ru
Официальный сайт разработчика программы http://www.x-program.narod.ru
Адрес разработчика x-program@mail.ru

 

Сайт программы MagDate ( http://www.magdate.narod.ru )

 

На сайте Вы сможете скачать последнии версии программы, посетить службу поддержки, посмотреть рисунки программы, почитать советы и многое другое.

 

Виды навигации в меню

 

Под навигацией понимают систему перехода между документами сайта. Другими словами, навигация дает пользователю представление о структуре сайта и возможность перемещаться к нужной странице. Термин «навигация» давно уже стал объемным понятием и включает в себя не только способ перехода от страницы к странице, но также вид и представление ссылок. По этой причине к навигации относят элементы страницы, которые имеют к навигации косвенное отношение, например, меню. Тем не менее, это уже связанные понятия и подразумевая навигацию по сайту, обычно упоминают и меню, с помощью которого пользователь загружает в окно браузера требуемые веб-страницы.

В зависимости от типа сайта различают несколько видов навигации, которые рассмотрены далее.

«Хлебные крошки»

Все вы, наверняка, помните сказку про Мальчика-с-пальчик, сумевшего найти обратную дорогу домой по хлебным крошкам, которые предварительно разбросал. Только не надо говорить, что хлеб съели птицы, если бы это было так, мы никогда бы не узнали про этот простой и понятный способ навигации. «Хлебные крошки» представляют собой последовательность иерархически вложенных страниц. Например, у нас есть дуб, на котором висит сундук, в сундуке — утка, в утке жираф, а в жирафе — утюг. Тогда схема вложенности будет такая.

Дуб > Сундук > Утка > Жираф > Утюг

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

Главная страница > Дуб > Сундук > Утка > Жираф > Утюг

Каждая надпись, кроме последней, служит ссылкой на тот раздел или страницу, где идет описание предмета. «Главная страница», понятно, ведет к началу сайта. Последняя фраза в ряду крошек показывает, что вы находитесь на этой текущей странице, поэтому ссылка в данном случае не нужна.

Преимущества использования «крошек»

  • Схема наглядна и очевидна, сразу понятно, где мы находимся в структуре сайта.
  • Всегда есть возможность вернуться на предыдущий уровень или на главную страницу.
  • Пользователь не может заблудиться на сайте, поскольку он понимает, где в данный момент находится и может перейти в другое место.

Несколько замечаний касательно оформления «крошек».

  • В качестве разделителей лучше использовать символ больше (>), слэш (\) или обратный слэш (/). Символ вертикальная черта (|) в данном случае не годится, он плохо показывает вложенность пунктов.
  • Начинать желательно всегда с главной страницы, чтобы показать начало сайта.
  • Блок с «крошками» желательно размещать в верхней части страницы.
  • Последний пункт должен совпадать с названием текущей страницы, при этом он не должен быть ссылкой. Если такой текст сделать жирным, то он будет выделяться на фоне остальных пунктов. В некоторых случаях такой необходимости нет, поэтому текст без ссылки оставляем обычного начертания.

 

 

Как записать число прописью

 

Не самый лучший вариант, но работает :)


 { Преобразует трехзначное число в строку }
function ConvertToWord(N  : word) : string;
Const
 Sot : array[1..9] of string[13] =
  ('сто','двести','триста','четыреста','пятьсот',
   'шестьсот','семьсот','восемьсот','девятьсот');
 Des : array[2..9] of string[13] =
  ('двадцать','тридцать','сорок','пятьдесят',
   'шестьдесят','семьдесят','восемьдесят','девяносто');
 Edin : array[0..19] of string[13] =
  ('','один','два','три','четыре','пять','шесть','семь',
   'восемь','девять','десять','одиннадцать','двенадцать',
   'тринадцать','четырнадцать','пятнадцать',
   'шестнадцать','семнадцать','восемнадцать','девятнадцать');
Var S  : string;
begin
 S:=''; N:=N mod 1000;
 if N>99 then begin
  S:=Sot[N div 100]+' '; N:=N mod 100;
 end;

if N>19 then begin
  S:=S+Des[N div 10]+' '; N:=N mod 10;
 
 end;
 Result:=S+Edin[N];
end;

{ Возвращает сумму прописью }
function CenaToStr(r : Currency) : string;
Var
 N,k  : longint;
 S  : string;
begin
 N:=trunc(R); S:='';
 if N<>0 then begin
 if N>999999 then begin
  k:=N div 1000000;
  S:=ConvertToWord(k);
  if ((k-(k div 100)*100)>10) and ((k-(k div 100)*100)<20) then S:=S+' миллионов' else
  if (k mod 10)=1 then S:=S+' миллион' else
  if ((k mod 10)>=2)and((k mod 10)<=4) then S:=S+' миллиона' else
   S:=S+' миллионов';
  N:=N mod 1000000;
 end;
 if N>999 then begin
  k:=N div 1000;
  S:=S+' '+ConvertToWord(k);
  if ((k-(k div 100)*100)>10)and((k-(k div 100)*100)<20) then S:=S+' тысяч'
else
  if (k mod 10)=1 then begin SetLength(S, Length(S)-2
 ); S:=S+'на тысяча'; end else
  if (!
 k mod 10
)=2 then begin SetLength(S, length(S)-1); S:=S+'е тысячи'; end else
  if ((k mod 10)>=3)and((k mod 10)<=4) then S:=S+' тысячи' else
   S:=S+' тысяч';
  N:=N mod 1000;
 end; k:=N;
 S:=S+' '+ConvertToWord(k);
 if ((k-(k div 100)*100)>10)and((k-(k div 100)*100)<20) then S:=S+' рублей' else
 if (k mod 10)=1 then S:=S+' рубль' else
 if (k mod 10)=2 then S:=S+' рубля' else
 if ((k mod 10)>=3)and((k mod 10)<=4) then S:=S+' рубля' else
  S:=S+' рублей';
end;
 if trunc(R)<>R then begin
  k:=round(frac(R)*100);
  S:=S+' '+IntToStr(K);
  if ((k-(k div 100)*100)>10)and((k-(k div 100)*100)<20) then S:=S+' копеек' else
  if (k mod 10)=1 then begin S:=S+'
копейка'; end else
  if (k mod 10)=2 then begin
S:=S+' копейки'; end else
if ((k mod 10)>=3)and((k mod 10)<=4) then S:=S+' копейки' else
S:=S+' копеек';
end else S:=S+' 00 копеек';
S:=Trim(S);
if S<>'' then S[1]:=AnsiUpperCase(S[1])[1];
result:=S;
end;
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.program		 Отписаться
В избранное