Red de conocimiento informático - Problemas con los teléfonos móviles - Algoritmo VB para superponer dos rectángulos

Algoritmo VB para superponer dos rectángulos

Supongamos que las coordenadas del primer rectángulo son x1, y1, el ancho y el alto son w1, h1 respectivamente, y las coordenadas del segundo rectángulo son x2, y2, y el ancho y el alto son w2, h2 respectivamente:

Si X2 > X1 Y X2 < X1 + w1 E Y2 > Y1 Y2 < Y1 + h1 Entonces

MsgBox "Dos rectángulos se superponen, área superpuesta: x=" & w=" & X1 & Y2 & " w=" & Y1 + h1 Luego

MsgBox "Dos rectángulos se superponen, área superpuesta: x=" & " & X1 + w1 - X2 & " h=" & Y1 + h1 - Y2

ElseIf X1 > X2 And X1 < X2 + w2 And Y2 > Y1 And Y2 < Y1 + h1 Then

MsgBox "Dos rectángulos se superponen, el área de superposición es: x=" & X1 & " y=" & Y2 & " w=" & X2 + w2 - X1 & " h=" & Y1 + h1 - Y2

ElseIf X2 > X1 Y X2 < " & X2 & " y=" & Y1 & " w=" & X1 + w1 - X2 & " h=" & Y2 + h2 - Y1

ElseIf X1 > X2 Y X1 < w2 Y Y1 > Y2 e Y1 < Y2 + h2 Entonces

MsgBox "Hay una superposición entre los dos rectángulos, el área superpuesta: x=" & X1 & " y=" & Y1 & " w=" & X2 + w2 - X1 & " h=" & Y2 + h2 - Y1

Else

MsgBox "Los dos rectángulos no se superponen"

If

Fin