Ядро Celeron изготовляется по последней 0,25 микронной технологии и имеет кодовое название Deschutes. Оно такое же, как у процессоров Pentium II, предназначенных для работы на частотах 333, 350 и 400 МГц (в младших моделях Pentium II используется ядро Klamath с 0,35 микронной технологией).

25 июля 1998 корпорация Microsoft выпускает Windows 98 - последнюю версию Windows на базе старого ядра, функционирующего на фундаменте DOS. Система Windows 98 интегрирована с интернет-браузером Internet Explorer 4 и совместима с многочисленными - от USB до спецификаций управления энергопотреблением ACPI. Последующие версии Windows для рядового пользователя будут построены на базе ядра NT.

6 октября 1998 года корпорация Intel анонсировала самую быстродействующую версию процессора Pentium® II Xeon™ с тактовой частотой 450 МГц, предназначенную для двухпроцессорных (двухканальных) серверов и рабочих станций.

Новая модель на 450 МГц обеспечивает наивысший в отрасли уровень производительности благодаря увеличенной емкости и быстродействию кэш-памяти 2-го уровня (L2), возможности установки нескольких процессоров, а также наличию системной шины, работающей на частоте 100 МГц. Сочетание высокой производительности процессора Pentium II Xeon с системной масштабируемостью выводит показатель соотношения "производительность/цена" на уровень, не имеющий аналогов на рынке двухканальных серверов и рабочих станций. Набор микросхем 440GX AGPset для серверов и рабочих станций, обеспечивающий возможность установки одного или двух процессоров, поддерживает до 2 Гб системной памяти и быструю графическую шину AGP.

Роль вычислительной техники в жизни человека

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

Современные вычислительные машины представляют одно из самых значительных достижений человеческой мысли, влияние которого на развитие научно-технического прогресса трудно переоценить. Область применения ЭВМ огромна и непрерывно расширяется.

Даже 30 лет назад было только около 2000 различных сфер применения микропроцессорной техники. Это управление производством (16%), транспорт и связь (17%), информационно-вычислительная техника (12%), военная техника (9%), бытовая техника (3%), обучение (2%), авиация и космос (15%), медицина (4%), научное исследование, коммунальное и городское хозяйство, банковский учёт, метрология, и другие области.

Компьютеры в учреждениях. Компьютеры в буквальном смысле совершили революцию в деловом мире. Секретарь практически любого учреждения при подготовке докладов и писем производит обработку текстов. Учрежденческий аппарат использует персональный компьютер для вывода на экран дисплея широкоформатных таблиц и графического материала. Бухгалтеры применяют компьютеры для управления финансами учреждения и введение документации.

Компьютеры на производстве. Компьютеры находят применение при выполнении широкого круга производственных задач. Так, например, диспетчер на крупном заводе имеет в своём распоряжении автоматизированную систему контроля, обеспечивающую бесперебойную работу различных агрегатов. Компьютеры используются также для контроля за температурой и давлением при осуществлении различных производственных процессов. Также управляются компьютером роботы на заводах, скажем, на линиях сборки автомобилей, включающие многократно повторяющиеся операции, например затягивание болтов или окраску деталей кузова.

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

Компьютер в магазине самообслуживания. Представьте себе, что идёт 1979 год и вы работаете неполный рабочий день в качестве кассира в большом универмаге. Когда покупатели выкладывают отобранные ими покупки на прилавок, вы должны прочесть цену каждой покупки и ввести её в кассовый аппарат.

А теперь вернёмся в наши дни. Вы по-прежнему работаете кассиров и в том же самом универмаге. Но как много здесь изменилось. Когда теперь покупатели выкладывают свои покупки на прилавок, вы пропускаете каждую из них через оптическое сканирующее устройство, которое считывает универсальный код, нанесённый на покупку, по которому компьютер определяет, цену этого изделия, хранящуюся в памяти компьютера, и высвечивает ее на маленьком экране, чтобы покупатель мог видеть стоимость своей покупки. Как только все отобранные товары прошли через оптическое сканирующее устройство, компьютер немедленно выдаёт общую стоимость купленных товаров.

Компьютер в банковских операциях. Выполнение финансовых расчётов с помощью домашнего персонального компьютера - это всего лишь одно из его возможных применений в банковском деле. Мощные вычислительные системы позволяют выполнять большое количество операций, включая обработку чеков, регистрацию изменения каждого вклада, приём и выдачу вкладов, оформление ссуды и перевод вкладов с одного счёта на другой или из банка в банк. Кроме того, крупнейшие банки имеют автоматические устройства, расположенные за пределами банка. Банковские автоматы позволяют клиентам не выстаивать длинных очередей в банке, взять деньги со счета, когда банк закрыт. Всё, что требуется, - вставить пластмассовую банковскую карточку в автоматическое устройство. Как только это сделано, необходимые операции будут выполнены.

Компьютер в медицине. Как часто вы болеете? Вероятно, у вас была простуда, ветрянка, болел живот? Если в этих случаях вы обращались к доктору, скорее всего он проводил осмотр быстро и достаточно эффективно. Однако медицина - это очень сложная наука. Существует множество болезней, каждая из которых имеет только ей присущие симптомы. Кроме того, существуют десятки болезней с одинаковыми и даже совсем одинаковыми симптомами.

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

