Задание по курсовой работе
Постановка задачи
Создать файл, содержащий сведения о пациентах глазной клиники. Каждая запись содержит поля: фамилия пациента, пол возраст, место проживания (город), диагноз.
Написать программу, выдающую следующую информацию:
- количество иногородних, прибывших в клинику;
- список пациентов старше Х лет с диагнозом 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
Забиваем Сайты В ТОП КУВАЛДОЙ - Уникальные возможности от SeoHammer
Каждая ссылка анализируется по трем пакетам оценки: SEO, Трафик и SMM.
SeoHammer делает продвижение сайта прозрачным и простым занятием.
Ссылки, вечные ссылки, статьи, упоминания, пресс-релизы - используйте по максимуму потенциал SeoHammer для продвижения вашего сайта.
Что умеет делать SeoHammer
— Продвижение в один клик, интеллектуальный подбор запросов, покупка самых лучших ссылок с высокой степенью качества у лучших бирж ссылок.
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз,
а первые результаты появляются уже в течение первых 7 дней.
Зарегистрироваться и Начать продвижение
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 Анализ полученного результата
Проведенная проверка с помощью контрольного примера показала успешную работу программы по всем вариантам:
- подсчет иногородних пациентов в клинике;
- список пациентов старше определенного возраста по различным диагнозам.
Вывод
Наращивая данную программу с помощью различных подпрограмм можно решать и другие задачи по обработке информации о пациентах в данной клинике. Например, данные по месту и условиям работы, но удобнее, на мой взгляд, всю информацию поместить в базу данных, добавив к таблицам данных несколько запросов с вычисляемыми полями.
Сервис онлайн-записи на собственном Telegram-боте
Попробуйте сервис онлайн-записи VisitTime на основе вашего собственного Telegram-бота:
— Разгрузит мастера, специалиста или компанию;
— Позволит гибко управлять расписанием и загрузкой;
— Разошлет оповещения о новых услугах или акциях;
— Позволит принять оплату на карту/кошелек/счет;
— Позволит записываться на групповые и персональные посещения;
— Поможет получить от клиента отзывы о визите к вам;
— Включает в себя сервис чаевых.
Для новых пользователей первый месяц бесплатно.
Зарегистрироваться в сервисе
Список используемой литературы
1. Информатика. Под ред. Макаровой Н.В. СПб, 1998
2. Шафрин Ю.А. «Основы компьютерной технологии». М., 1998
3. Симанович С.В. Информатика. Базовый курс «Питер» 2001
4. Практикум по компьютерной технологии. Шафрин Ю., Ефимова О., АБФ, М., 1997
|