Курсовая работа
|
|
Курсовая работа по программированию - разработка генератора настольных игр Game.Builder 1.00 (c) by Valery V Shmeleff Moscow/Russia www.oflameron.ru and www.oflameron.com |
|
|
|
Курсовая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 ]
|
|
|
Режимы программы  - режим быстрого формирования игрового бланка на основе специального шаблона (документ Word в формате XML). В этом режиме заново формируются только 4 нижних уровня игровой таблицы. Однако, это ничуть не уменьшит игрового интереса.
Листинг программы |
||||
|
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 |
|
|
|
|
|
|
|
Ещё о программеПрограмма-генератор использует функции MS Word: VB |Project| -> |References| -> и выбрать "Microsoft Word 11.0 Object Library" если Вы используете Microsoft Word 2003 (или "Microsoft Word 9.0 Object Library" и т.д.) 
|
|
|
|
ru.mySoftReview.com - Ежедневно обновляемые обзоры программ, доступные для скачивания |
|
|
