Создание базы данных судов

Размещено на http://www.allbest.ru/

Содержание

• Введение
• 1. Описание программы "Базы данных судов"
• 1.1 Общее описание
• 1.2 Порядок работы и средства управления программой
• 1.2.1 Добавление нового судна
• 1.2.2 Открывающийся список
• 1.2.3 Подтверждение выбора
• 1.2.4 Удаление судна из базы данных
• 1.3 Описание импортируемых данных
• 1.3.1 Общие данные
• 1.3.2 Кривые элементов теоретического чертежа
• 1.3.3 Пантокарены
• 1.3.4 Таблицы емкостей
• 1.3.5 Варианты погрузки
• 1.3.6 Описание судна
• 1.3.7 Маневренные элементы
• 1.3.8 Палубы, схемы
• 1.3.9 Фото судна
• 1.3.10 Библиотека
• 1.3.11 Кнопка "Print"
• 1.3.12 Кнопка "Погрузить"
• 1.4 Описание встроенных блоков
• 1.4.1 Блок "SlideShow"
• 1.4.2 Блок "Welcome"
• 1.4.3 Блок "PlaySound"
• 2. Операторы используемые в програме
• 3. Типовое наставление по загрузке и остойчивости
• 4. Guidelines for the on-board use and application of computers
• Заключение
• Библиографический список
• Приложение

Введение

В настоящее время все кто имеет в своем распоряжении компьютер, в той или иной степени используют систему Microsoft Office и работают в приложениях типа Word, Excel и т.д. Это связано с большой универсальностью Microsoft Office, где набор приложений предназначен для решения очень широкого круга задач.

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

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

1. сбор информации по судам;

2. стандартизация базы данных (единый формат данных);

3. возможность увеличения количества судов в базе данных;

4. создание программы позволяющей работать с базой данных судов

5. экспорт данных по судну в расчетную программу

1. Описание программы "Базы данных судов"

1.1 Общее описание

Компьютерная база данных судов состоит из программы "Base" и директория "Ships".

Программа "Base", представляет собой комплекс команд и алгоритмов написанная в макросах(Excel) и не является базой данных. Поэтому для нормальной работы программы нужна директория с данными на которую программа будет ссылаться.

Программа "Base" может размещаться в компьютере на любом жестком диске и на любом носителе.

Директория "Ships" содержит информацию о судах, которая предоставляется пользователю в формате Excel, Word, PDF и любые другие:

Data - Excel - общие данные

KETCH - Excel - кривые элементов теоретического чертежа

Pant - Excel - пантокарены

Emk - Excel - таблицы емкостей

Сargo - Excel - варианты погрузки

txt1- Word - описание судна, схемы, рисунки

txt2 - Word - маневренные элементы

pic1- Word - общее расположение, по палубам, схемы

pic2 - Word - фотография судна

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

Количество судов в директория "Ships" неограниченно.

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

1.2 Порядок работы и средства управления программой

Для работы с базой данных пользователь должен войти в программу "Base".

При первом запуске программы пользователь попадает на главный лист программы - "Menu", в котором содержатся следующие элементы управления:

рис. 1.Menu

При нажатии кнопки "Выбрать судно" появляется электронная форма с элементами управления: кнопка "Добавить судно"; кнопка "OK"; кнопка "Удалить"; отрывающийся список.



рис. 2. Выбор судна

Программист Excel имеет возможность создавать пользовательские диалоговые окна для своих приложений VBA. Эти диалоговые окна, называемые электронными формами, могут включать любые элементы управления. Экранные формы представляют собой мощный инструмент программирования, поскольку позволяют создать для приложения Excel визуальный пользовательский интерфейс любого требуемого вида. Рассмотрим подробнее создание электронной формы:

- что создать электронную форму с элементами управления необходимо войти в редактор VBA одним из способов - Сервис - макрос - Редактор Visual Basic или комбинация клавиш Alt - F11;

- в редакторе VBA создать электронную форму - Insert - UserForm;

- вывести на экран элементы управления - View - Toolbox;



рис. 3. Электронная форма

- навести курсор на нужный элемент управления и щелкаем левой кнопкой мышки 1 раз;

- наводим курсор на форму и щелкаем левой кнопкой мышки 1 раз, элемент управления появится на форме;

- затем курсором мы можем изменить размеры, надпись, положение в форме (вверх, вниз и т.д)

- пока элемент управления выделен можно войти в меню надстроек для данного элемента - View - Properties Window;

- в открывшемся мены надстроек можно изменить цвет элемента управления, название, положение в форме, вставить картинку и многое другое (примечание: менять размеры и положение в форме удобнее курсором);

- после того, когда элемент управления готов, курсор направьте в пустое место формы и щелкаем левой кнопкой мышки 1 раз - выделится форма;

- затем вызвать меню настроек для формы - View - Properties Window и выполнить настройки для формы;

- когда электронная форма с элементами готова, подводим курсор на элемент управления и двойным щелчком входим в личный макрос данного элемента, где помощью операторов VBA задаем алгоритм или команды которые будет выполнять элемент управления;

- чтобы электронную форму вывести на экран, нужно в Excel создать лубой элемент управления и назначить ему макрос, в теле макроса

Sub UserForm ()

UserForm.Show

End Sub

UserForm - показан как пример, в программе можно заменять любыми словами например название которое было присвоено электронной форме;

- электронную форму можно традиционным способом щелкнув курсором на крестик в правом верхнем углу или заранее создать в форме элемент управления (например "Выход"), в теле макроса написать

Sub UserForm ()

UserForm. Hide

End Sub

1.2.1 Добавление нового судна

