Som en del af et program , du nogle gange nødt til at beregne vinklen mellem to punkter. Du bruger trigonometri til at gøre beregningerne. Da trigonometri er baseret på retvinklede trekanter , du behandler de to punkter som hjørner af en retvinklet trekant , og basere dine beregninger på trekanten. QBasic er et programmeringssprog til MS- DOS. Den er baseret på BASIC , hvorfra den har arvet sine trigonometri funktioner. Du kan beregne vinklen mellem to punkter i QBasic hjælp af en af ​​disse funktioner , ATN . Instruktioner
1

Find de vandrette og lodrette afstande mellem de to punkter. Disse afstande danne sider af trekanten , du vil bruge til dine beregninger . I dette eksempel er koordinaterne for de to punkter er gemt i variabler navngivne Point1X , Point1Y , Point2X og Point2Y . At finde hver distance , trække det første punkt er koordinat fra det andet punkt matching koordinat : Hej

DIM TriangleWidth som single , TriangleHeight AS ENKELT

TriangleWidth = Point2X - Point1X

TriangleHeight = Point2Y - Point1Y
2

konvertere både afstande til positive tal . TriangleWidth vil være negativ, hvis det andet punkt er til venstre for det første punkt , og TriangleHeight vil være negativ, hvis det andet punkt er under det første punkt. Dette er et problem , fordi du har brug for positive tal for beregningerne . Brug funktionen ABS for at finde den absolutte værdi af hver distance : Hej

TriangleWidth = ABS ( TriangleWidth )

TriangleHeight = ABS ( TriangleHeight )
3

beregne tangens af vinklen . Tangens af en vinkel er længden af ​​den modsatte side af vinklen divideret med længden af den side støder op til vinklen . Du forsøger at finde vinklen fra det første punkt , hvilket betyder trekanten højde er den modsatte side , og dens base er den tilstødende side. Divider højde ved foden : Hej

DIM Tangent AS ENKELT

Tangent = TriangleHeight /TriangleWidth
4

Beregn vinklen vha. ATN -funktionen. ATN -funktionen (kort for " arctangens " ) finder den vinkel , der matcher en tangent : Hej

DIM vinkel som SINGLE

Angle = ATN ( Tangent )
5

Konverter vinklen fra radianer til grader. ATN funktionen returnerer en vinkel i radianer . (Pi radianer lig en halv cirkel eller 180 grader. ) Til at konvertere radianer til grader , gang med 180 og divider med pi : Hej

Angle = Vinkel * 180 /3,14159
< br >