Компьютер в сфере образования. Сегодня многие учебные заведения не могут обходиться без компьютеров. Достаточно сказать, что с помощью компьютеров: трёхлетние дети учатся различать предметы по их форме; шести- и семилетние дети учатся читать и писать; выпускники школ готовятся к вступительным экзаменам в высшие учебные заведения; студенты исследуют, что произойдёт, если температура атомного реактора превысит допустимый предел.

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

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

Электронные банки данных с соответствующей информацией легко доступны государственным и региональным следственным учреждениям всей страны. Так, федеральное бюро расследования (ФБР) располагает общегосударственным банком данных, который известен как национальный центр криминалистической информации. Компьютеры используются правоохранительными органами не только в информационных сетях ЭВМ, но и в процессе розыскной работы. Например, в лабораториях криминалистов компьютеры помогаю проводить анализ веществ, обнаруженных на месте преступления. Заключения компьютера-эксперта часто оказываются решающими в доказательствах по рассматриваемому делу.

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

Стоит ли говорить о том, что как только появилась возможность объединять несколько машин в сеть, пользователи ухватились за эту возможность не только для того, чтобы использовать ресурсы удаленных машин, но и чтобы расширить круг своего общения. Создаются программы, предназначенные для обмена сообщениями пользователей, находящихся на разных машинах. Наиболее универсальное средство компьютерного общения - это электронная почта. Она позволяет пересылать сообщения практически с любой машины на любую, так как большинство известных машин, работающих в разных системах, ее поддерживают.

Электронная почта - самая распространенная услуга сети Internet. В настоящее время свой адрес по электронной почте имеют приблизительно 20 миллионов человек. Посылка письма по электронной почте обходится значительно дешевле посылки обычного письма. Кроме того сообщение, посланное по электронной почте дойдет до адресата за несколько часов, в то время как обычное письмо может добираться до адресата несколько дней, а то и недель.

Internet - глобальная компьютерная сеть, охватывающая весь мир. Сегодня Internet имеет около 15 миллионов абонентов в более чем 150 странах мира. Ежемесячно размер сети увеличивается на 7-10%. Internet образует как бы ядро, обеспечивающее связь различных информационных сетей, принадлежащих различным учреждениям во всем мире, одна с другой.

Internet предоставляет уникальные возможности дешевой, надежной и конфиденциальной глобальной связи по всему миру. Это оказывается очень удобным для фирм имеющих свои филиалы по всему миру, транснациональных корпораций и структур управления. Обычно, использование инфраструктуры Internet для международной связи обходится значительно дешевле прямой компьютерной связи через спутниковый канал или через телефон.

Пример выполнения задания на Excel

Задание:

Составить расчет инвариантной сметы расходов на ремонт квартиры.

1. Построить диаграмму структуры расходов по смете.

2. Разработать два сценария для расчета расходов при изменении цен на материалы и расценок на выполнение работ.

3. Подобрать параметры для расчета возможных размеров цен при заданной величине расходов.

4. Составить план погашения кредита на расходы по смете и рассчитать будущую стоимость расходов.

1. Расчет инвариантной сметы расходов на ремонт квартиры.

Составим смету на ремонт квартиры на основе следующих данных:

· объект ремонта;

· работы и расценки;

· цены материалов и нормы расхода.

Состав исходных данных, использованных в примере, приведен ниже.

Таблица

	Исходные данные
	1. Объект ремонта
комната	длина	ширина	высота
	2. Работы и расценки
Вид работ	Расценка за 1 кв. м.
	1. Стандартные	2.Евроремонт
Покраска потолка	60	120
Оклеевание обоями	50	100
Штукатурные работы	30	300
	3. Цены материалов и нормы расходов
материал	цена руб.	норма расходов на 1 кв. м.
обои -м.	30	1
обои -м.	150	1
клей -кг	20	0,1
краска литр	100	0,1
краска литр	50	0,1
грунтовка -литр	20	0,2
грунтовка -литр	100	0,2
бетонит кг	20	2

Расчет сметы состоит из трех расчетов:

· Расчет объема работ;

· Расчет потребности и стоимости материалов;

· Расчет стоимости работ.

Ниже приводятся эти расчеты.

Таблица

	1.Расчет объема работ
Вид работ	Кол.комнат	Объем работ
Покраска потолка	3	43
Оклеевание обоями	3	144
2. Расчет потребности и стоимости материалов
материал	Потребность	Стоимость
обои в м.	144	21600
клей	14,4	288
краска кг.	4,3	430
грунтовка кг.	28,8	2880
бетонит	288	5760
Итого материалы		30958

Объем работ рассчитывается инвариантно, т.е. при помощи функции ЕСЛИ в зависимости от количества комнат:

=ЕСЛИ(B26=1;B4*C4;ЕСЛИ(B26=2;B4*C4+B5*C5;ЕСЛИ(B26=3;B4*C4+B5*C5+B6*C6)));

=ЕСЛИ(B27=1;(B4+C4)*2*D4;ЕСЛИ(B27=2;(B4+C4)*2*D4+(B5+C5)*2*D5;ЕСЛИ(B27=3;(B4+C4)*2*D4+(B5+C5)*2*D5+(B6+C6)*2*D6))).