Кнопка "Добавить судно" предназначена для добавления судна в список "Vessels" программы "Base":



рис. 4. Список "Vessels"

При нажатии на кнопку "Добавить судно" осуществляется переход на лист "blank" и отображается сообщение на экране в небольшом диалоговом окне функция MsgBox. Пользователю предложено "Выбрать файл судна" и два варианта ответа:

рис. 5. Функция MsgBox "Выбрать файл судна"

Если пользователь выберет "нет", программа вернется на главный лист "Menu".

Если пользователь выберет "да" на экране отображается диалоговое окно "Открытие документа":

рис. 6. Диалоговое окно "Открытие документа"

После выбора файла судна макрос выполняет проверку на листе "Vessels" в колонке А. Если адрес выбранного файла пользователем совпадет с адресами уже имеющемся в программе, то отображается сообщение на экране в небольшом диалоговом окне функция MsgBox "Такое судно уже есть". Пользователь должен нажать кнопку "ОК", чтобы программа вернулась на главный лист "Menu". Проверка именно по адресу файла необходимо для того, чтобы исключить промах. После добавления судна в программу пользователю будет предложено ввести название судна в программе. Поэтому чтобы проверять по названию судна необходимо вводить полное имя выбранного файла, но пользователь может вводить название судна на русском и английском языках. Тогда в списке судов программы окажется разные суда по названию, но одинаковые по адресам.

рис. 7. Функция MsgBox "Такое судно уже есть"

Если адрес выбранного файла пользователем отсутствует в программе на экране появляется электронная форма "Название судна в программе", необходимо ввести название судна и подтвердить кнопкой "ОК". Название судна вводится в очередную строку столбика В на листе "Vessels". Автоматически вводятся в строку совпадающей с названием судна: путь на жестком диске к файлу судна Excel в столбик А, путь на жестком диске к файлам судна Word в столбики С,D,E,F. Затем макрос автоматически выполняет растоновки имен судов в алфавитном порядке и возвращение программы на главный лист "Menu".

рис. 8. Электронная форма "Название судна в программе"

Если пользователь на выбрал не одного файла то отображается сообщение на экране в небольшом диалоговом окне функция MsgBox "Не выбран не один файл".

рис. 9. Функция MsgBox "Не выбран не один файл"

При изменении местоположения "Ships" с данными по судну, возможно либо удалении информации из листа "Vessels" кнопкой удалить, с последующим вводом новых данных при помощи кнопки "Добавить судна" - автоматизированный ввод, либо если изменения незначительные, возможно прямое редактирование данных в ячейках Vessels.

1.2.2 Открывающийся список

Открывающийся список представляет собой окошко с не спадающей кнопкой. После нажатия на кнопку открывается список судов. Пользователь должен выбрать судно и подтвердить кнопкой "ОК".

рис. 10. Открывающийся список

В данном списке присутствуют суда, информация по которым и названия которых были внесены в программу кнопкой "Добавить судно". Макрос соответствующий данному списку называется ComboBox_DropButtonClick(). В процессе своего функционирования он считывает информацию из диапазона Vessels(B2)-Vessels(B50). Указанный диапазон не имеет ограничений. Так как в директории "Ships" содержится 20-25 судов в макросе указан диапазон В2-В50, при необходимости пользователь всегда может изменить этот диапазон, для этого необходимо:

- войти в редактор VBA одним из способов - Сервис - макрос - Редактор Visual Basic или комбинация клавиш Alt - F11;

- войти VBAProject(Base.xsl) - Forms - Vessels;

- в форме Vessels двойным щелчком левой кнопкой мышки войти в открывающейся список, в теле макроса:

Private Sub ComboBox1_DropButtonClick()

`ссылается на лист "Vessels" задавая ему значение ложь, чтобы оставаться в Menu

Application.ScreenUpdating = False

Dim r As Range

Dim i As Long

Dim myArray() As String

Sheets("Vessels").Select

'сылка на диапозон ячеек

Set rRange = ActiveSheet.Range("b2:b50")

i = 0

'цикл по всем ячейкам rRange

For Each r In rRange

If Len(r.Text) <> 0 Then 'ячейка не пустая

'добавляем в массив

ReDim Preserve myArray(i)

myArray(i) = r.Text

i = i + 1

End If

Next r

' возвращаем массив

ListFromRange = myArray

On Error Resume Next

ComboBox1.List = ListFromRange

Sheets("Menu").Activate

End Sub

1.2.3 Подтверждение выбора

После выбора судна пользователь должен подтвердить свой выбор кнопкой "ОК" ("см. рис. 2.").

При подтверждении выбора выполняется макрос CommandButton3_Click(), который ссылается на выбранное пользователем название судна в открывающемся списке, находит это название в диапазоне ("b2:b50")- лист Vessels, переходит на 1 столбец влево, где прописан путь к файлу Excel c данными по судну. Открывает файл с данными по судну выбранным пользователем, копирует всю необходимую информацию, затем вставляет в листы Data, KETCH, Pant, Emk, Cargo программы "Base".

На листе Vessels в ячейку Н:1 вставляет название выбранного судна, это необходимо для открытия файлов Word (будет описано ниже). Войти в макрос кнопки ОК аналогично открывающемуся списку описанным выше. В теле макроса:

Private Sub CommandButton3_Click()

`ссылка на открывающейся список

a = ComboBox1.Value

