Randomize 'функция случайных чисел

For i = 1 To kolvo 'создание массивы случайных чисел

a(i) = Int(([B4] - [A4] + 1) * Rnd + [A4])

Obj1.AddItem (Str(a(i)))

Next

End Sub

Sub график() 'рисование диаграммы распределения вероятностей аппаратно и программно

Dim Rng As Variant 'определение переменной

Rng = "$A$6:$C$" & (6 + [B4])

On Error Resume Next

ActiveSheet.ChartObjects(1).Activate ' активация предыдущей диаграммы

ActiveChart.Parent.Delete 'удаление предыдущей диаграммы

Range(Rng).Select 'выделение исходных данных в ячейках

ActiveSheet.Shapes.AddChart.Select ' добавление диаграммы на лист

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers 'определение вида диаграммы

 ActiveChart.SetSourceData Source:=Range(Rng) 'определение исходных данных

With Worksheets(" лист 1").ChartObjects(1).Chart ' создание заголовка диаграммы

.HasTitle = True

.ChartTitle.Text = "Распределение случайных чисел"

End With

ActiveSheet.ChartObjects(1).Activate ' позиционирование диаграммы ( слева , сверху монитора , ширина )

ActiveSheet.ChartObjects(1).Left = 350

ActiveSheet.ChartObjects(1).Top = 90

ActiveSheet.ChartObjects(1).Width = 600

ActiveChart.Axes(xlValue).Select ' определение оси y

Selection.TickLabels.NumberFormat = "0.000"

ActiveChart.Axes(xlValue).HasTitle = True

ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = " ВЕРОЯТНОСТЬ ПОЯВЛЕНИЯ "

ActiveChart.Axes(xlValue).MinimumScale = 0 ' размеры оси y

ActiveChart.Axes(xlValue).MaximumScale = 0.15

ActiveChart.Axes(xlValue).MajorUnit = 0.02

Selection.MajorTickMark = xlOutside

Selection.MinorTickMark = xlOutside

ActiveChart.Axes(xlCategory).HasTitle = True ' определение оси x

ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = " ДИАПАЗОН ЧИСЕЛ "

ActiveChart.Legend.Select 'определение легенды диаграммы

ActiveChart.Legend.Delete

End Sub

 

13. Установить уровень безопасности работы макросов с помощью команды основного меню Сервис→ Макрос → Безопасность. Обычно по умолчанию используется уровень высокой безопасности. Так как будут использоваться созданные вами программы, то необходимо изменить уровень безопасности использования макросов на средний или низкий. Если этого не сделать, то при запуске теста макросы будут автоматически отключаться без уведомления пользователя и тест - программа работать не будет.

14. Выполнить предложенные задания:

1. Запустить код программного генератора псевдослучайный чисел, нажав на кнопку “программный генератор”.

2. Запустить построение диаграммы,  нажав кнопку “Рисование диаграммы”

3. Создать файл звукозаписи (файл тишины) с микрофонного входа звуковой карты компьютера продолжительностью не менее 10 секунд.

3.1  Запустить программу звукозаписи DeGo Audio Voice Recorder из меню “Пуск” операционный системы Windows (она должна быть предварительно установлена).

 Программа встроенная в  Windows не удовлетворяет требуемым характеристикам из-за встроенных коррекционных фильтров, обрезающих частотную характеристику по уровню шума звуковой карты . Поэтому лучше использовать свободно распространяемые программы звукозаписи сторонних изготовителей , например DeGo Audio Voice Recorder ( рисунок 3).

Рисунок 3 Программа записи DeGo Audio Voice

 

3.2 Установить в программе DeGo Audio Voice Recorder ( рисунок 3) настройки:

                    Меню→ тип файла→ wav

                    Вход→Микрофон

                    Профили → Normal quality PCM -44100 Hz Stereo

                   Громкость→Максимум

 3.3 Записать файл  длительностью не менее 10 секунд и сохранить его в файле    d :\ proverka . wav

4. Запустить программу аппаратного генератора псевдослучайных чисел, нажав на кнопку “аппаратный генератор”.

5. Оценить качество полученных случайных последовательностей по критерию