Расчет потребности и стоимости материалов рассчитывается по следующим формулам:

Таблица

2. Расчет потребности и стоимости материалов
материал	Потребность	Стоимость
обои в м.	C27*C15	B30*B16
клей	C27*C17	B31*B17
краска кг.	C26*C18	B32*B18
грунтовка кг.	C27*C20	B33*B21
бетонит	C27*C22	B34*B22
Итого материалы		СУММ(C30:C34)

Таблица. Расчет стоимости работ приведен ниже

	3.Расчет стоимости работ
Работы	Вид ремонта	Стоимость
Покраска потолка	2	5160
Оклеевание обоями	2	14400
Штукатурные работы	2	43200
Итого работы		62760
Непредвиденные расходы		6276
Всего расходов		99994

Стоимость ремонта рассчитывается в зависимости от вида ремонта: 1-стандартный ремонт, 2-евроремонт. Формулы расчета приведены ниже.

Таблица

	3.Расчет стоимости работ
Работы	Вид ремонта	Стоимость
Покраска потолка	2	=ЕСЛИ(B38=1;C26*B10;ЕСЛИ(B38=2;C26*C10))
Оклеевание обоями	2	=ЕСЛИ(B39=1;C27*B11;ЕСЛИ(B39=2;C27*C11))
Штукатурные работы	2	=ЕСЛИ(B40=1;C27*B12;ЕСЛИ(B40=2;C27*C12))
Итого работы		=СУММ(C38:C40)
Непредвиденные расходы		=C41*0,1
Всего расходов		=СУММ(C42+C35+C41)

2. Построение диаграммы структуры расходов по смете

Диаграмма должна отражать структуру расходов по смете. Для этих целей применяется круговая диаграмма, приведенная ниже.



Рис.

3. Разработка сценариев для расчета расходов при изменении цен на материалы и расценок на выполнение работ

В приведенных двух сценариях показано как при изменении цен на материалы изменяются расходы по смете.

Таблица

Структура сценария
		Текущие значения:	1	2
			Автор: zlobina , 30.11.200	Автор: zlobina , 30.11.200
Изменяемые:
	$B$26	3	2	3
	$B$27	3	2	3
	$B$38	2	2	1
	$B$39	2	2	2
	$B$40	2	2	2
Результат:
	$C$30	21600	14400	21600
	$C$31	288	192	288
	$C$32	430	280	430
	$C$33	2880	1920	2880
	$C$34	5760	3840	5760
	$C$35	30958	20632	30958
	$C$38	5160	3360	2580
	$C$39	14400	9600	14400
	$C$40	43200	28800	43200
	$C$41	62760	41760	60180
	$C$42	6276	4176	6018
	$C$43	99994	66568	97156
Примечания: столбец ''Текущие значения'' представляет значения изменяемых ячеек в
момент создания Итогового отчета по Сценарию. Изменяемые ячейки для каждого
сценария выделены серым цветом.

Таблица

Структура сценария
		Текущие значения:	Сценарий 1	Сценарий 2
			Автор: zlobina , 30.11.2005	Автор: zlobina , 30.11.2005
Изменяемые:
	$B$16	150	60	130
	$B$18	100	50	70
	$B$21	100	60	70
	$B$22	20	15	17
Результат:
	$C$43	99994	84227	95257
Примечания: столбец ''Текущие значения'' представляет значения изменяемых ячеек в
момент создания Итогового отчета по Сценарию. Изменяемые ячейки для каждого
сценария выделены серым цветом.

4. Подбор параметров для расчета цен при заданной величине расходов

При выполнении подбора параметров устанавливаем расходы по смете в сумме 80 000 и задаем подобрать размер цены на обои.



Рис.

В результате подобрана цена в размере 11,15 руб. за 1 м обоев.

обои -м.	11,15277778	1

5. Составление плана погашения кредита на расходы по смете и расчет будущих расходов.

Взят кредит на ремонт квартиры в сумме 99 994 рублей на 1 год под 20% годовых с ежеквартальными платежами. Требуется рассчитать сумму ежеквартальных выплат, в том числе по процентам и основному долгу.

Таблица

		План погашения кредита
Период	Заем на начало периода	Общий платеж	Плата по процентам	Плата по основному долгу	Заем на конец периода
1	99994	28 199,49р.	3749,775	23 199,79р.	76 794,21р.
2	76 794,21р.	28 199,49р.	2499,85	24 359,78р.	52 434,43р.
3	52 434,43р.	28 199,49р.	1249,925	25 577,77р.	26 856,66р.
4	26 856,66р.	28 199,49р.	0	26 856,66р.	0,00р.
Итого	0,00р.	112 797,96р.	7499,55	99 994,00р.
	2004 г.	2007 г.
БЗ	99 994,00р.	179 574,86р.

Финансовая функция БЗ используется для расчета будущей стоимости вклада. На ремонт квартиры в настоящее время, согласно смете, требуется 99 994 руб. Через 3 года стоимость ремонта квартиры при ставке 20% и ежеквартальном начислении процентов будет 179 574,86 руб. Окно расчета функции БЗ приведено ниже.

