Используются технологии uCoz

Используются технологии uCoz

Используются технологии uCoz

Используются технологии uCoz

Все, конечно же, играли в такие игры как "крестики-нолики" и "морской бой" - игры на листочках бумаги. Они позволяют не скучно провести время при минимуме материальных затрат. В них есть только один недостаток, они всем давно известны. Между тем существует много других настольных игр на листочках бумаги (т.н. настольно-печатных игр), для которых в Internet выложены имиджи игровых бланков. Это очень удобно - скачал имидж и распечатал столько, сколько нужно. Для более "продвинутых" пользователей предлагается специальный генератор - программа, использующая стандартный редактор Word для формирования и печати игровых бланков.          Курсовая работа Здесь представлена "пошаговая" курсовая работа по программированию на Visual Basic (фактически, книга), в которой показано, как разрабатывалась программа-генератор игровых бланков. Курсовик исключительно подробно комментирован, снабжен иллюстрациями и полными VB-проектами (листингами) для каждого этапа разработки. Курсовик легко может быть оформлен как реферат. Курсовик так же полезен начинающим разработчикам офисных приложений - для экспорта/импорта данных, подготовки данных для отчетов и качественной печати отчетов с использованием функций популярного редактора MS Office Word 2003.           game form screenshort [ vb programmer's tutorial ]

Используются технологии uCoz

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

Используются технологии uCoz

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

Используются технологии uCoz

		- режим полного формирования оригинального игрового бланка (документ Word в формате XML). Значения всех 960 ячеек игровой таблицы будут расчитаны по значениям генератора случайных чисел. Т.к. генератор использует функции MS Word, то это относительно медленный режим. Работа программы в этом режиме может занять около 5 минут.      - режим быстрого формирования игрового бланка на основе специального шаблона (документ Word в формате XML). В этом режиме заново формируются только 4 нижних уровня игровой таблицы. Однако, это ничуть не уменьшит игрового интереса.          Рассмотрим листинг программы на Visual Basic
		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() ''Стандартный режим формирования бланка             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

Используются технологии uCoz

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

Используются технологии uCoz

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() ''Быстрый режим             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

Используются технологии uCoz

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