|
|
Описание программы
Генератор игр - программа, написанная на Visual Basic 6.0, использующая функции известного текстового редактора Microsoft Word для создания, редактирования и печати игровых бланков для настольных игр. Скачать готовую программу можно с веб сайта gamebuilder.narod.ru
Здесь Вы можете познакомиться с полным листингом (полным VB проектом) программы. Листинг тщательно документирован, приложены все необходимые иллюстрации. Вы можете использовать эти материалы совершенно бесплатно, например, как курсовую работу.
Описание игры, правила и примеры Вы можете посмотреть здесь или здесь.
Программа-генератор написана на Visual Basic 6.0 и использует функции стандартного текстового редактора MS Word из пакета MS Office. Программа использует шаблон в формате "Документ XML" для формирования игрового бланка для 1-2 игроков. Игровой бланк имеет размер А4. С одной стороны листа - игровое поле, с обратной - привала игры, скриншот и пример. Если принтер, подключенный к компьютеру поддерживает двустороннюю печать, выполняется печать игрового бланка на одном листе. Сгенерированный игровой бланк может быть сохранен как стандартный документ Word, отредактирован, в бланк может быть помещена реклама.
Программирование
|
|
|
|
|
|
Game Form.Builder - программа для автоматического формирования и печати игровых бланков для настольных игр (т.н. настольно-печатные игры). Использовать генератор игровых бланков очень просто. Скачайте с gamebuilder.narod.ru полную бесплатную версию программы. Распакуйте и инсталлируйте программу. Программа-генератор использует функции текстового редактора MS Word, установленного на Вашем компьютере. Программа тестирована с Microsoft Office Word 2003 под OS Windows 2000 и Windows XP.
[ Учебник VB ] :: [ VB #1 ] :: [ VB #2 ] :: [ VB #3 ]
|
|
|
|
|
If k = 5 Then repltext = "+10"
If k = 5 Then FntColor = wdColorBlack ''Цвет символа
If k = 5 Then CellColor = wdColorWhite ''Цвет фона ячейки +10
If k = 6 Then repltext = "-10"
If k = 6 Then FntColor = wdColorBlack ''Цвет символа
If k = 6 Then CellColor = wdColorWhite ''Цвет фона ячейки -10
If k = 7 Then repltext = "+15"
If k = 7 Then FntColor = wdColorBlack ''Цвет символа
If k = 7 Then CellColor = wdColorWhite ''Цвет фона ячейки +15
If k = 8 Then repltext = "-15"
If k = 8 Then FntColor = wdColorBlack ''Цвет символа
If k = 8 Then CellColor = wdColorWhite ''Цвет фона ячейки -15
If k = 9 Then repltext = "25"
If k = 9 Then FntColor = wdColorBlack ''Цвет символа
If k = 9 Then CellColor = wdColorWhite ''Цвет фона ячейки 25
If k = 10 Then repltext = "T"
If k = 10 Then FntColor = wdColorWhite ''Цвет символа
If k = 10 Then CellColor = wdColorSeaGreen ''Цвет фона ячейки T
If k = 11 Then repltext = "-25"
If k = 11 Then FntColor = wdColorBlack ''Цвет символа
If k = 11 Then CellColor = wdColorWhite ''Цвет фона ячейки -25
If k = 12 Then repltext = "P"
If k = 12 Then FntColor = wdColorBlack ''Цвет символа
If k = 12 Then CellColor = wdColorLightBlue ''Цвет фона ячейки P
If k = 13 Then repltext = "B"
If k = 13 Then FntColor = wdColorBlack ''Цвет символа
If k = 13 Then CellColor = wdColorLightYellow ''Цвет фона ячейки B
If k = 14 Then repltext = "Z"
If k = 14 Then FntColor = wdColorWhite ''Цвет символа
If k = 14 Then CellColor = wdColorBlack ''Цвет фона ячейки Z
If k = 15 Then repltext = "Z"
If k = 15 Then FntColor = wdColorWhite ''Цвет символа
If k = 15 Then CellColor = wdColorBlack ''Цвет фона ячейки Z
If k = 16 Then repltext = "End"
If k = 16 Then FntColor = wdColorWhite ''Цвет символа
If k = 16 Then CellColor = wdColorRed ''Цвет фона ячейки End
If k = 17 Then repltext = "-10"
If k = 17 Then FntColor = wdColorBlack ''Цвет символа
If k = 17 Then CellColor = wdColorWhite ''Цвет фона ячейки -10
If k = 18 Then repltext = "-5"
If k = 18 Then FntColor = wdColorBlack ''Цвет символа
If k = 18 Then CellColor = wdColorWhite ''Цвет фона ячейки -5
|
|
|
If k = 19 Then repltext = "-1"
If k = 19 Then FntColor = wdColorBlack ''Цвет символа
If k = 19 Then CellColor = wdColorWhite ''Цвет фона ячейки -1
If k = 20 Then repltext = "+1"
If k = 20 Then FntColor = wdColorBlack ''Цвет символа
If k = 20 Then CellColor = wdColorWhite ''Цвет фона ячейки +1
If k = 21 Then repltext = "+5"
If k = 21 Then FntColor = wdColorBlack ''Цвет символа
If k = 21 Then CellColor = wdColorWhite ''Цвет фона ячейки +5
'=============================
wrd.ActiveWindow.Selection.Find.Text = "sh" ''Искать “sh” в каждой ячейке шаблона
wrd.ActiveWindow.Selection.Find.Replacement.Text = repltext ''Заменить текст "sh" на repltext
wrd.ActiveWindow.Selection.Find.Wrap = wdFindContinue ''Продолжить поиск
wrd.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceOne ''Заменить
wrd.ActiveWindow.Selection.SelectCell ''Выделить всю ячейку
wrd.ActiveWindow.Selection.Font.Color = FntColor ''Заменить цвет символа в ячейке на нужный
wrd.ActiveWindow.Selection.Cells.Shading.BackgroundPatternColor = CellColor ''Заменить цвет фона выделенной ячейки
Next j
Next i
wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1,2", ManualDuplexPrint:=False ''Напечатать страницы 1 и 2
End Sub
Private Sub Picture3_Click() ''Quick mode
''Быстрый режим формирования игрового бланка
Pt = App.Path ''Путь к программе-генератору
Pt = Pt + "\oflameron-form2quick.xml" ''Путь к XML шаблону
wrd.Visible = True ''Запустить Word
Set doc = wrd.Documents.Add(Pt) ''Загрузить документ Word
Dim k, g
g = 896
For i = 0 To 15
For j = 0 To 3 ''Формировать только уровни 0-3
Randomize ''Используем генератор случайных чисел
k = Int((20 * Rnd) + 1)
g = g + 1
frmOflameron.Caption = "Complete " + CStr(g) + " cells from 960"
If k = 1 Then repltext = "1"
If k = 1 Then FntColor = wdColorBlack ''Цвет символа
If k = 1 Then CellColor = wdColorWhite ''Цвет фона ячейки +1
If k = 2 Then repltext = "-1"
If k = 2 Then FntColor = wdColorBlack ''Цвет символа
If k = 2 Then CellColor = wdColorWhite ''Цвет фона ячейки -1
If k = 3 Then repltext = "5"
If k = 3 Then FntColor = wdColorBlack ''Цвет символа
If k = 3 Then CellColor = wdColorWhite ''Цвет фона ячейки +5
If k = 4 Then repltext = "-5"
If k = 4 Then FntColor = wdColorBlack ''Цвет символа
If k = 4 Then CellColor = wdColorWhite ''Цвет фона ячейки -5
|
|
|
If k = 5 Then repltext = "+10"
If k = 5 Then FntColor = wdColorBlack ''Цвет символа
If k = 5 Then CellColor = wdColorWhite ''Цвет фона ячейки +10
If k = 6 Then repltext = "-10"
If k = 6 Then FntColor = wdColorBlack ''Цвет символа
If k = 6 Then CellColor = wdColorWhite ''Цвет фона ячейки -10
If k = 7 Then repltext = "+15"
If k = 7 Then FntColor = wdColorBlack ''Цвет символа
If k = 7 Then CellColor = wdColorWhite ''Цвет фона ячейки +15
If k = 8 Then repltext = "-15"
If k = 8 Then FntColor = wdColorBlack ''Цвет символа
If k = 8 Then CellColor = wdColorWhite ''Цвет фона ячейки -15
If k = 9 Then repltext = "25"
If k = 9 Then FntColor = wdColorBlack ''Цвет символа
If k = 9 Then CellColor = wdColorWhite ''Цвет фона ячейки 25
If k = 10 Then repltext = "T"
If k = 10 Then FntColor = wdColorWhite ''Цвет символа
If k = 10 Then CellColor = wdColorSeaGreen ''Цвет фона ячейки T
If k = 11 Then repltext = "-25"
If k = 11 Then FntColor = wdColorBlack ''Цвет символа
If k = 11 Then CellColor = wdColorWhite ''Цвет фона ячейки -25
If k = 12 Then repltext = "P"
If k = 12 Then FntColor = wdColorBlack ''Цвет символа
If k = 12 Then CellColor = wdColorLightBlue ''Цвет фона ячейки P
If k = 13 Then repltext = "B"
If k = 13 Then FntColor = wdColorBlack ''Цвет символа
If k = 13 Then CellColor = wdColorLightYellow ''Цвет фона ячейки B
If k = 14 Then repltext = "Z"
If k = 14 Then FntColor = wdColorWhite ''Цвет символа
If k = 14 Then CellColor = wdColorBlack ''Цвет фона ячейки Z
If k = 15 Then repltext = "Z"
If k = 15 Then FntColor = wdColorWhite ''Цвет символа
If k = 15 Then CellColor = wdColorBlack ''Цвет фона ячейки Z
If k = 16 Then repltext = "End"
If k = 16 Then FntColor = wdColorWhite ''Цвет символа
If k = 16 Then CellColor = wdColorRed ''Цвет фона ячейки End
If k = 17 Then repltext = "-10"
If k = 17 Then FntColor = wdColorBlack ''Цвет символа
If k = 17 Then CellColor = wdColorWhite ''Цвет фона ячейки -10
If k = 18 Then repltext = "-5"
If k = 18 Then FntColor = wdColorBlack ''Цвет символа
If k = 18 Then CellColor = wdColorWhite ''Цвет фона ячейки -5
If k = 19 Then repltext = "-1"
If k = 19 Then FntColor = wdColorBlack ''Цвет символа
If k = 19 Then CellColor = wdColorWhite ''Цвет фона ячейки -1
If k = 20 Then repltext = "+1"
If k = 20 Then FntColor = wdColorBlack ''Цвет символа
If k = 20 Then CellColor = wdColorWhite ''Цвет фона ячейки +1
If k = 21 Then repltext = "+5"
If k = 21 Then FntColor = wdColorBlack ''Цвет символа
If k = 21 Then CellColor = wdColorWhite ''Цвет фона ячейки +5
'=============================
wrd.ActiveWindow.Selection.Find.Text = "sh" ''Искать текст “sh” на шаблоне формы
wrd.ActiveWindow.Selection.Find.Replacement.Text = repltext ''Заменить текст "sh" на repltext
wrd.ActiveWindow.Selection.Find.Wrap = wdFindContinue ''Продолжить поиск
wrd.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceOne ''Замена
wrd.ActiveWindow.Selection.SelectCell ''Выделить всю найденную ячейку
wrd.ActiveWindow.Selection.Font.Color = FntColor ''Заменить цвет символа
wrd.ActiveWindow.Selection.Cells.Shading.BackgroundPatternColor = CellColor ''Заменить цвет фона выделенной ячейки
Next j
Next i
wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1,2", ManualDuplexPrint:=False ''Напечатать страницы 1 и 2
End Sub
Private Sub Picture4_Click()
ShellExecute hwnd, "open", "http://play.oflameron.ru", vbNullString, vbNullString, conSwNo
End Sub
Private Sub Picture5_Click()
ShellExecute hwnd, "open", "http://www.oflameron.com", vbNullString, vbNullString, conSwNo
End Sub
Private Sub Picture6_Click()
ShellExecute hwnd, "open", "http://delphi.oflameron.com", vbNullString, vbNullString, conSwNo
End Sub
Private Sub Picture7_Click()
End
End Sub
Настройка для использования функций MS Word: VB |Project| -> |References| -> и выбрать "Microsoft Word 11.0 Object Library" если Вы используете Microsoft Word 2003 (или "Microsoft Word 9.0 Object Library" и т.д. для других версий Word)
|
|
|
Загрузить VB 6.0 проект:
Путь к XML шаблону:
St = App.Path
St = St + "\oflameron-form2.xml"
для откомпилированного EXE Builder приложения (!)
Для использования Builder из VB 6.0 the корректный путь:
или:
Android JAVA Developer
Разрабатываю приложения для Android смартфонов. Как пример - Photo Web Cam, AudioREG, Big Int PRNG, Pig Prime INT NUMBERS
Photo Web Cam - Фото Веб Камера из Android смартфона. Полный проект Android Studio фоторегистратора из телефона. В ZIP архиве есть документ README.docx с подробным описанием. Реальное коммерческое приложение в исходных кодах. Бесплатно. Просто скачайте, разберитесь и используйте. Это действительно интересный проект с отличным функционалом.
Big Prime NUMBER >>
Фото Веб КАМЕРА >>
Source Code Android STUDIO
JAVA ПРОЕКТ WebCam >>
Курсовой проект Полный Android JAVA проект приложения PhotoWebCam. Качественное приложение - Фото Веб Камера с FTP клиентом. Компилируется, инсталлируется, работает
Для собственных разработок или в качестве отличного курсового проекта. Библиотека Apache FTP Client подключена в проект. ZIP архив для скачивания
JAVA ПРОЕКТ PRNG 1024 bit >>
Курсовой проект Полный Android JAVA проект качественного генератора псевдослучайных чисел большой размерности 1024 бит BigIntPRNG1024bit. Компилируется, инсталлируестся, работает
В проекте оставлено много комментариев и LOG сообщений. В проекте есть файлы README.txt и Android_Java_PRNG.docx с кратким описанием. Для работы приложения необходимо ввести в самое верхнее текстовое поле английский текст и/или цифры больше 100 знаков - исходные данные для генерирования (мастер-ключ). В приложении используется несколько уровней последовательной генерации с использованием алгоритма Blum-Blum-Shub. ZIP архив - 24 249 699 байт.
Нейронная Сеть на JAVA >>
Полный Android JAVA проект SimpleNNeuron. Проект простейшей Нейронной Сети на Android JAVA (Часть 1). Проект комопилируется в Android Studio и работает. Вывод данных в Log i.
Это проект начального прототипа нейронной сети (работающая заготовка, шаблон) из 6 нейронов. Прототип создает нейронную сеть, инициализирует ее и выводит результаты в Log i. В части 2 проекта реализована возможность тренировки нейронной сети.
Android Java Developer - разработчик JAVA приложений, классов, методов, библиотек. Фоторегистраторы и аудиорегистраторы с загрузкой на веб-сервер или в Telegram канал, трекеры c SMS-информированием, программные модули для автопилотов БПЛА, качественные Big Int PRNG (генераторы случайных чисел большой размерности, Blum-Blum-Shub), "генераторы" простых чисел большой размерности, RSA и AES шифрование, HTTP GET/POST Request, работа с SQLite, Интернет-радио.
Big Int PRNG >>
Photo Web Cam >>
REPOSITORY >>
Vernam CODE >>
Creative PICTURES >>
Курсовой проект >>
|
|
|