`ссылается на лист "Vessels" задавая ему значение ложь, чтобы оставаться в Menu

Application.ScreenUpdating = False

Sheets("Vessels").Select

'находит название выбранное в открывающемся списке(ComboBox1)

Set e = ActiveSheet.Range("B1:B50").Find(a, , , , xlByRows)

'переходим на следующий столбик в лево

m = e.Offset(, -1)

strInput = ComboBox1.Value

'вставляет название судна в ячейку Н1

Range("H1").Value = strInput

'открывает книгу

Workbooks.Open (m)

'копирует данные из диапозона ячеек

Workbooks("Data").Sheets("Data").Range("A1:H20").Copy

'вставляет данные в рабочую книгу "Base"

Workbooks("Base").Sheets("Data").Paste

Workbooks("Data").Sheets("KETCH").Range("A1:T2000").Copy

Workbooks("Base").Sheets("KETCH").Paste

Workbooks("Data").Sheets("Pant").Range("A1:O200").Copy

Workbooks("Base").Sheets("Pant").Paste

Workbooks("Data").Sheets("Emk").Range("A1:H150").Copy

Workbooks("Base").Sheets("Emk").Paste

Workbooks("Data").Sheets("Cargo").Range("A1:H105").Copy

Workbooks("Base").Sheets("Cargo").Paste

Application.DisplayAlerts = False

Workbooks("Data").Close

Sheets("Data").Activate

Range("A1").Select

Sheets("KETCH").Activate

Range("A1").Select

Sheets("Pant").Activate

Range("A1").Select

Sheets("Emk").Activate

Range("A1").Select

Sheets("Cargo").Activate

Range("A1").Select

Sheets("Menu").Select

Application.DisplayAlerts = True

Sheets("Menu").Select

Vessels.Hide

Call play2

End Sub

1.2.4 Удаление судна из базы данных

Кнопка "Удалить судно" удаляет название судна и прописанные к нему адреса файлов из общего списка судов на листе "Vessels" программы "Base". Чтобы удалить судно, пользователь должен выбрать какое судно удалить в открывающимся списке. После выбора нужно подтвердить удаление кнопкой "Удалить судно". При подтверждении выполняется макрос CommandButton2_Click(), который ссылается на выбранное пользователем название судна в открывающемся списке, находит это название в диапазоне ("b2:b50")- лист Vessels- удаляет название, переходит на 1 влево - удаляет путь к файлу Excel c данными по судну, затем аналогично удаляет адреса к файлам Word. В теле макроса:

Private Sub CommandButton2_Click()

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

a = ComboBox1.Value

`ссылается на лист "Vessels" задавая ему значение ложь, чтобы оставаться в Menu

Application.ScreenUpdating = False

Sheets("Vessels").Select

Set e = ActiveSheet.Range("B1:B50").Find(a, , , , xlByRows)

m = e.Offset(, -1).delete

n = e.Offset(, 1).delete

x = e.Offset(, 2).delete

y = e.Offset(, 3).delete

z = e.Offset(, 4).delete

e.Offset(, 0).delete

Sheets("Menu").Select

End Sub

1.3 Описание импортируемых данных

1.3.1 Общие данные

Кнопка "Общие данные" необходима для перехода на лист "Data" в программе "Base", где по конкретному судну пользователю представляется информация в виде:

рис. 11. Лист "Data"

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

1.3.2 Кривые элементов теоретического чертежа

Кнопка "КЭЕЧ" необходима для перехода на лист "KETCH" в программе "Base", где по конкретному судну пользователю представляется кривые элементы теоретического чертежа:

рис. 12. Лист "KETCH"

Для каждого типа судна кривые элементы теоретического чертежа различны. В программе пользователь получает информацию по судам в едином формате. "Термины, символы кривых элементов теоретического чертежа приведены в приложении 2".

1.3.3 Пантокарены

Кнопка "Пантокарены" необходима для перехода на лист "Pant" в программе "Base", где по конкретному судну пользователю представляется пантокарены:

рис. 13. Лист "Pant"

Также как и кривые элементы теоретического чертежа, пантокарены для каждого типа судна различны. В программе пользователь получает информацию по судам в едином формате.

1.3.4 Таблицы емкостей

Кнопка "Таблицы емкостей" необходима для перехода на лист "Emk" в программе "Base", где по конкретному судну пользователю представляется таблицы емкостей:

рис. 14. Лист "Emk"

Таблицы емкостей по каждому судну пользователь едином формате и содержат следующее: грузовые танки; балластные цистерны; топливные цистерны; цистерны пресной воды; прочие запасы. По каждому танку(цистерне) пользователь получает информацию: нумерация шпангоутов; объем 100% и 98%; координаты центра тяжести X-Y-Z; момент инерции свободной поверхности.

1.3.5 Варианты погрузки

Кнопка "Вариант погрузки" необходима для перехода на лист "Cargo" в программе "Base", где по конкретному судну пользователю представляется не учебная таблица погрузки судна:

рис. 15. Лист "Cargo"

1.3.6 Описание судна

Кнопка "Описание судна" открывает файл MS Word с описанием судна.

Описание судна, в общем включает в себя: основные данные; корпус судна; судовые устройства; конструктивная противопожарная защита и изоляция помещений; оборудование помещений; судовые системы; энергетическая установка; электрооборудование; средства связи и сигнализация. При нажатии на данную кнопку открытие выполняет макрос txt1(). Выше было сказано, что когда пользователь подтверждает кнопкой "ОК" свой выбор судна на листе "Vessels" в ячейку Н:1 вставляется название судна соответствующего выбранному судну в открывающемся списке судов. Это необходимо для выполнения макросов которые открывают Word. После выбора судна форма с элементами управления закрывается, следовательно - открывающейся список становится скрытым и макрос не может считать название судна и открыть файл Word. Поэтому когда открывающейся список скрытый, макрос ссылается на ячейку Н:1 на листе "Vessels", где вставлено название выбранного судна. Далее макрос находит название судна в диапазоне ("B1:B50"), переходит на N - количество столбцов в право ("см. рис. 4."), где прописан путь к файлу Word (N - количество столбцов указанно в макросе). Открыть макрос можно через VBA или Сервис- Макрос - Макросы(Alt - F8) выбрать макрос txt1 и нажать кнопку войти. В теле макроса:

