Курсовые работы по программированию - скачай бесплатно. Курсовики и рефераты.

Скачать игры Курсовик

Oflameron

Английский язык

Игры

Онлайн учебники

Бесплатные сайты

Visual Basic

Delphi

Программирование на VB

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

    Программа разработана с использованием автоматизации OLE (связывание и внедрение объектов) и рассчитана на программистов начального уровня.

    Как правило, на большинстве используемых компьютеров уже установлен MS Word. При этом вы получаете в своё распоряжение библиотеку Microsoft Word Object Library, которую нужно подключить к текущему проекту через диалоговое окно Project (Разработать) -> References (Ссылки) и указать Microsoft Word 11.0 Object Library (для Word 2003 или Microsoft Word 9.0 Object Library для Word 2000). Для MS Word других версий имя библиотеки будет другое.                Перекодировщик Cyrillic -> Unicode на VB

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

    Для работы с документами Word используются два объекта Word - Word.Application и Word.Document, обеспечивающие доступ к экземпляру приложения и документам Word Объект Application, задающий приложение, определяет свойства и поведение приложения в целом. Он содержит коллекцию документов данного приложения - документы в приложении Word, рабочие книги в Excel и т.д. Подробное описание – см. http://www.citforum.ru/programming/vb/vba_word/2.shtml

    Вначале надо в разделе Generals "Общее" формы ввести код для объявления объектных переменных приложения Word и документа Word.

    Dim wrd As New Word.Application '' Создать экземпляр Word как COM
    Dim Pt As String, St As String ''Объявим переменные

