Устройство современного персонального компьютера

Муниципальное образовательное учреждение

средняя общеобразовательная школа № 5

 

 

Насибуллин Ильсур

 

 

 

Создание электронного учебника в

 среде программирования  Delphi 7

“Устройство современного персонального

компьютера”

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Руководитель: Виноградов Владимир Николаевич,

учитель информатики, МОУ СОШ №5

 

 

Губкинский

2005 год

1.  Аннотация.

Данная программа  написана на основе языков визуального  программирования и адаптирована под  современные операционные системы  Microsoft. Эта работа представляет собой проект, выполненный на языке программирования Delphi 7, с использованием дополнительных набор программ. Программа имеет приятный и интуитивно понятный интерфейс и реализована в виде приложения, которое устанавливается с дистрибутива в удобное для пользователя место на жестком диске.

Программа может служить в качестве учебного и проверочного пособия при изучении темы школьного курса “Устройство компьютера”, в качестве исходного материала при работе с программной средой Delphi, для самообразования и в качестве  дополнительного материала.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2. Введение

Темой своей научно-исследовательской  работы я выбрал создание электронного учебника по устройству современного персонального компьютера с помощью  среды программирования Delphi.

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

Применение современных  информационных систем в сфере науки  и образования обеспечивает принципиально  новый уровень получения и  обобщения знаний, их распространения  и использования.

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

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

Задачей научно-исследовательской  работы является создание программы, выполняющие  следующие действия:

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

 

 

 

3

3. Основная часть.

Подготовительный этап:

1. Поиск и обработка материала;
2. Поиск и обработка графических изображений;

Создание основной программы:

1. Размещение компонентов на форме среды Delphi
2. Сохранение файлов в отдельной папке;
3. Программирование компонента  TreeView:
4. Программирование кнопок изображений:
5. Программирование кнопок «Схема» и «Тест»
6. Программирование компонента statusbar1
7. Программирования стандартных кнопок «выход», «минимизация»,  «помощь»
8. Автоматический выбор устройства при загрузки программы
9. Программирования дополнительных функций
10. Запуск и сохранение окончательного приложения;

Создание программы-теста:

1. Размещение компонентов на форме;
2. Размещение фонового рисунка;
3. Сохранение файлов в отдельной папке;
4. Программирование считывания и обработки информации с отдельного файла и автоматического создания необходимых компонентов.;
5. Программирование подсчета набранных баллов и выведения оценки.;
6. Запуск и сохранение окончательного приложения;
7. Связка с главной программой;

 

Тестирование программы

1. Запуск  основной программы;
2. Сохранение окончательного проекта;

 

Создание дистрибутива:

1. С помощью программы Innio Setup 4 размещение компонентов программ;
2. Оформление интерфейса дистрибутива;
3. Компиляция;
4. Сохранение полученного файла;
5. Установка и тестирование проекта.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Работа в интегрированной  среде delphi7

1. Запустить систему программирования Delphi7 и создать новый проект;
2. Разместить на главной форме следующие компоненты, согласно таблицы и рисунку ниже:

 

Компонент	Место расположения	Размер	Свойства компонента
GroubBox1	На главной форме	337*268	Caption(Описание), Color:=clsilver
GroubBox2	На главной форме	405*365	Caption(Изображение), Color:=clsilver
GroubBox3	На главной форме	341*225	Caption(Выберите устройство), Color:=clsilver
GroubBox4	На главной форме	61*473	Caption(название), Color:=clsilver
GroubBox5	Находятся   в Gropbox2	49*345	Caption(Технические характеристики), Color:=clsilver
Treeview	Находятся   в Gropbox3	313*213	Hottrack:=true; Ctld3d:=true; Bevelouter:=bvspace; Autoexpend:=true; Items(устройства)
Label1	Находятся   в Gropbox2
Label2	Находятся в Groupbox5		(комментарий)
Panel1	Находятся в Groupbox2	269*333	Center:=true;
Image1	Находятся в Panel1	227*249
Label3	Находятся в Groupbox5		Caption(Изображение),
Memo1	Находятся в GroubBox1	309*229	Readonly:=true; Scrollbars:=true;
Panel4	Находятся в Groupbox2	37*341	Bevellnner:=lowered;
Label6	Находятся в Panel4		Caption(№),
Panel6,7,8,9	Находятся в Panel4	29*29	Bevelouter:=bvspace;
SpeedButton3,4,5,9	Panel6,7,8,9	29*29	Flat:=true; Caption(1,2,3,4),
Label4	Находятся в Groupbox4	37*453	Wordwrap:=true; Transperent:=true;
Image2(фон)	На основной форме	600*900	Autosize:=true
Imagelist			Drowingstyle:=dsSelect; ImageMask:=Itmask; Shareimage:=true;
Panel10	На основной форме	34*225	Bevellnner:=lowered; Bevelouter:=bvspace;
Label1	Panel4		Aligment:=taCenter;
Panel2	На основной форме	41*241	Bevellnner:=lowered;
SpeedButton 11,2	Находятся в Panel2	29*113	Flat:=true; Caption(название),
Panel2	На основной форме	25*841	Bevellnner:=lowered;
Panel5	На основной форме	29*137	Bevellnner:=lowered;
SpeedButton 10,7,8	На основной форме	21*25	Caption(Тест, Схема),
MediaPlayer1
Timer1			Interval:=10

 

 

 

 

 

 

 

 

 

 

 

 

