Red Social Todo Para Ti
Mueve tu Mundo Tu mueves la Web



Red Social Todo Para Ti Educación e Información

Crear una calculadora en visual basic 6.0

Revisado el 09 de Septiembre del 2013 , Ranking 3 de 5

Si desea modificar el contenido del articulo debe tener un Corrector Ortográfico instalado en Mozilla Firefox sino haga clic en Instalar Diccionario Español Venezuela

Visor de Documentos

Formulario.

  1. Ejecute la Función Visual basic 6.0
  2. Crea un proyecto .exe
  3. Creamos los botones y Textbox.
Vb6

Codigos

Cree un modulo

El modulo es como un blod de notas donde usted anotará todo lo sobrante de los códigos. Pero estás anotaciones son tomadas por la función. Para abrir debe hacer lo siguiente.


En la barra de Menu Principal Aparece el Menú proyecto o project (en ingles) Buscar la opción insertar modulo o add Module (En ingles)

Project-->> Add Module

Proyecto-->> Insertar Modulo.

Vb6

2 Paso

Comensemos a poner las funciones en el modulo.

Coloca el siguiente codigo en el modulo:

'Declaramos la variables
Public A As Double
Public B As Double
Public C As Double
Public M As Double
Public Flag As Double
Public Cl As Double
Public blnsign As Double
Public significa que la función es publica
La función A significa un numero cualquiera conocida como la variable.
Igual que con las demás funciones.

Está función le dará la logica matematica a la calculadora.
.
Ahora ponemos la Función "Clear"
La función clear, permite que los numeros sean borrados y almacenados cuando se realiza el calculo.

Ejemplo.

Cuando ponemos en la calculadora 1 y apretamos "+" se borra el uno y permite que aparesca el numero que desees poner a la suma.

La función sub usa el siguiente código

'Sub clear declara la funcion publica de limpiar la caja de texto del formulario 1
Sub Clear()
If Cl = True Then
Form1.Text1.Text = ""
Cl = False
End If
End Sub

El sub Significa función, el Clear Borrar ,  y los parentesis () significa acción. En este caso no se realiza ninguna acción.

If es la Función de verdadero o falso.

Ahora bien usamos la función principal "Cal"

El cal Significa Función matematico.

El siguiente codigo es de la función.

'continuamos con la función call realizará las operaciones
Sub Cal()
Select Case Flag
Case "add"
A = A + Val(Form1.Text1.Text)
Case "minus"
A = A - Val(Form1.Text1.Text)
Case "multiply"
A = A * Val(Form1.Text1.Text)
Case "divide"
If Val(Form1.Text1.Text) <> 0 Then
A = A / Val(Form1.Text1.Text)
End If Case Else
A = Val(Form1.Text1.Text)
End Select
Form1.Text1.Text = A
Cl = True
End Sub

En el caso de Cal ()

case "add" es calculo de suma
case "minus" calculo de resta
case "multiply" calculo de multiplicar
case "divide" calculo de división

Toma en cuenta estás cuatro funciones ya que esa serán las funciones que definirán la función de los botones del formulario.

Vb6

4 Paso

Aplicar la Función al formulario, es mucho mas sencillo ya que solo haz doble clic en cada boton o label  o texbox, o cualquier parte del formulario.

El formulario es la apariencia del programa ante windows, ya que los programas que se realizan en visual basic son de windows.

Comenzemos con el boton del "1"

Suponemos que el boton del 1 se llama comonbutton1

Recuerda que si el nombre del boton es diferente deberás poner de acuerdo al nombre del boton que escojiste.

En el siguiente codigo demuestra un ejemplo de como declarar una función privada para un formulario.

Private Sub Commonbutton1_click()
clear
Text1.Text = Text1.Text & "1"

Donde commonbutton1 correspondrá al nombre del boton que asignaste con anterioridad y el clic correspondrá a la acción realizada del objeto para poder realizar la función, dentro de los parentesis puede declararse variables para el objeto.

La función clear es la función programada en el modulo, el texbox en este caso se llama text1 en caso de tener otro nombre la función será así

Private Sub Commonbutton1_click()
clear
nombre.Text = nombre.Text & "1"

Lo que está en color rojo es que es editado según en nombre de tu textbox

Está función se aplica con todos los botones de cada numero

Ejemplo.

Private Sub cmd0_click()
clear
Text1.Text = Text1.Text & "0"
End Sub
Private Sub cmd1_Click()
clear
Text1.Text = Text1.Text & "1"
End Sub
Private Sub cmd2_Click()
clear
Text1.Text = Text1.Text & "2"
End Sub
Private Sub cmd3_Click()
clear
Text1.Text = Text1.Text & "3"
End Sub
Private Sub cmd4_Click()
clear
Text1.Text = Text1.Text & "4"
End Sub
Private Sub cmd5_Click()
clear
Text1.Text = Text1.Text & "5"
End Sub
Private Sub cmd6_Click()
clear
Text1.Text = Text1.Text & "6"
End Sub
Private Sub cmd7_Click()
clear
Text1.Text = Text1.Text & "7"
End Sub
Private Sub cmd8_Click()
clear
Text1.Text = Text1.Text & "8"
End Sub
Private Sub cmd9_Click()
clear
Text1.Text = Text1.Text & "9"
End Sub