хи-квадрат (данные взять из таблицы).

6. Провести серию повторных запусков генераторов с целью получения стабильных результатов.

7. Сравнить результаты опытов и дать объяснение в отчете о проделанной работе.

 

В результате получитьм следующий рисунок 4:

 

 

                                   Содержание отчета.

 

1.Блок-схема алгоритма работы программы генератора ПСЧ.

2.Скриншоты этапов работы.

3.Листинг программ на языке VBA с подробными комментариями.

4. Пояснение полученных результатов эксперимента.

5.Исходные программы представить в бумажном и электронном виде.

 

                  

                            Контрольные вопросы.

 

1.Генераторы случайных и псевдослучайных чисел.

2. Линейный конгруэнтный ГПСЧ .

3. Аддитивные генераторы (запаздывающие генераторы Фиббоначи).

4. Распределения случайных величин.    

  5. Аппаратный генератор случайных чисел.

  6. Структура WAV (Windows Audio Video) файла .

  7. Метод расчета критерия хи-квадрат.

8. Объекты, свойства и методы VBA.

  9. Типы данных VBA.

10. Переменные и их объявление VBA.

11. Арифметические и логические операции VBA.

12. Операторы присваивания VBA.

13. Условные операторы VBA.

14.Операторы цикла VBA.

15. Встроенные диалоговые окна VBA.

16. Работа с файлами VBA .

17. Работа с диаграммами: объект Chart .

 

 

                                      Список литературы:

1 А. Гарнаев, Самоучитель VBA. – Санкт-Петербург, Издательство БХВ–Санкт-Петербург, 2011. – 511с.

2. В.С. Пташинский, Самоучитель Office 2013– Москва, Издательство Эксмо,2013. – 288с.

3. О.В.Спиридонов, Microsoft Office для пользователя– Москва, Издательство Эксмо,2013– 350с.

4. Н.В.Макарова, В.Б. Волков, Информатика – Санкт-Петербург, Издательство Питер, 2011– 576с.

5. Г.Н.Хубаев, С.М. Патрушина, Н.Г. Савельева, Е.Г. Веретенникова, Информатика– Ростов-на-Дону, Издательство Феникс,2010– 288с.

6. Э.В. Вашкевич, PowerPoint 2007. Эффективные презентации на компьютере–  Санкт-Петербург, Издательство Питер, 2008– 240с.

7. Ю.И.Кудинов, Ф.Ф. Пащенко, А.Ю. Келина, Практикум по основам современной информатики – Санкт-Петербург, Издательство Лань, 2011– 352 с.

8. Ю.И. Кудинов ,Ф.Ф. Пащенко, Основы современной информатики–  Санкт-Петербург, Издательство Лань ,2011– 256 с.

9. В.Леонов, PowerPoint 2010 с нуля– Москва, Издательство Эксмо,2010– 320с.

11.А.В. Гураков, Информатика. Введение в Microsoft Office –Томск, издательство Эль Контент, 2012– 120с.

10. А.С.Грошев, Информатика.Учебник для вузов-Архангельск, издательство Архангельского государственного технического университета,2010-470с.

11. А.С.Грошев, Программирование на языке Microsoft Visual Basic for Applications.Методические указания к выполнению лабораторных работ.- Архангельск, издательство Архангельского государственного технического университета,2013-35с.

12. С.Каммингс, VBA для “чайников”-Москва,Издательский дом “Вильямс”,2002-448с.

13. А.Н.Любин, Создание пользовательских форм в Visual Basic for Applications.Учебное пособие-Москва,издательство МГМУ “МАМИ” ,2012-60с.

14.Л.А.Демидова, А.Н.Пылькин, Программирование в среде Visual Basic for Applications.Практикум-Москва,Горячая линия-Телеком,2014-175с.

15. И.С.Осетрова, Н.А.Осипов, Microsoft Visual Basic for Applications.Учебное пособие- Санкт-Петербург, Издательство НИУ ИТМО ,2013– 130 с.

16. Н.С. Маркин «Основы теории обработки результатов измерения» – Москва, Издательство Эксмо,2014. – 245с.

 

Учебное издание