Лабораторные работы по теории и технологии информационных процессовПодготовить его к публикации в электронной форме. 3). В компиляторе справочной системы MS HelpWorkshop создать проект электронного руководства. 4). Создать файл содержания руководства пользователя в программе MS HelpWorkshop. 5). Подключить файл содержания, откомпилировать проект, проверить созданный Help-файл. 6). Представить результаты работы преподавателю. 2. Выполнение работы. Далее представлен файл исходного текста, т.е. файла помощи: Министерство образования Российской Федерации Московский государственный институт радиотехники, электроники и автоматики (технический университет) факультет : Кибернетики кафедра : ИТС Лабораторная работа №4 по дисциплине : Теория и технология информационных процессов на тему: Формирование и математическая обработка информационных массивов с помощью MS Excel Студент Дементьев Д.В. группа ИБ-1-99 руководитель Наумычева Ю.П. Москва 2001 1. Общие указания Цель работы Получить навыки формирования информационных массивов из текстовых файлов и их статистической и математической обработки. Представить полученные выходные данные в графическом виде. Программно-технические средства Аппаратное обеспечение - IBM -совместимый компьютер, удовлетворяющий требованиям операционной системы Windows версии 4 x . Операционная система Windows версии 4 x . Электронная таблица MS Excel версии 7, 8. Задание на выполнение лабораторной работы Создать в MS Excel макрос для формирования массива данных из текстового файла отчета. В качестве файла отчета может быть взят любой . log -файл. Создать при помощи макроса информационный массив и провести его статистическую и математическую обработку. Методы обработки выбираются студентом для наиболее полного выявления закономерностей в информационном массиве. Наиболее значимые результаты обработки должны быть представлены в графическом виде. Порядок выполнения работы 1) В текстовом редакторе создать текстовый документ для последующей обработки, либо взять готовый текстовый log -файла. 2) Выделить в файле ключевые слова, по которым будет строиться таблица в MS Excel . 3) В редакторе Visual Basic написать макрос для помещения выбранных данных из файла в MS Excel . 4) Запустить созданный макрос и провести статистическую обработку полученной таблицы. 5) Представить результаты статистической обработки в графической форме. 6) Представить результаты работы преподавателю. 2. Исходные данные и их обработка Генерация лог – файла Лог-файл был сгенерирован программой, написанной на Visual Basic 6.0 посредством кода, приведённого ниже: Sub Createlogfile() Dim fso, logfile Dim time As Date, size As Single logpath = 'D:projectlog.txt' Set fso= CreateObject('Scripting.FileSystemObject') Set logfile = fso.CreateTextFile(logpath, True) time = 37245 MsgBox time logpath = 'D:projectlog.txt' For i = 0 To 200 time = time + Int((99 * Rnd) + 1) / 10000 size = Int((4099999 * Rnd) + 1) / 1000 logfile.WriteLine ('New mail ' & time & ' ' & size) Next End Sub С помощью вышеприведённого кода был создан текстовой файл следующего вида (фрагмент файла): New mail 12/20/2001 11:41:08 AM 460.271 New mail 12/20/2001 11:44:27 AM 3934.139 New mail 12/20/2001 11:47:46 AM 3889.406 New mail 12/20/2001 11:53:31 AM 2550.9 New mail 12/20/2001 12:06:37 PM 531.124 New mail 12/20/2001 12:12:32 PM 844.173 New mail 12/20/2001 12:21:10 PM 4030.983 New mail 12/20/2001 12:25:47 PM 1186.524 New mail 12/20/2001 12:27:39 PM 1404.571 New mail 12/20/2001 12:37:44 PM 4080.692 New mail 12/20/2001 12:47:23 PM 3839.048 New mail 12/20/2001 12:53:43 PM 2073.657 New mail 12/20/2001 12:57:36 PM 119.726 New mail 12/20/2001 1:08:50 PM 3395.697 New mail 12/20/2001 1:15:19 PM 1281.618 Для обработки данного файла использовался следующий текст: Dim logpath As String Dim rwI As Integer, colI As Integer Sub TxtToExl(str, key) Dim time As Date, size As Single Dim i As Integer, j As Integer temp = Mid(str, Len(key)) time = Mid(temp, 1, InStr(temp, 'M')) size = Mid(temp, InStr(temp, 'M') + 1) Worksheets('Sheet1').Cells(rwI, colI).Value = time Worksheets('Sheet1').Cells(rwI, colI + 1).Value= size Worksheets('Sheet1').Cells(rwI, colI + 2).Value =_ 'B' & rwI & '/(A' & rwI + 1 & ' - A' & rwI & ')' rwI = rwI + 1 End Sub Sub logcenter() Dim str As String, time As Date, size As Single rwI = 1: colI = 1 strkey = 'New mail ' FileNum = 1 logpath = 'D:projectlog.txt' Open logpath For Input As #FileNum Do Until EOF(FileNum) Line Input #FileNum, str TxtToExl str, strkey Loop Close #FileNum End Sub После работы данного макроса в открытом листе рабочей книги Excel был сформирован следующий массив времён и чисел:
|
Лабораторные работы по теории и технологии информационных процессов