La función End Sub significa función terminada.

Al colocar el boton Coma Se usa la misma función pero en vez de poner coma pones "."
Private Sub cmdpunto_click()
clear
Text1.Text = Text1.Text & "."
End Sub

Botones de Calculo

Los botones Suma, resta, multiplicación y división usan la función cal del Modulo.

Ejemplo
Private Sub cmdadd_click()
    Cal
    Flag = "add"
End Sub
Private Sub cmdminus_click()
    Cal
    Flag = "minus"
End Sub
Private Sub cmdmultiply_click()
    Cal
    Flag = "multiply"
End Sub
Private Sub cmddivide_click()
    Cal
    Flag = "divide"
End Sub

y el Boton de Igual Se usa la siguiente función.

Private Sub cmdequal_click()
  
    Select Case Flag
        Case "add"
            C = A + Val(Text1.Text)
            Text1.Text = C
        Case "divide"
            C = A / Val(Text1.Text)
            Text1.Text = C
        Case "multiply"
            C = A * Val(Text1.Text)
            Text1.Text = C
        Case "minus"
            C = A - Val(Text1.Text)
            Text1.Text = C
        End Select
   
    Flag = ""
    A = 0
    B = 0
    C = 0
   
End Sub

Repasemos Ahora los códigos

En el caso del modulo el resultado final sería:
'Declaramos la variables
Public A As Double
Public B As Double
Public C As Double
Public M As Double
Public Flag As Double
Public Cl As Double
Public blnsign As Double
'Sub clear declara la funcion publica de limpiar la caja de texto del formulario 1
Sub Clear()
If Cl = True Then
Form1.Text1.Text = ""
Cl = False
End If
End Sub
'continuamos con la función call realizará las operaciones
Sub Cal()
Select Case Flag
Case "add"
A = A + Val(Form1.Text1.Text)
Case "minus"
A = A - Val(Form1.Text1.Text)
Case "multiply"
A = A * Val(Form1.Text1.Text)
Case "divide"
If Val(Form1.Text1.Text) <> 0 Then
A = A / Val(Form1.Text1.Text)
End If Case Else
A = Val(Form1.Text1.Text)
End Select
Form1.Text1.Text = A
Cl = True
End Sub
En el caso del formulario:
Private Sub cmd0_click()
clear
Text1.Text = Text1.Text & "0"
End Sub
Private Sub cmd1_Click()
clear
Text1.Text = Text1.Text & "1"
End Sub
Private Sub cmd2_Click()
clear
Text1.Text = Text1.Text & "2"
End Sub
Private Sub cmd3_Click()
clear
Text1.Text = Text1.Text & "3"
End Sub
Private Sub cmd4_Click()
clear
Text1.Text = Text1.Text & "4"
End Sub
Private Sub cmd5_Click()
clear
Text1.Text = Text1.Text & "5"
End Sub
Private Sub cmd6_Click()
clear
Text1.Text = Text1.Text & "6"
End Sub
Private Sub cmd7_Click()
clear
Text1.Text = Text1.Text & "7"
End Sub
Private Sub cmd8_Click()
clear
Text1.Text = Text1.Text & "8"
End Sub
Private Sub cmd9_Click()
clear
Text1.Text = Text1.Text & "9"
End Sub
Private Sub cmdpunto_click()
clear
Text1.Text = Text1.Text & "."
End Sub
Private Sub cmdadd_click()
    Cal
    Flag = "add"
End Sub
Private Sub cmdminus_click()
    Cal
    Flag = "minus"
End Sub
Private Sub cmdmultiply_click()
    Cal
    Flag = "multiply"
End Sub
Private Sub cmddivide_click()
    Cal
    Flag = "divide"
End Sub
Private Sub cmdequal_click()
  
    Select Case Flag
        Case "add"
            C = A + Val(Text1.Text)
            Text1.Text = C
        Case "divide"
            C = A / Val(Text1.Text)
            Text1.Text = C
        Case "multiply"
            C = A * Val(Text1.Text)
            Text1.Text = C
        Case "minus"
            C = A - Val(Text1.Text)
            Text1.Text = C
        End Select
   
    Flag = ""
    A = 0
    B = 0
    C = 0
   
End Sub
Estos codigos descritos solo contienen lo esencial para las funciones de la calculadora, adicionales explicaremos proximamente.
 

han visitado

164816 visitantes¡Gracias por Hacer esto Posible!

RSS Feed | Contactanos en Facebook | Politica de Privacidad de la Red Social Todo Para Ti |Ayuda de la Red

© Cophyleft 2013-2021. Todos los derechos son de libre modificación y distribución.

.
Este sitio web fue creado de forma gratuita con PaginaWebGratis.es. ¿Quieres también tu sitio web propio?
Registrarse gratis