Статья IV. Расходы на содержание и обслуживание оборудования

3.1.4. Статья IV. Расходы на содержание и обслуживание оборудования

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

Начальная стоимость персонального компьютера IBM PC/AT 386 - 2425920.00 руб., норма амортизации - 4% (КОМ), расходы составили 97036.80 руб.

Во время разработки и отладки программного обеспечения было потрачена 89 кВт (ЭНЕР) электроэнергии: 1 кВт - 512.00 руб., 89 кВт - 45568.00 руб.

Ст.4=КОМ+ЭНЕР

(3.4)

Ст.4= 97036.80+45568.00=142604.80 руб.

3.1.5. Полная себестоимость

Пол.Себ.=

(3.5)

Пол.Себ.=921120.00+975000.00+394875.00+142604.80=2433559.80 руб.

3.2. Анализ эффективности внедрения разработанной программы в учебный процесс

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

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

Программа для лабораторного макета проста и интуитивна понятна в обращении; Сам макет, также прост, что позволяет сразу преступить к выполнению лабораторной работы, необходимо всего лишь только подключиться макет в сеть, подсоединить разъем к параллельному порту персонального компьютера (порт LPT), вставить прошиваемую микросхему ПЗУ в панель и запустить программное обеспечение на персональном компьютере. Эта простота в обращении позволит не затрачивать много времени на обучение учащихся пользованию макетом.

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

К достоинству макета относятся и

низкая себестоимость, так как использованы широкодоступные детали и материалы;

малый ток потребления;

малые габаритные размеры;

интуитивно понятный программный интерфейс.

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

Так как разработка макета носит социально-направленный характер (для проведения лабораторных работ в учебных заведениях по курсу «Импульсная техника») и в стоимостном выражении не оценивается.

4. МЕРОПРИЯТИЯ ПО ОХРАНЕ ТРУДА. БЕЗОПАСНОСТЬ ТРУДА ПРИ ОБСЛУЖИВАНИИ ПРОГРАММАТОРА
4.1 Требования безопасности к техническим средствам ПЭВМ

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

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

Для предотвращения образования и защиты студентов от статического электричества в помещениях учебно-вычислительного центра (УВЦ) необходимо использовать нейтрализаторы и увлажнители воздуха, а полы должны иметь антистатическое покрытие. Допустимый уровень напряженности электрического поля в помещениях УВЦ не должен превышать 20 кВ/м.

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

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

Видео терминальное устройство отображения информации должно отвечать основным требованиям безопасности: яркость экрана дисплея не менее 100 кд/м², высота символов на экране не менее 3.8 мм, расстояние от глаз до экрана не менее 400 мм, размер экрана по диагонали не менее 310 мм, количество точек на одной строке не менее 640, минимальный размер светящейся точки не более 0.4 мм, для монохромного дисплея и 0.6 мм для цветного.

4.2. Требования безопасности к микроклимату в учебных лабораториях

Оптимальные и допустимые условия микроклимата в лабораториях учебного вычислительного центра (УВЦ) устанавливаются с учетом избытка тепла, выделяемого от технических и периферийных устройств ПЭВМ, тяжести выполняемой работы, а также времени года. Микроклимат определяется действующими на организм программистов сочетаниями температуры, влажности и скорости движения воздуха.

В лабораториях УВЦ необходимо поддерживать оптимальные условия микроклимата с помощью вентиляционных и отопительных систем, выполненных в соответствии с СНИП II-33-75. Температура воздуха в холодный и теплы период года должна быть в пределах +20...25 ^оС , относительная влажность 60...40 % при скорости движения воздуха не более 0.2 м/с, подача наружного воздуха в помещение лаборатории объемом до 20 м³ на одного студента не должна быть менее 30 м³/ч.

Воздух в помещениях работы программистов и операторов вычислительных систем должен быть очищен от вредных веществ, пыли и микроорганизмов. Патогенная флора должна быть исключена. В помещениях лабораторий УВЦ общее количество колоний на 1 м³ не должна превышать 1000. В помещениях УВЦ воздух рабочей зоны должен соответствовать установленным требованиям ГОСТ 12.1.005-76 с незначительным избытком тепла от видеотерминалов и устройств отображения информации.

