Visual Basic. Программирование на VB

Курсовой проект

Генератор игр на Visual Basic
Генератор настольно-печатных игр на Visual Basic - руководство программиста

Курсовики на VB

VB tutorial

Free tutorial

Visual Basic

Игра

Описание программы

    Генератор игр - программа, написанная на 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 ]

    Программа вовсе не так сложна, как может показаться. Принцип ее работы весьма прост - запускается редактор Word и в него загружается XML шаблон игрового бланка. Затем в каждой ячейке (для полного режима) игрового бланка ищется текст "sh" и заменяется на вычисленный номинал. Номинал расчитывается на основе значений генератора случайных чисел. Затем меняются цветовые атрибуты символов в ячейке и фона ячейки. Далее все выполняется для следующей ячейки. В принципе, можно было обойтись без функций поиска, в прямую производя адресацию ячеек. Но это как один из возможных вариантов.

    Программа использует 2 режима генерирования игровых бланков - полный и быстрый. В полном режиме заново просчитываются все ячейки игрового поля. В быстром режиме заново просчитываются ячейки только нижних 5 уровней. Т.к. программа использует функции MS Word, то формирование бланка в полном режиме может занять несколько минут. Для тех, кто не хочет ждать, рекомендуется быстрый режим.

     Visual Basic - Кнопка запуска режима полного формирования игрового бланка.
     - Кнопка запуска быстрого режима формирования игрового бланка.

    Source Code on Visual Basic 6.0        VB CODE DOWNLOAD >>    СКАЧАТЬ ЛИСТИНГ на VB >>

    Dim wrd As New Word.Application ''Создать экземпляр Word как COM объект    [ web1 ] [ web2 ] [ web3 ] [ web4 ] [ vb ]
    Dim Pt As String, St As String ''Объявим переменные

    Private Sub Picture2_Click() ''Полный режим формирования игрового бланка     Free game
        St = App.Path ''Путь к программе-генератору
        St = St + "\oflameron-form2.xml" ''Путь к XML шаблону
        wrd.Visible = True ''Запустить Word
        Set doc = wrd.Documents.Add(St) ''Загрузить документ Word
        Dim k, g
        For i = 0 To 15
          For j = 0 To 59
          Randomize ''Использовать генератор случайных чисел
          k = Int((20 * Rnd) + 1)
          g = g + 1
          frmOflameron.Caption = "Complete " + CStr(g) + " cells from 960"    [ vb guide ] [ Free tutorials ]

          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 = 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 project references

        Загрузить VB 6.0 проект:

         VB project

          Путь к XML шаблону:

          St = App.Path
          St = St + "\oflameron-form2.xml"

          для откомпилированного EXE Builder приложения (!)


          Для использования Builder из VB 6.0 the корректный путь:

         VB project path

          или:

      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 >>
      Фото Веб КАМЕРА >>

       Android JAVA Developer

      Source Code
        Полный JAVA ПРОЕКТ WebCam >>
      Полный Android JAVA проект приложения PhotoWebCam. Компилируется. Работает Для собственных разработок. Библиотека Apache FTP Client включена. ZIP архив

      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 >>

      Курсовой проект >>

Курсовой проект