49751 (609233), страница 3
Текст из файла (страница 3)
Отчёт «Данные о загрузке»
-
-
Проектирование кнопочной формы
Кнопочная форма – это панель управления, которая обеспечивает переход к страницам кнопочной формы, а также выполнение отдельных команд, которые она содержит. Для создания главной кнопочной формы необходимо вызвать диспетчер кнопочных форм в меню [Сервис] – [Служебные]. Далее создание формы осуществляется посредством диалога с разработчиком. Предварительно продумав составные части формы, я пришла к выводу о необходимости создания многостраничной формы. Все страницы кнопочной формы представлены двумя уровнями:
-
1‑й уровень: главная страница формы «Медицинские организации города»;
-
2‑й уровень: страницы «Больницы», «Отделения», «Врачи», «Пациенты», «Лаборатории», «Отчёты».
Используя диспетчер кнопочных форм, на главной странице были размещены команды «Открытие страницы кнопочной формы», «Просмотр отчетов», «Выход из приложения». Команда «Выход» осуществляет выход из приложения. На каждой последующей странице есть кнопки «Добавить данные», «Изменить данные», «Просмотреть данные», нажатие на которые осуществляет переход к соответствующим формам. Каждая из страниц содержит кнопку возврата к главной странице «Назад». Форматирование главной кнопочной формы осуществлялось в режиме конструктора. Готовую кнопочную форму БД «Медицинские организации города» в оперативном режиме можно увидеть на рисунке:
Таким образом, создав кнопочную форму для работы с созданными объектами БД (таблицы, формы, отчеты) и протестировав ее, был завершен процесс создания автоматизированной БД «Медицинские организации города».
Проделав данную работу, я убедилась в том, что данная программа значительно могла бы облегчить работу с документацией в любой сфере.
Я изучила свою предметную область, получила много новых сведений. Достаточно много нового открыла для себя в области систематизации оказания медицинских услуг, узнала о том, какие отделения и специальности существуют, каким образом поликлиники прикрепляются к больницам и т. п.
-
-
Задание по второй части курсовой работы
В прошлом веке один английский миссионер, желая облегчить контакт с туземным населением, выделил из английского языка самую простую и распространенную его часть, содержащую около 300 слов и почти не имеющую грамматики. Это подмножество языка, названное Basic English, действительно оказалось весьма простым для усвоения и поэтому вскоре завоевало популярность не только среди туземцев, но и иммигрантов.
Подобную цель создания для расширения и облегчения контактов, только не между различными группами людей, а между непрофессионалами и ЭВМ, поставили перед собой сотрудники Дартмутского колледжа Джон Кемени и Томас Куртс. Разработанный ими в 1964 году алгоритмический язык Basic, как и всякий другой язык программирования, является формальной знаковой системой, используемой для связи человека с ЭВМ и предназначенной для описания данных и алгоритмов их обработки на вычислительной машине. Название Basic является аббревиатурой английской фразы «Beginner’s Allpurpose Symbolic Instruction Code», что в переводе означает «многоцелевой язык, символических команд для начинающих».
С прогрессом компьютерных технологий развивался и Basic. В настоящее время версия Visual Basic даёт возможность решать любые современные задачи разработки приложений. При этом Visual Basic остаётся достаточно простым в освоении, являясь в тоже время одним из мощных современных языков программирования. Простота и мощность языка Visual Basic позволили сделать его встроенным языком для приложений MS Office.
-
Постановка задачи
Создать файл, содержащий сведения об ассортименте игрушек в магазине. Каждая запись содержит поля: название игрушки, цена, количество, возрастные границы (2–5, т.е. от 2 до 5 лет).
Написать программу, в результате выполнения которой выдаются следующие сведения:
-
названия игрушек, которые подходят детям от 1 до 3 лет;
-
стоимость самой дорогой игрушки и её наименование;
-
название игрушек, которые по стоимости не превышает x рублей и подходит ребёнку в возрасте от a до b лет. Значения x, a, b вводит пользователь.
-
-
Создание файла последовательного доступа
-
Для выполнения задания был создан файл последовательного доступа в программе Блокнот и сохранен на локальном диске «С», как текстовый документ с названием «Faildannix».
Операторы, предназначенные для работы с файлами последовательного доступа, позволяют нам: открывать файл для записи в него или для чтения уже имеющейся в нём информации; записывать в открытый файл новую информацию из программы; извлекать данные из открытого файла и обрабатывать их в программе; закрывать файл после работы с ним.
Файл содержит 10 записей с полями: наименование игрушки, цена, количество единиц товара и возрастные границы. Эти данные считываются, формируя соответствующие массивы, с которыми мы впоследствии работаем.
-
Переменные, используемые в программе
-
nazvanieigr – наименование игрушки
-
cena – стоимость игрушки
-
kolichestvo – количество товара в наличии
-
vozrast – возрастные границы игрушки
-
cenaMax – максимальная стоимость игрушки
-
vozmin – нижняя возрастная граница игрушки
-
vozmax – верхняя возрастная граница игрушки
-
-
Разработка интерфейса
Создано меню для работы с приложением с помощью редактора меню, который вызывается из меню Tools командой Menu Editor. Для ввода и вывода данных на Form используем ListBox и TextBox, для создания красочного окна используем Image, для вывода текста на Form в качестве надписей используем Label. Для изменения свойств всех вышеперечисленных компонентов работаем с окном Properties.
-
Работа приложения
При выводе приложения на экран мы видим окно с панелью управления и окнами ввода и вывода информации.
Для вывода на экран перечня игрушек и их характеристик, т. е. для начала работы приложения, необходимо выбрать Форма – Заполнение данными.
Для разрешения первой задачи, которая состоит в выведении на экран наименований игрушек, подходящим детям от 1 до 3 лет, необходимо проделать следующие действия: Задачи – Для детей 1–3 лет.
Для разрешения второй задачи, которая звучит следующим образом: получить стоимость самой дорогой игрушки и её наименование, необходимо: Задачи – Самая дорогая игрушка.
И, последнее, для разрешения третьей задачи (например, вы хотите купить интересующую вас игрушку, подходящую вашему ребёнку и не превышающая ваших возможностей) необходимо: Задачи – На ваш выбор. Но, для начала необходимо ввести данные, которые удовлетворяли бы вашим интересам.
Также, если вы не хотите вручную что-либо удалять выполните следующие действия: Форма – Очистить (все данные, заполненные в ListBox, исчезнут).
Есть возможность не вводить лишних данных, а просто кликнуть на название игрушки, и вы получите все данные о той или иных игрушках.
Если вас больше ничто не удерживает «в нашем магазине», то выберите на панели управления Форма – Выход и приложение закроется.
-
Блок-схема алгоритма решения
Заполнение ListBox данными из блокнота.
i = 1
i = i + 1
д
а
нет
-
-
Текст программы на языке Visual Basic
| Формирование массивов данных |
| Dim nazvanieigr(10) As String, cena(10) As Currency, kolichestvo(10) As Integer, vozrast(10) As String Private Sub mnuAdd_Click() 'формирование массивов данных' Open «D:\Faildannix.txt» For Input As #1 For i = 1 To 10 Input #1, nazvanieigr(i), cena(i), kolichestvo(i), vozrast(i) List1. AddItem nazvanieigr(i) List2. AddItem cena(i) List3. AddItem kolichestvo(i) List4. AddItem vozrast(i) Next i Close #1 End Sub |
| Названия игрушек, которые подходят детям от 1 до 3 лет |
| Private Sub mnuToy_Click() List5. Clear List6. Clear List7. Clear Cls For i = 1 To 10 vozmin = Left (vozrast(i), 1) vozmax = Right (vozrast(i), 1) If vozmin >= 1 And vozmax <= 3 Then List5. AddItem nazvanieigr(i) List6. AddItem cena(i) List7. AddItem vozrast(i) End If Next i End Sub |
| Стоимость самой дорогой игрушки и её наименование |
| Private Sub mnuMostExpensive_Click() Dim cenaMax As Currency List5. Clear List6. Clear List7. Clear cenaMax = cena(1) For i = 1 To 10 If cena(i) > cenaMax Then cenaMax = cena(i): l = i Next i List5. AddItem nazvanieigr(l) List6. AddItem cenaMax List7. AddItem vozrast(l) End Sub |
| Название игрушки, не превышающей x руб. и подходящей ребёнку в возрасте от a до b лет. |
| Private Sub mnuYourChoose_Click() Dim a As Integer, b As Integer, x As Currency, c As Integer, d As Integer List5. Clear List6. Clear List7. Clear a = Val (Text1. Text) b = Val (Text2. Text) x = Val (Text3. Text) If Text1. Text = «» Or Text2. Text = «» Or Text3. Text = «» Then MsgBox «Введите правильно все данные» Cls k = 0 For i = 1 To 10 vozmin = Left (vozrast(i), 1) vozmax = Right (vozrast(i), 1) If vozmin >= a And vozmax <= b And cena(i) <= x Then k = k + 1 List5. AddItem nazvanieigr(i) List6. AddItem cena(i) List7. AddItem vozrast(i) End If Next i If k = 0 Then MsgBox «У нас нет таких игрушек!» End Sub |
| Выход из приложения |
| Private Sub mnuExit_Click() End End Sub |
| Многострочный выбор |
| Private Sub List1_Click() List5. Clear List6. Clear Text1. Text = «» Text2. Text = «» Text3. Text = «» For i = 0 To List1. ListCount – 1 If List1. Selected(i) Then List5. AddItem (List1. List(i)): List6. AddItem (List2. List(i)): List7. AddItem (List4. List(i)) Next i End Sub |
| Очистка заполненных данных |
| Private Sub mnuClearAll_Click() List1. Clear List2. Clear List3. Clear List4. Clear List5. Clear Text1. Text = «» Text2. Text = «» Text3. Text = «» End Sub |
-
Анализ полученного результата
-
Form заполнена данными
При выполнении действий Форма – Заполнение данными мы наблюдаем следующее
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