При одновременном нахождении в помещениях УВЦ технических и периферийных устройств ПЭВМ, программистов и операторов вычислительных систем, когда температура внешней среды выше +25 ^оС, допустимая температура воздуха в помещениях не должна превышать +31...+33 ^оС со значительным избытком тепла от ПЭВМ. При длительном воздействии повышенной температуры происходит нарушение водно-солевого, белкового и витаминного обменов в организме студентов УВЦ. В результате наступает расслабление организма учащихся, снижение внимания и скорости восприятия с устройств отображения информации.

4.3. Меры безопасности при сервисном обслуживании программатора.

В лабораторном макете присутствует опасное для жизни напряжение 220 вольт 50 герц. Это напряжение питает трансформаторный блок. В остальных блоках лабораторного макета напряжения не превышают 27 вольт, что не является опасным. В блоке стабилизатора и блоке нагрузки происходит тепловыделение. Температура частей этих блоков не превышает 50^оС, что не представляет опасности для человека.

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

Шнур питания и вилка должны соответствовать ТУ на них, и не иметь изломов и нарушений в изоляции.

Сетевой тумблер типа ПТ2-2 (напряжение 600 вольт, ток до 2 ампер) отвечает требованиям электробезопасности.

Должны быть использованы сетевые предохранители в стандартных держателях.

Напряжения и температуры в остальных блоках лабораторного макета не представляют опасности и не требуют особых мер предосторожности.

Так как программатор взаимодействует при работе с ПЭВМ, а ПЭВМ является электроустановкой, то к ней предъявляются требования соблюдения всех параметров электробезопасности согласно ТУ на ПЭВМ. Вредными факторами для человека являются:

мягкое рентгеновское излучение экрана;

мерцание экрана с частотой кадровой развертки;

электростатическое поле вокруг экрана;

ультрафиолетовое излучение экрана.

СПИСОК ЛИТЕРАТУРЫ

Скотт Мюллер «Модернизация и ремонт персональных компьютеров», Москва, изд. «Восточная Книжная Компания», 1996г., ISBN 0-7897-0321-1

Гук «Аппаратные средства IBM PC», Санкт-Петербург, изд. «Питер Пресс», 1996г., ISBN 5-88782-036-5

Фаронов В.В. «Турбо Паскаль 7.0. Начальный курс. Учебное пособие», Москва, изд. «Нолидж», 1997г., ISBN 5-89251-012-3

М.В. Сергиевский, А.В. Шалашов «Турбо Паскаль 7.0: Язык, среда программирования», Москва, изд. «Машиностроение», 1994г., ISBN 5-217-02468-2

Абель П. «Язык Ассемблер для IBM PC и программирования», Москва, изд. «Высшая школа», 1992г., ISBN 5-101-123447-1

Гейтс Б. «Дорога в будующее», Москва, изд. «Русская редакция», 1996г., ISBN 5-7502-0019-1

Информация с сервера www.referats.aha.ru, изд. INTERNET

CD-библиотека «Все для инженера», изд. InfoLink, 1997г.

ПРИЛОЖЕНИЕ 1

ПРОГРАММНЫЙ ИНТЕРФЕЙС

Uses DOS;

Type TNT = Array[0..65534]Of Byte;

Filearray = Array[1..5000]Of String[12];

Const

U0 = Char(200);

U1 = Char(201);

U2 = Char(202);

U3 = Char(199);

U4 = Char(198);

U5 = Char(203);

U6 = Char(193);

U7 = Char(192);

Up = Char(194)+Char(195);

Uf = Char(196)+Char(185);

Us = Char(197)+Char(186);

Speed = 3;

Hex : Array[0..15]Of Char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');

Var

Buffer : ^TNT;

Filx : ^filearray;

Dirx : ^filearray;

Fake : ^TNT;

ScanCode: Byte;

Key : Char;

Screen : Array[0..50*90] of byte;

Segscr : Word;

Ofsscr : Word;

px,py : Byte;

Clr : Byte;

MenuP : Byte;

F : File;

RomSize : Longint;

Curd : String;

RomName : String;

lxul,lyul,lxdr,lydr : byte;

Procedure WaitRt; assembler;

Asm

mov dx,$3da

@wa1:

in al,dx

test al,8

je @wa1

@wa2:

in al,dx

test al,8

jne @wa2

End;

Procedure Color(c1,c2 : byte);

Begin

clr:=c1+16*c2;

