0 / 0 / 0
Регистрация: 13.12.2011
Сообщений: 3
1

Создайте программу «Модель бензоколонки»

13.12.2011, 23:04. Показов 1698. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В интегральной среде Visual Basic 5.0 создайте программу «Модель бензоколонки», текст которой приведен ниже. Произведите отладку программы с целью ликвидации формальных ошибок. Произведите проверку программы расчетом. Подставьте те же исходные данные, которые были выбраны в приведенном выше примере. Убедитесь в том, что результаты расчетов практически совпадают. Произведите самостоятельное исследование закономерностей функционирования фирмы с помощью алгоритмической модели. Выберите исходные данные, проведите расчеты и проанализируйте результаты моделирования.
Программа моделирования бензоколонки
1. Стартовая форма frmForm1
1.1. Таблица свойств формы 1 (макет на рис. 2)

Объект Свойства Установки
Форма 1 Name
Caption FrmForm1
Модель СМО с 1,2 или 3 каналами
Командная кнопка 1 Name
Caption Command1
Расчет
Командная кнопка 2 Name
Caption Command2
Расчет
Командная кнопка 3 Name
Caption Command3
Выход

1.2. Процедуры обработки прерываний
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
Nkan = Val(txtNk): TZcp = Val(txtTzs): TObcp = Val(txtTobs)
TWmax = Val(txtTwm): Nr = Val(txtNp)
Call Model2
End Sub
Private Sub Command2_Click()
FrmForm1.txtResult = “”
End Sub
Private Sub Command3_Click()
End
End Sub
2. Форма frmForm2
2.1. Таблица свойств формы 2

Объект Свойства Установки
Форма 2 Name
Enabled Form2
False

