Учебная работа. Реферат: Создание Веб сайта

Учебная работа. Реферат: Создание Веб сайта

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

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

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

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

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

— перечень пациентов старше Х лет с диагнозом 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

]]>