End;

Procedure Loc(x,y: byte);

Begin

px:=x;

py:=y;

End;

Procedure WChar(c : char);

Begin

screen[py*160+px+px]:=byte(c);

screen[py*160+px+px+1]:=clr;

inc(px);

If px=80 Then

Begin px:=0; inc(py);

If py>25 Then py:=25;

End;

End;

Procedure Shade(x : byte);

Var

m : byte;

Begin

For m:=1 To x Do

Begin

Screen[py*160+px+px+1]:=screen[py*160+px+px+1] And $7;

inc(px);

If px=80 Then

Begin px:=0; inc(py);

If py>25 Then py:=25;

End;

End;

End;

Procedure Wrt(s : string);

Var

x: word;

Begin

For x:=1 To length(s) Do WChar(s[x]);

End;

Procedure WrtLn(s : string);

Var

x: word;

Begin

For x:=1 To length(s) Do WChar(s[x]);

px:=0;

inc(py);

If py>25 Then py:=25;

End;

Procedure Map;

Begin

Move(screen,mem[$b800:0],80*50);

End;

Procedure Cls;

Begin

FillChar(screen,80*50,0);

End;

Procedure ReadKey; assembler;

Asm

xor ax,ax

int 16h

End;

Function ScanKey : char;

Var

x : byte;

Begin

x:=255;

Asm

mov ah,01

int 16h

jz @nokey

mov x,al

mov ScanCode,ah

@nokey:

End;

If x255 Then ReadKey;

ScanKey:=char(x);

End;

Procedure SkipTime;

Var

h,m,s,c : word;

lh,lm,ls,lc : longint;

abstime1,abstime2: longint;

Begin

GetTime(h,m,s,c);

lh:=h; lm:=m; ls:=s; lc:=c;

abstime1:=lc+(ls*100)+(lm*60*100)+(lh*60*60*100);

Repeat

GetTime(h,m,s,c);

lh:=h; lm:=m; ls:=s; lc:=c;

abstime2:=lc+(ls*100)+(lm*60*100)+(lh*60*60*100);

Until (abstime2abstime1);

End;

Procedure MoveMan;

Var

addr : word;

a : byte;

x : word;

Begin

addr:=0;

For x:=0 To 80*25-1 Do

Begin

a:=screen[addr];

