Учебная работа. Курсовая работа: Мониторинг ОС

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...
Контрольные рефераты

Учебная работа. Курсовая работа: Мониторинг ОС

Волжский институт имени В.Н. Татищева

Факультет “Информатика и телекоммуникации”

Кафедра “Информатика и системы управления”

КУРСОВАЯ РАБОТА

по дисциплине: “Системное программное обеспечение”

Тема: “Мониторинг ОС”

Тольятти 200

СОДЕРЖАНИЕ

Введение

1.1 мониторинг ОС в современном мире

1.2 Программная часть

1.3 задачка программки

1.4 Описание программки

1.5 Программный код

Перечень применяемой литературы

ВВЕДЕНИЕ

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

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

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

1. мониторинг ОПЕРАЦИОННОЙ СИСТЕМЫ В СОВРЕМЕННОМ МИРЕ

На данный момент профессия системного админа весьма всераспространена, в его функции заходит смотреть за системой (Приведение системы в порядок), настройка компа на наибольшее быстродействие, и контроль за Hardware устройствами. Ранее это было не так просто создать т.к. не было подходящего программного обеспечения, и «мозгов», а если и были люди то весьма не достаточно. Но благодаря современным технологиям и современным программкам. мониторинг системы стал очень обычным. Во всех современных операционных системах есть обычные программки мониторинга, а так же весьма много софта посвященного тому же вопросцу, такие как «AIDA, sisSoftware, и др.»

2. ПРОГРАММНАЯ часть

2.1 Задачка программки

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

2.2 Описание программки

программка разрабатывалась под ОС Windows 95/98/ME/NT/2000/XP в программке Delphi 7.0

При открытии программки возникает основное рабочее окно (Рис. 5.1)

Рис. 5.1 Основное окно программки

Основное окно состоит из формы на которой имеются клавиши: машина — комплекс технических средств, предназначенных для автоматической обработки информации в процессе решения вычислительных и информационных задач) (либо вычислительной системы) которое делает арифметические и логические операции данные программкой преобразования инфы управляет вычислительным действием и коор, память, экран, ОС, диски, видеоплата, о создателе и выход.

При нажатии клавиши машина — комплекс технических средств, предназначенных для автоматической обработки информации в процессе решения вычислительных и информационных задач) (либо вычислительной системы) которое делает арифметические и логические операции данные программкой преобразования инфы управляет вычислительным действием и коор возникает (Рис. 5.2) окно на котором показано: заглавие микропроцессора, настоящая частота его загрузки, график загрузки, средняя частота, и балловая оценка

Рис. 5.2 машина — комплекс технических средств, предназначенных для автоматической обработки информации в процессе решения вычислительных и информационных задач) (либо вычислительной системы) которое делает арифметические и логические операции данные программкой преобразования инфы управляет вычислительным действием и коор системы

При нажатии клавиши память возникает окно (Рис 5.3) на котором можно поглядеть уровень загрузки памяти, и балл ее оценки.

Рис. 5.3 ОЗУ

При нажатии на клавишу экран возникает окно (Рис. 5.4) на котором мы можем поглядеть характеристики монитора и поддерживаемые им режимы.

Рис. 5.4 Экран

При нажатии на клавишу ОС возникает окно (Рис. 5.5) на котором мы можем поглядеть версию ОС, ее характеристики, а так же балл оценки.

Рис. 5.5 ОС

При нажатии на клавишу диски возникает окно (Рис. 5.6) на котором мы можем поглядеть характеристики всех имеющихся дисков, и его характеристик.

Рис. 5.6 Диски

При нажатии на клавишу видеоплата возникает окно (Рис. 5.7) на котором мы можем поглядеть характеристики видеоплаты.

Рис. 5.7 видеоплата

2.3 Программнаячасть

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons, jpeg, registry;

type

TForm1 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image10: TImage;

Image11: TImage;

Image12: TImage;

Image13: TImage;

Image14: TImage;

Image15: TImage;

Image16: TImage;

Image17: TImage;

Image18: TImage;

Image19: TImage;

Image20: TImage;

Image21: TImage;

Image22: TImage;

Image23: TImage;

Image24: TImage;

Image25: TImage;

procedure FormCreate(Sender: TObject);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormPaint(Sender: TObject);

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image7MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image8MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image9MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image7MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image8MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image9MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image5Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

private

{ Private declarations }

Dragging,Stop : Boolean;

OldLeft,OldTop : Integer;

modes:array[0..255] of TDevMode;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

{$R *.dfm}

{ TForm1 }

