Министерство  образования РФ

ГОУ ВПО  Глазовский Государственный педагогический институт

Им. В.Г. Короленко

Колледж информационных и социальных коммуникаций 
 
 
 
 
 
 

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

по учебной  дисциплине

«Техническая  разработка программных продуктов»

на тему: «Программирование макросов в Excel» 
 
 
 

Выполнили студенты

 группы: П – 31

 Заякин  А.Ю.

Подпись          Дата

Научный руководитель: 
 
 

Глазов 2004.

Содержание.

1.  Введение……………………………………..…………………………….3

            

2.  Глава I…………………………………………………...…………………5 

3.  Глава II…………………………………………………………………..…6

          3.1 Язык программирования……………………………………..…..6

          3.2  Блок схема  …..…...………………………………………………...8

          3.3  Схема связей ..…...………………………………………………...9

          3.4 Программный код………………………….…………………….10 

4.   Заключение………………………………………………………………17

    

5. Список используемой литературы……………………………………18 
      
    
    
    
    
      
   

 
  
 
 
 
 
 
 

 

Введение

Цели

Цель курсовой работы показать на примере программирование макросов в Excel 

Задачи

Создать программу, которая могла кодировать и декодировать документ Excel при нажатии определенного сочетания клавиш. По нажатию клавиш должно выводится окно для ввода пароля (для защиты от ошибки ввод пароля должен производится дважды), так же должны находится 2 переключателя которые устанавливают действие программы: кодировать или декодировать. Из-за большого объема информации следует выводить счетчик процентного состояния нашего процесса. Также должен присутствовать доступный интерфейс.

Гипотеза

Реализация  алгоритма кодировки такова:

Вырезаем  из выделенного объекта ячеек  берем 1 ячейку и получаем из нее  текстовое значение. Из этого значения вырезаем первый символ вырезаем и  пароля первый символ складываем их ascii коды и получаем значение. Если наше значение больше допустимо возможного то вычитаем из него 255 и получаем  ascii код символа. Преобразуем этот код в строку. Берем дальше второй символ и второй символ пароля и производи тоже действия и т.д. Если символов в пароле меньше чем строковое значение тогда при достижении последнего символа пароля переходим обратно на первый. Потом все полученные значения преобразуем в строку и присваиваем ячейке, из которой она было взято.

Для того что бы запустить программу надо открыть документ excel с программой, выделить нужную область с которой следует работать и нажать сочетание клавиш ctrl+k. Выбрать нужные настройки ввести пароль и нажать ОК. Состояние процесса выводится в прогресс бар приложения с помощью стандартных функций. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Глава I 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Глава II

3.1. Язык программирования.

    Visual Basic разработан корпорацией Microsoft специально для создания приложений, работающих под операционными системами из семейства Windows. Последняя версия этого продукта - Visual Basic 6 – входит в состав пакета программ для профессиональной разработки визуальной разработки визуальных приложений Visual Basic 6 и представляет собой интегрированную среду разработки (IDE, Integrated Development Environment), то есть программную среду, содержащую инструменты, которые позволяют значительно ускорить процесс разработки и создание программ. Эти возможности ставят Visual Basic 6 в один ряд с такими признанными лидерами в области визуального программирования, как Visual C++, Delphi, Bridge View и т.д.

      Благодаря своим возможностям в сочетании простотой освоения, диалекты Visual Basic (Visual Basic for Aplication и Visual Basic Script) широко используются в качестве внутренних языков во многих приложениях, например, в Microsoft Office, Visio, 1C.

    Среда разработки Visual Basic 6 выпускается в трех изданиях:

• Visual Basic 6 для начинающих (Learning Edition), представляющее собой демонстрационную версию, в которую включены только основные возможности;
• Visual Basic 6 для профессионалов (Professional Edition), основная (стандартная) версия, включающая в себя большинство инструментов и дополнительных средств, позволяющих выполнять разработку приложений на профессиональном уровне;
• Промышленное издание Visual Basic 6 (Enterprise Edition), расширенная версия для разработчиков корпоративных систем. Это издание включает в себя большое количество инструментов, элементов управления и средств, позволяющих разрабатывать как простые, так и клиент- серверные приложения.

    Предком Visual Basic был язык программирования Basic. Этот язык (Basic – Beginners Allpurpose Symbolic Instruction Code, многоцелевой код символьных инструкций для начинающих) был специально разработан для освоения основ программирования, создания простых программ и широко использовался для обучения школьников.

    Язык  объектного программирования Visual Basic, хотя и имеет в своем названии слово Basic, коренным образом отличается от своей основы. Во-первых, Visual Basic – это объектно-ориентированный язык, то есть язык оперирует объектами, над которыми производится действие, во-вторых, изменилась среда программирования – появилась возможность осуществлять непосредственное наблюдение за построением проекта, то есть проектировать приложение, и, в-третьих, изменился сам подход к программированию. Если раньше код программы выполнялся последовательно от начала к концу, то теперь четкая структура последовательности выполнение операторов ”размыта” – весь программный код разбит на процедуры (которые так же называют подпрограммами), которые могут быть вызваны из любого места программы. 
 
 
 
 
 
 
 
 
 
 
 
 