If (a>207)And(axt1 Then dec(xf1,((xf1-xt1)Shr speed)+1);

If xf1yt1 Then dec(yf1,((yf1-yt1)Shr speed)+1);

If yf1xt2 Then dec(xf2,((xf2-xt2)Shr speed)+1);

If xf2yt2 Then dec(yf2,((yf2-yt2)Shr speed)+1);

If yf2=x1+lenx;

clr:=yt;

MenuP:=yp;

End;

Procedure HexL2Str(l : longint; var s : string);

Begin

s:=hex[(l shr (4*7))and 15];

s:=s+hex[(l shr (4*6))and 15];

s:=s+hex[(l shr (4*5))and 15];

s:=s+hex[(l shr (4*4))and 15];

s:=s+hex[(l shr (4*3))and 15];

s:=s+hex[(l shr (4*2))and 15];

s:=s+hex[(l shr (4*1))and 15];

s:=s+hex[(l)and 15];

End;

Procedure HexB2Str(l : byte; var s : string);

Begin

s:=hex[(l shr 4)and 15];

s:=s+hex[(l)and 15];

End;

Procedure MemEd(name: string);

Var

x,y : word;

l,l1,p,lpos : longint;

s,st : string;

stc : byte;

size : longint;

readsize : longint;

bank : word;

b1,b2 : byte;

flag : boolean;

i : searchrec;

Label Repaint, TryAgain;

Begin

TryAgain:

FindFirst(name,AnyFile,i);

If i.Attr And ReadOnly = ReadOnly Then

Begin

stc:=clr;

color(7,4);

MorPhL(20,7,56,15);

WindowL('File has ReadOnly Attribute!');

Menu(30,9,2,3,$4b,'Remove it','Reselect file','Exit','xxx4','xxx5',6);

If MenuP=1 Then

Begin

MenuP:=8;

exit;

End;

If MenuP=2 Then

Begin

MenuP:=0;

exit;

End;

clr:=stc;

assign(f,name);

SetFattr(f,(i.Attr xor ReadOnly));

MorPhL(0,0,77,24);

Color(7,6);

WindowL('Memory Editor');

goto TryAgain;

End;

Assign(f,name);

reset(f,1);

size:=FilesiZe(f);

l1:=0;

p:=0;

lpos:=0;

bank:=0;

flag:=false;

If size>35000 Then readsize:=35000 Else readsize:=size;

blockread(f,buffer^,readsize);

RePaint:

If l1 Div 32767 bank Then

Begin

If flag Then

Begin

color(7,4);

MorPhL(24,7,50,14);

WindowL('Save Changed Data?');

Menu(36,9,3,2,$4b,'YES','NO','xxx3','xxx4','xxx5',6);

If MenuP=0 Then

Begin

Seek(f,lpos);

blockwrite(f,buffer^,readsize);

End;

MorPhL(0,0,77,24);

Color(7,6);

WindowL('Memory Editor');

End;

lpos:=(l1 div 32767)*32767+(l1 div 32767);

Seek(f,lpos);

If size-l1>35000 Then readsize:=35000 Else readsize:=size-l1;

blockread(f,buffer^,readsize);

bank:=l1 div 32767;

flag:=false;

end;

l:=l1 and 32767;

Loc(2,1);

Wrt('address 0 1 2 3 4 5 6 7 8 9 A B C D E F ASCII');

For x:=2 To 22 Do

Begin

Loc(2,x);

HexL2Str(l+(l1 and (32767 xor $FFFFFFFF)),s);

Wrt(s+': ');

For y:=1 to 16 do

Begin

HexB2Str(buffer^[l],s);

Wrt(s+' ');

inc(l);

End;

For y:=16 Downto 1 Do

Begin

Wrt(char(buffer^[l-y]));

End;

End;

l:=l1 and 32767;

Repeat

Repeat

stc:=clr;

color(6,7);

HexB2Str(buffer^[l+p],s);

Loc((((p) and 15)*3)+13,(p) shr 4+2);

Wrt(s);

Loc((((p) and 15))+61,(p) shr 4+2);

Wrt(char(buffer^[l+p]));

clr:=stc;

WaitKey;

Until (Key=chr(13))or(ScanCode=$49)or(ScanCode=$51)or(ScanCode=$48)

or(ScanCode=$4D)or(ScanCode=$4B)or(ScanCode=$50)or(Key=chr(27))

or((Key>='0')and(Key='A')and(Upcase(Key)='0')And(Key='A')And(Upcase(Key)='0')And(Key='0')and(Key='A')and(Upcase(Key)='0')And(Key='0')And(Key='A')And(Upcase(Key)15)or(l10)then dec(p,16); if p0)or(l10)then dec(p); if p319) then begin dec(l1,320) end else l1:=0; goto RePaint; end;

$51: begin inc(l1,320); if l1>size-336 then l1:=size-336; goto RePaint; end;

end;

Until (key=chr(13))or(Key=chr(27));

If flag Then

Begin

color(7,4);

MorPhL(24,7,50,14);

WindowL('Save Changed Data?');

Menu(36,9,3,2,$4b,'YES','NO','','','',6);

If MenuP=0 Then

Begin

Seek(f,lpos);

blockwrite(f,buffer^,readsize);

End;

End;

close(f);

End;

Function LowCase(s : string) : string;

Var

x : integer;

Begin

LowCase:=s;

For x:=1 To length(s) Do

Begin