function CreateRgnFromBitmap(rgnBitmap: TBitmap): HRGN;

var

TransColor: TColor;

i, j: Integer;

i_width, i_height: Integer;

i_left, i_right: Integer;

rectRgn: HRGN;

begin

Result := 0;

i_width := rgnBitmap.Width;

i_height := rgnBitmap.Height;

transColor := rgnBitmap.Canvas.Pixels[0, 0];

for i := 0 to i_height — 1 do

begin

i_left := -1;

for j := 0 to i_width — 1 do

begin

if i_left < 0 then

begin

if rgnBitmap.Canvas.Pixels[j, i] <> transColor then

i_left := j;

end

else

if rgnBitmap.Canvas.Pixels[j, i] = transColor then

begin

i_right := j;

rectRgn := CreateRectRgn(i_left, i, i_right, i + 1);

if Result = 0 then

Result := rectRgn

else

begin

CombineRgn(Result, Result, rectRgn, RGN_OR);

DeleteObject(rectRgn);

end;

i_left := -1;

end;

end;

if i_left >= 0 then

begin

rectRgn := CreateRectRgn(i_left, i, i_width, i + 1);

if Result = 0 then

Result := rectRgn

else

begin

CombineRgn(Result, Result, rectRgn, RGN_OR);

DeleteObject(rectRgn);

end;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

WindowRgn: HRGN;

begin

BorderStyle := bsNone;

ClientWidth := Image1.Picture.Bitmap.Width;

ClientHeight := Image1.Picture.Bitmap.Height;

windowRgn := CreateRgnFromBitmap(Image1.Picture.Bitmap);

SetWindowRgn(Handle, WindowRgn, True);

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

Canvas.Draw(0, 0, Image1.Picture.Bitmap);

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if button=mbLeft then

begin

Dragging := True;

OldLeft := X;

OldTop := Y;

end;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Dragging then

begin

Left := Left+X-OldLeft;

Top := Top+Y-OldTop;

end;

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Dragging := False;

end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image2.Cursor:=crHandPoint;

end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image2.Picture:=Image14.Picture;

end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image2.Picture:=Image15.Picture;

end;

procedure TForm1.Image3MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image3.Picture:=Image16.Picture;

end;

procedure TForm1.Image4MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image4.Picture:=Image18.Picture;

end;

procedure TForm1.Image5MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image5.Picture:=Image13.Picture;

end;

procedure TForm1.Image6MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image6.Picture:=Image24.Picture;

end;

procedure TForm1.Image7MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image7.Picture:=Image23.Picture;

end;

procedure TForm1.Image8MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image8.Picture:=Image20.Picture;

end;

procedure TForm1.Image9MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image9.Picture:=Image11.Picture;

end;

procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image3.Picture:=Image17.Picture;

end;

procedure TForm1.Image4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image4.Picture:=Image19.Picture;

end;

procedure TForm1.Image5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image5.Picture:=Image12.Picture;

end;

procedure TForm1.Image6MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image6.Picture:=Image25.Picture;

end;

procedure TForm1.Image7MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image7.Picture:=Image22.Picture;

end;

procedure TForm1.Image8MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image8.Picture:=Image21.Picture;

end;

procedure TForm1.Image9MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Image9.Picture:=Image10.Picture;

end;

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image3.Cursor:=crHandPoint;

end;

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image4.Cursor:=crHandPoint;

end;

procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image5.Cursor:=crHandPoint;

end;

procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image6.Cursor:=crHandPoint;

end;

procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image7.Cursor:=crHandPoint;

end;

procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image8.Cursor:=crHandPoint;

end;

procedure TForm1.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image9.Cursor:=crHandPoint;

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

//Выход

Application.Terminate;

end;

procedure TForm1.Image9Click(Sender: TObject);

var

Reg:TRegistry;

begin

Form1.Visible:=False;

FormCPUSpeed.Visible:=True;

Reg:=TRegistry.Create;

Reg.RootKey:=HKEY_LOCAL_MACHINE;

Reg.OpenKey(‘HardwareDESCRIPTIONSystemCentralProcessor

Как? Вы еще не читали? Ну это зря...

  1. Учебная работа. Реферат: Разработка программы на языке высокого уровня Паскаль
  2. Учебная работа. Реферат: Обратные вызовы в MIDAS через TSocketConnection
  3. Учебная работа. Курсовая работа: Основные элементы графического интерфейса Windows
  4. Учебная работа. Курсовая работа: Проектирование автоматизированной системы малого предприятия
➤