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

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

Курсовая работа на Visual Basic

    
      
    
    Для работы с документами 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 ''Объявим переменные

    
    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
    

Курсовая на Visual Basic

    В шаблоне-документе уже есть две таблицы с ячейками. В каждой таблице – две строки и 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)
    
    Полный листинг этого этапа курсовой работы – в файле 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 - начертание (оформление) шрифта – полужирный
    
    Полный листинг этого этапа курсовой работы – в файле 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
    
    Полный листинг этого этапа курсовой работы – в файле project4small.zip
    
    Распечатаем документ на принтере. Создадим еще одну кнопку на форме Command4
    
    wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1,2", ManualDuplexPrint:=False - распечатать одну копию страниц 1 и 2 (если есть две или более страниц). Печать односторонняя.
    
    Полный листинг этого этапа курсовой работы – в файле project5small.zip
    
    Сохраним документ на диске. Создадим еще одну кнопку на форме Command5
    
    wrd.Documents.Application.ActiveDocument.SaveAs ("c:/oflameron_new.doc")
    
    Закрыть приложение Word без запроса на сохранение документа. Кнопка Command6
    
    wrd.Quit True
    
    Выйти из программы. Кнопка Command7
    
    End
    
    Полный листинг этого этапа курсовой работы – в файле project6small.zip
    

Курсовая работа - скачай бесплатно

    Более полный он-лайн учебник по работе с редактором Word из программ на Visual Basic можно посмотреть здесь http://guide.oflameron.ru/
    
    Эта курсовая работа написана в минимальном объеме. Вы можете легко расширить объем материала, дописав свои функции и комментарии. Либо добавив скриншотов - для этого к курсовику приложены полные VB проекты.
    
    Следующая страница >>>>
    
    

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