If (s[x]>='A')And(s[x](z-1) Then maxp:=(z-1);

For y:=curp To maxp Do

Begin

Loc(23,3+y-curp);

name:=filx^[curp+(y-curp)];

For x:=17 DownTo length(filx^[curp+(y-curp)]) Do name:=name+' ';

If curps=(y-curp+1) Then color(1,2) Else color(7,1);

Wrt(' '+name);

End;

Repeat

WaitKey;

Until (Key=chr(13))or(ScanCode=$48)or(ScanCode=$50)or(Key=chr(27))or(ScanCode=82);

Case ScanCode Of

$50: inc(curps);

$48: dec(curps);

82:

Begin

MOrPhL(10,10,40,15);

WindowL('Input File Name .ROM');

y :=1;

zs:=' ';

Loc(22,12);

Wrt('-');

Repeat

WaitKey;

Loc(21+y,12);

If (Keychr(13))And(Keychr(27)) Then

If (Keychr(08)) Then

Begin

If y9 Then

Begin

zs[y]:=Key;

Wrt(key+'-');

inc(y);

End;

End

Else

If y1 Then

Begin

dec(y);

Loc(21+y,12);

zs[y]:=' ';

Wrt('- ');

End;

Until (Key=Chr(13))or(Key=chr(27));

MorPhL(20,8,50,12);

Color(7,4);

WindowL('!!!!!!!!!!!!');

Loc(30,10);

Wrt('Жди давай!'+chr(208));

Map;

Assign(f,zs+'.ROM');

Rewrite(f);

y:=$FF;

For pos:=1 To romsize Do Write(f,byte(y));

close(f);

Key:=chr(255);

ScanCode:=0;

color(7,1);

MorPhL(20,2,50,22);

WindowL('Выберите файл');

s:='';

Goto RePaint;

End;

End;

If curps>(z-1) Then curps:=(z-1);

If (curps>18) Then

Begin

curps:=18;

If curp65535 Then y:=65535;

BlockRead(fi,buffer^,y);

BlockWrite(fo,buffer^,y);

rsz:=rsz-y;

Until rsz=0;

Close(fi);

Close(fo);

End;

End;

End;

MenuP:=5;

End;

1:

Begin

Repeat

MenuP:=1;

MorPhL(20,2,50,22);

color(7,1);

WindowL('Выберите файл');

FFile(s);

If s'' Then

Begin

MorPhL(0,0,77,24);

Color(7,6);

WindowL('Редактировение прошивки');

MemEd(s);

Color(7,4);

MorPhL(24,7,60,14);

WindowL('Прошить ПЗУ?');

Menu(40,9,3,2,$4b,'YES','NO','xxx3','xxx4','xxx5',6);

If MenuP=0 Then

Begin

MorPhl(22,7,50,11);

Color(7,1);

WindowL('Прошиваем ПЗУ');

Loc(24,9);

Wrt('-------------------------');

For l:=0 To romsize Do

Begin

Loc(24+(l*24 div romsize),9);

Wrt ('-'+chr(208));

Color (3,1);

Map;

ReadROM(l);

End;

End;

End;

Until MenuP8;

end;

2:

Begin

MorPhl(22,7,50,11);

color(7,1);

WindowL('Тестируем программатор');

Loc(24,9);

Wrt('-------------------------');

For l:=0 To 1000 Do

Begin

Loc(24+(l*24 div 1000),9);

Wrt ('-'+chr(208));

Color (3,1);

Map;

End;

Loc(23,9);

Wrt(chr(209)+' Все в порядке, аднака ');

waitkey;

End;

end;

Until MenuP=3;

MenuP:=5;

end;

2:

Begin

MorPhL(9,2,70,23);

color(7,0);

WindowL('О программе');

Loc(10,10);

For x:=1 To 60 Do Wrt(chr(210));

Loc(12,4);

Wrt('Дипломный проект "Лабораторный макет программатора ПЗУ"');

Loc(11,6);

Wrt('Это программка была написана в среде Borland Pascal v7.0');

Loc(13,8);

Wrt('Программа расчита на роботу с 2 типами микросхем ПЗУ');

Loc(36,12);

Wrt('Авторы:');

Loc(11,14);

Wrt('Идея и текст программы:');

Loc(25,15);

Wrt('Дмитрий В. Румянцев');

Loc(11,17);

Wrt('Помощь в написание программы:');

Loc(25,18);

Wrt('Dead Emotion //HellraiseR Group');

Loc(11,20);

Wrt('Тестирование программы:');

Loc(25,21);

Wrt('Алексек А. Иванов');

WaitKey;

MenuP:=5;

end;

end

until MenuP=3;

MorPhL(13,7,13,7);

asm

mov ax,3

int 10h

end;

end.

-76-

Румянцев Дмитрий Владимирович 49РА7-93 Июнь 1997

МОСКОВСКИЙ КОЛЛЕДЖ ЭЛЕКТРОННОЙ ТЕХНИКИ

ДИПЛОМНАЯ РАБОТА

“Программатор ПЗУ (программная часть)”

Работу выполнил студент: Румянцев Д.В.

Научный руководитель: Гуськов Б.Г.

Москва, 199