Sub txt1()

'лист "Vessels" ячейка H1-считывает название судна в программе

a = Sheets("Vessels").Range("H1")

`ссылается на лист "Vessels" задавая ему значение ложь, чтобы оставаться в Menu

Application.ScreenUpdating = False

Sheets("Vessels").Select

'лист "Vessels" столбец В-находит название судна в программе

Set e = ActiveSheet.Range("B1:B50").Find(a, , , , xlByRows)

'передвигается по строке относительно названия судна в право на 4 столбец

'считывает адрес к документу Word=m

m = e.Offset(, 3)

Set wda = CreateObject("Word.Application")

With wda

Sheets("Vessels").Select

.Visible = True

.Documents.Open (m) 'm=адрес к документу Word

End With

Sheets("Menu").Select

'в момент открытия воспроизводится звук

Call play1

End Sub

1.3.7 Маневренные элементы

Кнопка "Маневренные элементы" открывает файл MS Word с маневренными элементами судна. Маневренные элементы предоставляются пользователю в подробном описании ("рис. 16") или буклет маневренных элементов "WHEELHOUSE POSTER" ("рис. 17").

рис. 16. Маневренные элементы

рис. 17. буклет маневренных элементов "WHEELHOUSE POSTER"

При нажатии на кнопку "Маневренные элементы" открытие выполняет макрос txt2().Макрос txt2() аналогично макросу txt1() ссылается на ячейку Н:1 на листе "Vessels", где вставлено название выбранного судна, находит название судна в диапазоне ("B1:B50") переходит на N - количество столбцов в право ("см. рис. 4."), где прописан путь к файлу Word ("макрос txt2 см. приложение 1").

1.3.8 Палубы, схемы

Кнопка "Палубы, схемы" открывает файл MS Word. Пользователь получает общую схему судна, схемы палуб, схемы отдельных помещений:

рис. 18. Общая схема судна

При нажатии на кнопку "Палубы, схемы" открытие выполняет макрос pic1(). Макрос pic1() аналогично макросу txt1() ссылается на ячейку Н:1 на листе "Vessels", где вставлено название выбранного судна, находит название судна в диапазоне ("B1:B50") переходит на N - количество столбцов в право, где прописан путь к файлу Word ("макрос pic1 см. приложение 1").

1.3.9 Фото судна

Кнопка "Фото судна" открывает файл MS Word с фотографией выбранного судна:

рис. 19. Фотография судна

При нажатии на кнопку "Фото судна" открытие выполняет макрос pic2(). Макрос pic2() аналогично макросу txt1() ссылается на ячейку Н:1 на листе "Vessels", где вставлено название выбранного судна, находит название судна в диапазоне ("B1:B50") переходит на N - количество столбцов в право ("см. рис. 4."), где прописан путь к файлу Word ("макрос pic2 см. приложение 1").

1.3.10 Библиотека

Кнопка "Вариант погрузки" необходима для перехода на лист "library" в программе "Base", где пользователю представлен список книг имеющихся в директории "Ships".

В директории "Ships" создана библиотека - книги в формате PDF, Word и другие. На листе library элементам управления через гиперссылку назначить команду открыть один из файлов. Для открытия Word можно воспользоваться макросом:

Sub ?????()

Set wda = CreateObject("Word.Application")

With wda

Visible = True

'открывает документ Word

.Documents.Open "C:\Ships\?????.doc" 'путь к документу

End With

End Sub

1.3.11 Кнопка "Print"

При нажатии кнопки "Print" появляется электронная форма с элементами управления: кнопка "Общие данные"; кнопка "Пантокарены"; кнопка "Таблицы емкостей"; кнопка "Вариант погрузки"; кнопка "КЭТЧ";

рис. 20. Электронная форма печать

Пользователь может вывести на печать любые из перечисленных данных.

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

Особенность печати КЭТЧ. Для каждого типа судна КЭТЧ разное. Например у судна Moscow КЭТЧ приводится для осадок через 1 см, судно Altai КЭТЧ приводится для осадок через 10 см, судно Pobeda КЭТЧ приводится для осадок через 50 см. Поэтому пользователю предоставляется возможность распечатать весь КЭТЧ для судна Pobeda, для судна Moscow и Altai задать осадку и интервал. На печать с заданным интервалом выводится значения КЭТЧ на заданную осадку, значения КЭТЧ на 10 осадок до и после заданной с заданным интервалом (например: d = 5 м, Дd = 0.1 м, на печать выводится КЭТЧ для d = 4; 4,1; 4,2; 4,4;.......5…….6 м).

Когда выводится на печать весь КЭТЧ печатается с листа "KETCH", для печати с заданной осадкой и интервалом в программы имеется лист "Print". Когда пользователь задал осадку - интервал осадок и подтвердил кнопкой печать на лист "Print" в ячейку А:13 вводится заданная осадка, в ячейку А:1 интервал осадок. На листе "Print" функция ВПР выбирает значения с листа "KETCH".

После лист "Print" выводится на печать.

В теле макроса кнопки "печать":

Private Sub CommandButton7_Click()

`ссылается на лист "Print", чтобы программа не переходила на лист "Print" задаем ему ложь, тогда программа будет в Menu

Application.ScreenUpdating = False

Sheets("Print").Select

strInput = TextBox1.Value

'вставляет заданную осадку в А13