Рис.

Таблица

	2004 г.	2007 г.
БЗ	99 994,00р.	179 574,86р.

Пример выполнения задания на VISUAL BASIC

Задание

Разработать приложение для расчета значения наращенной суммы платежа по формуле начисления процентов при дробном числе лет и построить график зависимости наращенной суммы (S) от срока платежа (n).

Расчетная формула:

S=P (1+b*i)*(1+i) ^a,

где n - число периодов наращения (n=a+b);

a-целое число периодов;

b-дробная часть периода;

i-поквартальная ставка наращения;

P-сумма кредита;

S-наращенная сумма.

Комментарий.

Смешанный метод предполагает начисление процентов за целое число лет по формуле сложных процентов и по формуле простых процентов за дробную часть периода.

Разработка приложения.

Для выполнения данного задания была создана форма:

Рис.

Form1

Имена и типы используемых объектов управления:

Text1-объект типа TextBox (текстовое окно) для задания суммы кредита;

Text2- объект типа TextBox (текстовое окно) для задания поквартальной ставки наращения;

Text3- объект типа TextBox (текстовое окно) для задания дробной части периода;

Text4- объект типа TextBox (текстовое окно) для задания целого числа периода;

Text5- объект типа TextBox (текстовое окно) для задания суммы кредита;

Text6- объект типа TextBox (текстовое окно) для задания поквартальной ставки наращения;

Text7- объект типа TextBox (текстовое окно) для задания дробной части периода;

Text8- объект типа TextBox (текстовое окно) для задания целого числа периодов;

Text9- объект типа TextBox (текстовое окно) для задания шага построения графика;

Text10- объект типа TextBox (текстовое окно) для вывода результатов расчета показателя;

Frame1- объект типа Frame (рамка) для группировки объектов, используемых для задания параметров расчета показателя («Расчет показателя»);

Frame2- объект типа Frame (рамка) для группировки объектов, используемых для задания параметров графика («Построение графика»);

Command1- объект типа CommandButton (командная кнопка) для активизации фрейма «Расчет показателя» (кнопка «Расчет показателя»);

Command2- объект типа CommandButton (командная кнопка) для активизации фрейма «Построение графика» (кнопка «Построение графика»);

Command3- объект типа CommandButton (командная кнопка) для вызова процедуры расчета показателя (кнопка «OK»);

Command4- объект типа CommandButton (командная кнопка) для вызова процедуры построения графика (кнопка «OK»);

Command5- объект типа CommandButton (командная кнопка) для завершения работы проекта (кнопка «Выход»);

Picture1- объект типа PictureBox для вывода графика;

Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11- поясняющие метки;

Label12- метка для вывода наращенной суммы при построении графика.

Форма работает по следующей логике:

· при запуске программы на форме должны быть доступными только три командные кнопки («Построение графика», «Расчет показателя» и «Выход»);

· при нажатии кнопки «Расчет показателя» становится активным фрейм «Расчет показателя»;

· при нажатии кнопки «Построение графика» становится активным фрейм «Построение графика»;

· после активизации соответствующего фрейма все остальные элементы формы, кроме кнопки «Выход» становятся недоступными;

· вывод результата расчета показателя производится в текстовое окно «Наращенная сумма» после нажатия кнопки «ОК» во фрейме «Расчет показателя»;

· текстовое окно для вывода результатов расчета показателя (Text10) недоступно для редактирования;

· вывод графика производится в элемент PictureBox после нажатия кнопки «OK» во фрейме «Построение графика»;

· при повторном построении графика производится очистка элемента PictureBox от предыдущего построенного графика.

При вводе данных в текстовые окна осуществляется проверка:

· на непустоту данных (ввод всех необходимых данных для расчета во все окна ввода, при ошибке выводится сообщение);

· на положительность вводимых данных и неравенство нулю (в случае ошибки производится очистка окна от введенных символов);

· осуществляется проверка на ввод только числовых данных, в случае ошибки данные сбрасываются.

Процедуры обработки событий.

Private Sub Form_Load()

'При загрузке формы производится задание начального вида формы и задание недоступности фреймов.

Picture1.Cls 'очистка PictureBox

Label1.Enabled = False 'метка недоступна

Label2.Enabled = False 'метка недоступна

Label3.Enabled = False 'метка недоступна

Label4.Enabled = False 'метка недоступна

Label5.Enabled = False 'метка недоступна

Label6.Enabled = False 'метка недоступна

Label7.Enabled = False 'метка недоступна

Label8.Enabled = False 'метка недоступна

Label9.Enabled = False 'метка недоступна

Label12.Caption = "" 'очистка метки

Label11.Visible = False 'метка невидима

Label12.Visible = False 'метка невидима

Text1.Text = "" 'очистка текстовых окон

Text2.Text = "" 'очистка текстовых окон

Text3.Text = "" 'очистка текстовых окон

Text4.Text = "" 'очистка текстовых окон

Text5.Text = "" 'очистка текстовых окон

Text6.Text = "" 'очистка текстовых окон

Text7.Text = "" 'очистка текстовых окон

Text8.Text = "" 'очистка текстовых окон

Text9.Text = "" 'очистка текстовых окон

