Курсовая работа: Автоматизированная система "Медицинские организации города"
Для разрешения первой задачи, которая состоит в выведении на экран наименований игрушек, подходящим детям от 1 до 3 лет, необходимо проделать следующие действия: Задачи – Для детей 1–3 лет.
Для разрешения второй задачи, которая звучит следующим образом: получить стоимость самой дорогой игрушки и её наименование, необходимо: Задачи – Самая дорогая игрушка.
И, последнее, для разрешения третьей задачи (например, вы хотите купить интересующую вас игрушку, подходящую вашему ребёнку и не превышающая ваших возможностей) необходимо: Задачи – На ваш выбор. Но, для начала необходимо ввести данные, которые удовлетворяли бы вашим интересам.
Также, если вы не хотите вручную что-либо удалять выполните следующие действия: Форма – Очистить (все данные, заполненные в ListBox, исчезнут).
Есть возможность не вводить лишних данных, а просто кликнуть на название игрушки, и вы получите все данные о той или иных игрушках.
Если вас больше ничто не удерживает «в нашем магазине», то выберите на панели управления Форма – Выход и приложение закроется.
2.2 Блок-схема алгоритма решения
Заполнение ListBox данными из блокнота.
да
нет
2.3 Текст программы на языке VisualBasic
| Формирование массивов данных |
|
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 К-во Просмотров: 510
Бесплатно скачать Курсовая работа: Автоматизированная система "Медицинские организации города"
|