It looks like you're new here. If you want to get involved, click one of these buttons!

- 140.8K All Categories
- 103.6K Programming Languages
- 6.4K Assembler Developer
- 401 Assembly Code Share
- 239 Getting started in assembly
- 4.6K x86 Assembly
- 1.9K Basic
- 97 Qbasic
- 39.9K C and C++
- 5.6K Beginner C/C++
- 330 C/C++ on Linux/Unix
- 450 C/C++ Windows API
- 522 C++ Builder
- 253 C++ Game Development
- 3.3K C++ MFC
- 103 C++.NET
- 404 Visual C++
- 2.9K C#
- 7.9K Delphi and Kylix
- 334 Advanced Delphi
- 360 Delphi beginners
- 4 Haskell
- 9.7K Java
- 56 Enterprise JavaBeans
- 1.3K Java Beginners
- 304 Java Server Pages
- 4.1K Pascal
- 1.3K Perl
- 11 Perl 6
- 2K PHP
- 546 Python
- 37 Ruby
- 4.4K VB.NET
- 258 Advanced VB.Net
- 1.6K VBA
- 20.8K Visual Basic
- 767 Access databases and VB
- 831 Advance Visual Basic
- 1.2K Beginner VB
- 2.6K Game programming
- 315 Console programming
- 90 DirectX Game dev
- 1 Minecraft
- 112 Newbie Game Programmers
- 2 Oculus Rift
- 9K Applications
- 1.8K Computer Graphics
- 279 3D Graphics
- 129 DirectX
- 125 OpenGL
- 740 Computer Hardware
- 9 Cooling & Overclocking
- 3.4K Database & SQL
- 1.1K Access
- 91 ADO Programming
- 288 MySQL
- 358 Oracle
- 440 SQL-Server
- 535 Electronics development
- 1.6K Matlab
- 628 Sound & Music
- 25 DirectSound
- 257 XML Development
- 3.3K Classifieds
- 199 Co-operative Projects
- 198 For sale
- 190 FreeLance Software City
- 1.9K Jobs Available
- 603 Jobs Wanted
- 209 Wanted
- 2.9K Microsoft .NET
- 1.8K ASP.NET
- 1.1K .NET General
- 22 .NET WEB-Services
- 129 .NET WinForms
- 14 .NET XML
- 50 ADO.NET
- 142 C# & VB.NET School Support
- 3.4K Miscellaneous
- 4 Join the Team
- 354 Comments on this site
- 69 Computer Emulators
- 2.1K General programming
- 187 New programming languages
- 621 Off topic board
- 200 Mobile & Wireless
- 72 Android
- 126 Palm Pilot
- 338 Multimedia
- 154 Demo programming
- 184 MP3 programming
- 0 Bash scripts
- 27 Cloud Computing
- 1 Witsbits Go Cloud
- 53 FreeBSD
- 1.7K LINUX programming
- 1 Awk scripting
- 332 Linux Support
- 0 Sed scripting
- 370 MS-DOS
- 0 Shell scripting
- 321 Windows CE & Pocket PC
- 4.1K Windows programming
- 177 COM/DCOM
- 61 Networking And Security
- 17 Windows 2003 Server
- 6 Windows Vista
- 176 Windows XP
- 939 Software Development
- 416 Algorithms
- 68 Object Orientation
- 24 RUP & UML
- 91 Project Management
- 95 Quality & Testing
- 268 Security
- 63 Evil Scripting
- 81 Hacking
- 7.7K WEB-Development
- 1.8K Active Server Pages
- 61 AJAX
- 4 Bootstrap Themes
- 55 CGI Development
- 28 ColdFusion
- 224 Flash development
- 1.4K HTML & WEB-Design
- 1.4K Internet Development
- 131 Mobile Internet & Messaging
- 211 Wireless development
- 2.2K JavaScript
- 37 JQuery
- 304 WEB Servers
- 153 Apache
- 79 IIS
- 150 WEB-Services / SOAP

## Comments

:

:

:

For a start, you'll actually need 6 numbers, an x and y co-ordinate for each point. If you assume a is where the right angle is, you can say if b has the same x value and c has the same y value, or if c has the same x value and a has the same y value, it is right angled. Do the same thing if b is the right angle and if c is:

ax = 10

ay = 20

bx = 5

by = 20

cx = 10

dy = 30

If ax = bx Then

If ay = cy Then

ans = True

End If

ElseIf ax = cx Then

If ay = by Then

ans = True

End If

ElseIf bx = ax Then

If by = cy Then

ans = True

End If

ElseIf bx = cx Then

If by = ay Then

ans = True

End If

ElseIf cx = ax Then

If cy = by Then

ans = True

End If

ElseIf cx = bx Then

If cy = ay Then

ans = True

End If

Else

ans = False

End If

ans is True if it is a right angled triangle.

Though this code only works if the right angle is laying parallel to the x or y axis!

