Студопедия

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

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

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






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






    Тема: Программирование графики

    Цель: Получить навыки использования графических методов

    Порядок выполнения 1 часть

    1. Откройте новый проект.

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

    Объект Свойство Значение
    Командная кнопка Name CmdResult
    Caption Пять точек
    Графическое окно Name Pic1
      Width  
      Height  
      BackColor черный

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

    pic1.Scale (-10, 10)-(10, -10) 'назначить объекту новую систему координат

    pic1.DrawWidth = 10 'изменим размеры точки

    pic1.ForeColor = vbWhite ' цвет точек - белый

    pic1.PSet (0, 0) 'вывод точек

    Pic1.PSet (-5, -5)

    Pic1.PSet (5, 5)

    Pic1.PSet (-5, 5)

    Pic1.PSet (5, -5)

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

    5. Измените программу для вывода а) четырех точек; б) шести точек (самостоятельно)

    6. Результат показать преподавателю. 2 часть

    7. Откройте новый проект.

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

    Объект Свойство Значение
    Командные кнопки Name CmdFlag
    Caption Флаг России
    Name CmdStart
      Caption Пуск

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

    Cls

    Line (2000, 2000)-(4000, 2500), vbWhite, BF

    PSet (2000, 2200)

    Print " Да Здравствует РОССИЯ! "

    Line (2000, 2500)-(4000, 3000), vbBlue, BF

    Line (2000, 3000)-(4000, 3500), vbRed, BF

    Line (2000, 2000)-(2000, 4000)

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

    Cls

    Line (200, 200)-(2200, 200), vbBlue 'вывод тонкой горизонтальной линии

    DrawWidth = 6 'вывод толстой вертикальной линии

    Line (200, 400)-(200, 2000), vbRed

    DrawWidth = 3 'вывод наклонного отрезка средней толщины

    Line (600, 1400)-(1200, 500), vbGreen

    Line (1600, 2000)-(400, 1500),, B 'прямоугольник незакрашенный

    Line (3000, 1400)-(2200, 500), vbCyan, BF 'прямоугольник закрашенный

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

    12. Самостоятельно измените программу так, чтобы она рисовала флаги Франции (вертикальные полосы - синяя, белая, красная), Германии (горизонтальные полосы – черная, красная, желтая)

    Часть

    13. Откройте новый проект.

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

    Объект Свойство Значение
    Командные кнопки Name Cmd1
    Caption Круг и эллипсы
    Name Cmd2
      Caption Дуга, сектор круга, сектор эллипса
    Графические окна Name Pic1
      Height  
      Width  
      Name Pic2
      Height  
      Width  

     

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

    Pic1.Scale (0, 30)-(16, 0)

    Pic1.ForeColor = QBColor(7) 'установим цвет линии

    Pic1.FillStyle = 0 'установим стиль заполнения (сплошной)

    Pic1.Circle (8, 25), 4 'вывод окружности

    Pic1.FillColor = QBColor(7) 'установим цвет заполнения и линии

    Pic1.ForeColor = QBColor(0)

    Pic1.Circle (8, 16), 5.5,,,, 0.5 'овал горизонтальный

    Pic1.Circle (8, 6.5), 4.5,,,, 1.5 'овал вертикальный

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






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