Ako vypočítať uhly QBasic

Ako súčasť programu , budete niekedy potrebovať pre výpočet uhla medzi dvoma bodmi . Môžete použiť trigonometria robiť výpočty . Vzhľadom k tomu , trigonometria je založený na pravouhlé trojuholníky , správate dva body ako rohoch pravouhlého trojuholníka , a založiť svoje výpočty na trojuholník . QBasic je programovací jazyk pre MS - DOS . Je založený na základnej , z ktorého zdedil jeho trigonometrické funkcie . Môžete vypočítať uhol medzi dvoma bodmi v QBasic pomocou jednej z týchto funkcií , ATN . Pokyny dovolená 1

Nájsť horizontálne a vertikálne vzdialenosti medzi dvoma bodmi . Tieto vzdialenosti tvoria strany trojuholníka budete používať pre svoje výpočty . V tomto príklade sú súradnice dvoch bodov sú uložené v premenných pomenovaných Point1X , Point1 , Point2X a Point2Y . Ak chcete nájsť každú vzdialenosť , odpočítať súradnicu prvý bod je z porovnávania Druhý bod v súradnicu :

DIM TriangleWidth AS SINGLE , triangleHeight AS SINGLE

TriangleWidth = Point2X - Point1X

triangleHeight = Point2Y - Point1
2

Prevod obe vzdialenosti do kladných čísel . TriangleWidth bude negatívny , ak je druhý bod je naľavo od prvého bodu , a triangleHeight bude negatívny , ak je druhý bod je nižší ako prvý bod . To je problém , pretože budete potrebovať pozitívne čísla pre výpočty . Použite funkciu ABS nájsť absolútnu hodnotu každej vzdialenosti :

TriangleWidth = ABS ( TriangleWidth )

triangleHeight = ABS ( triangleHeight )
3

Vypočítajte tangens uhla . Tangens uhla je dĺžka strany protiľahlej uhla delená dĺžkou strany priľahlej k uhlu . Snažíte sa nájsť uhol z prvého bodu , čo znamená , že výška trojuholníka je druhá strana a jej základňa je priľahlé strane . Rozdeľte výšku základne :

DIM Tangent AS SINGLE

Tangent = triangleHeight /TriangleWidth
4

Vypočítajte uhol pomocou funkcie ATN . Funkcie ATN ( skratka pre " arkustangens " ) nájde uhol , ktorý zodpovedá dotyčnicu kraju

DIM uhla ako samostatné

uhol = ATN ( Tangent ) klipart 5

previesť uhla z radiánov na stupne . Funkcie ATN vráti uhol v radiánoch . ( Pri radians rovná polovica kruhu , alebo 180 stupňov . ) Ak chcete previesť radiány na stupne , vynásobte 180 a deliť pí :

uhol = uhol * 180 /3.14159

• Predchádzajúca strana: Ako triediť pomocou rozbaľovacieho zoznamu 
• Ďalšia strana: Ako si vyrobiť stĺp na GridView Do zoznamu Drop