Frame1.Enabled = False 'фрейм недоступен

Frame2.Enabled = False 'фрейм недоступен

End Sub

Private Sub Command1_Click()

'После нажатия кнопки "Расчет показателя" становится доступным фрейм "Расчет показателя", остальные элементы формы становятся недоступными.

Frame1.Enabled = True 'фрейм доступен

Frame2.Enabled = False 'фрейм недоступен

Text1.SetFocus 'курсор переводится в текстовое окно Text1

Command1.Enabled = False 'командная кнопка недоступна

Command2.Enabled = False 'командная кнопка недоступна

Label1.Enabled = True 'метка доступна

Label2.Enabled = True 'метка доступна

Label3.Enabled = True 'метка доступна

Label4.Enabled = True 'метка доступна

Label12.Caption = "" 'очистка текста метки

Label11.Visible = False 'метка невидима

Label12.Visible = False 'метка невидима

End Sub

Private Sub Text1_Change()

'При вводе значений показателя в текстовом окне производится проверка вводимых данных на их положительность и тип (число). Для этого Ascii- код введенного символа сравнивается с Ascii- кодами цифр (от 48 до 57) и символа-разделителя (точки - Ascii- код 46). Эта проверка происходит при вводе каждого символа в текстовом окне (событие Change).

'Используются встроенные функции Len (string) - возвращает длину строки и Mid(string, start[, length]) - возвращает часть строки, начиная с позиции start длины length

Dim i As Integer 'счетчик цикла

Dim KeyAscii As Integer 'переменная, содержащая код Ascii символа

For i = 1 To Len(Text1.Text) 'для каждого символа в строке

KeyAscii = Asc(Mid(Text1.Text, i, 1)) 'получим код ASCII этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then 'если код не лежит в диапазоне кодов цифр или точки

Text1.Text = "" 'очистить текстовое окно

Exit Sub 'выход из процедуры

End If

Next

End Sub

Private Sub Text2_Change()

Dim i As Integer 'счетчик цикла

Dim KeyAscii As Integer 'переменная, содержащая код Ascii символа

For i = 1 To Len(Text2.Text) 'для каждого символа в строке

KeyAscii = Asc(Mid(Text2.Text, i, 1)) 'получим код ASCII этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then 'если код не лежит в диапазоне кодов цифр или точки

Text2.Text = "" 'очистить текстовое окно

Exit Sub 'выход из процедуры

End If

Next

End Sub

Private Sub Text3_Change()

Dim i As Integer 'счетчик цикла

Dim KeyAscii As Integer 'переменная, содержащая код Ascii символа

For i = 1 To Len(Text3.Text) 'для каждого символа в строке

KeyAscii = Asc(Mid(Text3.Text, i, 1)) 'получим код ASCII этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then 'если код не лежит в диапазоне кодов цифр или точки

Text3.Text = "" 'очистить текстовое окно

Exit Sub 'выход из процедуры

End If

Next

End Sub

Private Sub Text4_Change()

Dim i As Integer 'счетчик цикла

Dim KeyAscii As Integer 'переменная, содержащая код Ascii символа

For i = 1 To Len(Text4.Text) 'для каждого символа в строке

KeyAscii = Asc(Mid(Text4.Text, i, 1)) 'получим код ASCII этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then 'если код не лежит в диапазоне кодов цифр или точки

Text4.Text = "" 'очистить текстовое окно

Exit Sub 'выход из процедуры

End If

Next

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

'После нажатия кнопки "Enter" производится перевод курсора в следующее текстовое окно и проверка корректности ввода

If KeyAscii = 13 Then 'если нажата клавиша Enter

Text2.SetFocus 'перевести курсор в текстовое окно

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

'После нажатия кнопки "Enter" производится перевод курсора в следующее текстовое окно

If KeyAscii = 13 Then 'если нажата клавиша Enter

Text3.SetFocus 'перевести курсор в текстовое окно

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then 'если нажата клавиша Enter

Text4.SetFocus 'перевести курсор в текстовое окно

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then 'если нажата клавиша Enter

Command3.SetFocus 'перевести курсор на командную кнопку

End If

End Sub

Private Sub Command3_Click()

'Производится проверка на заполненность текстовых окон (если окно незаполненно, то происходит выдача сообщения и курсор переводится в соответствующее текстовое окно)

'После проверки происходит вызов функции для расчета финансового показателя (в качестве параметров передаются значения текстовых окон)

'Результаты расчета передаются на метку "Наращенная сумма"

'Оба фрейма становятся недоступными (доступ возможен к командным кнопкам "Построение графика", "Расчет показателя" и "Выход")

Dim P As Single 'сумма кредита

Dim i As Single 'поквартальная ставка наращения

Dim b As Single 'дробная часть периода

Dim a As Integer 'целое число периодов

If Text1.Text = "" Or Val(Text1.Text) = 0 Then 'если нулевые или пустые параметры

Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров") 'вывести сообщение

Text1.SetFocus 'перевести курсор в текстовое окно

Exit Sub

End If

If Text2.Text = "" Or Val(Text2.Text) = 0 Then

Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")

Text2.SetFocus

Exit Sub

End If

If Text3.Text = "" Or Val(Text3.Text) = 0 Then

Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")

