Retour sur ACME

&B113 (664/6128) / &B8F7 (464) : Définir la mesure d'angles en cours (DEG/RAD)

Auteur: Fredisland (Admin)
4.67
4.67 sur 3 votes

&B113 (664/6128) / &B8F7 (464) : Définir la mesure d'angles en cours (DEG/RAD)

L'instruction DEG permet de travailler ses calculs trigonométriques avec une valeur d'angles en degrés. L'instruction RAD, en radians. Mais il est aussi possible de passer de l'un à l'autre par un POKE :

Pour CPC 664/6128

POKE &B113,0   ' on passe en RADians
POKE &B113,255 ' on passe en DEGrés

Pour CPC 464

POKE &B8F7,0   ' on passe en RADians
POKE &B8F7,255 ' on passe en DEGrés

Si l'utilité du POKE semble peut évidente, en revanche le PEEK est plus intéressant puisqu'il permet de savoir où on en est :

PRINT "Valeurs en ";:IF PEEK(&B113)=0 THEN PRINT "RADians" ELSE PRINT "DEG" ' Pour CPC 664/6128

PRINT "Valeurs en ";:IF PEEK(&B8F7)=0 THEN PRINT "RADians" ELSE PRINT "DEG" ' Pour CPC 464
 
 

 

 

&B113 (664/6128) / &B8F7 (464) : Définir la mesure d'angles en cours (DEG/RAD)

&B113 (664/6128) / &B8F7 (464) : Définir la mesure d'angles en cours (DEG/RAD)

L'instruction DEG permet de travailler ses calculs trigonométriques avec une valeur d'angles en degrés. L'instruction RAD, en radians. Mais il est aussi possible de passer de l'un à l'autre par un POKE :

Pour CPC 664/6128

POKE &B113,0   ' on passe en RADians
POKE &B113,255 ' on passe en DEGrés

Pour CPC 464

POKE &B8F7,0   ' on passe en RADians
POKE &B8F7,255 ' on passe en DEGrés

Si l'utilité du POKE semble peut évidente, en revanche le PEEK est plus intéressant puisqu'il permet de savoir où on en est :

PRINT "Valeurs en ";:IF PEEK(&B113)=0 THEN PRINT "RADians" ELSE PRINT "DEG" ' Pour CPC 664/6128

PRINT "Valeurs en ";:IF PEEK(&B8F7)=0 THEN PRINT "RADians" ELSE PRINT "DEG" ' Pour CPC 464