Практическая работа по VISUAL BASIC.Проект «Добавить текст»

  • Лабораторные работы
  • docx
  • 23.02.2018
Публикация на сайте для учителей

Публикация педагогических разработок

Бесплатное участие. Свидетельство автора сразу.
Мгновенные 10 документов в портфолио.

Практическая работа по VISUAL BASIC направлена на отработку навыков работы с элементами управления VISUAL BASIC(CommandButton, TextBox, LabeL) ,установление свойств элементов управления, разработка проекта, его отладка и сохранение. Практическая работа содержит перечень умений и навыков, которые приобретут учащиеся в процессе выполнения практической работы,табличку - подсказку для учащихся и решение для учителя.
Иконка файла материала Проект_ Добавить текст.docx
Проект «Добавить текст»   Выполнив задания этой практической работы, вы научитесь: ­  создавать   форму   и   размещать     на   ней   элементы     управления   (Label,  TextBox, CommandButton); ­ устанавливать свойства  элементов управления (Caption, Text, MultiLine, ScroolBars) ; ­ вводить текст  программы и её отладка; ­ сохранять проект. Для выполнения задания вам надо знать: ­ элементы  управления и их свойства; Класс объектов Свойства CommandButton (кнопка) TextBox (текстовое поле) Caption (надпись) ­Text (текст) ­MultiLine(многострочный текст) ­ ScroolBars (скролинг) Новое   значение  Добавить  Очистка Значение по умолчанию Command1 Command2 Text1 Text2 True Vertical Текст Label ( метка) Caption(надпись) Label1 Более подробные сведения об объектах и их свойствах можно найти в конце брошюры. ­ Задание: сохранение проекта (File­ Save Project As…) 1) Создать   форму,   расположив   на   ней управляющие соответствующие элементы, настроив их свойства.   2) Составить   событийную   процедуру, которая   бы   при   нажатии   кнопки «ДОБАВИТЬ» переносила сообщение из нижнего   поля   ввода   в   верхнее,   а   при нажатии   «Очистка»,   удаляла   бы   все сообщения. 3) Сохранить проект в папке «Проекты». Примерный       образец       решения Private Sub Command1_Click() Text1.Text = Text1.Text + Text2.Text Text2.Text = "" End Sub Private Sub Command2_Click() Text1.Text = ""Text2.Text = "" End Sub