Студопедия

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

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

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






  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;
    Начать пользоваться сервисом
  • Порядок выполнения. 41. Загрузите редактор Paint, установите размер рисунка 1 на1 см (Рисунок / Атрибуты))






    41. Загрузите редактор Paint, установите размер рисунка 1 на1 см (Рисунок / Атрибуты))

    42. Создайте 4 рисунка(см. образец) и сохраните их в файлы Колобок1, Колобок2, Колобок3, Колобок4

    43. Загрузите Visual Basic Установите на форме следующие объекты и измените им свойства

    44. Выделите все изображения колобка (при нажатой клавише Shift) и измените следующие значения для свойств:

    - Left 1000, Top 1000

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

     

    If Image1.Visible = True Then

    Image1.Visible = False

    Image3.Visible = True

    Exit Sub

    End If

    If Image2.Visible = True Then

    Image2.Visible = False

    Image4.Visible = True

    Exit Sub

    End If

    If Image3.Visible = True Then

    Image3.Visible = False

    Image1.Visible = True

    Exit Sub

    End If

    If Image4.Visible = True Then

    Image4.Visible = False

    Image2.Visible = True

    Exit Sub

    End If

     

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

     

    If KeyCode = 39 Then 'вправо

    If Image1.Visible = False And Image3.Visible = False Then

    Image1.Visible = True

    Image2.Visible = False

    Image4.Visible = False

    End If

    Image1.Left = Image1.Left + 100

    Image2.Left = Image2.Left + 100

    Image3.Left = Image3.Left + 100

    Image4.Left = Image4.Left + 100

    End If

    If KeyCode = 37 Then 'влево

    If Image2.Visible = False And Image4.Visible = False Then

    Image2.Visible = True

    Image1.Visible = False

    Image3.Visible = False

    End If

    Image1.Left = Image1.Left – 100

    Image2.Left = Image2.Left - 100

    Image3.Left = Image3.Left – 100

    Image4.Left = Image4.Left - 100

    End If

    If KeyCode = 40 Then 'вниз

    Image1.Top = Image1.Top + 100

    Image2.Top = Image2.Top + 100

    Image3.Top = Image3.Top + 100

    Image4.Top = Image4.Top + 100

    End If

    If KeyCode = 38 Then 'вверх

    Image1.Top = Image1.Top – 100

    Image2.Top = Image2.Top - 100

    Image3.Top = Image3.Top – 100

    Image4.Top = Image4.Top - 100

    End If

     

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







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