Range("A13").Value = strInput

strInput = TextBox2.Value

'вставляет интервал осадок в А1

Range("A1").Value = strInput

Sheets("Menu").Select

`выводит на печать лист "Print"

ActiveWorkbook.Sheets("Print").PrintOut

End Sub

1.3.12 Кнопка "Погрузить"

После выбора судна и импорта данных возможен экспорт данных в любую программу EXCEL. При этом следует принимать во внимание совместимость форматов и точное указание адресов. Для этого имеется подпрограмма Export. Подпрограмма Export - открывает расчетную программу при нажатии кнопки "Погрузить" и копирует данные судна из программы "Base" в расчетную программу.

В теле макроса:

Sub Export()

`открывает расчетную программу

Workbooks.Open Filename:="C:\Ships\Loadcargo99.xls"

'копирует данные из диапозона ячеек общие данные

Workbooks("Base").Sheets("Data").Range("F2:F22").Copy

'вставляет данные в рабочую книгу "Loadcargo99"

Workbooks("Loadcargo99").Sheets("General").Activate

Range("F12").Select

ActiveSheet.Paste

'копирует данные из диапозона ячеек таблицы емкостей

Workbooks("Base").Sheets("Emk").Range("A2:H120").Copy

Workbooks("Loadcargo99").Sheets("General").Activate

Range("A33").Select

ActiveSheet.Paste

'копирует данные из диапозона ячеек пантокарены

Workbooks("Base").Sheets("Pant").Range("A2:O200").Copy

Workbooks("Loadcargo99").Sheets("General").Activate

Range("M12").Select

ActiveSheet.Paste

'копирует данные из диапозона ячеек КЭТЧ

Workbooks("Base").Sheets("KETCH").Range("A2:T2002").Copy

Workbooks("Loadcargo99").Sheets("General").Activate

Range("AC12").Select

ActiveSheet.Paste

Range("A1").Select

Application.DisplayAlerts = True

End Sub

Пример расчета по программе LOADCARGO99 приведен в главе 3.

1.4 Описание встроенных блоков

1.4.1 Блок "SlideShow"

Блок "SlideShow" в программе "Base" предназначен для просмотра картинок судов.

В книге "Base" создан лист Slide.

В лист Slide скопированы картинки судов в формате JPG.

Первой картинке присвоено название в окошке "Имя" №0, второй картинке присвоено название №1, третьей картинке присвоено название №2, и т.д №3, №4, №5. Картинки судов расположены в листе Slide так, что №1 закрывает №0, №2 закрывает №1,0, №3 закрывает №2,1,0, №4 закрывает №3,2,1,0, №5 закрывает №4,3,2,1,0.

В редакторе Visual Basic:

-выбрать View-Properties Window или нажать кнопку F4

-двойным щелчком мышки открыть Microsoft Excel Objects и выбрать лист Slide

-делаем настройки, присваиваем имя объекту в Microsoft Excel Objects, можем изменить название листа в книги

Слайд-шоу выполняется помощью макроса SlideShow, в теле макроса:

Option Explicit

'для слайд-шоу

Public i As Integer, i1 As Integer, i2 As Integer, i3 As Integer

Public myRange As Variant, myRange1 As Variant, RangeN As Variant

Public PauseTime As Single, Start As Single, Finish As Single

Sub SlideShow()

Sheets("Slide").Select

'устанавливает учередь показа слайдов

Set myRange1 = Foto.Shapes.Range(Array("№0", "№1", "№2", "№3", "№4", "№5"))

For Each myRange1 In myRange1

For i = 1 To 6

myRange1.Visible = True

'время показа 1 слайда

PauseTime = 0.3

Start = Timer

Do While Timer < Start + PauseTime

DoEvents

Loop

Next

Next

`присваиваем слайдам команду ложь

Foto.Shapes.Range(Array("№0", "№1", "№2", "№3", "№4", "№5")).Visible = False 'возврат в меню

Sheets("Menu").Select

End Sub

Если мы хотим чтобы макрос SlideShow выполнялся при запуске программы то в редакторе Visual Basic двойным щелчком мышки открыть Microsoft Excel Objects и выбрать Эта книга, написать макрос:

Private Sub Workbook_Open()

'при открытии книга "Base", выполняются макросы MultiShow

SlideShow

End Sub

В теле макроса SlideShow добавить команду "Sheets("Slide").Activate"

Sub SlideShow()

Sheets("Slide").Activate

'устанавливает учередь показа слайдов

Set myRange1 = Foto.Shapes.Range(Array("№0", "№1", "№2", "№3", "№4","№5"))

For Each myRange1 In myRange1

For i = 1 To 6

myRange1.Visible = True

'время показа 1 слайда

PauseTime = 0.3

Start = Timer

Do While Timer < Start + PauseTime

DoEvents

Loop

Next

Next

`присваиваем слайдам команду ложь

Foto.Shapes.Range(Array("№0", "№1", "№2", "№3", "№4", "№5")).Visible = False

'возврат в меню

Sheets("Menu").Select

End Sub

После таких настроек при запуске программы пользователю будет показано слайд-шоу фотографий судов:

рис. 21. Слайд-шоу фотографий судов

Количество судов в слайд-шоу неограниченно. Пользователь может добавлять фотографии судов в программу, для этого нужно:

- войти в макрос SlideShow(), в конце макроса найти:

`присваиваем слайдам команду ложь

Foto.Shapes.Range(Array("№0", "№1", "№2", "№3", "№4", "№5")).Visible = False

'возврат в меню

Sheets("Menu").Select

- присвоить слайдам команду истина - True, а команду Sheets("Menu").Select удалить;

- войти в список макросов Alt-F8, запустить макрос SlideShow();

- после выполнения макроса скопировать фотографии судов;

- присвоить фотографиям в окошке Имя очередной номер;

- добавить номера в макрос;

- войти в макрос SlideShow(), в конце макроса найти:

`присваиваем слайдам команду ложь