Text3.SetFocus

Exit Sub

End If

If Text4.Text = "" Or Val(Text4.Text) = 0 Then

Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")

Text4.SetFocus

Exit Sub

End If

P = Val(Text1.Text) 'Val(string) - возвращает числовую составляющую строки

i = Val(Text2.Text) 'присвоение переменным значений введенных параметров из

b = Val(Text3.Text) 'текстовых окон

a = Val(Text4.Text)

Text10.Text = S(P, i, b, a) 'в текстовое окно передать результаты расчета показателя

Frame1.Enabled = False 'фрейм недоступен

Frame2.Enabled = False 'фрейм недоступен

Command1.Enabled = True 'командная кнопка доступна

Command2.Enabled = True 'командная кнопка доступна

Command3.Enabled = True 'командная кнопка доступна

Picture1.Cls 'очистка PictureBox

Label1.Enabled = False 'метка недоступна

Label2.Enabled = False 'метка недоступна

Label3.Enabled = False 'метка недоступна

Label4.Enabled = False 'метка недоступна

Label5.Enabled = False 'метка недоступна

Label6.Enabled = False 'метка недоступна

Label7.Enabled = False 'метка недоступна

Label8.Enabled = False 'метка недоступна

Label9.Enabled = False 'метка недоступна

End Sub

Private Sub Command2_Click()

'После нажатия кнопки "Построение графика" становится доступным фрейм "Построение графика", остальные элементы формы становятся недоступными.

Frame2.Enabled = True 'фрейм доступен

Frame1.Enabled = False 'фрейм недоступен

Text5.SetFocus 'курсор переводится в текстовое окно Text5

Command2.Enabled = False 'командная кнопка недоступна

Command1.Enabled = False 'командная кнопка недоступна

Label5.Enabled = True 'метка доступна

Label6.Enabled = True 'метка доступна

Label7.Enabled = True 'метка доступна

Label8.Enabled = True 'метка доступна

Label9.Enabled = True 'метка доступна

Label12.Caption = "" 'очистка текста метки

Label11.Visible = True 'метка видима

Label12.Visible = True 'метка видима

End Sub

Private Sub Text5_Change()

Dim i As Integer 'счетчик цикла

Dim KeyAscii As Integer 'переменная, содержащая код Ascii символа

For i = 1 To Len(Text5.Text) 'для каждого символа в строке

KeyAscii = Asc(Mid(Text5.Text, i, 1)) 'получим код ASCII этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then 'если код не лежит в диапазоне кодов цифр или точки

Text5.Text = "" 'очистить текстовое окно

Exit Sub 'выход из процедуры

End If

Next

End Sub

Private Sub Text6_Change()

Dim i As Integer 'счетчик цикла

Dim KeyAscii As Integer 'переменная, содержащая код Ascii символа

For i = 1 To Len(Text6.Text) 'для каждого символа в строке

KeyAscii = Asc(Mid(Text6.Text, i, 1)) 'получим код ASCII этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then 'если код не лежит в диапазоне кодов цифр или точки

Text6.Text = "" 'очистить текстовое окно

Exit Sub 'выход из процедуры

End If

Next

End Sub

Private Sub Text7_Change()

Dim i As Integer 'счетчик цикла

Dim KeyAscii As Integer 'переменная, содержащая код Ascii символа

For i = 1 To Len(Text7.Text) 'для каждого символа в строке

KeyAscii = Asc(Mid(Text7.Text, i, 1)) 'получим код ASCII этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then 'если код не лежит в диапазоне кодов цифр или точки

Text7.Text = "" 'очистить текстовое окно

Exit Sub 'выход из процедуры

End If

Next

End Sub

Private Sub Text8_Change()

Dim i As Integer 'счетчик цикла

Dim KeyAscii As Integer ' переменная, содержащая код Ascii символа

For i = 1 To Len(Text8.Text) 'для каждого символа в строке

KeyAscii = Asc(Mid(Text8.Text, i, 1)) 'получим код ASCII этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then 'если код не лежит в диапазоне кодов цифр или точки

Text8.Text = "" 'очистить текстовое окно

Exit Sub 'выход из процедуры

End If

Next

End Sub

Private Sub Text9_Change()

Dim i As Integer 'счетчик цикла

Dim KeyAscii As Integer 'переменная, содержащая код Ascii символа

For i = 1 To Len(Text9.Text) 'для каждого символа в строке

KeyAscii = Asc(Mid(Text9.Text, i, 1)) 'получим код ASCII этого символа

If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then 'если код не лежит в диапазоне кодов цифр или точки

Text9.Text = "" 'очистить текстовое окно

Exit Sub 'выход из процедуры

End If

Next

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then 'если нажата клавиша Enter

Text6.SetFocus 'перевести курсор в текстовое окно

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then 'если нажата клавиша Enter

Text7.SetFocus 'перевести курсор в текстовое окно

End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then 'если нажата клавиша Enter

Text8.SetFocus 'перевести курсор в текстовое окно

End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then 'если нажата клавиша Enter

Text9.SetFocus 'перевести курсор в текстовое окно

End If

End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then 'если нажата клавиша Enter

Command4.SetFocus 'перевести курсор на командную кнопку

