Мониторы

Автор работы: Пользователь скрыл имя, 28 Декабря 2011 в 14:19, курсовая работа

Описание

Монитор следует отнести к самой “долгоживущей” или “консервативной” компоненте в компьютерной системе (с точки зрения замены и модификации). Действительно, многие производят модернизацию материнской платы, винчестера, наращивают память, устанавливают дополнительные устройства, однако монитор меняется крайне редко. Дело в том, что цена составляет ощутимую долю от стоимости компьютера, вследствие чего его замена представляет серьезный финансовый шаг, на который не всегда просто решиться. Кроме того, при попытке продажи старого монитора его цена будет близка к нулевой из-за подержанности.

Содержание

Введение 4

1. Параметры Кинескопа 5

1.2. Частотные характеристики монитора 9

1.3. Управление монитором 11

1.4. Стандарты для мониторов 13

1.4.1.Стандарты безопасности 14

1.4.2. Эргономические стандарты 14

1.4.3. Стандарты уровней излучений 15

4.4. Электромагнитная совместимость 15

1.4.5. Экологические стандарты 16

1.4.6. Стандарты пониженного энергопотребления 16

1.5. Тенденции развития 20

Заключение 22

2. ОПИСАНИЕ ВЫПОЛНЕНИЯ ЗАДАНИЯ ПО VISUAL BASIC 24

Пример разработанного приложения 24

3. Описание расчета инвариантной сметы расходов с помощью электронных таблиц Excel 39

Скачать (215.00 Кб) Сколько стоит заказать работу?
Работа состоит из  1 файл

Курсовая.docx

— 222.42 Кб (Скачать документ)

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

      End Sub

      Private Sub Command5_Click ()

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

                                                                                               нажатии кнопки «Выход».

      End Sub

      Private Sub Form_Load ()

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

      Private Sub Form_Load()

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

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

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

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

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

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

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

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

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

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

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

      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                                            'метка недоступна

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

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

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

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

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

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

      End Sub

      Private Sub Text1_Change ()

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

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

      Private Sub Text1_Change()

      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 i

      End Sub

      Private Sub Text1_KeyPress(KeyAscii As Integer)

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

      Private Sub Text1_KeyPress(KeyAscii As Integer)

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

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

      End If

      End Sub

      Процедуры обработки событий keyPress для элементов управления text2, text3, text4, text5, text6, text7, text8, text9, text10 аналогичны  Text1_KeyPress.

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

      (примеры  форм с результатами расчетов  и графиком)

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

      Рис.2 Расчет наращенной суммы

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

 

Рис.3 Расчет наращенной суммы

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

 

 

      3. Описание расчета инвариантной сметы расходов с помощью электронных таблиц Excel

      Задание

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

      

 

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

      Расчет  инвариантной сметы расходов на ремонт автомобиля

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

  • объект ремонта;
  • работы и расценки;
  • цены материалов и нормы расхода.

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

      

 

      Рис.1 
 
 

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

      
  • Расчет  стоимости ремонтных работ;
  • Расчет стоимости запасных частей.
 

      Ниже  приводятся эти расчеты (См. Рис. 2). 

      

 

      Рис.2 

      Расчет  стоимости ремонтных работ рассчитывается  инвариантно, т.е. при помощи функции «ЕСЛИ»: 

      Перечень ремонтных работ       Количество       Стоимость
      Разборка \ сборка авто       1       =ЕСЛИ($B$31=1;B14;ЕСЛИ($B$31=2;C14;

      ЕСЛИ($B$31=3;D14; ЕСЛИ($B$31=4;E14)))

      
      Установка на стапель       1       =ЕСЛИ($B$31=1;B15;ЕСЛИ($B$31=2;C15;

      ЕСЛИ($B$31=3;D15; ЕСЛИ($B$31=4;E15)))

      
      Замена переднего крыла       2  
      =ЕСЛИ($B$31=1;B16;ЕСЛИ($B$31=2;C16;

      ЕСЛИ($B$31=3;D16; ЕСЛИ($B$31=4;E16)))

      
      Замена двери       1       =ЕСЛИ($B$31=1;B19;ЕСЛИ($B$31=2;C19;

      ЕСЛИ($B$31=3;D19; ЕСЛИ($B$31=4;E19)))

      Окраска авто 
      		  
      1 
      		       =ЕСЛИ($B$31=1;B18;ЕСЛИ($B$31=2;C18;

      ЕСЛИ($B$31=3;D18; ЕСЛИ($B$31=4;E18)))

      
      Замена фары                      =ЕСЛИ($B$31=1;B17;ЕСЛИ($B$31=2;C17;

      ЕСЛИ($B$31=3;D17; ЕСЛИ($B$31=4;E17)))

      итого работы               =СУММ(C43:C48)
      всего расходов               =СУММ(C40+C49)
 
 
 

      

      Рис. 3 

      Расчет  стоимости ремонтных работ рассчитывается  инвариантно, т.е. при помощи функции  «ЕСЛИ»: 

      Наименование запасных частей       Количество       Стоимость
      Фара               2              =ЕСЛИ($B$31=1;B26*B36;

      ЕСЛИ($B$31=2;C26*B36;

      ЕСЛИ($B$31=3;D26*B36;

      ЕСЛИ($B$31=4;E26*B36)))

      Переднее крыло       2       =ЕСЛИ($B$31=1;B27*B37;

      ЕСЛИ($B$31=2;C27*B37;

      ЕСЛИ($B$31=3;D27*B37;

      ЕСЛИ($B$31=4;E27*B37)))

      Лако – красочные  изделия       1       =ЕСЛИ($B$31=1;B28*B38;

      ЕСЛИ($B$31=2;C28*B38;

      ЕСЛИ($B$31=3;D28*B38;

      ЕСЛИ($B$31=4;E28*B38)))

      Замена двери       1       =ЕСЛИ($B$31=1;B29*B39;

      ЕСЛИ($B$31=2;C29*B39;

      ЕСЛИ($B$31=3;D29*B39;

      ЕСЛИ($B$31=4;E29*B39)))

 
      Итого 
      		  
 
       		  
      =СУММ (С36:С38)       
 
 

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

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

      

      Рис.4 

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

      В этих двух сценариях показано как  при изменении цен на запчасти изменяются расходы по смете (См. Рис. 5). 

Информация о работе Мониторы