Come parte di un programma , a volte è necessario per calcolare l'angolo tra due punti . Si utilizza la trigonometria per fare i calcoli . Dal momento che la trigonometria si basa su triangoli rettangoli , si trattano i due punti come angoli di un triangolo rettangolo , e la base i calcoli sul triangolo . QBasic è un linguaggio di programmazione per MS - ​​DOS . E 'basato su BASIC , dalla quale ha ereditato le funzioni trigonometriche . È possibile calcolare l'angolo tra due punti in QBasic utilizzando una di queste funzioni , ATN . Istruzioni
1

Trova le distanze orizzontale e verticale tra i due punti. Queste distanze formano i lati del triangolo che verrà utilizzato per i calcoli. Per questo esempio , le coordinate dei due punti sono memorizzati in variabili chiamate Point1X , Point1Y , Point2X e Point2Y . Per trovare ogni distanza , sottrarre coordinata del primo punto da coordinate corrispondenza del secondo punto :

TriangleWidth DIM come singola, triangleHeight COME SINGOLO

TriangleWidth = Point2X - Point1X

triangleHeight = Point2Y - Point1Y
2

Convertire entrambe le distanze per i numeri positivi . TriangleWidth sarà negativo se il secondo punto è a sinistra del primo punto , e triangleHeight sarà negativo se il secondo punto è inferiore al primo punto . Questo è un problema perché hai bisogno di numeri positivi per i calcoli . Utilizzare la funzione ABS per trovare il valore assoluto di ogni distanza :

TriangleWidth = ABS ( TriangleWidth ) per

triangleHeight = ABS ( triangleHeight )
3

calcolare la tangente dell'angolo . La tangente di un angolo è la lunghezza del lato opposto all'angolo divisa per la lunghezza del lato adiacente all'angolo . Stai cercando di trovare l'angolo dal primo punto , il che significa che l'altezza del triangolo è il lato opposto e la sua base è il lato adiacente . Dividere l'altezza dalla base :

Tangent DIM COME SINGOLO

Tangente = triangleHeight /TriangleWidth
4

calcolare l'angolo con la funzione ATN . La funzione di ATN (abbreviazione di " arcotangente " ) trova l' angolo che corrisponde a una tangente :

Angolo DIM COME SINGOLO
Angolo

= ATN ( Tangente ) economici 5

Convertire l'angolo da radianti in gradi . La funzione ATN restituisce un angolo in radianti . ( Pi radianti pari alla metà di un cerchio , o 180 gradi . ) Per convertire i radianti in gradi , moltiplicare per 180 e dividere per pi:

Angle = Angolo * 180 /3.14159