Foto.Shapes.Range(Array("№0", "№1", "№2", "№3", "№4", "№5")).Visible =True

- присвоить слайдам команду ложь - False, написать команду Sheets("Menu").Select

Если мы хотим чтобы макрос SlideShow выполнялся по команде в процессе работы с программой "Base" необходимо:

пример1- создать объект управления и назначить макрос SlideShow. В теле макроса SlideShow добавить команду "Sheets("Slide").Activate".

пример2- в редакторе Visual Basic двойным щелчком мышки открыть Microsoft Excel Objects и выбрать Foto(Slide), написать макрос:

Private Sub Worksheet_Activate()

'когда лист"Slide" активен, выполняется макрос MultiShow

SlideShow

End Sub

В редакторе Visual Basic двойным щелчком мышки открыть Microsoft Excel Objects и выбрать Эта книга, удалить макрос:

Private Sub Workbook_Open()

'при открытии книга "Base", выполняются макросы SlideShow

SlideShow

End Sub

В теле макроса SlideShow удалить команду "Sheets("Slide").Activate".

Создать объект управления для перехода на лист Slide через макрос или через гиперссылку.

1.4.2 Блок "Welcome"

С помощью блока "Welcome" при запуске программы слева выплывает название программы, справа приветствие:

рис. 22. Блока "Welcome"

В листе Menu вставлены два объекта WordArt, в окошке Имя даем имена объектам и имена элементам управления на листе "Menu", это необходимо для удобства написания макроса.

В теле макроса:

Option Explicit

Public i As Integer, i1 As Integer, i2 As Integer, i3 As Integer

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Win32 API Function

Sub Welcome()

'на листе "entr(menu)"-название листа можно изменить

'дать фигурам либо другим объектам команду-ложь

entr.Shapes("name").Visible = msoFalse

entr.Shapes("№1").Visible = msoFalse

entr.Shapes("№2").Visible = msoFalse

entr.Shapes("№3").Visible = msoFalse

entr.Shapes("№4").Visible = msoFalse

entr.Shapes("№5").Visible = msoFalse

entr.Shapes("№6").Visible = msoFalse

entr.Shapes("№7").Visible = msoFalse

entr.Shapes("№8").Visible = msoFalse

entr.Shapes("№9").Visible = msoFalse

entr.Shapes("№10").Visible = msoFalse

entr.Shapes("№11").Visible = msoFalse

entr.Shapes("№12").Visible = msoFalse

entr.Shapes("№13").Visible = msoFalse

entr.Shapes("№14").Visible = msoFalse

'выполняется выход "Добро пожаловать"

With entr.Shapes("welcome")

.Visible = False

.Left = Columns(1).Left

.Top = Rows(4).Top

.Visible = True

For i = 1 To 28

.IncrementLeft 4

DoEvents

Next

End With

'выполняется выход "в базу данных"

With entr.Shapes("Base")

.Visible = False

.Left = Columns(13).Left

.Top = Rows(25).Top

.Visible = True

For i = 1 To 38

.IncrementLeft -10

DoEvents

Next

End With

'задаются координаты объектам welcome и Bas. см.лист(Menu) в маштабе 10

With entr.Shapes("welcome")

.Visible = False

.Left = Columns(1).Left

.Top = Rows(150).Top

.Visible = True

End With

With entr.Shapes("Base")

.Visible = False

.Left = Columns(1).Left

.Top = Rows(180).Top

.Visible = True

'дать фигурам либо другим объектам команду - истина

End With

entr.Shapes("name").Visible = msoTrue

entr.Shapes("№1").Visible = msoTrue

entr.Shapes("№2").Visible = msoTrue

entr.Shapes("№3").Visible = msoTrue

entr.Shapes("№4").Visible = msoTrue

entr.Shapes("№5").Visible = msoTrue

entr.Shapes("№6").Visible = msoTrue

entr.Shapes("№7").Visible = msoTrue

entr.Shapes("№8").Visible = msoTrue

entr.Shapes("№9").Visible = msoTrue

entr.Shapes("№10").Visible = msoTrue

entr.Shapes("№11").Visible = msoTrue

entr.Shapes("№12").Visible = msoTrue

entr.Shapes("№13").Visible = msoTrue

entr.Shapes("№14").Visible = msoTrue

End Sub

1.4.3 Блок "PlaySound"

Блок "PlaySound" предназначен для воспроизведения звуков(музыки) в формате wav, как при запуске программы, так и в процессе работы с программой. Можно использовать стандартные звуки Windows и другие звуки в формате wav. Расположение звуков в компьютере не играет роли, нужно только правильно прописать адреса к звукам в макросах. В данном случае в директории "Ships" создана папка Sound со звуками в формате wav.

В теле макроса:

Option Explicit

'Для всех звуков

Public Const SND_ASYNC = &H1

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub play()

PlaySound "C:\Ships\Sound\ding.wav", ByVal 0&, SND_ASYNC '

End Sub

Sub play1()

PlaySound "C:\Ships\Sound\notify.wav", ByVal 0&, SND_ASYNC '

End Sub

Sub play2()

PlaySound "C:\Ships\Sound\chimes.wav", ByVal 0&, SND_ASYNC '

End Sub

Sub Play3()

PlaySound "C:\Ships\Sound\wmpaud1.wav", ByVal 0&, SND_ASYNC

End Sub

Sub play4()