2.2. Процедура обработки прерываний
Visual Basic
1
2
Private Sub Form2_Load()
End Sub
3. Модули общего назначения
‘Описание констант и массивов
Visual Basic
1
2
3
4
5
6
7
8
9
Public Const Tfin = 10 ‘время окончания работы
Public Const NzMax = 40 ‘максимальное число заявок
Public Tz(Nzmax) ‘массив времени поступления заявок
Public Nob(3) As Integer ‘число обслуженных заявок в каналах
Public TKO(3) ‘время окончания обслуживания заявок
Public TScp, Tobcp, Twmax, Tkmin, TH, TK, z, Ts
Public Snob As Long, Iz As Integer, Nz As Integer, Ir As Integer
Public Nr As Integer, J As Integer, Nkan As Integer, Jmin As Integer 180
Public Sub Model2()
‘Главный модуль
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Snob = 0 ‘сумматор числа обслуженных заявок
frmForm1.Enabled = False: FrmForm1.Visible = False
frmForm2.Enabled = True: FrmForm2.Visible = True
For Ir = 1 To Nr ‘начало цикла случайных реализаций
frmForm2.Cls ‘очистка окна формы 2
frmForm2.CurrentX = 600: frmForm2.CurrentY = 200
frmForm2.Print “Расчет ” & Ir & “-й реализации”    ‘вывод показаний ‘счетчика числа реализаций в окно формы 2 ‘обнуление локальных переменных
Nz = 0 ‘обнуление числа заявок
Nob(1) = 0: Nob(2) = 0: Nob(3) = 0 ‘обнуление числа обслуженных заявок
TKO(1) = 0: TKO(2) = 0: TKO(3) = 0   ‘время окончания обслуживания
‘заявок в 1, 2 и 3-м каналах
Call ZAJAVKA ‘процедура «Поток заявок»
For Iz = 1 To Nz ‘начало цикла обслуживания заявок
‘выбор номера канала
TKmin = TKO(1)
For J = 1 To Nkan
If TKO(J) < Tkmin Then Tkmin = TKO(J): Jmin = J
Next J
Call SERVICE ‘процедура обслуживания заявки
Next Iz ‘конец цикла обслуживания заявок
‘суммарное число обслуженных заявок:
Snob = Snob + Nob(1) + Nod(2) + Nob(3)
Next Ir ‘конец цикла реализаций
FrmForm2.Enabled = False: FrmForm2.Visible = False
FrmForm1.Enabled = True: FrmForm1.Visible = True
‘показатель эффективности:
Cont = Snob/Nr – 1 + 0.5 * Nkan – 0.5 * Nkan * Nkan
frmForm1.txtResult = Format$(Cont, “#.##”)
End Sub
Sub SAJAVKA
‘Процедура «Поток заявок»
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
T = 0 ‘модельное время
For J = 1 To Nzmax ‘начало цикла формирования заявок
z = Rnd(1) ‘случайная величина с равномерным распределением
Ts = T – TZcp * Log(z) ‘случайное время поступления заявки
If Ts > Tfin Then Exit For ‘условие прекращения приема заявок
Nz = Nz + 1 ‘счетчик числа заявок
Tz(Nz) = Ts ‘фиксированное время поступления заявки
T = Ts ‘изменение модельного времени
Next J ‘конец цикла формирования заявок
End Sub
Sub SERVICE
‘Процедура «Обслуживания заявок»
J = Jmin ‘номер канала
DTWait = 0  ‘начальное значение времени ожидания
TH = Tz(Iz) ‘время начала обслуживания
If Tz(Iz) < TKO(J) Then ‘проверка необходимости коррктировки
‘корректировка времени начала обслуживания:
DTWait = TKO(J) – Tz(Iz) ‘период ожидания
If DTWait > Twmax Then Exit Sub
‘время начала обслуживания
TH = TKO(J)
End If
Z = Rnd(1) ‘случайная величина с равномерным ‘распределением в интервале (0,1)
TK = TH – Tobcp * Log(z) ‘время окончания обслуживания
If TK > Tfin Then
TKO(J) = Tfin: Exit Sub
End If
Nob(J) = Nob(J) + 1 ‘увеличение числа обслуженных заявок
TKO(J) = TK ‘время окончания обслуживания
End Sub
Добавлено через 1 минуту
когда вставляю текст выдает ошибки при оглашении, c VBA незнаком, просто нужно реализовать єту программку, заранее спасибо
0
13.12.2011, 23:04
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.12.2011, 23:04
Ответы с готовыми решениями:

Создайте модель, реализующую функции (квантование и кодирование) Аналого-цифрового преобразователя
Вообщем такое условие задачи - Создайте модель, реализующую функции(квантование и кодирование) Аналого-цифрового преобразователя. В...

Адрес бензоколонки
Имеется 5 бензоколонок по разным адресам: ул.Володарского, ул.Партизанская, ул.Комсомольская, ул.Ленина, ул.Рокоссовского. На этих...

Определите выручку бензоколонки за сутки, за месяц, при условии круглосуточной работы
Интенсивность потока автомобилей на АЗС к колонке за бензином АИ-92 составляет 30 автомобилей в 1 ч в дневное время, 2 автомобиля в 1 ч в...

5
 Аватар для Sasha_Smirnov
5562 / 1368 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
13.12.2011, 23:08 2
Начнём с того, что комменты открываются не ' (код 39), а (код 145).

Не зная языка, запустить программу... дня два надо.
0
0 / 0 / 0
Регистрация: 13.12.2011
Сообщений: 3
13.12.2011, 23:12  [ТС] 3
Я не правильно выразился язык знаю на начальном уровне только начал изучать, препод скинул лабу с готовым текстом нужно просто запустить программу.
0
 Аватар для Alex77755
11522 / 3808 / 682
Регистрация: 13.02.2009
Сообщений: 11,226
14.12.2011, 01:00 4
VBA незнаком
это не VBA. VBA не поддерживает frmForm2.Print
1
0 / 0 / 0
Регистрация: 13.12.2011
Сообщений: 3
14.12.2011, 01:21  [ТС] 5
Цитата Сообщение от Alex77755 Посмотреть сообщение
это не VBA. VBA не поддерживает frmForm2.Print
Можешь проверить почту?
0
 Аватар для Alex77755
11522 / 3808 / 682
Регистрация: 13.02.2009
Сообщений: 11,226
14.12.2011, 12:15 6
Проверил, сделал.
Отправить не получается - The following address(es) failed: твой адрес
0
14.12.2011, 12:15
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.12.2011, 12:15
Помогаю со студенческими работами здесь

Создайте программу
Напишите программу. Массив чисел (размерность 100) заполнить случайными значениям (диапазон значений от -100 до +100) Вычислить сумму и...

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

Создайте программу
которая заполняет массив 6x7 числами по следующему правилу: 0 -1 -2 -3 -4 -5 -6 1 0 -1 -2 -3 -4 -5 2 1 0 -1 -2 -3 -4 3 2 1 0...

Создайте программу на языке Си
Начинается с символа «b», заканчивается символом «а», а символ «с» встречается в сочетании по два не менее одного раза

Создайте программу переводчик
Создайте программу переводчик с русского на китайский


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отличия между let и var в JavaScript
hw_wired 12.02.2025
Работа с переменными - один из основных моментов при написании программ на JavaScript. От правильного объявления и использования переменных зависит не только читаемость кода, но и его надежность, а. . .
Подключение файла JavaScript в других файлах JavaScript
hw_wired 12.02.2025
Самый современный и рекомендуемый способ подключения JavaScript-файлов - использование системы модулей ES6 с ключевыми словами 'import' и 'export'. Этот подход позволяет явно указывать зависимости. . .
Отмена изменений, не внесенных в индекс Git
hw_wired 12.02.2025
Управление изменениями в Git - одна из важнейших задач при разработке программного обеспечения. В процессе работы часто возникают ситуации, когда нужно отменить внесенные изменения, которые еще не. . .
Что такое px, dip, dp, and sp в Android
hw_wired 12.02.2025
При разработке мобильных приложений для Android одним из ключевых вызовов становится адаптация интерфейса под различные устройства. А ведь их действительно немало - от компактных смартфонов до. . .
Отличия POST и PUT в HTTP
hw_wired 12.02.2025
В основе современного интернета лежит протокол HTTP, который определяет правила взаимодействия между клиентами и серверами. Этот протокол предоставляет набор методов, позволяющих клиентам выполнять. . .
Перемещение последних коммитов в новую ветку Git
hw_wired 12.02.2025
В процессе разработки иногда возникает ситуация, когда последние изменения в основной ветке нужно переместить в отдельную ветку разработки. Может оказаться, что вы внесли несколько коммитов в ветку. . .
GraphQL в Go (Golang)
stackoverflow 11.02.2025
В веб-разработке традиционные REST API постепенно уступают место более гибким и эффективным решениям. GraphQL - мощное средство для создания гибких API, которое позволяет клиентам запрашивать именно. . .
GraphQL и TypeScript
stackoverflow 11.02.2025
В мире современной веб-разработки GraphQL прочно занял место одного из самых перспективных подходов к созданию API. Этот язык запросов, созданный для оптимизации взаимодействия между клиентом и. . .
Переход на Composition API в Vue.js
stackoverflow 11.02.2025
Фронтенд разработчики, работающие с Vue. js, часто сталкиваются с проблемой организации логики в компонентах при использовании классического Options API. Знаете ли вы, что происходит, когда ваш. . .
Архитектура и внутреннее устройство современных процессоров
stackoverflow 11.02.2025
От первых электронных вычислительных машин, занимавших целые комнаты, до современных многоядерных процессоров размером с почтовую марку - путь развития вычислительной техники поражает воображение. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru