[Triangle] - Môj prvý Program

Module Module1

    Sub Main()

        Dim dlzka As Integer
        Dim dlzkab As Integer
        Dim dlzkac As Integer
        Dim prikaz As Integer
        Dim prikaz2 As Integer
Menu:
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Green
        Console.CursorLeft = 25
        Console.CursorTop = 1
        Console.WriteLine("----------------------------")
        Console.CursorLeft = 25
        Console.WriteLine("     Vytajte v programe     ")
        Console.CursorLeft = 25
        Console.WriteLine("          Triangle          ")
        Console.CursorLeft = 25
        Console.WriteLine("----------------------------")
        Console.ResetColor()

        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine()
        Console.WriteLine("Menu")
        Console.WriteLine()
        Console.ResetColor()
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("  1 ")
        Console.ResetColor()
        Console.WriteLine("- Spustenie programu ")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("  2 ")
        Console.ResetColor()
        Console.WriteLine("- Info o programe ")
        Console.ForegroundColor = ConsoleColor.Red
        Console.Write("  3 ")
        Console.ResetColor()
        Console.WriteLine("- Vypnutie programu ")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine()
        Console.WriteLine("Svoju voľbu potvrdte klávenou ENTER")
        Console.ResetColor()

        prikaz = Console.ReadLine()
   
        If (prikaz = 1) Then
            GoTo start

        ElseIf (prikaz = 3) Then
            End

        ElseIf (prikaz = 2) Then
            GoTo info
        End If

Start:
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Green
        Console.CursorLeft = 25
        Console.CursorTop = 1
        Console.WriteLine("----------------------------")
        Console.CursorLeft = 25
        Console.WriteLine("          Triangle          ")
        Console.CursorLeft = 25
        Console.WriteLine("----------------------------")
        Console.ResetColor()

        Console.Write("Napíš dlžku strany A , trojuholníka v cm : ")
        dlzka = Console.ReadLine()

        Console.Write("Napíš dlžku strany B , trojuholnika v cm : ")
        dlzkab = Console.ReadLine()

        Console.Write("Napíš dlžku strany C , trojuholnika v cm : ")
        dlzkac = Console.ReadLine()

        'Error
        If (dlzka + dlzkab < dlzkac) Or (dlzka + dlzkac < dlzkab) Or (dlzkab + dlzkac < dlzka) Then
            Console.Clear()
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine("Pre strany trojuholníka musí platiť trojuholníková nerovnosť, tj., že súčet")
            Console.WriteLine(", že súčet dĺžok dvoch ľubovoľných strán je väčší ako dĺžka tretej strany ")
            Console.WriteLine()
            Console.WriteLine("    a + b > c ")
            Console.WriteLine("    b + c > a ")
            Console.WriteLine("    a + c > b ")
            Console.WriteLine()
            Console.WriteLine()
            Console.WriteLine("! V tomto prípade sa nejedná o trojuholník !")
            Console.ResetColor()
            Console.WriteLine()
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Green
            Console.Write("  1 ")
            Console.ResetColor()
            Console.WriteLine(" - Návrat do Menu Programu")
            prikaz2 = Console.ReadLine()
            If (prikaz2 = 1) Then
                GoTo Menu
            End If
        End If


        'Rovnoramenný trojuholník
        If (dlzka = dlzkab) And (dlzkac <> dlzka) Then

            Console.Clear()
            Console.WriteLine(" Dlžka strany A a strany B sa zhodujú ")
            Console.WriteLine(" Dižka strany C sa nezhoduje ")
            Console.Write("Strana a = ")
            Console.WriteLine(dlzka)
            Console.Write("Strana b = ")
            Console.WriteLine(dlzkab)
            Console.Write("Strana c = ")
            Console.WriteLine(dlzkac)
            Console.WriteLine(" Trojuholník je Rovnoramenný ")
            Console.WriteLine()
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  1 ")
            Console.ResetColor()
            Console.WriteLine(" - Pokračovať")
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  2 ")
            Console.ResetColor()
            Console.WriteLine(" - Návrat do Menu Programu")
            prikaz2 = Console.ReadLine()
            If (prikaz2 = 1) Then
                GoTo Start
            ElseIf (prikaz2 = 2) Then
                GoTo Menu
            End If
        End If

        If (dlzka = dlzkac) And (dlzkab <> dlzka) Then
            Console.Clear()
            Console.WriteLine(" Dlžka strany A a strany C sa zhodujú ")
            Console.WriteLine(" Dižka strany B sa nezhoduje ")
            Console.Write("Strana a = ")
            Console.WriteLine(dlzka)
            Console.Write("Strana b = ")
            Console.WriteLine(dlzkab)
            Console.Write("Strana c = ")
            Console.WriteLine(dlzkac)
            Console.WriteLine(" Trojuholník je Rovnoramenný ")
            Console.WriteLine()
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  1 ")
            Console.ResetColor()
            Console.WriteLine(" - Pokračovať")
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  2 ")
            Console.ResetColor()
            Console.WriteLine(" - Návrat do Menu Programu")
            prikaz2 = Console.ReadLine()
            If (prikaz2 = 1) Then
                GoTo Start
            ElseIf (prikaz2 = 2) Then
                GoTo Menu
            End If
        End If

        If (dlzkab = dlzkac) And (dlzka <> dlzkab) Then
            Console.Clear()
            Console.WriteLine(" Dlžka strany B a strany C sa zhodujú ")
            Console.WriteLine(" Dižka strany A sa nezhoduje ")
            Console.Write("Strana a = ")
            Console.WriteLine(dlzka)
            Console.Write("Strana b = ")
            Console.WriteLine(dlzkab)
            Console.Write("Strana c = ")
            Console.WriteLine(dlzkac)
            Console.WriteLine(" Trojuholník je Rovnoramenný ")
            Console.WriteLine()
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  1 ")
            Console.ResetColor()
            Console.WriteLine(" - Pokračovať")
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  2 ")
            Console.ResetColor()
            Console.WriteLine(" - Návrat do Menu Programu")
            prikaz2 = Console.ReadLine()
            If (prikaz2 = 1) Then
                GoTo Start
            ElseIf (prikaz2 = 2) Then
                GoTo Menu
            End If
            'Rovnostranný Trojuholník
        End If
        If (dlzka = dlzkab) And (dlzka = dlzkac) Then

            Console.Clear()
            Console.WriteLine(" Všetky strany majú rovnaku dlžku a uhol 60° ")
            Console.Write("Strana a = ")
            Console.WriteLine(dlzka)
            Console.Write("Strana b = ")
            Console.WriteLine(dlzkab)
            Console.Write("Strana c = ")
            Console.WriteLine(dlzkac)
            Console.WriteLine(" Trojuholník je Rovnostranný ")
            Console.WriteLine()
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  1 ")
            Console.ResetColor()
            Console.WriteLine(" - Pokračovať")
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  2 ")
            Console.ResetColor()
            Console.WriteLine(" - Návrat do Menu Programu")
            prikaz2 = Console.ReadLine()
            If (prikaz2 = 1) Then
                GoTo Start
            ElseIf (prikaz2 = 2) Then
                GoTo Menu
            End If

        End If

        'Pravouhlý Trojuholník
        If (dlzka * dlzka + dlzkab * dlzkab = dlzkac * dlzkac) Then

            Console.Clear()
            Console.WriteLine("a2 + b2 = c2 . Platí pitagorova veta ")
            Console.WriteLine("Prepony A a B Zvieraju Pravý uhol 90° ")
            Console.WriteLine("strana C ma največšiu dlžku")
            Console.Write("Strana a = ")
            Console.WriteLine(dlzka)
            Console.Write("Strana b = ")
            Console.WriteLine(dlzkab)
            Console.Write("Strana c = ")
            Console.WriteLine(dlzkac)
            Console.WriteLine(" Trojuholník je Pravouhlý ")
            Console.WriteLine()
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  1 ")
            Console.ResetColor()
            Console.WriteLine(" - Pokračovať")
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  2 ")
            Console.ResetColor()
            Console.WriteLine(" - Návrat do Menu Programu")
            prikaz2 = Console.ReadLine()
            If (prikaz2 = 1) Then
                GoTo Start
            ElseIf (prikaz2 = 2) Then
                GoTo Menu
            End If

        ElseIf (dlzka * dlzka + dlzkac * dlzkac = dlzkab * dlzkab) Then

            Console.Clear()
            Console.WriteLine("a2 + c2 = b2 . Platí pitagorova veta ")
            Console.WriteLine("Prepony A a C Zvieraju Pravý uhol 90° ")
            Console.WriteLine("strana B ma največšiu dlžku")
            Console.Write("Strana a = ")
            Console.WriteLine(dlzka)
            Console.Write("Strana b = ")
            Console.WriteLine(dlzkab)
            Console.Write("Strana c = ")
            Console.WriteLine(dlzkac)
            Console.WriteLine(" Trojuholník je Pravouhlý ")
            Console.WriteLine()
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  1 ")
            Console.ResetColor()
            Console.WriteLine(" - Pokračovať")
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  2 ")
            Console.ResetColor()
            Console.WriteLine(" - Návrat do Menu Programu")
            prikaz2 = Console.ReadLine()
            If (prikaz2 = 1) Then
                GoTo Start
            ElseIf (prikaz2 = 2) Then
                GoTo Menu
            End If

        ElseIf (dlzkab * dlzkab + dlzkac * dlzkac = dlzka * dlzka) Then
            Console.Clear()
            Console.WriteLine("b2 + c2 = a2 . Platí pitagorova veta ")
            Console.WriteLine("Prepony B a C Zvieraju Pravý uhol 90° ")
            Console.WriteLine("strana A ma največšiu dlžku")
            Console.Write("Strana a = ")
            Console.WriteLine(dlzka)
            Console.Write("Strana b = ")
            Console.WriteLine(dlzkab)
            Console.Write("Strana c = ")
            Console.WriteLine(dlzkac)
            Console.WriteLine(" Trojuholník je Pravouhlý ")
            Console.WriteLine()
            Console.WriteLine()
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  1 ")
            Console.ResetColor()
            Console.WriteLine(" - Pokračovať")
            Console.ForegroundColor = ConsoleColor.Red
            Console.Write("  2 ")
            Console.ResetColor()
            Console.WriteLine(" - Návrat do Menu Programu")
            prikaz2 = Console.ReadLine()
            If (prikaz2 = 1) Then
                GoTo Start
            ElseIf (prikaz2 = 2) Then
                GoTo Menu
            End If
        End If


