Referat.me

Название: Создание Веб сайта

Вид работы: реферат

Рубрика: Информатика

Размер файла: 43.68 Kb

Скачать файл: referat.me-132677.docx

Краткое описание работы: Задание по курсовой работе Постановка задачи Создать файл, содержащий сведения о пациентах глазной клиники. Каждая запись содержит поля: фамилия пациента, пол возраст, место проживания (город), диагноз.

Создание Веб сайта

Задание по курсовой работе

Постановка задачи

Создать файл, содержащий сведения о пациентах глазной клиники. Каждая запись содержит поля: фамилия пациента, пол возраст, место проживания (город), диагноз.

Написать программу, выдающую следующую информацию:

- количество иногородних, прибывших в клинику;

- список пациентов старше Х лет с диагнозом Y. Значения X и Y вводит пользователь.

Для отладки программы на диске с помощью текстового редактора Блокнот был создан файл Глазная поликлиника. txt , имеющий следующее содержание:

Абромович,м,47,Калининград,близорукость

Путин,м,26,Калининград,коньюктевит

Иванова,ж,31,Балтийск,дальнозоркость

Сидоров,м,25,п.Южный,косоглазие

Петиков,м,27,Калининград,глоукома

Задова,ж,36,Советск,катаракта

Пастушенко,ж,18,Калининград,близорукость

Дубровский,м,67,Гусев,дальнозоркость

Нагиев,м,35,Нестеров,коньюктевит

Городнянский,м,45,Калининград,косоглазие

Пресли,м,36,Балтийск,катаракта

Тайлакова,ж,17,Черняховск,глоукома

Топор,м,56,Калининград,дальнозоркость

Курникова,ж,29,п.Шоссейный,коньюктевит

Галкин,м,24,Калининград,катаракта

Пушкин,м,43,Ладушкино,близорукость

Ситишкин,м,21,Калининград,косоглазие

Парфёнова,ж,21,Багратионовск,дальнозоркость.

Алгоритм чтения, обработки этого файла содержит циклы и оператор ветвления. Результаты выводятся в текстовое поле на форме, имеющей следующий вид. Использованы также следующие объекты – метки, командные кнопки, поле рисунка и поле со списком.




Блок- схема

Текст программы на языке Visual Basic

Dim fio As String, pol As String, age As Integer, city As String, diag As String, n As Integer

Private Sub CmdEnter_Click()

If Val(TxtAge.Text) < 1 Or Val(TxtAge.Text) > 100 Then

MsgBox "Некорректный ввод данных!!!", vbCritical + vbOKOnly, "Ошибка при вводе!!!"

Else

Open App.Path + "глазная поликлиника.txt" For Input As #1

Do

Input #1, fio, pol, age, city, diag

If age > Val(TxtAge.Text) And diag = Combo1.Text Then

txtSpisok.Text = txtSpisok.Text + fio + ", возраст " + Str(age) + ", диагноз " + diag + vbCrLf

End If

Loop Until EOF(1)

Close

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Open App.Path + "глазная поликлиника.txt" For Input As #1

Do

j = j + 1

Input #1, fio, pol, age, city, diag

If city <> "Калининград" Then n = n + 1

For i = 1 To j

For j = 1 To Combo1.ListCount

If diag = Combo1.List(j - 1) Then f = 1

Next j

If f = 0 Then Combo1.AddItem diag

If f = 1 Then f = 0

Next i

Loop Until EOF(1)

Close

Text2.Text = Str(n)

EndSub
Анализ полученного результата

Проведенная проверка с помощью контрольного примера показала успешную работу программы по всем вариантам:

- подсчет иногородних пациентов в клинике;

- список пациентов старше определенного возраста по различным диагнозам.

Вывод

Наращивая данную программу с помощью различных подпрограмм можно решать и другие задачи по обработке информации о пациентах в данной клинике. Например, данные по месту и условиям работы, но удобнее, на мой взгляд, всю информацию поместить в базу данных, добавив к таблицам данных несколько запросов с вычисляемыми полями.

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

1. Информатика. Под ред. Макаровой Н.В. СПб, 1998

2. Шафрин Ю.А. «Основы компьютерной технологии». М., 1998

3. Симанович С.В. Информатика. Базовый курс «Питер» 2001

4. Практикум по компьютерной технологии. Шафрин Ю., Ефимова О., АБФ, М., 1997

Похожие работы

  • Лабораторная работа по Информатике 2

    Лабораторная работа. Вариант1. 1. Разработать информационную подсистему "Зарплата" на языке SQL для автоматизации начисления почасовой заработной платы в бухгалтерии. База данных состоит из трех таблиц, содержащих сведения о работниках, ставки почасовой оплаты и табель отработанных часов.

  • Информационная схема

    МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ Волгоградский государственный технический университет Кафедра информатики и вычислительной техники

  • Встроенные функции Excel

    МИНИСТЕРСТВО ОБРАЗОВАНИЯ РФ НОВГОРОДСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИМЕНИ ЯРОСЛАВА МУДРОГО ИНСТИТУТ ЭКОНОМИКИ И УПРАВЛЕНИЯ КАФЕДРА СЭММ ЛАБОРАТОРНАЯ РАБОТА № 5

  • Цель и задачи показать основные сведения о проведенной работе и о посещаемости сайта

    СОДЕРЖАНИЕ 1 Цель и задачи практической работы 2 Решение задачи №1 3 Решение задачи №2 4 Решение задачи №3 5 Решение задачи №4 6 Решение задачи №5 7 Выводы 1 Цель и задачи показать основные сведения о проведенной работе и о посещаемости сайта.

  • Особенности работы с Microsoft Access

    Введение Microsoft Access – это система управления базами данных (СУБД), предназначенная для создания и обслуживания баз данных, обеспечения доступа к данным и их обработки.

  • Работа со структурами в языке программирования Си

    Лабораторная работа №6 “Работа со структурами в языке программирования Си++” Цель работы: познакомиться с понятием структуры и структурной переменной. Научиться создавать массивы структур и работать со вложенными структурами.

  • Техническое описание информационной базы в Microsoft Office Access

    Техническое описание информационной базы в Microsoft Office Access. Постановка задачи: разработка информационной базы в Microsoft Office Access 2003, где должны храниться сведения о студентах одной из групп ВУЗа.

  • База данных по регистрации больных в поликлинике

    Введение На самых ранних стадиях развития информационных технологий использовались списки – набитые на перфокарте и написанные на магнитной ленте. Компьютерные технологии усовершенствовались, изменились объемы памяти, изменился внешний вид, компьютеры стали доступны для населения. По мере развития вычислительной техники возникали разные методики программирования.

  • Проектирование реляционных баз данных 2

    Поволжский государственный университет телекоммуникаций и информатики Кафедра экономических и информационных систем Проектирование реляционных баз данных

  • Базы данных и знаний

    1. Нормализация исходного отношения. 2. Разработка программ создания таблиц; формы для ввода данных в таблицу. 3. Создание отчётов. 1.Нормализация исходного отношения .