Область применения | Монитор | Видеокарта | Колонки | |||||||
р-р экрана | Раб. Разреш. | Частота | Зер-ть | Защита | Об. Пам. | Раб. Разреш | Частота | Мощность | Диап-н ч-т | |
Работа с программным обеспечением | 1 | 1 | 1 | 1 | 2 | 2 | 2 | 2 | 1 | 1 |
Просмотр кинофильмов | 3 | 4 | 2 | 3 | 3 | 3 | 4 | 3 | 3 | 1 |
Работа с графическими пакетами | 2 | 3 | 2 | 2 | 3 | 3 | 4 | 2 | 1 | 1 |
Прослушива - ние музыки | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 5 | 5 |
Значимость всех задач одинакова | 2 | 2 | 2 | 2 | 2 | 2 | 2 | 2 | 1 | 2 |
4. Результаты работы программы для данных начальных условий представим в виде таблицы.
Область применения | Монитор | Видеокарта | Колонки | Общая цена набора. |
Работа с ПО | LG StudioWorks 500E | ATI Radeon 9000 | Genius SP-G06 | 6330 |
Просмотр кинофильмов | LG T910BU | ATI Radeon 9500 | Genius SP-K16 | 17461 |
Работа с графическими пакетами | Samsung SyncMaster 753S | ATI Radeon 9500 | Genius SP-G06 | 10185 |
Прослушивание музыки | LG StudioWorks 500E | GeForce4 MX440 | MicroLab X10-D | 13753 |
Значимость всех задач одинакова | Samsung SyncMaster 753S | ATI Radeon 9000 | Genius SP-G06 | 6943 |
Замечание: В случае проблем с получением результатов:
► Проверти, есть ли в моделях, из которых вы выбираете, те которые отвечают заданным требованиям.
► Очистите область вывода подходящих моделей и перезапустите программу.
Выводы.
Общие.
Для того чтобы сделать оптимальный выбор мультимедиа нужно:
► Проанализировать конфигурацию уже имеющегося у вас оборудования, чтобы купленные устройства работали на все свои возможности и не "тормозили" остальные устройства.
► Сформулировать конкретные задачи, которое вы в основном собираетесь выполнять с помощью данного устройства, чтобы оно максимально возможно подходило для них.
► По указанным критериям выбрать основные характеристики устройства, которые важны в задачах, которые вы собираетесь возложить на данное устройство.
По программе.
► Данная программа позволяет систематизировать свои требования к различному оборудованию в конкретных областях применения.
► Помогает определиться, какие критерия являются основными в рассматриваемой задаче.
► Предлагает на самом деле оптимальный набор мультимедиа по минимальной цене. Например, я, до того как разрабатывать приложение составила таблицу, которая по моему мнению соответствует оптимальному набору мультимедиа. Сравним результаты моего выбора и выбора с использованием приложения.
Выбор | Мой | Приложения | ||||
Область применения | Монитор | Видеокарта | Колонки | Монитор | Видеокарта | Колонки |
Работа с ПО | LG StudioWorks 500E | ATI Radeon 9000 | Genius SP-G06 | LG StudioWorks 500E | ATI Radeon 9000 | Genius SP-G06 |
Просмотр кинофильмов | LG T910BU | GeForce4 MX440 | Genius SP-K16 | LG T910BU | ATI Radeon 9500 | Genius SP-K16 |
Работа с графическими пакетами | Samsung SyncMaster 753S | ATI Radeon 9500 | Genius SP-G06 | Samsung SyncMaster 753S | ATI Radeon 9500 | Genius SP-G06 |
Прослушивание музыки | LG StudioWorks 500E | GeForce4 MX440 | MicroLab X10-D | LG StudioWorks 500E | GeForce4 MX440 | MicroLab X10-D |
Значимость всех задач одинакова | Samsung SyncMaster 753S | ATI Radeon 9000 | Genius SP-G06 | Samsung SyncMaster 753S | ATI Radeon 9000 | Genius SP-G06 |
Несовпадение идет лишь в двух случаях из 15, да и то различие в моделях не существенно.
Приложение1.
Private Sub CommandButton1_Click()
Dim a1(1 To 10) As Variant Dim a2(1 To 10) As Variant Dim a3(1 To 10) As Variant
Dim a4(1 To 10) As Variant Dim a5(1 To 10) As Variant Dim a6(1 To 10) As Variant
Dim a7(1 To 10) As Variant Dim a8(1 To 10) As Variant Dim a9(1 To 10) As Variant
Dim a10(1 To 10) As Variant Dim j, min1, min2, min3 As Variant
Dim i As Integer Dim k1 As Double
For j = 1 To 6
Cells(52 + j, 2) = "" Cells(52 + j, 4) = "" Cells(52 + j, 6) = "" Cells(53 + j, 9) = "" Cells(53 + j, 10) = ""
Cells(53 + j, 11) = ""
Next j
For i = 1 To 10
a1(i) = Cells(5 + i, 2) a2(i) = Cells(5 + i, 3) a3(i) = Cells(5 + i, 4) a4(i) = Cells(5 + i, 5)
a5(i) = Cells(5 + i, 6) a6(i) = Cells(21 + i, 2) a7(i) = Cells(21 + i, 3) a8(i) = Cells(21 + i, 4)
a9(i) = Cells(34 + i, 2) a10(i) = Cells(34 + i, 3)
Next i
j = 1
For i = 1 To 10
If a1(i) >= Cells(50, 2) And a2(i) >= Cells(50, 3) And a3(i) >= Cells(50, 4) And a4(i) >= Cells(50, 5) And a5(i) >= Cells(50, 6) Then Cells(52 + j, 2) = Cells(5 + i, 1) Cells(52 + j, 3) = Cells(5 + i, 7)
j = j + 1 End If
Next i
j = 1
For i = 1 To 10
If a6(i) >= Cells(50, 7) And a7(i) >= Cells(50, 8) And a8(i) >= Cells(50, 9) Then Cells(52 + j, 4) = Cells(21 + i, 1) Cells(52 + j, 5) = Cells(21 + i, 5)
j = j + 1 End If Next i
j = 1
For i = 1 To 10
If a9(i) >= Cells(50, 10) And a10(i) >= Cells(50, 11) Then Cells(52 + j, 6) = Cells(34 + i, 1)
Cells(52 + j, 7) = Cells(34 + i, 4)
j = j + 1 End If Next i
min1 = 50000
For i = 1 To 5
If Cells(52 + i, 3) = "" Then Exit For End If
If Cells(52 + i, 3) <= min1 Then Cells(54, 8) = Cells(52 + i, 2) min1 = Cells(52 + i, 3) End If Next i
min2 = 50000
For i = 1 To 5
If Cells(52 + i, 5) = "" Then Exit For End If
If Cells(52 + i, 5) <= min2 Then Cells(54, 9) = Cells(52 + i, 4) min2 = Cells(52 + i, 5) End If
Next i
min3 = 50000 j = 1
For i = 1 To 6
If Cells(52 + i, 7) = "" Then Exit For End If
If Cells(52 + i, 7) <= min3 Then Cells(54, 10) = Cells(52 + i, 6) min3 = Cells(52 + i, 7) End If
Next i
Cells(60, 11) = min1 + min2 + min3
End Sub.
Литература.
1. http://*****
2. Прайс лист фирмs Прагма.
3. Компьютер - Пресс №7 с.15/
4. *****
5. http://www. *****.
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 |


