Автоматизация отдела маркетинга, рекламы и ИТ “Завод-ВТО”

В структурной схеме программы показаны основные взаимосвязи между отдельными модулями программы.

 

 
 

4.1. Руководство программистa 

В программе  были применены, большое количество компонентов Windows, различные обработчик событий, процедуры и функции. При разработке программы было создано 3 модуля (Main, Diag, Example). В модуле Main былa примененa 1 процедурa. 

Краткое описание основных использованных функций  

Используем  функцию GetComputerName для получения имени компьютера, функцию GetUserName для получения имени пользователя и функцию GetSystemInfo для получения информации о процессоре (наиболее полно данная функция реализована в Windows NT, где она возвращает и кол-во процессоров и их тип и т.д.).

Перейдем  к параметрам экрану. Здесь мы будем использовать и Win32 API функции и стандартные объекты VCL. Так для получения разрешения экрана нам понадобится объект TScreen (его свойства Width и Height). Остальные параметры мы получим через контекст драйвера устройства DC используя функцию GetDeviceCaps.

Также будет интересна информация о  памяти. Здесь нам поможет функция GlobalMemoryStatus, возвращающая информацию по объему физической и виртуальной  памяти.

Узнаем  информацию о ОС. Функция GetWindowsDirectory вернет путь к каталогу, где установлена система, функция GetSystemDirectory - к системному каталогу. Для определения версии ОС воспользуемся функцией GetVersionEx.

 Опишем  функцию BIOSInfo с параметром, характеризующем  текущую ОС. Важно отметить, что  способ получения информации о дате BIOS различен. Для NT получим информацию из реестра, а для Windows 95/98 из соответствующего участка памяти. Эти два способа взаимоисключаемы, так как у Windows 95/98 нет соответствующего раздела реестра, а прямой доступ к памяти в NT невозможен.

Рассмотрим  функцию SystemParametersInfo, которая позволяет  управлять некоторыми настройками  системы. Область применения данной функции для NT и Windows 95/98 различна. Умышленно  выберем некоторую общую часть  для обеих систем.

Также можно позволить пользователю изменять и сохранять настройки системы по своему вкусу. Здесь можно использовать функцию SystemParametersInfo. Для компонентов tbKeyboardSpeed, tbKeyboardDelay, cbScreenSaverActive, cbSpeaker, edSSTimeOut в ObjectInspector перейдем на закладку Events и изменим событие OnChange (для tbKeyboardSpeed, tbKeyboardDelay) , OnClick (для cbScreenSaverActive, cbSpeaker) и OnExit для edSSTimeOut на Change.

Использование Delphi совместно c фунциями Microsoft Win32 API позволит программисту создать более функционально богатые и гибкие приложения.

Процедуры модуля Example:   

procedure TForm1.Button1Click(Sender: TObject);

    выполняет измерение тактовой частоты процессора. 

Следует подробнее рассказать об идентификации  процессора. Как известно, в процессорах пятого поколения, а также в некоторых четвёртого поколения, появилась команда CPUID. Эта команда позволяет больше узнать об установленном в системе процессоре. Обмен информацией происходит через основные регистры (EAX, EBX, ECX, EDX). Параметры задаются через регистр EAX. Таким образом, чтобы узнать информацию о версии процессора, я записал в EAX 1 и вызвал CPUID, после чего в EAX хранился результат. Для того, чтобы узнать производителя процессора, я записал в EAX 0 и вызвал CPUID, после чего в основных регистрах находится, уникальная для каждого производителя, строка. Для AMD это "AuthenticAMD", для Intel - "GenuineIntel", для Cyrix - "CyrixInstead". Теперь расскажу об идентификации процессоров, не имеющих инструкции CPUID. Понятно, что столь подробную информацию, в этом случае получить невозможно. Т.к. программа требует процессор не ниже третьего поколения, я начал проверку именно с этого поколения. Наличие 386-го процессора определяется недоступностью для записи 18-го бита регистра флагов, если бит доступен для записи, то я проверяю наличие поддержки команды CPUID, если она не поддерживается, то процессор 486-ой. Если же CPUID поддерживается, то дальше всё определение ложится именно на эту команду. 
 
 Наличие поддержки команды CPUID определяется доступностью для записи 21-го бита регистра флагов.

