Microsoft Visual Basic 6
Ver Más instrucciones
1
Abra Visual Basic 6 , y elija "EXE estándar " en el nuevo menú proyecto. Aparecerá un formulario en blanco aparece en la pantalla .
2
Cambie el nombre del proyecto y el formulario haciendo clic en " Project1 " en la parte derecha de la pantalla , en la lista de proyectos, e introduciendo un nuevo nombre en la línea "Nombre" del cuadro de propiedades , que debe aparecer a continuación la lista de proyecto de forma predeterminada . Pulse el botón " Enter" para aceptar el nuevo nombre. Haga lo mismo para el formulario ( un nombre de formulario sugerido es " CalculatorUI ") , asegurándose de introducir un nombre similar en la propiedad " Leyenda " , así, que va a cambiar el texto en la barra superior del formulario . Guarda el proyecto en una nueva carpeta en su computadora .
3
Añadir botones y un cuadro de texto al formulario. En primer lugar , agregue un cuadro de texto , que será la que aparecen los números introducidos en la calculadora , así como los resultados de los cálculos . Para ello, seleccione el botón de cuadro de texto de la barra de herramientas en la parte izquierda de la pantalla y arrastrando con el ratón el tamaño y la ubicación que desea para el cuadro de texto . Una vez que haya colocado el cuadro de texto se puede cambiar el tamaño y la ubicación arrastrando a otro lugar de la forma o arrastrando los controladores ( los pequeños cuadrados ) a lo largo de la frontera del cuadro de texto. Asegúrese de cambiar las líneas siguientes en la ventana Propiedades , en el cuadro de texto seleccionado : " ( nombre)" = tbResult , "Alineación" = 1 - Derecha Justificar , " Formato de datos " = ( haga clic en el botón "..." para seleccionar ) Número, " bloqueado" = True , y "Texto " = 0 .
4
seleccione el icono CommandButton en la barra de herramientas y crear el primer botón de la misma manera que ha creado el cuadro de texto para añadir botones. Como referencia , utilice la calculadora de Windows en Vista estándar ( programas> Accesorios > Calculadora ) como base para el diseño calculadora, dejando de lado la "M + " botones "MC ", " MR" , "MS " , y . En cada botón , cambie las siguientes propiedades ( con el botón "+ " como ejemplo ): " ( nombre)" = btnPlus , " Leyenda " = + . Haga lo mismo para el resto de los botones de la calculadora , y luego guarde su trabajo . Su forma debe ahora parecerse al ejemplo que se muestra aquí .
5
Agregue el código . Tenga en cuenta que si sus botones y cuadro de texto no se nombran el mismo que el código que aparece aquí espera , tendrá que cambiar los nombres para que coincida con sus botones y cuadro de texto o cambie sus botones y cuadro de texto para que coincida con este código. En primer lugar tenemos que crear algunas variables para el procesamiento de entrada calculator :
sLeft Dim As String , sRight As String , sOperator Como StringDim iLeft As Double , IRight As Double , iResult Como DoubleDim bLeft Como
Boolean
Cada cálculo se compone de cuatro partes : un número a la izquierda del operador ( sLeft , iLeft ) , un operador ( sOperator ) , un número a la derecha del operador ( sRight , IRight ), y un resultado ( iResult ) . Para realizar un seguimiento si el usuario entra en el número de la izquierda o la derecha, tenemos que crear una variable booleana , bLeft . Si bLeft es cierto , se introduce la parte izquierda del cálculo , si bLeft es falsa , se introduce el lado derecho
6
inicializar la variable bLeft . . Hacemos esto mediante la creación de un subprograma Form_Load , que puede escribir como se indica aquí o crear automáticamente haciendo doble clic en cualquier parte del formulario no cubierta por un botón o un cuadro de texto . Dentro de la función , es necesario configurar bLeft en True, ya que el primer número introducido será la parte izquierda :
Private Sub Form_Load () bLeft = TrueEnd Sub
7
Crear un subrutina que controlará el chasquido de cualquiera de los botones numéricos. Creamos esto como una subrutina porque usamos código idéntico para cada botón , y el uso de un subprograma significa no tener que repetir el mismo código de diez veces. Escriba la siguiente línea debajo de End Sub la subrutina Form_Load : Private Sub
AddNumber ( sNumber As String ) Si bLeft ThensLeft = sLeft + sNumbertbResult.Text = sLeftElsesRight = sRight + sNumbertbResult.Text = sRightEnd IfEnd Sub
< p> Como puede ver , esta función toma un parámetro de cadena , sNumber , que contendrá el número que el usuario ha hecho clic en . Si bLeft es cierto , este número se añade a la cadena que representa el número que se ha introducido, sLeft , y el cuadro de texto , tbResult , se actualiza para mostrar el nuevo número. Si bLeft es falsa , la misma operación se realiza utilizando sRight lugar .
Último, crear una función de evento Click para cada número que llama la subrutina AddNumber . Usted puede hacer esto fácilmente haciendo doble clic en cada botón numérico , lo que creará la estructura subrutina para usted. A continuación, añadir la llamada a AddNumber , sustituyendo el número de citas con el número asociado con el botón. Para el botón de cero , el código se verá así :
Private Sub btn0_Click () AddNumber ( " 0 ") End Sub
Del mismo modo, para el botón de una, el código se verá así :
Sub btn1_Click () AddNumber privada ( " 1 ") End Sub
8
manejar los operadores: más, menos , los tiempos, y dividir . Lo haremos como último paso , la creación de un subprograma que se llama en los eventos Click de los botones del operador . El subprograma se verá como la siguiente :
AddOperator Sub Private ( sNewOperator As String ) Si bLeft ThensOperator = sNewOperatorbLeft = FalseElsebtnEquals_ClicksOperator = sNewOperatorsRight = "" bLeft = FalseEnd IfEnd Sub
bLeft Si es cierto , significa que el usuario acaba de entrar en la parte izquierda del cálculo , esta subrutina establece la variable sOperator hemos creado en el paso 5 para igualar el operador ha introducido, que se pasa a AddOperator como la sNewOperator cadena. El segundo paso es configurar bLeft en Falso , debido a la entrada de un operador significa que el usuario se hace entrar en el lado izquierdo de la ecuación . Con el fin de manejar las entradas que cadenas múltiples operadores en conjunto, tales como 9 * 3 * 2 * 6 , tenemos que comprobar también si bLeft es falso , lo que significa que el usuario introduzca un operador en el que estábamos esperando un igual . En primer lugar que llamamos el evento Click para el botón iguales (que se describe en el paso siguiente) , lo que hace el cálculo y establece tbResult el resultado de lo que ya se ha introducido . Luego limpiamos sRight por lo que el usuario puede introducir el siguiente número , y establecer bLeft en False para que el programa sabe que estamos entrando en el lado derecho del cálculo siguiente.
Finalmente , añadimos una llamada AddOperator al evento Click de cada botón operador , utilizando el mismo método que se utilizó en el paso 7 para crear los eventos Click de los botones numéricos . El código para el botón , más se verá así :
Private Sub btnPlus_Click () AddOperator ("+ ") End Sub
Del mismo modo, el código para el botón con el signo se verá así :
Private Sub btnMinus_Click () AddOperator ("- ") End Sub
9
Crear el evento Click para el botón , que es el código más complejo en este programa es igual . Crear la estructura subrutina como lo hizo para los otros botones , haciendo doble clic en el botón en el formulario es igual . El subprograma se verá así cuando se ha introducido el código : Private Sub
btnEquals_Click () Si sLeft < > "" Y sRight = "" Y sOperator < > "" ThensRight = sLeftEnd Si
Si sLeft < > "" Y sRight < > "" Y sOperator < > "" TheniLeft = sLeftiRight = sRight
sOperatorCase Select Case "+ " iResult = iLeft + iRightCase "-" iResult = iLeft - iRightCase "/" iResult = iLeft /iRightCase "*" iResult = iLeft * iRightEnd Select
tbResult.Text = iResult
sLeft = iResultsRight = "" bLeft = TrueEnd IfEnd Sub
las tres primeras líneas de código comprueba si se han introducido los dos lados del cálculo , junto con un operador. Si se introducen sólo el lado izquierdo y un operador , el valor de la parte izquierda se copia a la derecha, por lo que puede imitar el comportamiento calculadora estándar para el manejo de una entrada como 9 * = , lo que multiplica 9 por sí misma para conseguir un resultado de 81 . El resto del código se ejecutará sólo si se introducen a la izquierda , a la derecha , y el operador, y que comienza copiando las secuencias de números en nuestra iLeft y las variables Double - mecanografiadas IRight , que pueden hacer los cálculos reales . La instrucción Select Case nos permite ejecutar código diferente dependiendo de qué operador se inscribió , y realiza el cálculo real , colocando el resultado en iResult . Por último , actualizamos el cuadro de texto con el resultado, copiar el resultado en sLeft , restablezca sRight y establecer bLeft = True . Estas últimas líneas nos permiten tomar el resultado del cálculo y la utilizamos para realizar otro cálculo
10
manejar los tres últimos botones de funcionamiento : . Sqrt ,%, y 1 /x . Para el evento Click del botón de raíz cuadrada , el código se verá así :
Private Sub btnSqrt_Click () Si sLeft < > "" TheniLeft = sLeftElseiLeft = 0End Si
Si sRight < > "" TheniRight = sRightElseiRight = 0End Si
Si bLeft TheniLeft = Math.Sqr ( iLeft ) tbResult.Text = iLeftElseiRight = Math.Sqr ( iLeft ) tbResult.Text = iRightEnd Si
< p> Si iLeft < > 0 ThensLeft = iLeftElsesLeft = "" End If
Si IRight < > 0 ThensRight = iRightElsesRight = "" End Sub IfEnd
Las primeras 11 líneas de código asegúrese de que si no tenemos un valor introducido para ambos lados de la ecuación, sustituir cero en lugar de tratar de copiar una cadena vacía en iLeft o IRight , lo que generará un error. Las líneas centrales realizan la función de la raíz cuadrada en la parte actual del cálculo, ya sea la izquierda o la derecha. Por último , revocamos las comprobaciones que hicimos en el principio para que un cero se copia como un string vacío en sLeft y sRight
Para el botón por ciento, el código es similar , con una excepción : . La operación por ciento sólo puede llevarse a cabo si se introducen los lados izquierdo y derecho.
Private Sub btnPercent_Click () Si no bLeft ThenIf sRight < > "" TheniRight = sRightElseiRight = 0End Si
IRight = IRight * ( iLeft /100 ) = tbResult.Text IRight
Si IRight < > 0 ThensRight = iRightElsesRight = "" End Sub IfEnd IfEnd
Por último , los 1 /x, o fracción , Haga clic en evento, el cual es muy similar al código anterior :
Private Sub btnFraction_Click () Si sLeft < > "" TheniLeft = sLeftElseiLeft = 0End Si
Si sRight < > " " TheniRight = sRightElseiRight = 0End Si
Si bLeft TheniLeft = 1 /iLefttbResult.Text = iLeftElseiRight = 1 /iRighttbResult.Text = iRightEnd Si
Si iLeft < > 0 ThensLeft = iLeftElsesLeft = " " End If
Si IRight < > 0 ThensRight = iRightElsesRight = "" End Sub IfEnd
11
Añadir código para manejar los botones C y CE . C borra toda la entrada a la calculadora , mientras que la CE sólo se borra el número está introduciendo actualmente .
Private Sub btnC_Click () sLeft = " sRight =" " sOperator " = "" tbResult.Text = " 0 " bLeft = Si bLeft ThensLeft = "" ElsesRight = "" IftbResult.Text = " 0 " End Sub
12
Ejecutar el programa de cálculo TrueEnd End Sub Private Sub
btnCE_Click () y realice una cálculo que desea. Esta calculadora se puede ampliar fácilmente para manejar más operaciones , cálculos más complejos o incluso para ser una calculadora científica con un poco de trabajo extra.