Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Private Sub ReadRecordStud()
FileGet(1, RecStud, nRecStud) txtFIO1.Text = RecStud.FIO txtAdr1.Text = RecStud.Adr txtNomSt1.Text = RecStud.NomSt txtPol1.Text = RecStud.Pol txtDr1.Text = RecStud.DataR txtNomGr1.Text = RecStud.NomGr txtSp1.Text = RecStud.Sp If RecStud.VidOpl = True Then Check_1.Checked = True Else Check_1.Checked = False End If End Sub
16. С событием Click кнопки cmdUp связать процедуру:
Private Sub CmdUp_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles CmdUp.Click If nRecStud < LOF(1) / Len(RecStud) Then nRecStud = nRecStud + 1 ReadRecordStud() Else MsgBox("Конец файла") End If End Sub
17. С событием Click кнопки cmdDown связать процедуру:
Private Sub CmdDown_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles CmdDown.Click If nRecStud > 1 Then nRecStud = nRecStud - 1 ReadRecordStud() Else MsgBox("Начало файла") End If End Sub
18. С событием Closing объекта FormStudLst Events связать процедуру.
Private Sub FormStudLst_Closing(ByVal sender As Object,_ ByVal e As System.ComponentModel.CancelEventArgs) _ Handles MyBase.Closing FileClose(1) End Sub End Class
19. Активизировать форму FormMenu и связать с событием Click кнопки cmdLst процедуру открытия формы FormStudLst:
Private Sub cmdLst_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdLst.Click Dim form2 As FormStudLst = New FormStudLst Form2.Show() End Sub
20. Сохранить проект. 21. Проверить работу приложения Университет на контрольном примере.
ЛАБОРАТОРНАЯ РАБОТА № 4.
Цель лабораторной работы: приобретение практических навыков по разработке пользовательского интерфейса и по программированию типовых вычислительных процессов при решении задач обработки данных, хранящихся в файлах последовательного или произвольного доступа. В соответствии с индивидуальным заданием необходимо самостоятельно: · разработать пользовательский интерфейс приложения (окно приложения, окна форм для ввода/вывода данных, окна сообщений и меню приложения; · выполнить программирование процедур создания и просмотра файлов; · выполнить программирование задач обработки данных файлов.
Вариант 1. Создать Windows-приложение "Расчет повременной зарплаты". Предусмотреть: 1. Создание входных файлов: Справочник рабочих (Табельный номер, Фамилия, Имя, Отчество, Разряд, Цех); Справочник тарифов (Разряд, Тариф(руб/час)). 2. На основе данных входных файлов и отработанного времени, вводимого в форму, получение выходного файла:
3. Вывод в форму из выходного файла начисленную зарплату по заданному табельному номеру. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 2. Создать Windows-приложение "Расчет повременной зарплаты по цеху". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и отработанного времени, вводимого в форму, получение выходного файла: 3. Вывод общей по цеху начисленной зарплаты. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 3. Создать Windows-приложение "Формирование плана выпуска продукции". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и Планового количества, вводимого в форму, получение выходного файла: 3. Вывод общей по цеху плановой стоимости выпускаемой продукции. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 4. Создать Windows-приложение "Формирование плана выпуска изделий". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и Планового количества изделий, вводимого в форму, получение выходного файла: 3. Вывод Стоимости выпуска заданного изделия. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 5. Создать Windows-приложение "Расчет удержаний с зарплаты".
Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов получение выходного файла: 3. Вывод общей суммы удержаний по заданному табельному номеру. 4. Создание меню для выполнения всех указанных в задании пунктов. Примечание: Размер МРОТ должен быть задан при открытии формы Расчет удержаний. Удержание в ПФ = Начислено* 0.01 Удержание ПН = (Начислено - МРОТ*Количество льгот)*0.12
Вариант 6. Создать Windows-приложение "Расчет заплаты к выдаче". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов получение выходного файла: 3. Вывод суммы зарплаты к выдаче по заданному табельному номеру. 4. Создание меню для выполнения всех указанных в задании пунктов. Примечание: Размер МРОТ должен быть задан при открытии формы Расчет удержаний. Удержание в ПФ = Начислено* 0.01 Удержание ПН = (Начислено - МРОТ*Количество льгот)*0.12
Вариант 7 Создать Windows-приложение "Формирование программы строительно-монтажных работ". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов получение выходного файла: 3. Вывод Итоговой стоимости работ по заданному объекту. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 8 Создать Windows-приложение "Учет потребности в деталях на план выпуска". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданных кодов деталей получение выходного файла: 3. Вывод Количества и Стоимости требуемых деталей. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 9 Создать Windows-приложение "Учет движения деталей на складе". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданных кодов деталей получение выходного файла: 3. Вывод остатков на начало и конец обработки по заданному коду детали. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 10 Создать Windows-приложение "Формирование счетов на оплату в автосервисе". Предусмотреть: 1. Создание входных файлов:
2. На основе данных входных файлов и заданных Номеров заказов получение выходного файла: 3. Вывод Стоимости заказа по заданному Номеру заказа. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 11 Создать Windows-приложение "Учет выполнения работ в автосервисе". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданных Номеров заказов получение выходного файла: 3. Вывод Стоимости выполненных работ по заданному Коду исполнителя. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 12 Создать Windows-приложение "Учет торговых заказов ". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода клиента, Кода товара и Количества получение выходного файла: 3. Вывод Стоимости заказа по заданному Номеру заказа 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 13 Создать Windows-приложение "Формирование реестра заказов ". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода клиента, Кода услуги и Стоимости услуги получение выходного файла: 3. Вывод Общей стоимости заказа по заданному Номеру заказа. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 14 Создать Windows-приложение "Учет оплаты заказов ". Предусмотреть: 1. Создание входных файлов:
2. На основе данных входных файлов и заданного в форме Кода клиента, Кода услуги и Стоимости услуги получение выходного файла: 3. Вывод суммы оплаты заказов по заданной Форме оплаты. 4. Создание меню для выполнения всех указанных в задании пунктов. Примечание: Форма оплаты: наличными или по безналичному расчету.
Вариант 15 Создать Windows-приложение "Формирование заказов на использование строительных механизмов ". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода заказчика, Кода механизма и введенного в форму Объема работы в часах получение выходного файла: 3. Вывод Стоимости заказа по заданному Номеру заказа. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 16 Создать Windows-приложение "Учет автотранспортных перевозок по маркам автомобилей ". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода заказчика, Инвентарного номера автомобиля и введенных в форму Массы груза и Расстояния, Номера заказа и Даты заказа получение выходного файла: 3. Вывод Стоимости заказа по заданному Номеру заказа. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 17 Создать Windows-приложение "Учет автотранспортных перевозок по маркам автомобилей ". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода заказчика, Инвентарного номера автомобиля и введенных в форму Массы груза и Расстояния, Номера заказа и Даты заказа получение выходного файла: 3. Вывод Стоимости перевозок по заданной Марке автомобиля. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 18 Создать Windows-приложение "Учет продаж продовольственных товаров ".
Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода товара, и введенных в форму Количества продано и Даты продажи и Номера чека получение выходного файла: 3. Вывод Остаточной стоимости товара по заданному Коду товара. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 19 Создать Windows-приложение "Учет финансирования строительных объектов по отраслям". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода отрасли получение выходного файла: 3. Вывод Общей суммы финансирования по заданному Коду отрасли. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 20 Создать Windows-приложение "Учет финансирования строительных объектов по организациям". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода организации получение выходного файла: 3. Вывод Общей суммы финансирования по заданному Коду организации. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 21 Создать Windows-приложение "Учет автотранспортных перевозок по заказчикам". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода заказчика, Инвентарного номера автомобиля и введенных в форму Массы груза и Расстояния, Номера заказа и Даты заказа получение выходного файла: 3. Вывод Стоимости заказа по заданному Коду заказчика. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 22 Создать Windows-приложение "Учет продаж промышленных товаров". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода товара, и введенных в форму Количества продано и Даты продажи и Номера чека получение выходного файла: 3. Вывод Стоимости проданного товара по заданному Коду товара. 4. Создание меню для выполнения всех указанных в задании пунктов.
Вариант 23 Создать Windows-приложение "Учет студентов ". Предусмотреть: 1. Создание входных файлов: 2. На основе данных входных файлов и заданного в форме Кода специальности получение выходного файла: 3. Вывод Количества.коммерческих студентов по заданному Коду специальности. 4. Создание меню для выполнения всех указанных в задании пунктов. Лабораторная работа 5 Наследование формы 1. Запустите Visual Studio и создайте новый проект с именем 2. Отобразите форму проекта и используйте элемент управления Button для добавления в нижнюю часть формы двух расположенных рядом объектов кнопок. 3. Измените свойства Text кнопок Button1 и Button2 на " OK " и " Отмена " соответственно. 4. Чтобы отобразить в Редакторе кода процедуру события Button1_Click, сделайте двойной щелчок мышью на кнопке OK. 5. Введите следующий оператор программы: MsgBox("Вы нажали OK")6. Снова отобразите форму, сделайте двойной щелчок мышью на кнопке Отмена, а затем введите в процедуре события Button2_Click следующий оператор программы: MsgBox("Вы нажали Отмена")7. Снова отобразите форму, а затем установите свойство Text формы на значение " Диалоговое окно ". Теперь у вас есть простая форма, которую можно использовать как основу для диалогового окна программы. 8. Скомпилировать проект, так как наследовать можно только от тех форм, которые скомпилированы в виде файлов .exe или .dll. (Каждый раз, когда компилируется базовая форма, изменения, сделанные в этой базовой форме, передаются в производную (наследованную) форму). 9. Щелкните на команде Add Windows Form (Добавить производную форму) в меню Project (Проект). В диалоговом окне выбрать Inherited Form (Производная форма). Текстовое поле Name (Имя) в нижней части диалогового окна позволяет присвоить вашей производной форме имя (Form2.vb); которое появится в Solution Explorer (Обозревателе решений) и в имени файла формы на диске. 10. Щелкните на кнопке Add, чтобы принять для новой формы установки по умолчанию. Visual Studio отобразит диалоговое окно Inheritance Picker (Выбор наследования), показанное на рис.1. Рис.1. Диалоговое окно Inheritance Picker 11. Щелкните в диалоговом окне Inheritance Picker (Выбор наследования) на Form1, а затем на OK. Visual Studio создаст в Solution Explorer (Обозревателе решений) элемент Form2.vb и отобразит в Windows Forms Designer (Конструкторе Windows Forms) производную форму. Обратите внимание, что форма выглядит идентично форме Form1, созданной ранее, за исключением того, что две кнопки содержат маленькие значки, которые указывают, что объекты получены из наследуемого источника. Настройка производной формы 1. Используйте элемент управления Button и добавьте на Form2 (производная форма) третью кнопку. 2. Установите свойство Text этой кнопки равным " Нажми меня! ". 3. Сделайте двойной щелчок мышью на кнопке Нажми меня! 4. В процедуре события Button3_Click введите следующий оператор программы: MsgBox("Это подчиненная форма!")5. Снова отобразите форму Form2, а затем попробуйте сделать двойной щелчок мышью на кнопках OK и Отмена. Вы не можете отобразить или отредактировать процедуры событий для этих унаследованных объектов без дополнительных действий, которые не обсуждаются здесь. 6. Увеличьте форму. Вы также можете изменить другие характеристики формы, такие, как ее размер и расположение. Обратите внимание, что если вы для настройки формы используете окно Properties (Свойства), раскрывающийся список Object (Объект) отображает форму, от которой текущая форма является производной. 7. Теперь установите загрузочный объект равным Form2. Щелкните правой кнопкой мыши в Solution Explorer (Обозревателе решений) на значке проекта My Form Inheritance. В появившемся диалоговом окне щелкните на раскрывающемся списке Startup Form (Начальный объект), далее на Form2. 8. Запустите новый проект. 9. Щелкните на кнопке Start (Начать). Откроется производная форма, показанная ниже. 10. Щелкните на кнопке OK. Производная форма выполнит процедуру события наследуемой формы Form1, и она выведет соответствующее сообщение. 11. Щелкните на кнопках Отмена, а затем на Нажми меня!. Form2 отобразит наследуемые сообщения формы. Производная форма настроена так, чтобы включить новый объект, а также два наследуемых объекта кнопки. 12. Завершить выполнение программы.
|
|||||||||
Последнее изменение этой страницы: 2017-02-07; просмотров: 217; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 54.227.104.229 (0.117 с.) |