Курсовая работа

    Курсовая


    Курсовая работа по программированию - разработка генератора настольных игр Game.Builder 1.00
    (c) by Valery V Shmeleff Moscow/Russia www.oflameron.ru and www.oflameron.com
  

Скачать бесплатно

    
    Вы, конечно же, играли в такие игры как "крестики-нолики" и "морской бой" -
игры на листочках бумаги. Они позволяют не скучно провести время и не требуют особых затрат. В них есть только один недостаток, они всем давно известны. Между тем существует много других настольных игр на листочках бумаги (т.н. настольно-печатных игр), для которых в Internet выложены имиджи игровых бланков. Это очень удобно - скачал имидж и распечатал столько, сколько нужно. Для более "продвинутых" пользователей предлагается специальный генератор - программа, использующая стандартный редактор Word для формирования и печати игровых бланков.
    

    Курсовая работа Здесь представлен "пошаговый" онлайн учебник для программиста на Visual Basic (фактически, книга), в котором показано, как разрабатывалась программа-генератор игровых бланков. Учебник исключительно подробно комментирован, снабжен иллюстрациями и полными VB-проектами (листингами) для каждого этапа разработки. Онлайн учебник легко может быть оформлен как курсовой проект или реферат.
    
    курсовик

Игры
    
game form screenshort
[ vb programmer's tutorial ]

Курсовая

      Game Form.Builder Программа на Visual Basic для автоматического формирования и печати на принтере игровых бланков для настольно-печатной игры Oflameron Программа Game Form.Builder использует функции стандартного редактора MS Word из пакета MS Office. С одной стороны игрового бланка размещено игровое поле - таблица, все ячейки которой имеют специальные номиналы, за которые игрокам начисляются очки. На обратной стороне размещены правила игры, описание, примеры и иллюстрации. Программа имеет два режима: "full" (полный медленный) и "partial" (быстрый или частичный). В "полном" режиме формирования бланка заново просчитываются номиналы всех ячеек игрового поля. Т.к. формирование игрового бланка производится непосредственно в редакторе MS Word, то нужно быть готовым к тому, что это потребует некоторого времени. Полное формирование игрового бланка на компьютере с 1ГГц процессором может занимать до 5 минут. Если Вам это кажется слишком долгим, используйте режим частичного формирования игрового бланка. В этом режиме программы заново формируются только около 15% ячеек игрового поля. особенности игры Oflameron таковы, что это почти никак не снижает игрового интереса. Этот режим позволяет быстро разработать новый вариант бланка и распечатать неоходимое количество. Т.к. игровой бланк формируется в редакторе Word, то Вы можете легко редактировать его, например, разместить в нем рекламу. Вы можете, так же, сохранить документ, переслать по почте и т.д.

      [ Страница 1 ]  [ Страница 2 ]  [ Страница 3 ]  [ Страница 4 ]

  
Скачать

О программе

      Game Form.Builder программа (freeware) на Visual Basic для автоматической разработки и печати игровых бланков для настольно-печатных игр. Вы можете скачать ZIP файл с программой (1.6 Mb), разархивировать его и инсталлировать (setup.exe) Просто отвечайте на вопросы в процессе инсталляции и выбирайте нужные опции. Программа позволяет генерировать игровые бланки в формате документа Word, сохранять и редактировать их. Программа формирует двустронние игровые бланки. Если Ваш принтер поддерживает двустороннюю печать, Вы можете это использовать. Если принтер не поддерживает двустороннюю печать, можно печатать только игровое поле. Программа тестирована с Microsoft Office Word 2003 для OS Windows 2000 и Windows XP
    
    [ Курсовые работы ] :: [ MP3 ] :: [ VB ebook ] :: [ Game ] :: [ Сайты ]
    
    

Игры

Режимы программы

    Standard game form generation - режим полного формирования оригинального игрового бланка (документ Word в формате XML). Значения всех 960 ячеек игровой таблицы будут расчитаны по значениям генератора случайных чисел. Т.к. генератор использует функции MS Word, то это относительно медленный режим. Работа программы в этом режиме может занять около 5 минут.
    Fast game form generation - режим быстрого формирования игрового бланка на основе специального шаблона (документ Word в формате
XML). В этом режиме заново формируются только 4 нижних уровня игровой таблицы. Однако, это ничуть не уменьшит игрового интереса.
    

Листинг программы


    
Source Code on Visual Basic 6.0        Скачать полный 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 ''Выделить всю ячейку, в которой текст "sh" был замене на repltext
          wrd.ActiveWindow.Selection.Font.Color = FntColor ''“T” Цвет символа в ячейке
          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
          
          Формирование игрового бланка в быстром режиме выполняется точно так же, но количество ячеек для пересчета - меньше.    [ VB ebook ]  [ Онлайн учебник ]  [ Скачать бесплатно ]
          
          
        Private Sub Picture3_Click() ''Быстрый режим    Free game
        Pt = App.Path ''Путь к генератору
        Pt = Pt + "\oflameron-form2quick.xml" ''Путь к XML шаблону
        wrd.Visible = True ''Загрузить Word
        Set doc = wrd.Documents.Add(Pt) ''Загрузить Word документ с XML шаблоном
        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 ''Выполнить одностороннюю печать сформированного игрового бланка
          
        End Sub
        
        Private Sub Picture4_Click()
        ShellExecute hwnd, "open", "http://word.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" и т.д.)
        
        VB project references    VB project


        Загрузить VB 6.0 проект:
        
        VB project
        
          Путь к XML шаблону as:
        
          St = App.Path
          St = St + "\oflameron-form2.xml"
        
          для откомпилированного генератора (!)
        
        
          Для использования Builder из среды VB 6.0 корректный путь к шаблону может быт, например, таким:
        
        VB project path
        
          или:
        
        VB project path
        

Программы >>>>  Скачать >>>>  Скачать программы >>>>  Программы бесплатно >>>>  Программы >>>>
        
        

Каталог сайтов, тематичекие ссылки   Работа в интернет  Free bookmarks page  Нашли.com - тематический каталог сайтов, поиск  Каталог сайтов  Натуризм   RUSSIAN-WEB.ORG - Каталог популярных сайтов  Большой Российский каталог сайтов MyKatalog.info  Каталог сайтов Рунета!  Каталог статей, сайтов, ссылок  Каталог сайтов Web URL  Free VB tutorial  Free Delphi tutorial  Бесплатные игры  Онлайн учебник  Учебник по веб дизайну  Барби   Ртищево   Галерея фото   Card game   Netvouz bookmarks page   Barbie   Английский язык   Курсовик бесплатно   Шаблоны   Сайт бесплатно   Игры   Хостинг   Одежда   Игры   Free game   Wallpapers   Проекты   Java скрипты   Web Design   Web templates   Лизуново   MP3   MP3   Free VB ebook   Натуризм   SQL

  Скачать >>>>  Программы >>>>  Скачать программы >>>>  Программы бесплатно >>>>  Программа >>>>
        

ru.mySoftReview.com - Ежедневно обновляемые обзоры программ, доступные для скачивания


ee@oflameron.ru