PlaySound "C:\Ships\Sound\tada.wav", ByVal 0&, SND_ASYNC '

End Sub

Sub play5()

PlaySound "C:\Ships\Sound\Spring.wav", ByVal 0&, SND_ASYNC '

End Sub

2. Операторы используемые в програме

Оператор With…..End With.

Конструкцию With…..End With нельзя назвать управляющим оператором, так как она не влияет на ход выполнения программы, но в некоторых случаях ее удобно использовать как способ упрощения написания кодов программы. Конструкция With…..End With придумана исключительно для удобства программистов, и может избавить от необходимости набора лишних кодов.

Оператор If….Then.

Оператор If….Then используется в программе для выполнения блока инструкций, если заданное логическое условие выполняется. Данный оператор может также выполнять другой блок инструкций, если при вычислении данного условия возвращается значение False. В самой простой форме оператор If выглядит следующим образом:

If условие Then

блок1

End If

Если при вычислении выражения условие возвращается значение True, то операторы, обозначенные выше словом блок 1, выполняются. Если же возвращается значение False, эти операторы на выполняются. Если блок состоит только из одного оператора, ключевое слово End If можно опустить. Существует вариант, в котором присутствует два блока инструкций и ключевое слово Else:

If условие Then

блок1

Else

блок2

End If

Ключевое слово ElseIf позволяет проверить несколько условий:

If условие Then

блок1

ElseIf

блок - n

Else

блок -n

End If

Если требуется проверить достаточно большое количество условий, вместо многократного использования слова ElseIf можно применить оператор Select Case.

Оператор Select Case позволяет осуществлять выбор одного из перечисленных вариантов. Основой выбора служит значение оцениваемого выражения. Вначале оценивается тестовое выражение. Затем программа переходит к списку выражений, начинающихся ключевым словом Case, и сравнивает полученное значение с каждым шаблоном. Если найдено соответствие, выполняется определённый блок инструкций. Если выражение не соответствует ни одному шаблону, выполняется блок инструкций, обозначенных ключевым словом Case Else:

Select Case выражение

Case шаблон-1

блок1

Case шаблон-n

блок - n

Case Else

блок -Else

End Select

Оператор Do…Loop.

Оператор Do…Loop, используется для многократного выполнения одного блока операторов, т.е. для организации циклов.

Оператор Goto.

Оператор Goto приводит к безусловной передачи управления выполнением программы на указанную строку в нутрии процедуры.

Оператор Dim.

Оператор Dim объявляет переменные и резервирует память. Переменные, объявленные оператором Dim на уровне модуля, доступны всем процедурам этого модуля. На уровне процедуры переменные доступны только внутри этой процедуры.

Оператор Call.

Оператор Call передает управление (вызывает) Sub-процедуре, Function-процедуре.

Событие Open.

Событие Open происходит при открытии рабочей книги и может быть применено для выполнения самых разнообразных задач:

- открытие других рабочих книг;

- переход к требуемому рабочему листу;

- настройка пользовательских панелей инструментов.

Объект Range.

Объект Range предназначен для создания ссылки на группу ячеек рабочего листа. Это может быть одна ячейка или прямоугольный блок ячеек любого размера(вплоть до размеров самого рабочего листа).

Функция InputBox.

Функция InputBox отображает на экране диалоговое окно с сообщением и поле для ввода текста пользователем. Текст введенный пользователем, возвращается как значение в вызывающую программу.

Функция MsgBox.

Функция MsgBox отображает сообщение на экране в небольшом диалоговом окне адресованное пользователю сообщение.

3. Типовое наставление по загрузке и остойчивости

Руководство капитану, общие цели наставления

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

2 удовлетворять требованиям Администрации флага судна в отношении одобрения согласно правилу II-1/22 Международной конвенции по охране человеческой жизни на море 1974 г. с поправками, правилу 10 Международной конвенции о грузовой марке 1966 г. и правилу III/10 Торремолиносского протокола 1993 г.; и

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

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

Термины, символы и единицы измерения

Чрезвычайно важно, чтобы на практике моряки использовали в наставлении термины, символы и единицы измерения, отвечающие соответствующим стандартам ИСО*. Заявление о выполнении этого требования должно приводиться в данном разделе. * ИСО 7462 и ИСО 7463, пересмотренные к 2000 г.

Таблица 1 Термины, символы и единицы измерения.

Термин	Используемый символ	Единицы системы СИ
Средняя конструктивная осадка = 0,5 (TKA+TKF)	Ткм	м
Отсчет срединной шкалы конструктивных осадок	ТKR	м
Прогиб корпуса = Ткм - Тк	D	м
Дифферент = TKA+TKF	Т	м
Объемное водоизмещение	L; DISV
Водоизмещение массы (весовое)	Д; DISV	КГ;(Т)
Водоизмещение массы на один см	ТРС	КГ/СМ; (Т/СМ)
Коэффициент площади ватерлинии		-
Х - координата центра плавучести		м
Х - координата центра площади		м
Х- координата центра тяжести		м
Y- координата центра тяжести		м
Z- координата центра тяжести		м
Исправленная Z- координата центра		м
Z- координата метацентра	КМ	м
Метацентрическая высота	GM	м
Исправленная метацентрическая высота	GMc	м
Восстанавливающее плечо	GZ	м
Величина пантокарен		м
Плечо кренящего момента от поперечной составляющей силы ветра		м
Поперечный момент инерции поверхности жидкости	Iв	м4
Момент, изменяющий дифферент на 1	МТС	Нм/см; (tм/см)
Момент, изменяющий дифферент на 1 м	МТС	Нм/см; (tм/см)
Период свободной бортовой качки	Тф	S
Коэффициент бортовой качки	Сф
Давление ветра		Н/ м2
Скорость судна	V	м/с (узлы)
Х-координата отчета осадки кормой		м
Х-координата отчета осадки кормой		м
Х-координата отчета осадки кормой		м
Плотность	р	КГ/ м3 ;Т/ м3