Err:
        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Red
        Console.CursorLeft = 25
        Console.WriteLine("                Chyba                ")
        Console.WriteLine()
        Console.WriteLine(" Program nevie rozoznať zadane dlžky ")
        Console.WriteLine()
        Console.WriteLine()
        Console.ResetColor()
        Console.WriteLine(" Stlačte ENTER a zadajte iné dlžky")
        Console.ReadLine()
        GoTo Start

Info:

        Console.Clear()
        Console.ForegroundColor = ConsoleColor.Green
        Console.CursorLeft = 25
        Console.CursorTop = 1
        Console.WriteLine("----------------------------")
        Console.CursorLeft = 25
        Console.WriteLine("      Info o Programe       ")
        Console.CursorLeft = 25
        Console.WriteLine("          Triangle          ")
        Console.CursorLeft = 25
        Console.WriteLine("----------------------------")
        Console.ResetColor()
        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine(" Výrobca : Tomas Tony Olejník")
        Console.WriteLine(" Verzia programu : 1.0")
        Console.WriteLine(" Písane v jazyku : Visual Basic")

        Console.WriteLine()
        Console.WriteLine()
        Console.CursorLeft = 28
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.WriteLine(" Funkcie programu")
        Console.ResetColor()
        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine(" Program po zadani dlžky všetkých strán urči či ide o ")
        Console.WriteLine(" Rovnostranný , Rovnoramenný alebo Pravouhlý Trojuholník.")
        Console.WriteLine(" Taktiež svoje tvrdenie zdôvodni. ")
        Console.WriteLine()
        Console.WriteLine(" Po zadani nezmyselných dlžok program napíše že sa nejedná")
        Console.WriteLine(" o trojuholník a svoje tvrdenie zdôvodni.")
        Console.WriteLine()
        Console.WriteLine()

        Console.ForegroundColor = ConsoleColor.Green
        Console.Write("  1 ")
        Console.ResetColor()
        Console.WriteLine(" - Návrat do Menu Programu")
        Console.ForegroundColor = ConsoleColor.Green
        Console.Write("  2 ")
        Console.ResetColor()
        Console.WriteLine(" - Ukončenie Programu")
        prikaz = Console.ReadLine()

        If (prikaz = 1) Then
            GoTo Menu
        ElseIf (prikaz = 2) Then
            End
        End If

    End Sub

End Module