DigiNG edición Scripting

Método digi.PideAngulo

Devuelve un ángulo en sexagesimal, medido con respecto al eje de las X, bien introducido por el usuario rellenando el cuadro de diálogo o bien digitalizando dos puntos.

Cuando se ejecuta este método aparece un cuadro de diálogo solicitando al usuario que introduzca un ángulo ó que digitalice dos puntos. En la llamada al método se puede especificar el título del cuadro de diálogo, así como un texto que aparecerá dentro del mismo para indicar al usuario que introduzca un valor. Si el usuario digitaliza un dato, el cuadro de diálogo desaparece y se muestra en la barra de mensajes un texto que también se pasa por parámetro al método, y que invita al usuario a digitalizar un segundo punto.

digi.PideAngulo (titulo, mensaje, mensajeBarraEstado)

Argumentos

titulo

        El título del cuadro de diálogo.

mensaje

        El mensaje que aparece dentro del cuadro de diálogo.

mensajeBarraEstado

        Mensaje que aparece en la barra de estado cuando el usuario ha registrado un primer punto.

Ejemplo

Dim angulo

angulo = digi.PideAngulo("Ángulo", "Introduzca numéricamente la distancia ó digitalice un punto", "Digitalice el segundo punto")

MsgBox "El ángulo medido fué de: " & vbCrLf & angulo & " grados sexagesimales con respecto al eje de las X."

Este método devuelve un valor en Sexagesimal, para pasarlo a radianes debemos realizar la operación grados*Pi/180.

Mirar también

Método ImprimeMensaje | Objeto Point

Fecha de última modificación: domingo, 9 de diciembre de 2001

© 2001-2002 Dreaming With Objects. Todos los derechos reservados.