Dobrý den přeji všem kdo si právě teď čtou tento odstavec. Ale k věci. Píšu teď obsáhlý a trošku složitější prográmek, který dostal název Schizophrenia. Program obsahuje spoustu užitečných funkcí (např.: otevíraní, zavírání, tisku souborů, převody jednotek a taky vypočítat různé údaje o geometrických tělesech). Tady je právě ten problém. Představte si, že máte obdélník, z levého dolního rohu povedete úhlopříčku. Mezi tou úhlopříčkou a spodní stranou je úhel alfa. Pak ještě znáte velikost dané úhlopříčky. Možná si říkáte, že to vypočtete pomocí goniometrických funkcí (tan, cos, sin ...), ale i když jsem kód několikrát upravoval vyšlo mi číslo v záporu, což je nesmysl.
Dim uhlopricka As Double = txtstěnováúhlopříčka1.Text
Dim uhel As Double = txtúhelalfa.Text
Dim vypočet As Double
vypočet = (((Cos(uhel)) * 180) / 3.141592654) * uhlopricka
lbltabule.Text = "O = " & vypočet & " cm"
To kde je * 180 / pi je převod z radiánů na stupně, protože jsem se někde dočetl že goniometrické funkce podají výstup uživateli v radiánech. Ale stejně mi to háže naprosto nesmyslná čísla. Kdo by mohl poradit, tak prosím požte.
|