4.2. Руководство пользователю 

     Программа функционирует по следующему принципу:

1. Мой компьютер - узнать имя, компьютера, имя пользователя, какие привилегии имеет пользователь

 

2. Локальная сеть- тут вы можете узнать IP адрес компьютера, его рабочую группу, открытые окна.
3. Системные директории-тут вы можете узнать все системные директории и сохранить их в отдельный файл .
4. Видеорежимы и виртуальная память – тут вы можете изменить видорежим и узнать полную информацию о виртуальной памяти.
5. Система- тут вы можете узнать информацию о видеокарте, Windows, названии и частоте процессора.

  

 

 

Заключение 

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

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

 

Список  используемой литературы:

1.Использование Delphi для создания приложений баз данных Устюгова В.Н 2010 стр. 72

2.Лекции по программированию на delphi 7  Е. Егоров 2008 стр. 652

3. Техника программирования в Delphi и основы создания графики для программы (ВидеоКурс ) Владимир Любаев   2008

4. Основы программирования в Delphi7. Самоучитель Никита Культин 2003 стр. 608

5. Microsoft Access 2003 Вероника Михеева, Ирина Харитонов 2004 стр.1070

6. Келли Д. Самоучитель ACCES 97. – СПБ.: Питер, 1999. – 336 с.: ил.

7. Балдин К.В., Уткин В.Б. Информационные системы в экономике. М.– Издательский центр Академия, 2005 – 288 с.

8. Василий Корняков Программирование документов и приложений MS Office в Delphi7

9. Delphi 7. Наиболее  полное руководство Анатолий Хомоненко, Владимир Гофман, Евгений Мещеряков, Владимир Никифоров BHV - Санкт - Петербург  2006 г.

 

Перечень  файлов записанных на диске: 

1. Пояснительная записка
2. Презентация
3. Программа

 

ИСХОДНЫЙ  КОД ПРОГРАММЫ

unit Unit1; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, ComCtrls,WinSock,Registry,tlhelp32, Menus,MMsystem; 

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

   TabSheet1: TTabSheet;

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    TabSheet2: TTabSheet;

    Edit3: TEdit;

    Memo1: TMemo;

    Button2: TButton;

    P1: TProgressBar;

    Timer1: TTimer;

    Label3: TLabel;

    Memo2: TMemo;

    Label4: TLabel;

    GroupBox1: TGroupBox;

    Label5: TLabel;

    Label6: TLabel;

    Timer2: TTimer;

    Edit4: TEdit;

    Button3: TButton;

    Edit5: TEdit;

    Label7: TLabel;

    tabsheet3: TTabSheet;

    Memo3: TMemo;

    Button5: TButton;

    Button6: TButton;

    SaveDialog1: TSaveDialog;

    Label8: TLabel;

    Button4: TButton;

    Label9: TLabel;

    Edit6: TEdit;

    Button7: TButton;

    TabSheet4: TTabSheet;

    Button10: TButton;

    ListBox1: TListBox;

    Button11: TButton;

    Label10: TLabel;

    Edit7: TEdit;

    Label11: TLabel;

    Button14: TButton;

    Edit8: TEdit;

    Button12: TButton;

    Memo4: TMemo;

    Label12: TLabel;

    Button15: TButton;

    Timer3: TTimer;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    SaveDialog2: TSaveDialog;

    Label13: TLabel;

    ListBox2: TListBox;

    N3: TMenuItem;

    Timer4: TTimer;

    TabSheet5: TTabSheet;

    Memo5: TMemo;