Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;
    Начать пользоваться сервисом
  • ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 6. Цель: Закрепить навыки использования массива объектов и оператора цикла






    Тема: Массивы объектов.

    Цель: Закрепить навыки использования массива объектов и оператора цикла

    Постановка задачи: Разработать приложение- «Кроссворд»

    Порядок выполнения:

    1. Установите на форме следующие объекты и измените им свойства:

     

    Объект Свойство Значение
    Массив меток Buk1 из 7 элементов для первого слова Font 10, полужирный
    Index От 1 до 7
    Height Width  
    Caption (для первого элемента)  
    Массив меток Font 10, полужирный
    Buk2 Index От 1 до 8
    из 8 элементов для второго слова Height Width  
      Caption (для первого элемента)  
    Массив меток Font 10, полужирный
    Buk3 Index От 1 до 7
    из 7 элементов для третьего слова Height Width  
      Caption (для первого элемента)  
    Массив меток Font 10, полужирный
    Buk4 Index От 1 до 7
    из 7 элементов для четвертого слова Height Width  
      Caption (для первого элемента)  
    Массив меток Font 10, полужирный
    Buk5 Index От 1 до 4
    из 4 элементов для пятого слова Height Width  
      Caption (для первого элемента)  
    Таймер Name Timer1
      Interval  

    2. Расположите объекты примерно так, как показано на образце. Элементы одного массива должны располагаться по возрастанию индексов. Не спешите делать пересечение слов.

    3. В разделе общих объявлений набрать:

    Dim vopr(28), otv(28) As String ' массивы с вопросами и ответами

    Dim k 'кол-во отгаданных слов

    4. В окне кода процедуры обработки события Load для объекта Form набрать:

    'заполнение массива вопросами

    vopr(1) = " устройство печати"

    vopr(2) = " устройство ввода вывода"

    vopr(3) = " устройство вывода"

    vopr(4) = " гибкий диск"

    vopr(5) = " устройство ввода"

    'заполнение массива ответами

    otv(1) = " принтер"

    otv(2) = " дисковод"

    otv(3) = " монитор"

    otv(4) = " дискета"

    otv(5) = " мышь"

    k = 0

    5. В окне кода процедуры обработки события Click для объекта Buk1 набрать:

     

    otvet = InputBox(vopr(1))

    n = Len(otvet)

    If n = 0 Then Exit Sub

    If otvet = otv(1) Then

    'ответ введен верно, вывод букв в клетки

    For i = 1 To n

    buk1(i) = Mid(otvet, i, 1)

    Next i

    'количество отгаданных слов увеличилось на единицу

    k = k + 1

    End If

     

    6. Проверьте работу программы (для первого слова)

    7. Самостоятельно набрать код для остальных массивов меток

    8. В окне кода процедуры обработки события Timer для объекта Timer1 набрать

    If k = 5 Then

    MsgBox " кроссворд разгадан"

    Timer1.Interval = 0

    End If

     

    9. Проверьте работу программы

    10. В том случае, если программа работает полностью правильно, сделайте пересечение слов (см. образец)

     

    11. Объясните, почему на пересечении слов не всегда сразу отображается буква, исправьте этот «недостаток» программы

     

    12. Добавьте на форму кнопку «Справка» для вывода сообщения, как работать с программой

     

    13. Результат показать преподавателю.







    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.