To actually get it to work in general, simply compare the gradients of every pair of sides to the triangle. If the product of any pair = -1 then the lines of the gradients are set to bi-sect where the right angle is, this is a proof for determining a right angle triangle.

: :

: :

: :

: For a start, you'll actually need 6 numbers, an x and y co-ordinate for each point. If you assume a is where the right angle is, you can say if b has the same x value and c has the same y value, or if c has the same x value and a has the same y value, it is right angled. Do the same thing if b is the right angle and if c is:

:

: ax = 10

: ay = 20

: bx = 5

: by = 20

: cx = 10

: dy = 30

:

: If ax = bx Then

: If ay = cy Then

: ans = True

: End If

: ElseIf ax = cx Then

: If ay = by Then

: ans = True

: End If

: ElseIf bx = ax Then

: If by = cy Then

: ans = True

: End If

: ElseIf bx = cx Then

: If by = ay Then

: ans = True

: End If

: ElseIf cx = ax Then

: If cy = by Then

: ans = True

: End If

: ElseIf cx = bx Then

: If cy = ay Then

: ans = True

: End If

: Else

: ans = False

: End If

:

: ans is True if it is a right angled triangle.

: Though this code only works if the right angle is laying parallel to the x or y axis!

:

: To actually get it to work in general, simply compare the gradients of every pair of sides to the triangle. If the product of any pair = -1 then the lines of the gradients are set to bi-sect where the right angle is, this is a proof for determining a right angle triangle.

:

??????

Ever heard of "Phytagoras"?

a + b = c sounds familiar?

If you just want to find out, if a triangle is right-angled, then you just have to check the above equation for all three possibilities (assuming a, b and c are the sides (Not the corners!) of your triangle. You have to calculate the length of each side through the x,y-Values of your corners, which is normal algebra).

if ((a + b = c) or (a + c = b) or (b + c = a))=False then

'I'm not a right-angled triangle

Else

'Yes, i'm a right-angled triangle

End if

------------------------------------------

Only stupidity of mankind and the universe

are infinite, but i'm not sure concerning

the universe. A. Einstein

: : :

: : :

: : :

: : For a start, you'll actually need 6 numbers, an x and y co-ordinate for each point. If you assume a is where the right angle is, you can say if b has the same x value and c has the same y value, or if c has the same x value and a has the same y value, it is right angled. Do the same thing if b is the right angle and if c is:

: :

: : ax = 10

: : ay = 20

: : bx = 5

: : by = 20

: : cx = 10

: : dy = 30

: :

: : If ax = bx Then

: : If ay = cy Then

: : ans = True

: : End If

: : ElseIf ax = cx Then

: : If ay = by Then

: : ans = True

: : End If

: : ElseIf bx = ax Then

: : If by = cy Then

: : ans = True

: : End If

: : ElseIf bx = cx Then

: : If by = ay Then

: : ans = True

: : End If

: : ElseIf cx = ax Then

: : If cy = by Then

: : ans = True

: : End If

: : ElseIf cx = bx Then

: : If cy = ay Then

: : ans = True

: : End If

: : Else

: : ans = False

: : End If

: :

: : ans is True if it is a right angled triangle.

: : Though this code only works if the right angle is laying parallel to the x or y axis!

: :

: : To actually get it to work in general, simply compare the gradients of every pair of sides to the triangle. If the product of any pair = -1 then the lines of the gradients are set to bi-sect where the right angle is, this is a proof for determining a right angle triangle.

: :

:

: ??????

: Ever heard of "Phytagoras"?

:

: a + b = c sounds familiar?

:

: If you just want to find out, if a triangle is right-angled, then you just have to check the above equation for all three possibilities (assuming a, b and c are the sides (Not the corners!) of your triangle. You have to calculate the length of each side through the x,y-Values of your corners, which is normal algebra).

:

[code]

if ((a^2 + b^2 = c^2) or (a^2 + c^2 = b^2) or (b^2 + c^2 = a^2))=False then

'I'm not a right-angled triangle

Else

'Yes, i'm a right-angled triangle

End if

[/code]

Although

a^2 is less accurate in VB or VB.Net than a*a

Regards,

Dr M.

[green] I can help you with your problem, lets break it into 3 steps.

1. Define the data types [/green]

[blue] Dim ShortSide, MediumSide, LongSide As String [/blue]

[green] 2. Ask the user for the variable values [/green]

[blue] ShortSide = InputBox("Enter The Short Side Length")

MediumSide = InputBox("Enter The Medium Side Length")

LongSide = InputBox("Enter The Long Side Length") [/blue]

[green] 3. Check whether the triangle is right angled and display result

[blue] If LongSide ^ 2 = ShortSide ^ 2 + MediumSide ^ 2 Then

MsgBox ("This triangle is right angled")

Else

MsgBox ("This triangle is not right angled")

End If [/blue]

Hope this helps you, any questions just ask me.