Solicite un tutorial de lenguaje sencillo o el código fuente para la calculadora de gancho triangular y proporcione el texto 61734390@qq.com
.Ensamblaje Ventana Ensamblaje 1
.Subrutina __Iniciar Ventana_Creada
' Simplemente ingrese dos conjuntos de longitudes.
.Haga clic en la subrutina __Calcular__
. if (lado rectángulo 1.content ≠ "")
.if (lado rectángulo 2.content ≠ "")
.if (hipotenusa. contenido ≠"" ) p>
Cuadro de información ("", 0, )
. De lo contrario
Calcular hipotenusa()
Si es final
.. De lo contrario
calcula el ángulo recto()
. si final
. De lo contrario
Calcular el lado del ángulo recto ()
.If end
' Tenga en cuenta el nombre del cuadro de edición para que sea más fácil de entender
. La subrutina calcula la hipotenusa
Variable local A, tipo decimal de doble precisión
Variable local B, tipo decimal de doble precisión
A = Convertir a decimal (ángulo recto). Lado 1. Contenido)
B = Convertir a decimal (ángulo recto Lado 2. Contenido)
Barra.Contenido = "La suma de los cuadrados de los dos números es " al texto (A × A B × B) " La longitud de la hipotenusa es " al texto (Encontrar la raíz cuadrada (A × A B × B))
' De esta forma se calcula la hipotenusa
. La subrutina calcula el lado del ángulo recto
Variable local C, decimal de doble precisión
Variable local D, decimal de doble precisión
. .content = "")
C = a decimal (lado-ángulo recto2.content)
De lo contrario
C = a decimal (ángulo recto). lado 1.content) ' Determina qué lado en ángulo recto está vacío
. if end
D = a decimal (.Contenido hipotenangular)
.if (lado rectángulo 1.content="")
lado rectángulo 1.content = "La diferencia cuadrada de dos números es " to text (D × D - C × C) " y la longitud del lado del ángulo recto es " to text (encontrar la raíz cuadrada (D × D - C ×C))
.
De lo contrario
Lado rectángulo 2. content = "La diferencia entre los cuadrados de dos números es " al texto (D × D - C × C) " La longitud del lado rectángulo es " al texto (encontrar la raíz cuadrada (D × D - C × C))
.- C × C))
.if end
. Haga clic en la subrutina _clear__
hipotenusa. Contenido = ""
Lado 1 del ángulo recto. Contents = ""
Borde en ángulo recto 2. Contents = ""
' Ya entiendes la idea