Автоматизированная система "Медицинские организации города"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
етей 13 лет.
Для разрешения второй задачи, которая звучит следующим образом: получить стоимость самой дорогой игрушки и её наименование, необходимо: Задачи Самая дорогая игрушка.
И, последнее, для разрешения третьей задачи (например, вы хотите купить интересующую вас игрушку, подходящую вашему ребёнку и не превышающая ваших возможностей) необходимо: Задачи На ваш выбор. Но, для начала необходимо ввести данные, которые удовлетворяли бы вашим интересам.
Также, если вы не хотите вручную что-либо удалять выполните следующие действия: Форма Очистить (все данные, заполненные в ListBox, исчезнут).
Есть возможность не вводить лишних данных, а просто кликнуть на название игрушки, и вы получите все данные о той или иных игрушках.
Если вас больше ничто не удерживает в нашем магазине, то выберите на панели управления Форма Выход и приложение закроется.
- Блок-схема алгоритма решения
Заполнение ListBox данными из блокнота.
да
нет
- Текст программы на языке 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 заполнена данными
При выполнении действий Форма Заполнение данными мы наблюдаем следующее
- Выполнена 1ая задача
Задачи Для детей 13 лет: наблюдаем вывод перечня тех игрушек, которые подходят детям в возрасте от 1 до 3 лет.
- Выполнена 2ая задача
Задачи Самая дорогая игрушка: получаем стоимость, название и возрастные границы этой игрушки.
- Выполнена 3ья задача
Пользователь вводит нужные для него параметры, по которым он сможет определить игрушку, подходящую его ребёнку.
При выполнении следующих действий: Задачи На ваш выбор вы получите перечень тех игрушек, которые вам подходят.
В случае же, если нет таких игрушек будет выведено диалоговое окно с сообщением об этом.
- Выполнены дополнительные поставленные задачи
В меню создана возможность выхода из приложения, а также возможность стереть все данные. Есть возможность узнать характеристики игрушки по её названию.
- Работа приложения вне оболочки Visual Basic
Для того, чтобы Windowsприложение могло работать независимо от среды проектирования, нужно произвести преобразование (трансляцию) проекта в исполняемый exe файл.
Для трансляции проекта в исполняемый exeфайл используется опция File Главной панели проекта и в ней команда Make Project1.exe. В появившемся окне сохранения выбираем нужную папку и даём имя файлу (курсовая по Basic2), после чего нажимаем кнопку OK.
При выполнении данного задания я узнала много нового о среде Visual Basic. В данной работе выполнены все поставленные задачи. Я считаю, что создание аналогичных программ могла бы значительно облегчить нашу жизнь. Это очень удобно: ввёл интересующие тебя параметры и получил нужные тебе сведения.
Проделанная работа убедила меня в необходимости языков программирования и в достаточной доступности понимания языка программирования Basic.
Список использованной литературы