|
 | | |
| Autor | Správa |
|---|
Tony*
Užívateľ
Založený: 01.06.2011
Príspevky: 6
Bydlisko: Spišský Hrušov
Vek: 16
 |  Zaslal: St 01.06.11 19:34 |   |
Takže predstavujem vám môj prvý program
Názov : Triangle / Trojuholník
Písane v jazyku : Visual Basic
Cas tvorby : 2 dni
Funkcie programu :
Program po zadani dlžky všetkých strán urči či ide o
Rovnostranný , Rovnoramenný alebo Pravouhlý Trojuholník.
Taktiež svoje tvrdenie zdôvodni.
Po zadani nezmyselných dlžok program napíše že sa nejedná o trojuholník
a svoje tvrdenie tiež zdôvodni.
Je to len taka Consolova blbinka co som mal za úlohu ale na zaciatok aspon niečo 
Kedže s programovaním vo Visual Basic som začal len pred týždňom . xD
Download : http://dl1.upnito.sk/download.php?dwTok ... 6ad7c91dfa
A tu je Zdrojak , niekomu sa možno zíde
| kód: | 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 |
PS : sry ale nezistil som ako sa to dava do spoilera |
| |
   |
|
tomas0620
Užívateľ
Založený: 13.12.2009
Príspevky: 62
| | Zaslal: Pi 03.06.11 17:52 | |
|
 |
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
