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

  • Автор темы gosser
  • Дата начала
G

gosser

Гость
#1
Есть 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;
для второго
Пересечение-
Код:
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