End If

End Sub

Private Sub Command4_Click()

'Производится проверка на заполненность текстовых окон (если окно незаполненно, то происходит выдача сообщения и курсор переводится в соответствующее текстовое окно).

'Очистка объекта PictureBox от предыдущего графика.

'Построение графика в объекте PictureBox (масштабирование объекта PictureBox, рисование координатных осей и графика).

'Рисование графика осуществляется в следующей последовательности: задается система координат формы, для чего находятся минимальное и максимальное значения функции на отрезке; рисуются координатные оси; рисуется жирная точка в начале графика; на отрезке определения функции с шагом, заданным пользователем, рисуется график.

'Фреймы делаются недоступными (доступ возможен только к командным кнопкам "Построение графика", "Расчет показателя" и "Выход").

Dim P As Single 'сумма кредита

Dim i As Single 'поквартальная ставка наращения

Dim b As Single 'дробная часть периода

Dim a As Integer 'целое число периодов

Dim m As Single 'счетчик цикла

Dim st As Single 'счетчик цикла

Dim minfx As Single 'функции

Dim maxfx As Single 'функции

Dim minx As Single 'минимальное значение аргумента

Dim maxx As Single 'максимальное значение аргумента

Dim step_t As Double 'шаг построения графика

If Text5.Text = "" Or Val(Text5.Text) = 0 Then

Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")

Text5.SetFocus

Exit Sub

End If

If Text6.Text = "" Or Val(Text6.Text) = 0 Then

Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")

Text6.SetFocus

Exit Sub

End If

If Text7.Text = "" Or Val(Text7.Text) = 0 Then

Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")

Text7.SetFocus

Exit Sub

End If

If Text8.Text = "" Or Val(Text8.Text) = 0 Then

Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")

Text8.SetFocus

Exit Sub

End If

If Text9.Text = "" Or Val(Text9.Text) = 0 Then

Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")

Text9.SetFocus

Exit Sub

End If

Picture1.Cls ' очистка элемента PictureBox

P = Val(Form1.Text5.Text) 'Val(string) - возвращает числовую составляющую cтроки

i = Val(Form1.Text6.Text) 'присвоение переменным значений введенных параметров из

b = Val(Form1.Text7.Text) 'текстовых окон

a = Val(Form1.Text8.Text)

'зададим систему координат формы

'для чего найдем максимальное и минимальное значение принимаемое

'функций на отрезке

'начальное значение выбираем произвольное

minfx = S(P, i, b, a) 'минимальное значение функции

maxfx = S(P, i, b, a) 'максимальное значение функции

minx = 0 'минимальное значение аргумента

maxx = 0 'максимальное значение аргумента

step_t = Val(Text9.Text) 'переменной присвоим значение шага построения графика

For st = 0 To b Step step_t 'вычислим минимальное и максимальное значения функции

If minfx > S(P, i, st, a) Then 'вычислим минимальное значение функции

minfx = S(P, i, st, a)

minx = st

End If

If maxfx < S(P, i, st, a) Then 'вычислим максимальное значение функции

maxfx = S(P, i, st, a) '

maxx = st '

End If '

Next st

'задание пользовательской системы координат в окне изображения

Picture1.Scale (0, maxfx)-(b, 0) 'установка масштаба

Picture1.DrawWidth = 2 'толщина точки равна 2

'рисуем ось X

Picture1.Line (0, 0 + 0.01 * maxfx)-(b, 0 + 0.01 * maxfx), RGB(0, 255, 0) 'при рисовании оси Х задается отступ от края объекта PictureBox на 0.01 * maxfx для лучшей видимости координатной оси

'рисуем ось Y

Picture1.Line (0 + 0.01 * b, 0)-(0 + 0.01 * b, maxfx), RGB(0, 255, 0) 'при рисовании оси Y задается отступ от края объекта PictureBox на 0.01 * b для лучшей видимости координатной оси

Picture1.DrawWidth = 1 'толщина точки равна 1

Picture1.CurrentX = minx 'задание координат пера

Picture1.CurrentY = S(P, i, minx, a) 'задание координат пера

Picture1.DrawWidth = 8 'толщина точки равна 8

Picture1.PSet (Picture1.CurrentX, Picture1.CurrentY) 'рисование точки в начале графика

Picture1.DrawWidth = 1 'толщина точки равна 1

Picture1.CurrentX = 0 'задание координат пера

Picture1.CurrentY = S(P, i, 0, a) 'задание координат пера

'рисование графика

For m = 0 To b Step step_t

Picture1.DrawWidth = 5 'толщина точки равна 5

Picture1.PSet (Picture1.CurrentX, Picture1.CurrentY) 'рисование точек построения графика

Picture1.DrawWidth = 1 'толщина точки равна 1

Picture1.Line -(m, S(P, i, m, a)) 'рисование графика

Next m

Label12.Caption = maxfx 'значение метки - сумма наращенного платежа

Label11.Visible = True 'метка видима

Frame1.Enabled = False 'фрейм недоступен

Frame2.Enabled = False 'фрейм недоступен

Command1.Enabled = True 'командная кнопка доступна

Command2.Enabled = True 'командная кнопка доступна

Command4.Enabled = True 'командная кнопка доступна

