Problema de conversión de funciones trigonométricas VB

Un método conveniente y factible es establecer una variable en su programa para almacenar el valor en radianes correspondiente a cada grado:

Dim

Disco duro

Tan

Dos bueno

Dim

Inhibidor del proteasoma

Como

Dos veces

Inhibidor del proteasoma

=

3.14159265358979

Base de almacenamiento

Disco duro

=

Inhibidor del proteasoma

/

180

Almacenar el valor en radianes correspondiente a cada grado

Imprimir

Seno (30 *HD) 48 Coseno (46 *HD) 7

Método 2:

Escribe tu propia función: Por ejemplo:

Privado

Función

Mi corazón (byval

Enfoque

Me gusta

Doble )

Me gusta

Dos veces

Mixin

=

Sin (grado de enfoque* 3.14159265358979/180)

Fin

Función

Entonces puedes usar directamente: MySIN(30) para encontrar el valor del seno de un ángulo de 30 grados.