Курсовой проект
   Генератор игр
Генератор игр на 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 - Кнопка запуска режима полного формирования игрового бланка.
    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 = 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 project references    VB project


        
        Загрузить VB 6.0 проект:
        
        VB project
        
          Путь к XML шаблону:
        
          St = App.Path
          St = St + "\oflameron-form2.xml"
        
          для откомпилированного EXE Builder приложения (!)
        
        
          Для использования Builder из VB 6.0 the корректный путь:
        
        VB project path
        
          или:
        
        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 архив
      
      
  Нейронная Сеть на 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 >>
      
      
Курсовой проект >>
      

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