рис. 23.

рис. 24.

Рис. 25.

Эксплуатация судна

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

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

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

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

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

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

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

Должны быть перечислены и объяснены все эксплуатационные ограничения в отношении погрузки и распределения груза и балласта, к примеру:

Контроль осьойчивости, посадки и продольной прочности

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

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

В этом подразделе, при необходимости, должны быть представлены стандартные формы для указания:

1 массы и местоположения запасов;

2 массы и местоположения балласта;

3 массы и местоположения груза;

4 массы и местоположения рыболовных снастей;

5 массы и местоположения обледенения;

6 расчета водоизмещения, местоположения центра водоизмещения и оценки осадки и дифферента; и

7 нанесения кривой восстанавливающих плеч и кривой плеча кренящей силы от ветра.

Стандартная форма по пункту .6.3.3 должна быть подходящей для конкретного вида груза, который намерено перевозить судно, т.е. разное расположение может потребоваться для:

1 штучного навалочного груза;

2 контейнеров;

3 накатных транспортных средств;

4 навалочного (наливного) груза;

5 рыбы; и .6 льда.

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

Один из примеров расчета должен быть снабжен подробным объяснением. В примечании должно быть указано, что при расчете условий нагрузки по меньшей мере один (или пара) топливный танк и танк пресной воды должны рассматриваться не полностью заполненными.

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

Если по требованию судовладельца. Наставление по загрузке и остойчивости должно содержать дополнительную техническую информацию для обеспечения проверки осадки или иных вопросов управления остойчивостью, соответствующее руководство и примеры расчетов должны приводиться в этом подразделе. При необходимости, следует принимать во внимание Руководство ИМО по управлению остойчивостью судна, которое должно быть разработано Организацией.

Пределы остойчивости

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

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

Область данных должна охватывать от наименьшей ожидаемой осадки в море до минимальной назначенной высоты борта.

Альтернативное представление минимальных величин метацентрических высот, исправленных за свободные поверхности жидкостей как определяющего параметра соответствия критериям остойчивости, не должно использоваться для тех судов, где управление остойчивостью будет включать кренование в эксплуатации. Однако, представление максимальных величин KGc как ограничивающих параметров заставит пользователя получать действительную KGc из измеренного GMc. В случае заметного дифферента, он будет вынужден использовать КМ для условий дифферента.

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

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

Критерии продольной прочности

Этот подраздел должен содержать подходящую таблицу для выбранных продольных положений, т.е. шпангоутов или переборок и т.д.:

1 номер шпангоута и его продольную координату;

2 положительные и отрицательные максимально допустимые перерезывающие силы для эксплуатации в условиях порта и моря; и

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

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

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

Максимально допустимые крутящие моменты должны представляться в таблице, как описано в пункте 3.8.1, для судов, чувствительных к скручиванию из-за их конструкции и размещения груза.

4. Guidelines for the on-board use and application of computers

1. The Maritime Safety Committee, at its seventieth session (7 to 11 December 1998), approved the Guidelines for the onboard use and application of computers given at Annex.

2. The advent of inexpensive personal computers has resulted in rapidly-growing usage aboard merchant marine vessels for many shipboard applications, including cargo loading and trim and stability calculations. To the extent that these programmes rely upon human input of data and interpretation of output, they are potentially vulnerable to human factor errors. Although such errors will most likely emerge in the user such as shipboard officers, the actual roots of the errors might be found in other shoreside sectors; software developers who might not anticipate human factor needs, or shipping company management.

3. Requirements to performance of such software will depend on the person/organization involved as follows:

1 for users (ship officers): greater consistency among programmes from different vendors, which will make familiarization and proficiency easier and faster to achieve;

2 for ship owners/operators: availability of well-conceived software products that include appropriate materials for training and also documentation for revising programme or data when necessary for instance to reflect any changes in the ship's weight and moment characteristics;

3 for software developers: the benefit of a broader experience base than just their own corporate experience, and a consistent uniform standard reflecting customer expectations; and

4 for Administrations: assurance that sophisticated programmes are developed and introduced into service, they will reflect human factor considerations and minimize chances for human error.

4. These Guidelines for the on-board use and application of computers have been developed to provide an international standard for the design, approval and testing of such systems and should be construed as supplementary to the relevant regulations of the SOLAS Convention. However, it should be noted that certain applications of computers are defined in performance standards adopted by the Organization which take precedence over these Guidelines.

5. Taking into account that the number and types of computer-based systems available for on-board use is strongly increasing, that such systems are under fast development and the fact that they have considerable effect on the safety at sea, the international harmonization should be beneficial to manufacturers, ship builders, ship owners and ship operators, maritime administrations and organizations acting on their behalf, seafarers, safety of passengers and other users of marine services.

6. The Guidelines are not intended to prohibit the use of any existing computer-based systems on board existing ships if such systems do not fully comply with these Guidelines. Many existing ships have operated their computer-based systems successfully and safely for a long period of time, and their operating history should be considered in evaluating their suitability to continue contributing to the safe operation.

7. For existing systems, the Guidelines should be made applicable to a reasonable extent when major modifications are carried out.

8. Where these Guidelines refer to the Administration, this is the flag State Administration or a recognized organization authorized to act on its behalf. A recognized organization is an organization authorized in compliance with requirements to organizations to act on behalf of Administration issued by IMO.