Label1.Enabled = False 'метка недоступна

Label2.Enabled = False 'метка недоступна

Label3.Enabled = False 'метка недоступна

Label4.Enabled = False 'метка недоступна

Label5.Enabled = False 'метка недоступна

Label6.Enabled = False 'метка недоступна

Label7.Enabled = False 'метка недоступна

Label8.Enabled = False 'метка недоступна

Label9.Enabled = False 'метка недоступна

End Sub

Private Sub Command5_Click()

End 'завершение работы проекта при нажатии кнопки "Выход"

End Sub

Public Function S(ByVal P As Single, ByVal i As Single, ByVal b As Single, ByVal a As Single) As Single

'Функция для расчета финансового показателя

On Error GoTo err1 'в случае ошибки - перейти на метку err1

S = P * (1 + b * i) * (1 + i) ^ a 'функция наращения при сложных процентах

On Error GoTo 0

Exit Function 'выйти из функции

err1: 'обработка ошибки

If Err.Number = 6 Then 'если ошибка - переполнение, вывести на экран сообщение

Dim Msg As String

Msg = "Ошибка при вычислении!"

MsgBox Msg, , "Переполнение"

Err.Clear 'очистка поля ошибки

End If

End 'завершение работы проекта

End Function

Работа приложения.

Какова сумма долга через 25 месяцев, если его первоначальная величина 500 тыс. руб., проценты сложные, ставка-20% годовых, начисление поквартальное?

n=25:3=8 1/3.

S=500.000(1+0,2/4)⁸(1+1/3*0,2/4) =751.039,85 руб.,

где P =500000 руб.;

i =0,2/4 =0,05;

b =1/3 =0,333333;

a =8.

Расчет показателя:

Рис.

Построение графика:



Рис.

Пример окна сообщения:

Рис.

Заключение

К сожалению, невозможно в рамках реферата охватить всю историю компьютеров. Можно было бы еще долго рассказывать о том, как в маленьком городке Пало-Альто (штат Калифорния) в научно-исследовательском центре Xerox PARK собрался цвет программистов того времени, чтобы разработать революционные концепции, в корне изменившие образ машин, и проложить дорогу для компьютеров конца XX века. Как талантливый школьник Билл Гейтс и его друг Пол Аллен познакомились с Эдом Робертсом и создали удивительный язык БЕЙСИК для компьютера Altair, что позволило разрабатывать для него прикладные программы. Как постепенно менялся облик персонального компьютера, появились монитор и клавиатура, накопитель на гибких магнитных дисках, так называемых дискетах, а затем и жесткий диск. Неотъемлемыми принадлежностями стали принтер и «мышь». Можно было бы рассказать и о невидимой войне на компьютерных рынках за право устанавливать стандарты между огромной корпорацией IBM, и молодой Apple, дерзнувшей с ней соревноваться, заставившей весь мир решать, что же лучше Macintosh или PC? И о многих других интересных вещах, происходивших совсем недавно, но ставших уже историей.

Для многих мир без компьютера - далекая история, примерно такая же далекая, как открытие Америки или Октябрьская революция. Но каждый раз, включая компьютер, невозможно перестать удивляться человеческому гению, создавшему это чудо.

Современные персональные IВМ РС-совместимые компьютеры являются наиболее широко используемым видом компьютеров, их мощность постоянно увеличивается, а область применения расширяется. Эти компьютеры могут объединяться в сети, что позволяет десяткам и сотням пользователей легко обмениваться информацией и одновременно получать доступ к общим базам данных. Средства электронной почты позволяют пользователям компьютеров с помощью обычной телефонной сети посылать текстовые и факсимильные сообщения в другие города и страны и получать информацию из крупных банков данных. Глобальная система электронной связи Intеrnеt обеспечивает за крайне низкую цену возможность оперативного получения информации из всех уголков земного шара, предоставляет возможности голосовой и факсимильной связи, облегчает создание внутрикорпоративных сетей передачи информации для фирм, имеющих отделения в разных городах и странах.

Однако возможности IВМ РС-совместимых персональных компьютеров по обработке информации все же ограничены, и не во всех ситуациях их применение оправдано.

Для понимания истории компьютерной техники рассмотренный реферат имеет, по крайней мере, два аспекта: первый - вся деятельность, связанная с автоматическими вычислениями, до создания компьютера ENIAC рассматривалась как предыстория; второй - развитие компьютерной техники определяется только в терминах технологии аппаратуры и схем микропроцессора.

Список литературы

1.Левин А.Ш. Краткий самоучитель работы на компьютере. 2-е изд. - СПб.: Питер, 2003.

2.Леонтьев В.П. Новейшая энциклопедия персонального компьютера. - М.: ОЛМА-ПРЕСС Образование, 2004.

3.Назаров С.В., Мельников П.П. Программирование на MS VISUAL BASIC. Учебное пособие. /Под ред. Назарова С.В.- М.: Финансы и статистика, 2001.

4Фигурнов В.Э. IBM PC для пользователя. Краткий курс. - М.: ИНФРА-М, 2003.

5.Юдин В.А. Использование электронной таблицы Excel. - М.: изд. Академии бюджета и казначейства

Размещено на Allbest.ru