О.В. Бондарчук

Научный руководитель – Н.С. Косиненко

Создание пользовательского интерфейса.

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

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

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

          При запуске программы пользователь может самостоятельно указывать объем вводимых данных с помощью текстовых полей «Число строк» и «Число столбцов». Кнопка «Ввод данных» позволяет вводить данные с помощью диалоговых окон. Кнопка «Оптимизация» обеспечивает переход на лист «Оптимизация». А после щелчка на кнопке «Вывод результата» в диалоговом окне появляется результативный показатель прибыли, полученный в результате оптимизации. 

         Программа была написана на языке VBA и выглядит следующим образом:

Public a1

Public a2

Public a3

Public a4

Private Sub CommandButton1_Click()

'Процедура ввода информации

Dim Korm(1 To 4) As String * 20 'Массив названий столбцов

Dim Stolb(1 To 4) As Single 'Количество строк в столбце

Dim a, a3, a4, a5, a6 As String * 20

Dim b As Integer 'Номер первой строки данных

Dim c As Integer

Dim n, k As Integer

Worksheets("Лист1").Activate

For m = 1 To a1

Korm(m) = InputBox("Введите имя поля " & m, Title:="Ввод имен столбцов данных")

MsgBox Korm(m)

Next m

For k = 1 To a1

ActiveSheet.Cells(2, k + 2) = Korm(k)

Next k

For b = 1 To a1

Worksheets("Лист1").Activate

a = Korm(b)

For c = 1 To a2

Stolb(c) = InputBox("Введите " & c & "Значение в поле " & a, Title:="Ввод данных в систему")

n = c + 2

k = b + 2

ActiveSheet.Cells(n, k) = Stolb(c)

Next c

Next b

End Sub

Private Sub CommandButton2_Click()

Worksheets("Оптим").Activfte

End Sub

Private Sub CommandButton3_Click()

Worksheets("Оптим").Activate

Range ("P50")

MsgBox ("P50")

End Sub

Литература

1.     Л.А. Демидова, А.Н. Пылькин. Программирование в среде VBA. – М.: Горячая линия – Телеком, 2004. 76 с.

2.     А. Гарнаев. Самоучитель VBA. Технология создания  пользовательских приложений. – СПб.: БХВ – Петербург. – 504 с.