Пояснения к изготовлению электронной книги

   Электронные книги стихов такой оригинальной формы я когда-то делал. К настоящему времени накопилось много новых стихов, и я решил возобновить выпуск электронных книг. Они не только интересно выглядят, но и удобны для чтения стихов вслух на Рутубе.
   И тут-то выяснилось, технику того, как делается электронная книга, я немного подзабыл. Потому, чтобы такого не случилось в будущем, я подробно разобрался в ней, и описал процесс изготовления электронной книги в этой статье. Статья может быть интересна тому, кто занимается программированием в настоящее время, или занимался им в прошлом.
___________


   Файлы, находящиеся в папке «Пример», могут быть взяты за основу для изготовления книги своих стихов.
   Работа по созданию книги состоит из двух частей -

1. Тексты с названием и ником автора копируются со страниц сайта стихи.ру в текстовый файл T.txt (для этого используется программа Блокнотик), а перед каждым текстом ставится строка со знаком диез в первой позиции и номером текста вслед за ним (если иллюстрации к тексту не предполагается, то номер строки можно не ставить).
   Затем, с помощью программы CON_T текст конвертируется в удобный для внедрения в книгу вид. В результате получаются два файла - A.txt и AL.txt. Например, этот текст -

#0
Новые стихи
---эта строка автоматически заменяется пустой - пропуск
публикую новые стихи со странички
Геннадий Маков на сайте Стихи.ру
#1
в масть
Геннадий Маков
Так душиста на вкус, как, при полной Луне,
Можжевельника куст в ежевичной стране,

будет преобразован в такие два:
в файле A.txt -


CASE 0
Call TT("Новые стихи")
Call TT("")
T("публикую новые стихи со странички")
T("Геннадий Маков на сайте Стихи.ру")

CASE 1
'If PP = 1 Then Picture1.PaintPicture Image1, 5, 50, 130, 130
Call TT("в масть")
Call TT("")
T("Так душиста на вкус, как, при полной Луне,")
T("Можжевельника куст в ежевичной стране,")

и в файле AL.txt -

List1.AddItem "Новые стихи"
List1.AddItem "в масть"

2. Затем переходим в Бейсик и внедряем первый текст сюда:

Select Case NP 'далее вставляется текст книги
… …
End Select
End Sub

а второй текст внедряем сюда:

Sub LI()
'далее вставляется оглавление книги
… …
End Sub

   Теперь программу можно запускать и смотреть, что получилось. Естественно, что тексты стихов и их названия можно исправлять прямо в тексте программы. Задавая значения dXt можно сдвигать начало строк в тексте стихотворения вправо или влево. Указание dXt=0 делает отступ от левого края штатным (равным 150).

   Программа не знает, сколько стихов в неё загрузили, поэтому, для нормальной её работы это число нужно указать явно в разделе Private Sub Form_Load()  например так - NPmax=30
Титульный лист книги в это число не входит.

ВНЕДРЕНИЕ КАРТИНОК

   Поскольку указывающая на рисунок внедрённая строка
'If PP = 1 Then Picture1.PaintPicture Image1, 5, 50, 130, 130
начинается с апострофа, она воспринимается как комментарий, и никакой картинки рядом с текстом стихотворения не появляется.
   Картинки для электронной книги приготовляются в формате bmp в очень миниатюрном размере, в каком вы их видите на иллюстрации, тогда таких картинок можно внедрить много.
   Внедряем мы их как элемент Image, перетаскивая иконку Image на форму и обозначаем её верхний левый угол как небольшой квадратик с таким расчётом, чтобы вновь внедрённая картинка не заслоняла остальных. Затем в пункте меню Image.Picture вводимой картинки загружаем приготовленный нами рисунок, а в пункте Image.Visible делаем рисунок невидимым.
   После чего снимаем апостроф с приведённой выше строка, и поправляем номер указанного там элемента Image. Запускаем программу и смотрим, что получилось - рисунок появится левее текста, углом в позиции x=5 y=50 и в изменённом размере 130х130. Исправляя указанные цифры, вы увеличиваете рисунок и располагаете его относительно текста так, как вам этого хочется. Нужно учесть, что при прокрутках текста вверх и вниз рисунок не смещается.

   К уже имеющимся стихам можно добавить новые, просто дописав содержимое файлов A и AL к уже имеющемуся тексту и исправив номера Case на последующие.   
   Если вы делаете сборник стихов нескольких авторов, то конвертируйте текст не в опции 1 а в опции 2 - тогда имя автора пропускаться не будет.

   Видео, в котором показан процесс изготовления книги, смотрим тут -
https://rutube.ru/video/3799e782af451a151be027efff0e05cd/   

   Исходники программы «Книга стихов» находятся в файлах Проект1, Проект1.VBW, Form1 и Form1.FRX эти файлы можно скачать отсюда - https://disk.yandex.ru/d/bnxP1_b6DVDQNA
   Исходники программы CON_T находятся тут - https://disk.yandex.ru/d/Fl3yK5OMefDQpQ

__________
22.05.2026