Когда открывается приложение Word, создается коллекция документов Documents, содержащая открытые документы. Если приложение Word создается в момент открытия документа Word, то в начальный момент коллекция содержит минимум один новый или ранее существовавший документ. Программно новый документ добавляется в коллекцию методом Add, а уже существующий (на диске) - методом Open объекта Documents. Чтобы выбрать нужный документ коллекции, достаточно указать его индекс - имя файла, хранящего документ, - или его порядковый номер в коллекции. Для метода Open обязательно нужно указывать имя (путь) к открываемому файлу. Однако, указывать полный путь к файлу неудобно для обеспечения переносимости программы. Поэтому просто разместим открываемый документ (oflameron.doc) в том же каталоге, что и программу.

    St = App.Path ''Путь к программе
    St = St + "\oflameron.doc" ''Путь к DOC шаблону
    wrd.Visible = True ''Загрузить редактор Word
    Set doc = wrd.Documents.Add(St) ''Загрузить документ в Word (шаблон)

    В программе-генераторе используем шаблон формата Word Document oflameron.doc

     Скачать

    Создадим форму и разместим на ней кнопку Command1

     Бесплатно скачать

    Private Sub Command1_Click()
    St = App.Path ''Путь к программе
    St = St + "\oflameron.doc" ''Путь к DOC шаблону
    wrd.Visible = True ''Загрузить редактор Word
    Set doc = wrd.Documents.Add(St) ''Загрузить документ в Word (шаблон)
    End Sub

    По нажатию кнопки будет запускаться приложение Word и загружаться документ с шаблоном игрового бланка oflameron.doc

    Полный листинг VB проекта – в файле project1small.zip

    В шаблоне-документе уже есть две таблицы с ячейками. В каждой таблице – две строки и 5 колонок. Все ячейки таблицы - пустые. В качестве примера напишем программу, заполняющую ячейки первой таблицы значениями, определяемыми генератором случайных чисел, центрирующую символы в ячейках и устанавливающую цветовые атрибуты ячеек (в соответствии с правилами игры http://play.oflameron.ru/ )
    [-1,-5,-10,-15,-25] - убавляют соответствующее количество очков с Вашего счета
    [1,5,10,15,25] - прибавляют соответствующее количество очков к Вашему счету
    [B] - убавляет с Вашего счета 200 очков
    [P] - добавляет к Вашему счету 100 очков
    [T] - добавляет к Вашему счету 500 очков
    [Z] - обнуляет Ваш счет
    [END] - заканчивает игру

    и заменить цвет ячеек таблицы соответственно их номиналам.

    Таблица в игровом бланке имеет 2 строки и 5 колонок. Составим два вложенных цикла для последовательного перебора ячеек всей таблицы:

    For i = 0 To 1
        For j = 0 To 5
        .........
        Next j
    Next i

    Номинал ячейки будем определять в соответствии с результатом, сгенерированным генератором случайных чисел

    Randomize ''Используем генератор случайных чисел
        k = Int((20 * Rnd) + 1)
    g = g + 1 ''Просто счетчик обработанных ячеек таблицы

    На каждое, сгенерированное значение, мы устанавливаем соответствующее значение номинала ячейки и её цветовые атрибуты.

    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.Documents.Application.ActiveDocument.Tables.Count - подсчитывает количество таблиц уже имеющихся в документе

    Выведем информацию о количестве таблиц в заголовок формы

    Oflameron.Caption = wrd.Documents.Application.ActiveDocument.Tables.Count

    wrd.Documents.Application.ActiveDocument.Tables.Item(1).Cell(i, j) - выбрать таблицу 1 Tables.Item(1) и перебирать ячейки в цикле Cell(i, j)

    Полный листинг VB проекта – в файле project2small.zip

    Зададим центрирование символов в ячейках таблицы 1. Сначала выделим таблицу 1 (все ячейки таблицы 1)

    wrd.Documents.Application.ActiveDocument.Tables.Item(1).Select

    пока фокус установлен на вашем приложении, вы не увидите выделения. Кликните на загруженном экземпляре Word с загруженным документом oflameron.doc и вы увидите, что вся таблица выделена.

    Длинная строка wrd.Documents.Application.ActiveDocument.ActiveWindow.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter - задает выравнивание содержимого ячеек по центру.

    Зададим тип используемого шрифта, его размер и оформление – для всех выделенных ячеек сразу.

    wrd.Documents.Application.ActiveDocument.ActiveWindow.Selection.Font.Name = "Arial" - задать тип шрифта

    wrd.Documents.Application.ActiveDocument.ActiveWindow.Selection.Font.Size = 10 - размер шрифта

    wrd.Documents.Application.ActiveDocument.ActiveWindow.Selection.Font.Bold = wdToggle - начертание (оформление) шрифта – полужирный

    Полный листинг VB проекта – в файле project3small.zip

    Создадим на форме еще одну кнопку Command3. Заменим оформление ячеек таблицы 1

    wrd.Documents.Application.ActiveDocument.Tables.Item(1).Cell(2, 2).Select - выделить ячейку таблицы 1

    wrd.Documents.Application.ActiveDocument.ActiveWindow.Selection.Font.Color = wdColorGreen - заменить цвет символов в ячейке таблицы 1

    wrd.Documents.Application.ActiveDocument.ActiveWindow.Selection.Cells.Shading.BackgroundPatternColor = wdColorLightYellow - поменять цвет фона ячейки таблицы 1

    Полный листинг VB проекта – в файле project4small.zip

    Распечатаем документ на принтере. Создадим еще одну кнопку на форме Command4

    wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1,2", ManualDuplexPrint:=False - распечатать одну копию страниц 1 и 2 (если есть две или более страниц). Печать односторонняя.

    Полный листинг VB проекта – в файле project5small.zip

    Сохраним документ на диске. Создадим еще одну кнопку на форме Command5

    wrd.Documents.Application.ActiveDocument.SaveAs ("c:/oflameron_new.doc")

    Закрыть приложение Word без запроса на сохранение документа. Кнопка Command6

    wrd.Quit True

    Выйти из программы. Кнопка Command7

    End

    Полный листинг VB проекта – в файле project6small.zip

    Более полный он-лайн учебник по работе с редактором Word из программ на Visual Basic можно посмотреть здесь http://guide.oflameron.ru/