Балтийская Государственная Академия Рыбопромыслового Флота
Кафедра «Автоматизированных систем обработки информации иуправления»
Курсовая работа
по дисциплине«Информатика»
Калининград2007
Введение/>
Ранее, доразработки таких программ, как Access, все учёты велись вручную. Это занималодостаточно много времени. Такая картотека представляла собой огромноеколичество информации, записанной на бумаге. У такого образа храненияинформации большое количество недостатков:
· требуетсябольшая площадь для хранения,
· человек,заполняющий бумаги должен иметь каллиграфический подчерк;
· поископределённой информации занимает много времени;
· приудалении какой-либо ненужной информации необходимо перебрать практически весьархив;
· чтобынайти нужную запись необходимо просмотреть, мало того, что весь архив, так ещёи всю карточку и т. д.
Данная жепрограмма упрощает ведение записей и хранение информации.
Цели и задачи курсовой работы
Цель –создание автоматизированной системы «Медицинские организации города»; а такжеуглубление знаний по дисциплине «Информатика», изучение предметной области,совершенствование навыков использования современных компьютерных технологий итворческих задач прикладного характера, а также получение новых знаний ввыбранной предметной области.
Передсозданием реляционной БД Acess я должна:
· определить,из каких таблиц должна состоять БД;
· определитьлогическую структуру БД, т. е. состав реляционных таблиц, их структуру имежтабличные связи.
Задачи:
· проектированиеи создание нескольких таблиц для хранения данных;
· вводданных;
· разработказапросов и отчетов, предназначенных для просмотра, редактирования и выводаинформации;
· разработкапользовательского интерфейса на основе форм с максимальным использованиемсредств автоматизации.
Порядоквыполнения курсовой работы:
· созданиеструктур таблиц в соответствии с физической моделью;
· созданиесхемы данных в соответствии с логической моделью;
· проектированиеформ для ввода входной информации;
· вводданных контрольного примера;
· проектированиезапросов;
· созданиеотчётов;
· проектированиекнопочной формы.Практическая значимость
Хранениеинформации – одна из важнейших функций компьютера. Одним из распространенныхсредств такого хранения является базы данных. База данных – это файлспециального формата, содержащий информацию, структурированную заданнымобразом. Данные – это систематизированная и структурированная информация.Модель данных – это представление данных и их взаимосвязь, описывающая понятияпроблемной среды. Модели данных используются для логического и физическогопредставления данных. Существует три модели данных: иерархическая, сетевая,реляционная.
Иерархическиеструктуры данных состоят из нескольких записей, одна из которых определена каккорневая. Между записями могут быть определены связи: 1-/> (один ко многим), 1–1(один к одному), где запись, соответствующая элементу 1 является исходной, асоответствующий элементу /> – порожденный.
Сетеваяструктура данных подобна иерархической, но между записями допускается связь /> – />, /> – 1. здесь также неткорневого узла, то есть любая запись может быть корневой.
Реляционнаямодель представляет собой данные, упорядоченные в таблице. Данные организованнытаким образом, чтобы занимать как можно меньше места. Реляционная модельполучается за счет отказа от дублирования информации. При этом данныеразбиваются на несколько таблиц, каждая из которых хранит определеннуюинформацию. Таблицы такого вида называются реляционными.
Большинствобаз данных имеют табличную структуру. В табличной структуре адрес данныхопределяется пересечением строк и столбцов. В базах данных столбцы называютсяполями, а строки – записями. Поля образуют структуру базы данных, это основнойи минимальный элемент данных, а записи составляют информацию, которая в нейсодержится, это совокупность всех полей.
База данных –совокупность данных, предназначенных для машинной обработки и хранения, котораяможет использоваться одним или несколькими пользователями. В зависимости отрассмотренных выше моделями, базы данных могут быть иерархические, сетевые иреляционные.
С понятиембазы данных неразрывно связано понятие СУБД (системы управления базами данных).СУБД – программа, которая управляет данными, осуществляет хранение, извлечение,поиск, редактирование информации, хранимой в базе данных. В мире существуетнемало различных систем управления базами данных. Многие из них на самом делеявляются не законченными продуктами, а специализированными языкамипрограммирования, с помощью которых каждый, освоивший данный язык, может самсоздавать такие структуры, какие ему удобны, и вводить в них необходимыеэлементы управления.
Необходимостьпрограммировать всегда сдерживала широкое внедрение баз данных в малом бизнесе.Крупные предприятия могли позволить себе сделать заказ на программированиеспециализированной «системы под себя». Малым предприятиям зачастую не по силамбыло не только решить, но даже и правильно сформулировать эту задачу.
Положениеизменилось с появлением с появлением в составе пакета Microsoft Office системы управлениябазами данных Access. Ранние версии этой программы были Access 2.0 и Access 95. Последняя версия Access XP SP‑2.
С помощью Access обычные пользователиполучили удобное средство для создания и эксплуатации достаточно мощных баз данныхбез необходимости что-либо программировать. В то же время работа с Access не исключает возможностипрограммирования. При желании систему можно развивать и настраиватьсобственными силами. Для этого надо владеть основами программирования на языке Visual Basic.
Разработчикбазы данных имеет два типа дополнительных объектов: макросы и модули. Этиобъекты создают в тех случаях, когда стандартных средств управления базойданных оказывается недостаточно для выполнения операций, необходимых заказчикусистемы. С помощью макросов создают макрокоманды, упрощающие наиболееутомительные операции с базой, а с помощью модулей создают программныепроцедуры для выполнения нестандартных операций.
Еще однимдополнительным достоинством Access является интегрированность этой программы с Excel, Word и другими программамипакета Office. Данные, созданные в разных приложениях, входящих в этот пакет,легко импортируются и экспортируются из одного приложения в другое.
1. Задание по первой части курсовой работы1.1 Теоретическое обоснование выбора компонент структуры базыданных
Организацияоказания медицинских услуг требует, как и любая другая сфера услуг,систематизации. Это достаточно актуальная тема в наше время, в особенности, вданной предметной области. Ведь с каждым днём, месяцем, годом возрастаетпотребность в оказании медицинских услуг. Но не только в этом состоит главнаясуть проблемы. Помимо всего прочего очень тяжело держать всю информацию либо вголове, либо на бумаге в качестве всевозможной документации. Именно поэтомулюди создали, разработали ЭВМ и программы для облегчения трудовой деятельности.Так почему же не воспользоваться этим?
Я думаю, чтомоя первая часть курсовой работы ещё не достаточно доработана (в планеорганизации информации). Но это не по причине моего нежелания работать. Если быу меня была возможность предоставить свою работу в медицинское учреждение, то,естественно, я бы многое добавила. Это даже понятно из жизненного опыта. Но таккак эта работа лишь учебная, то та информация, которая заключена в моей работеи есть максимально необходимая.
Я уверена,что такие программы пользовались бы спросом в том случае, если бы наша системаздравоохранения более серьёзно воспринималась государством и большефинансировалась.1.2 Создание структур базы данных
Таблицы – этообъект БД, предназначенный для хранения данных в виде записей (строк) и полей(столбцов), в которых хранится информация, составляющая содержание БД. Этобазовый объект Access, все остальные объекты являютсяпроизводными и создаются на базе ранее подготовленной таблицы. Каждая запись втаблице БД должна иметь первичный ключ, т. е. идентификатор (или адрес),значение которого однозначно определяет ту или иную запись. Ключ может состоятьиз одного или нескольких полей. Первичный ключ должен обладать двумясвойствами: однозначная идентификация записи: запись должна однозначноопределяться значением ключа; отсутствие избыточности: никакое поле нельзяудалить из ключа, не нарушая при этом свойства однозначной идентификации.
Каждое значениепервичного ключа в пределах таблицы должно быть уникальным. В противном случаеневозможно отличить одну запись от другой. Таким образом, указание первичногоключа – это и есть единственный способ отличить один экземпляр объекта отдругого. В данной работе использовались индексированные поля, поскольку приэтом MS Access 2000 работает наиболее эффективно.
Создаваемая БД«Медицинские организации города» по своей структуре должна быть многотабличной.MS Access 2002 позволяет создавать таблицы в режиме конструктора и врежиме мастера. В данной работе при создании таблиц использовался режимконструктора.
/>
Таблица Switchboard Items была создана автоматически при создании главной кнопочной формы,которую мы рассмотрим в дальнейшем. Таблица «Больницы»
/>
/>
Таблица «Заместители»
/>
/> Таблица «Отделения»
/>
/>Таблица «Врачебный персонал»
/>
/>Таблица «Характеристики врачей»
/>
/>Таблица «Обслуживающий персонал»
/>
/> Таблица «Пациенты»
/>
/>Таблица «Лаборатории»
/>
/>Таблица «Выработка лаборатории»
/>
/>1.3 Определение связей между таблицами базы данных (схемаданных)
MS Access 2002 создает реляционные БД. В этой БД пользователь можетописывать отношения-связи между несколькими таблицами. Access учитывает эти связи во время обработки запросов, построенияформ и отчетов. В данной БД необходимо связать созданные ранее таблицы, длячего необходимо вызвать команду горизонтального меню [Сервис] – [Схема данных].Используя контекстное меню данного окна можно добавить необходимые таблицы.Выделив ключевое поле одной таблицы, нужно перетащить его на соответствующееполе другой таблицы, после чего в диалоговом окне можно установитьсоответствующую опцию – обеспечение целостности данных. В этом же диалоговомокне отображается тип создаваемой связи «один-к-одному» или «один-ко-многим».Уже готовая схема данных БД «Медицинские организации города» имеет следующийвид:
/>1.4 Проектирование форм для ввода входной информации
Формы –специальный объект, который используется для более удобного ввода данных.
Формы бывают:однотабличные и многотабличные (главная форма с подчинённой).
Все формысозданы с помощью конструктора и представляют собой:
/>
/>Форма «Заместители»
/>Форма «Отделения»
/>
Форма «Больницы» с подчинённой формой«Отделения»
/>
Форма «Врачебный персонал»
/>
Форма «Обслуживающий персонал»
/>
Форма «Пациенты»
/>
Диаграмма «Данные о выработке лаборатории»
/>
Форма «Выработка лаборатории» с диаграммой1.5 Проектирование запросов
Запрос –объект БД, который служит для селекции и фильтрации набора данных, позволяетвыбрать из большого количества информации только ту, которая соответствуетопределенному критерию отбора и нужна для решения конкретной задачи. MS Accessдает большие возможности при проектировании запросов (включать не все поля,выбирать, сортировать записи, затрагивать данные из нескольких таблиц,выполнять вычисления, использовать запрос в качестве источника данных дляотчетов, форм и других запросов, изменять данные в таблицах). Рекомендуетсясоздавать запросы при помощи конструктора.
Существуютразные типы запросов (на добавление, изменение, удаление записей, на созданиетаблицы). Наиболее простейший тип – запрос на выборку. На основе этого запросамогут создаваться и другие виды запросов: на создание таблицы, на обновление,удаление, добавление. Есть также и перекрестный тип запроса – запрос,позволяющий создавать результирующие таблицы на основе результатов расчетов,полученных при анализе группы таблиц.
Основнойпринцип состоит в том, что от базовых таблиц никакой упорядоченности нетребуется. Все записи в основные таблицы вносятся только в естественном порядкепо мере их поступления, т.е. в неупорядоченном виде.
Если жепользователю надо видеть данные, отсортированные или отфильтрованные по томуили иному принципу, он просто использует соответствующий запрос.
Запрос на выборку
Наиболеепростейший тип запросов – запрос на выборку. На основе этого запроса могут создаватьсяи другие виды запросов: на создание таблицы, на обновление, удаление,добавление.
Получить перечень врачей указанного профиля для конкретногомедицинского учреждения либо всех медицинских учреждений города.
/>
Получить перечень обслуживающего персонала указанной специальностидля конкретного медицинского учреждения, либо для всех медицинских учрежденийгорода./>
Получить перечень обслуживающего персонала указанной специальностидля конкретного медицинского учреждения, либо для всех медицинских учрежденийгорода.
/>
Получить перечень врачей указанного профиля, сделавших числоопераций не менее заданного для конкретного медицинского учреждения, либо длявсех медицинских учреждений города.
/>
Получить перечень врачей указанного профиля со степенью кандидатаили доктора медицинских наук, со званием доцента или профессора для конкретногомедицинского учреждения, либо для всех медицинских учреждений города.
/>
Получить перечень пациентов указанной больницы, отделения суказанием даты поступления, состояния, температуры, лечащего врача.
/>
Получить перечень пациентов, прошедших стационарное лечение вуказанной больнице либо у конкретного врача за некоторый промежуток времени.
/>
Получитьперечень пациентов, перенёсших операции в указанной больнице либо у конкретноговрача за некоторый промежуток времени.
/>
Получить данные о выработке лаборатории за указанный период дляданного медицинского учреждения, либо для всех медицинских учреждений города.
/>1.5.1 Запрос с вычисляемыми полями
Над полямизапросов можно выполнять вычисления. При этом создается новое вычисляемое поле.Для создания выражений используется окно Построитель выражений.
Выражение длявычисляемого поля может состоять из имен полей различных таблиц и запросов,функций, чисел и так далее. Построитель дает возможность выбрать нужные поля изтаблиц и запросов, функции из списка функций, знаки арифметических операций.
Получить данные о загрузке (число пациентов, у которых врач внастоящее время является лечащим врачом) для указанного врача либо всех врачейбольницы, либо для всех врачей названного профиля.
/>
Получить данные о выработке лаборатории (среднее число проведённыхопераций в день) за указанный период для данного медицинского учреждения, либодля всех медицинских учреждений города.
/>
Получить перечень врачей указанного профиля, стаж работы которыхне менее заданного для конкретного медицинского учреждения, либо для всехмедицинских учреждения города./>
Для созданиявычисляемых полей используем построитель.
/>1.5.2 Перекрёстный запрос
Перекрестныезапросы предназначены для группирования данных и представления их в компактномвиде. Запрос можно создать самостоятельно или воспользоваться мастером.
Получить общее число врачей указанного профиля для конкретного медицинскогоучреждения либо всех медицинских учреждений города.
/>
Получитьобщее число обслуживающего персонала указанной специальности для конкретногомедицинского учреждения, либо для всех медицинских учреждений города.
/>
Получить общее число врачей указанного профиля, сделавших числоопераций не менее заданного для конкретного медицинского учреждения, либо длявсех медицинских учреждений города.
/>
Получить общее число врачей указанного профиля, стаж работыкоторых не менее заданного для конкретного медицинского учреждения, либо длявсех медицинских учреждения города.
/>1.5.3 Запрос на удаление
Запрос наудаление позволяет исключить из таблицы (или из связанных таблиц) записи,удовлетворяющие некоторому условию. В режиме конструктора такой запрос имеетвид:
Удалить врача, имеющего стаж работы менее 2 лет с фамилией,введённой пользователем./>
Удаляет записи пациентов, хранящиеся более 40 дней.
/>1.5.4 Запрос на добавление
Запрос назаполнение столбца (добавление) позволяет скопировать данные из одной таблицы вдругую, не прибегая к помощи буфера обмена. Записи могут перемещаться между разнымифайлами баз данных и между базами данных разного типа. В режиме конструкторатакой запрос имеет вид:
В данном запросе записи (введённые название отделения и Ф.И.О.заведующего) добавляются исключительно для БСМП.
/>
Данный запрос добавляет лечащего врача пациента, а такженеобходимые сведения, записываемые при поступлении в больницу.
/>1.5.5 Запрос на обновление
Запрос наобновление обеспечивает одну из важнейших сервисных функций системы управлениябазой данных – автоматизированную обработку данных. Такие запросы позволяют существенносэкономить время оператора, выполняющего редактирование информации. В режимеконструктора такой запрос имеет вид:
Для БСМП меняет Ф.И.О. заместителя и Ф.И.О. заведующего отделением.
/>
Запрос меняет Ф.И.О. главного врача
/>1.5.6 Запрос на создание таблицы
Данный запрос создаёт таблицу, содержащую следующие сведения:название больницы, должность заместителя, его Ф.И.О.
/>
Создаёт таблицу со сведениями о названии больницы, Ф.И.О. врача иего специальность, Ф.И.О. пациента, у которого он является лечащим врачом.
/>1.6 Создание отчётов
Отчеты – этоинформация, оформленная в соответствии с необходимыми спецификациями. Ониявляются особой формой представления данных. Отчет позволяет использовать ираспространять полученную информацию из БД, выводить ее на печать. Приоформлении отчетов можно использовать различные элементы управления (графики,диаграммы, рисунки, фон…) Отчеты являются эффективным средством для распечаткиинформации регулярного использования. Создавать отчеты можно, используя мастерили конструктор. Автоотчет позволяет быстро создавать более простые отчеты. Онбывает двух видов: в столбец и ленточный. Ленточный отчет размещает записи вотдельную строку, а поля в отдельные столбцы. Его удобно применять при большомчисле записей и малом количестве полей. Отчет в столбец удобен в том случае,когда мало записей и много полей. Когда необходимо создавать сложные,многоуровневые отчеты, нельзя использовать автоотчет. В данном случае чащевсего применяется мастер. В отчетах также можно создавать поля с итоговымивычислениями. При этом могут использоваться различные функции и построительвыражений. Как правило, для формирования отчета создают запрос, в которомсобирают данные из разных таблиц, с включением вычисляемых полей, группировкой,условиями отбора. Далее по общим правилам MS Access, на базе такого запросапроектирует отчет.
В даннойработе использовалось два типа создания отчета: при помощи конструктора и припомощи мастера с последующим форматированием и редактированием в режимеконструктора. В некоторых отчетах был изменен цвет шрифта, заливка, применялосьвыравнивание, также использовалась панель элементов для создания надписей иполей, применялось поле с итоговыми вычислениями.1.6.1 Отчёты
/>Отчёт «Список врачей для больниц»
/>Отчёт «Список обслуживающего персонала»
/>
Отчёт «Данные о загрузке»
1.7 Проектирование кнопочной формы
Кнопочнаяформа – это панель управления, которая обеспечивает переход к страницамкнопочной формы, а также выполнение отдельных команд, которые она содержит. Длясоздания главной кнопочной формы необходимо вызвать диспетчер кнопочных форм вменю [Сервис] – [Служебные]. Далее создание формы осуществляется посредствомдиалога с разработчиком. Предварительно продумав составные части формы, япришла к выводу о необходимости создания многостраничной формы. Все страницыкнопочной формы представлены двумя уровнями:
· 1‑йуровень: главная страница формы «Медицинские организации города»;
· 2‑йуровень: страницы «Больницы», «Отделения», «Врачи», «Пациенты», «Лаборатории»,«Отчёты».
Используядиспетчер кнопочных форм, на главной странице были размещены команды «Открытиестраницы кнопочной формы», «Просмотр отчетов», «Выход из приложения». Команда«Выход» осуществляет выход из приложения. На каждой последующей странице естькнопки «Добавить данные», «Изменить данные», «Просмотреть данные», нажатие накоторые осуществляет переход к соответствующим формам. Каждая из страницсодержит кнопку возврата к главной странице «Назад». Форматирование главнойкнопочной формы осуществлялось в режиме конструктора. Готовую кнопочную формуБД «Медицинские организации города» в оперативном режиме можно увидеть нарисунке:
/>
Такимобразом, создав кнопочную форму для работы с созданными объектами БД (таблицы,формы, отчеты) и протестировав ее, был завершен процесс созданияавтоматизированной БД «Медицинские организации города».
Проделавданную работу, я убедилась в том, что данная программа значительно могла быоблегчить работу с документацией в любой сфере.
Я изучиласвою предметную область, получила много новых сведений. Достаточно много новогооткрыла для себя в области систематизации оказания медицинских услуг, узнала отом, какие отделения и специальности существуют, каким образом поликлиникиприкрепляются к больницам и т. п.
2. Заданиепо второй части курсовой работы
В прошломвеке один английский миссионер, желая облегчить контакт с туземным населением,выделил из английского языка самую простую и распространенную его часть,содержащую около 300 слов и почти не имеющую грамматики. Это подмножествоязыка, названное Basic English, действительно оказалось весьма простым дляусвоения и поэтому вскоре завоевало популярность не только среди туземцев, но ииммигрантов.
Подобную цельсоздания для расширения и облегчения контактов, только не между различными группамилюдей, а между непрофессионалами и ЭВМ, поставили перед собой сотрудникиДартмутского колледжа Джон Кемени и Томас Куртс. Разработанный ими в 1964 годуалгоритмический язык Basic, как и всякий другой язык программирования,является формальной знаковой системой, используемой для связи человека с ЭВМ ипредназначенной для описания данных и алгоритмов их обработки на вычислительноймашине. Название Basic является аббревиатурой английской фразы «Beginner’s Allpurpose Symbolic Instruction Code», что в переводеозначает «многоцелевой язык, символических команд для начинающих».
С прогрессомкомпьютерных технологий развивался и Basic. В настоящее время версия Visual Basic даёт возможность решать любыесовременные задачи разработки приложений. При этом Visual Basic остаётся достаточнопростым в освоении, являясь в тоже время одним из мощных современных языковпрограммирования. Простота и мощность языка Visual Basic позволили сделать еговстроенным языком для приложений MS Office.2.1 Постановка задачи
Создать файл,содержащий сведения об ассортименте игрушек в магазине. Каждая запись содержитполя: название игрушки, цена, количество, возрастные границы (2–5, т.е. от 2 до5 лет).
Написать программу,в результате выполнения которой выдаются следующие сведения:
· названияигрушек, которые подходят детям от 1 до 3 лет;
· стоимостьсамой дорогой игрушки и её наименование;
· названиеигрушек, которые по стоимости не превышает x рублей и подходит ребёнкув возрасте от aдо b лет. Значения x, a, b вводит пользователь.
· 2.1.1 Создание файла последовательного доступа
Длявыполнения задания был создан файл последовательного доступа в программеБлокнот и сохранен на локальном диске «С», как текстовый документ с названием «Faildannix».
Операторы,предназначенные для работы с файлами последовательного доступа, позволяют нам:открывать файл для записи в него или для чтения уже имеющейся в нём информации;записывать в открытый файл новую информацию из программы; извлекать данные изоткрытого файла и обрабатывать их в программе; закрывать файл после работы сним.
/>
Файл содержит10 записей с полями: наименование игрушки, цена, количество единиц товара ивозрастные границы. Эти данные считываются, формируя соответствующие массивы, скоторыми мы впоследствии работаем.2.1.2 Переменные, используемые в программе
· nazvanieigr – наименование игрушки
· cena – стоимость игрушки
· kolichestvo – количество товара в наличии
· vozrast – возрастные границы игрушки
· cenaMax – максимальная стоимость игрушки
· vozmin – нижняя возрастная граница игрушки
· vozmax – верхняя возрастная граница игрушки2.1.3 Разработка интерфейса
Создано менюдля работы с приложением с помощью редактора меню, который вызывается из меню Tools командой Menu Editor. Для ввода и вывода данныхна Form используем ListBox и TextBox, для создания красочногоокна используем Image, для вывода текста на Form в качестве надписей используем Label. Для изменения свойстввсех вышеперечисленных компонентов работаем с окном Properties.
/>2.1.4 Работа приложения
При выводеприложения на экран мы видим окно с панелью управления и окнами ввода и выводаинформации.
Для вывода наэкран перечня игрушек и их характеристик, т. е. для начала работыприложения, необходимо выбрать Форма – Заполнение данными.
Дляразрешения первой задачи, которая состоит в выведении на экран наименованийигрушек, подходящим детям от 1 до 3 лет, необходимо проделать следующиедействия: Задачи – Для детей 1–3 лет.
Дляразрешения второй задачи, которая звучит следующим образом: получить стоимостьсамой дорогой игрушки и её наименование, необходимо: Задачи – Самая дорогаяигрушка.
И, последнее,для разрешения третьей задачи (например, вы хотите купить интересующую васигрушку, подходящую вашему ребёнку и не превышающая ваших возможностей)необходимо: Задачи – На ваш выбор. Но, для начала необходимо ввести данные,которые удовлетворяли бы вашим интересам.
Также, есливы не хотите вручную что-либо удалять выполните следующие действия: Форма –Очистить (все данные, заполненные в ListBox, исчезнут).
Естьвозможность не вводить лишних данных, а просто кликнуть на название игрушки, ивы получите все данные о той или иных игрушках.
Если васбольше ничто не удерживает «в нашем магазине», то выберите на панели управленияФорма – Выход и приложение закроется.2.2 Блок-схема алгоритма решения
Заполнение ListBox данными из блокнота.
/>
/>/>/>да
нет
2.3 Текст программы на языке 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
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
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 2.4 Анализ полученного результата2.4.1 Form заполнена данными
При выполнениидействий Форма – Заполнение данными мы наблюдаем следующее
/>
2.4.2 Выполнена 1‑ая задача
Задачи – Длядетей 1–3 лет: наблюдаем вывод перечня тех игрушек, которые подходят детям ввозрасте от 1 до 3 лет.
/>2.4.3 Выполнена 2‑ая задача
Задачи –Самая дорогая игрушка: получаем стоимость, название и возрастные границы этойигрушки.
/>
2.4.4 Выполнена 3‑ья задача
Пользовательвводит нужные для него параметры, по которым он сможет определить игрушку,подходящую его ребёнку.
/>
Привыполнении следующих действий: Задачи – На ваш выбор вы получите перечень техигрушек, которые вам подходят.
/>
В случае же,если нет таких игрушек будет выведено диалоговое окно с сообщением об этом.
/>2.4.5 Выполнены дополнительные поставленные задачи
В менюсоздана возможность выхода из приложения, а также возможность стереть вседанные. Есть возможность узнать характеристики игрушки по её названию.
/>
2.4.6 Работа приложения вне оболочки Visual Basic
Для того,чтобы Windows‑приложение могло работать независимо от средыпроектирования, нужно произвести преобразование (трансляцию) проекта в исполняемыйexe файл.
Длятрансляции проекта в исполняемый exe‑файл используется опция File Главной панели проекта ив ней – команда Make Project1.exe. В появившемся окне сохранения выбираем нужнуюпапку и даём имя файлу (курсовая по Basic2), после чего нажимаем кнопку OK.
Привыполнении данного задания я узнала много нового о среде Visual Basic. В данной работевыполнены все поставленные задачи. Я считаю, что создание аналогичных программмогла бы значительно облегчить нашу жизнь. Это очень удобно: ввёл интересующиетебя параметры и получил нужные тебе сведения.
Проделаннаяработа убедила меня в необходимости языков программирования и в достаточнойдоступности понимания языка программирования Basic.
Списокиспользованной литературы
1) Лекции по информатике
2) Мокшина В.В. Основыработы с СУБД Access Программирование на языке высокого уровня Visual Basic Калининград 2003
3) Голицына О.Л. Основыалгоритмизации и программирования Москва ФОРУМ – ИНФРА‑М 2006
4) Сафронов И. Visual Basic в примерахСанкт-Петербург «БХВ-Петербург» 2006