Курсовая работа - программа. Скачать курсовикна Visual Basic. Бесплатная курсовая работа

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

    Курсовая


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

Shmeleff

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

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

Игры
    
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
        
           Союз образовательных сайтов   RuPoisk.ru - каталог товаров и услуг   Каталог HeadNet.Ru   Каталог ссылок. Информационный портал - Старого.NET   СибИнфо. Каталог фирм и товаров Новосибирска

Каталог сайтов, тематичекие ссылки   Работа в интернет  Free bookmarks page  Нашли.com - тематический каталог сайтов, поиск   RUSSIAN-WEB.ORG - Каталог популярных сайтов   Большой Российский каталог сайтов MyKatalog.info   Каталог сайтов Рунета!   Каталог статей, сайтов, ссылок   Каталог сайтов Web URL   Barbie
        

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


ee@oflameron.ru

Курсовая работа - программа. Скачать курсовикна Visual Basic. Бесплатная курсовая работа