5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 
 
 
 

 
 
 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. Программирование компонента TreeView:

 

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

 

//процедура для выбора  значения активности кнопок изображений 

begin

if

 treeview1.Items.Item[26].Selected=true  or   treeview1.Items.Item[27].Selected=true or treeview1.Items.Item[28].Selected=true or treeview1.Items.Item[30].Selected=true or treeview1.Items.Item[31].Selected=true or treeview1.Items.Item[32].Selected=true  or treeview1.Items.Item[33].Selected=true

then

begin

speedbutton3.Enabled:=false;

speedbutton4.Enabled:=false;

speedbutton5.Enabled:=false;

speedbutton9.Enabled:=false;

end

else

speedbutton3.Enabled:=true;

speedbutton4.Enabled:=true;

speedbutton5.Enabled:=true;

speedbutton9.Enabled:=true;

 

//панель активного изображения  «вогнута»

panel6.BevelOuter:=bvLowered;

panel9.BevelOuter:=bvNone;

panel7.BevelOuter:=bvNone;

panel8.BevelOuter:=bvNone;

 

//программное нажатие  на кнопку изображения при  загрузке программы 

speedbutton3.Click;

 

//звуковое сопровождение  

mediaplayer1.FileName:='klick.wav';

with MediaPlayer1 do

begin

open;

Play;

end;

 

 

 

 

 

 

 

 

 

 

 

 

//программирование отображения названия и технических характеристик устройства //

 

case

treeview1.Selected.AbsoluteIndex of

1:

begin

label1.caption:='Клавиатура';

label4.caption:='алфавитно-цифровые; функциональные; управления курсором; служебные; клавиши дополнительной панели. ';

end;

 

//отображения информации  о выбранном устройстве

case

treeview1.Selected.AbsoluteIndex of

1:memo1.Lines.LoadFromFile('data/1.dec');

 

 

4. Программирование кнопок изображений:

procedure TForm1.SpeedButton3Click(Sender: TObject);

 

  begin

//панель активного изображения  «вогнута»

 

panel6.BevelOuter:=bvLowered;

panel8.BevelOuter:=bvNone;

panel7.BevelOuter:=bvNone;

panel9.BevelOuter:=bvNone;

//звуковое сопровождение

mediaplayer1.FileName:='key.wav';

with MediaPlayer1 do

begin

open;

Play;

end;

//программирование загрузки  изображения на форму программы  и отображения название данного  устройства

case

treeview1.Selected.AbsoluteIndex of

1:

begin

form1.image1.Picture.LoadFromFile('images\1-1.jpg');

label2.caption:='клавиатура Microsoft corp.';

end;

 

 

 

 

 

 

 

 

 

5. Программирования кнопок «Схема» и «Тест»

procedure TForm1.SpeedButton11Click(Sender: TObject);

begin

//звуковое сопровождение 

mediaplayer1.FileName:='back.WAV';

with MediaPlayer1 do

begin

open;

Play;

end;

//отображения формы со  схемой 

form3.ShowModal;

end;

 

//Загрузка программы теста и автоматический выход из основной программы

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

form1.Close;

WinExec('Тест \Test.exe', SW_SHOW);

end;

 

 

 

6. Программирование компонента statusbar1

 

// при наведение курсора//

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

  Y: Integer);

 

//отображение подсказки для  каждого компонента //

 

begin

panel3.Caption:='Устройство комьютера  v2.1'

end;

 

 

7. Программирования стандартных  кнопок «выход», «минимизация»,  «помощь»

procedure TForm1.SpeedButton10Click(Sender: TObject);

begin

application.terminate;

end;

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

application.Minimize;

end;

procedure TForm1.SpeedButton12Click(Sender: TObject);

begin

WinExec('Help\help.chm', SW_SHOW);

end;

 

 

 

8. Автоматический выбор устройства при загрузке программы

procedure TForm1.FormCreate(Sender: TObject);

begin

treeview1.Items.Item[1].Selected:=true  ;

end;

 

 

 

9. Программирования дополнительных функций

 

//возможность перемещения  формы 

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

  Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

   Perform( WM_SYSCOMMAND, $F012, 0 );

end;

 

 

//часы

procedure TForm1.Timer1Timer(Sender: TObject);

begin

panel5.Caption:= timeToStr(time);

 end;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7

Программирование приложения- теста.

1. Создать новый проект;
2. Разместить на главной форме следующие компоненты, согласно таблицы и рисунку ниже:

 

Компонент	Место расположения	размер		Количество
Bitbtn1	На основной форме			1
GroupBox1	На основной форме	49*493		1
GroupBox1	На основной форме	109*493		1
Image1	На основной форме	93*513		1
Label1	Находятся в GroubBox1			1
Labl2	Находятся в GroubBox2		1
mainmenu