3.2. Блок схема. 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
 

3.3. Схема связей. 

 

 
 

 

 
 
 
 
 

1. Cвязь предназначенная для запуска кодирования выделенной области.
2. Процедура декодирования берет значение и передает его а ей возвращается декодированное значение.
3. Cвязь предназначенная для запуска декодирования выделенной области.
4. Процедура кодирования берет значение и передает его а ей возвращается закодированное значение.

 
 
 
 

3.4. Программный код. 

UserForm1 (главная форма проекта) 
'переменная для хранения пароляпароля

Dim password As String

' переменная  для имени активного листа,  и рабочего промежутка

Dim n, m, List

' переменная  для значения ячейки

Dim g

' нажатие на  кнопку отмена

Private Sub ComCanc_Click()

' выход

End

End Sub

'  нажатие  на кнопку ОК

Private Sub ComOK_Click()

' если в одно  из текстовых полей  не введена  информация тогда выводится окно  с предупреждением и происходит  выход

If Txt1.Text = "" Or Txt2.Text = "" Then MsgBox "Введите пароль": Exit Sub

' если пароль  неверен тогда выводится окно  с предупреждением и происходит выход

If Txt1.Text <> Txt2.Text Then MsgBox "Пароль введен неправильно": Exit Sub

' присваиваем  текст введенного пароля переменной  хранящей пароль

password = Txt1.Text

' если отмечен  процесс кодирование тогда переходим  к процедуре кодирования

If OptionButton1.Value = True Then Call coding

' если отмечен  процесс декодирование тогда  переходим к процедуре декодирования

If OptionButton2.Value = True Then Call decoding

' обращение к  процедуре нажатие на кнопку  отмена

Call ComCanc_Click

End Sub

' процедура кодирования

Private Sub coding()

' обращаемся  к процедуре которая находит  раьочий лист и размер рабочего  промежутка

Call schet

' переменной NewSheet присваиваем имя нашего листа

Set NewSheet = Sheets.Item(List)

'запись в  переменную  0 процентного статуса

gh = " " & "0%" & "  "

' запускаем цик  по столбцам и строкам

For i = 1 To 256

' при достижении  кратного 20 процентного состояния  записываем в переменную процент  выполнепния

If i / 50 = Int(i / 50) Then gh = " " & Str(i / 50 * 20) & "%" & "  "

' используем  знак | как индикатор выполнения  который изменяется при переходена  новое поле

gh = gh + "|"

' выводим в  статус бар идентификатор выполнения

Application.StatusBar = gh

For j = n To m

' присваиваем  переменной g значение выбранной  ячейки по параметрам цикла

g = NewSheet.Cells(j, i).Value

' если ячейка  пустая то переходим к другой  ячейки

If g = "" Then GoTo 1

' обращаемся  к процедуре кодирования строки  и присваиваем значение в выбранное  поле

NewSheet.Cells(j, i).Value = codsv(g)

1 Next

Next

' выводим в статус бар идентификатор выполнения

Application.StatusBar = " 100%  Процесс кодирования успешно  завершон."

End Sub

' процедура декодирования

Private Sub decoding()

' обращаемся  к процедуре которая находит  раьочий лист и размер рабочего  промежутка

Call schet

' переменной NewSheet присваиваем имя нашего листа

Set NewSheet = Sheets.Item(List)

gh = " " & "0%" & "  "

' запускаем цик  по столбцам и строкам

For i = 1 To 256

' при достижении  кратного 20 процентного состояния  записываем в переменную процент  выполнепния

If i / 50 = Int(i / 50) Then gh = " " & Str(i / 50 * 20) & "%" & "  "

' используем  знак | как индикатор выполнения  который изменяется при переходена  новое поле

gh = gh + "|"