KAIU. "Шаблоны ГОСТ. Блок-схема и автонумерация блоков в ней" (VBA, Visio) Паучок

Шаблоны ГОСТ. Блок-схема и автонумерация блоков в ней (VBA, Visio)

Главная » Мои программы » "Шаблоны ГОСТ. Блок-схема и автонумерация блоков в ней" (VBA, Visio)

 

Шаблоны ГОСТ. Блок-схема и автонумерация блоков в ней Шаблоны ГОСТ. Блок-схема и автонумерация блоков в ней      Шаблоны ГОСТ-ов для программы Microsoft Visio скаченные с интернета, но добавлен шаблон "ГОСТ 19.003-80. (обз) Схема алгоритмов и программ.vss". С помощью данного шаблона можно вводить сразу блок с нумерацией 0. Нумерацию потом можно поменять как вручную, так и автоматически, для чего в файле "ШаблонБлокСхемСНумерацией.vsd" я и встроил макрос "Перенумерация".
Для возможности работы с макросами надо их разрешить, потом во вкладке "Вид" найти кнопку "Макросы" и нажать на неё. Из списка макросов текущего документа выбрать нужный макрос и нажать кнопку "Выполнить". После запуска макроса "Перенумерация" вам будет предложено ввести номер первого (на листе) блока. По истечению работы макроса вам покажут последний номер блока. Последний номер блока важно знать в случае, когда у вас много страниц в документе, а нумерация на другой странице продолжается (сквозная). Перенумерацию нужно запускать для каждого листа отдельно.
Конечно, на таком малом примере смысла в автонумерации не много, но когда документ большой и имеет более 100 блоков, то при каждом изменении какой-то части менять нумерацию очень напряжно и долго, а стандартная надстройка очень не удобна и работает не так как надо.
Так же в файле "ШаблонБлокСхемСНумерацией.vsd" я встроил макрос "Нумерация". Данный макрос найден на просторах интернета и чуть модифицирован под мои нужды. При включении его вы можете кликать на лист документа и создавать нумерацию. Отключение этого макроса по нажатию кнопки "Пробел".

Новое в версии 1.1
     Подправлен шрифт в файле «AutoStamp», а то был нераспознаваемым.
     В блок-схемах выставлен 9 размер шрифта, а то мало помещалось текста.
     В «ШаблонБлокСхемСНумерацией.vsd» добавлены 3 объекта по умолчанию и сетка сделана фиксированная на 5 мм.

Скачать с этого сайта "Шаблоны ГОСТ. Блок-схема и автонумерация блоков в ней" (VBA, Visio) v1.1 [2.99 Mb]

Скачать с этого сайта "Шаблоны ГОСТ. Блок-схема и автонумерация блоков в ней" (VBA, Visio) v1.0 [2.91 Mb]

Скачать с этого сайта «Справочное руководство по составлении алгоритмов, которые являются необходимой составной частью контрольной и курсовой работы по дисциплине "Информатика"» [71 Kb]
Справочное руководство взято с этого сайта. Там в общем не плохо написано, хоть и ошибки в блок-схемах есть. Вот кому интересно, пусть прочтет и сам заметит эти мелкие недостатки.


Для ответов на mail.ru я часто использую «Автозарисовщик блок-схем» Алексея Ураева (исходник у него потерялся), там была небольшая ошибка для подобных «writeln(x:3);», так что чуть изменил exe файл и вставил в «О программе...» напоминание, как это можно обойти. Не знаю добавит ли автор мои изменения на свой сайт, но вы можете скачать это и у меня по ссылке.








На главную