1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

Создание Собственного Класса

Тема в разделе "Visual Basic", создана пользователем gosser, 26 апр 2012.

  1. gosser

    gosser Гость

    Есть 2 прямоугольника с координатами x11 y11 и x12 y12(первый прямоугольник) x21 y21 и x22 y22(второй прямоугольник) ,где координаты соответствуют верхней левой и нижней правой координате прямоугольников.
    В программе должны выполняться следующие методы-пересечение ,перемещение и изменение размеров.Результат должен быть представлен графически.
    Перемещение-
    x11+=delx;
    x12+=delx;
    y11+=dely;
    y12+=dely;
    для первого
    x21+=delx;
    x22+=delx;
    y21+=dely;
    y22+=dely;
    для второго
    Изменение-
    x12+=delx;
    y11+=dely;
    для первого
    x22+=delx;
    y21+=dely;
    для второго
    Пересечение-
    Код (LotusScript):
    per = 0
    If x21 > x11 And x21 < x12 And x12 > x21 And x12 < x22 And y21 < y11 And y21 > y12 And y22 < y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y21) (x12;y12)"
    per = 1
    End If

    If x21 > x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 < y11 And y21 > y12 And y22 < y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y21) (x22;y12)"
    per = 1
    End If

    If x21 < x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 < y11 And y21 > y12 And y22 < y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y21) (x22;y12)"
    per = 1
    End If

    If x21 < x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 < y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y21) (x22;y22)"
    per = 1
    End If

    If x21 < x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 > y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y11) (x22;y22)"
    per = 1
    End If

    If x21 > x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 > y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y11) (x22;y22)"
    per = 1
    End If

    If x21 > x11 And x21 < x12 And x22 > x11 And x22 > x12 And y21 > y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y11) (x12;y22)"
    per = 1
    End If

    If x21 > x11 And x21 < x12 And x22 > x11 And x22 > x12 And y21 < y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y21) (x12;y22)"
    per = 1
    End If

    If x21 > x11 And x21 < x12 And x22 > x11 And x22 > x12 And y21 = y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y11) (x12;y22)"
    per = 1
    End If

    If x21 > x11 And x21 < x12 And x22 > x11 And x22 > x12 And y21 < y11 And y21 > y12 And y22 = y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y21) (x12;y22)"
    per = 1
    End If

    If x21 > x11 And x21 < x12 And x22 > x11 And x22 = x12 And y21 < y11 And y21 > y12 And y22 < y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y21) (x22;y22)"
    per = 1
    End If

    If x21 = x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 < y11 And y21 > y12 And y22 < y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y21) (x22;y12)"
    per = 1
    End If

    If x21 < x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 < y11 And y21 > y12 And y22 = y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y21) (x22;y12)"
    per = 1
    End If

    If x21 < x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 = y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y21) (x22;y22)"
    per = 1
    End If

    If x21 = x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 > y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y11) (x22;y22)"
    per = 1
    End If

    If x21 > x11 And x21 < x12 And x22 > x11 And x22 = x12 And y21 > y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y11) (x22;y22)"
    per = 1
    End If

    If x21 > x11 And x21 < x12 And x22 > x11 And x22 > x12 And y21 = y11 And y21 > y12 And y22 = y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y11) (x12;y22)"
    per = 1
    End If

    If x21 = x11 And x21 < x12 And x22 > x11 And x22 = x12 And y21 < y11 And y21 > y12 And y22 < y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y21) (x12;y12)"
    per = 1
    End If

    If x21 < x11 And x21 < x12 And x22 > x11 And x22 < x12 And y21 = y11 And y21 > y12 And y22 = y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y11) (x22;y22)"
    per = 1
    End If

    If x21 = x11 And x21 < x12 And x22 > x11 And x22 = x12 And y21 > y11 And y21 > y12 And y22 > y12 And y22 < y11 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y11) (x22;y22)"
    per = 1
    End If

    If x11 > x21 And x11 < x22 And x12 > x21 And x12 < x22 And y11 > y21 And y11 > y22 And y12 > y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y21) (x12;y12)"
    per = 1
    End If

    If x11 > x21 And x11 < x22 And x12 > x21 And x12 > x22 And y11 < y21 And y11 > y22 And y12 > y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y11) (x22;y12)"
    per = 1
    End If

    If x11 > x21 And x11 < x22 And x12 > x21 And x12 < x22 And y11 < y21 And y11 > y22 And y12 < y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y11) (x12;y22)"
    per = 1
    End If

    If x11 < x21 And x11 < x22 And x12 > x21 And x12 < x22 And y11 < y21 And y11 > y22 And y12 > y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y21) (x12;y12)"
    per = 1
    End If

    If x11 > x21 And x11 < x22 And x12 > x21 And x12 > x22 And y11 = y21 And y11 > y22 And y12 > y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y21) (x22;y12)"
    per = 1
    End If

    If x11 > x21 And x11 < x22 And x12 > x21 And x12 > x22 And y11 < y21 And y11 > y22 And y12 = y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y11) (x22;y12)"
    per = 1
    End If

    If x11 > x21 And x11 < x22 And x12 > x21 And x12 = x22 And y11 < y21 And y11 > y22 And y12 < y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y11) (x12;y12)"
    per = 1
    End If

    If x11 = x21 And x11 < x22 And x12 > x21 And x12 < x22 And y11 < y21 And y11 > y22 And y12 < y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y11) (x12;y22)"
    per = 1
    End If

    If x11 < x21 And x11 < x22 And x12 > x21 And x12 < x22 And y11 < y21 And y11 > y22 And y12 = y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y11) (x12;212)"
    per = 1
    End If

    If x11 < x21 And x11 < x22 And x12 > x21 And x12 < x22 And y11 = y21 And y11 > y22 And y12 > y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x21;y11) (x12;y12)"
    per = 1
    End If

    If x11 = x21 And x11 < x22 And x12 > x21 And x12 < x22 And y11 > y21 And y11 > y22 And y12 > y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y21) (x12;y12)"
    per = 1
    End If

    If x11 > x21 And x11 < x22 And x12 > x21 And x12 = x22 And y11 > y21 And y11 > y22 And y12 > y22 And y12 < y21 Then
    Text1.Caption = "Прямоугольники пересекаются и координаты пересечения : (x11;y21) (x12;y12)"
    per = 1
    End If

    If per = 0 Then
    Text1.Caption = "Треугольники не пересекаются"
    End If
     
Загрузка...

Поделиться этой страницей