Visual Basic 2008 Express o
tarde
Mostrar más instrucciones
Configuración del proyecto
1
Crear un nuevo proyecto haciendo clic en "Archivo" y " Nuevo proyecto ". Cuando se le solicite , le dan el nombre de " calculadora científica . "
Una forma de interfaz de usuario en blanco aparecerá en la calculadora, añadir la interfaz gráfica de usuario ( GUI) de componentes a la misma desde la caja de herramientas a la izquierda. Va a utilizar dos tipos de componentes: un cuadro de texto para mostrar los resultados y un montón de botones
2
Arrastre un cuadro de texto a la parte superior de la calculadora de la caja de herramientas de la izquierda. . Este será el lugar donde los números aparecen y donde el usuario escriba los números para el cálculo posterior.
3
Arrastre un botón en el formulario desde el Cuadro de herramientas. En el cuadro de propiedades , busque la propiedad "text " y cambiarlo a " pecado". Encuentre la propiedad de nombre y cambiarlo a " sinButton . " Haga clic en el botón de " pecado" en el formulario y pulse " Ctrl -C "para hacer una copia del botón en el teclado. Presione Ctrl -V clave 11 veces para crear los nuevos botones 11 para el formulario . Para cada botón , cambiar el texto de los botones a lo siguiente: cos, tan , pi, exp, sqrt , log , C , +, -, x, y = /, y darle un nombre que describe. Por ejemplo, en el botón "/" , cambie su propiedad Name a " divideButton . "
Hacer la programación
4
doble clic en el " , el botón de pecado " . Esto lo llevará al código fuente y crear un método de evento para controlar eventos de pecado y coloque el cursor dentro de ella. Pega el siguiente existe :
Private Sub Button19_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles Button19.ClickTextBox1.Text = Math.Sin ( TextBox1.Text ) End Sub
5
Haga doble clic en el botón "cos " . Una vez más, esto lo llevará al código fuente y crear un método de evento . Pega el siguiente en él :
Private Sub Button20_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles Button20.ClickTextBox1.Text = Math.Cos ( TextBox1.Text ) End Sub
Página 6
Haga doble clic en el botón "tan" y pegue el siguiente , al igual que en los pasos anteriores :
Private Sub Button21_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Maneja Button21.ClickTextBox1.Text = Math.tan ( TextBox1.Text ) End Sub
7
doble clic en el botón de "pi " y pegue el siguiente : Private Sub
Button22_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles Button22.ClickTextBox1.Text = Math.PIEnd Sub
8
doble clic en el botón " C" y pegar :
Private Sub Button23_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles Button23.ClickTextBox1.Text = "memoria " = 0End Sub
Programación Continúa
9
Pega el siguiente en la parte superior del editor de código fuente:
memoria dévil como operación DoubleDim As String
Esto mantendrá los números que se necesitan en el sistema binario . operaciones y la operación a realizar, tales como la división o multiplicación
10
Haga doble clic en cada uno de los botones de funcionamiento binarios (+, -, x, /y exp) , a su vez y pega el el siguiente código :
memoria
= TextBox1.Textoperation = " +"
Sustitúyase el texto operación con la operación. Por ejemplo, en el botón "X " , sustitúyase " +" con " X"
11
Haga doble clic en el signo "= " botón y pegar el siguiente :
Sub Private Button1_Click_1 (remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles Button1.ClickIf operation.Equals ( " + ") ThenTextBox1.Text = memoria + operation.Equals TextBox1.TextElseIf ( "-") = ThenTextBox1.Text memoria - operation.Equals TextBox1.TextElseIf ( "X") = ThenTextBox1.Text memoria * operation.Equals TextBox1.TextElseIf ("/") = ThenTextBox1.Text memoria /TextBox1 ThenTextBox1.Text = Math.Pow (memoria, TextBox1.Text ) End. TextElseIf operation.Equals ( " exp ") Si
End Sub
12
doble clic en el " , el botón de registro " y pegar :
Private Sub Button24_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles Button24.ClickTextBox1.Text = Math.Log ( TextBox1.Text ) End Sub
Página 13
doble clic en el botón " sqrt " y pegar :
Private Sub Button18_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles Button18.ClickTextBox1.Text = Math.Sqrt ( TextBox1.Text ) End Sub