Pasos para crear una calculadora. (SEMANA 32)

 COMO CREAR UNA CALCULADORA

1. Primeramente inicializamos el programa y seleccionamos EXE ESTANDAR. 

2.Luego diseñamos nuestro formulario y le colocamos un color de fondo de su preferencia y luego ubicamos 18 COMANDBUTTON y un TEXTBOX.

3. Ya listo nuestro diseño, le ponemos los siguientes codigos a los botones.

Dim num1 As Integer
Dim num2 As Integer
Dim op As String


BOTON #0

Text1.Text = Text1.Text & 0

BOTON #1

Text1.Text = Text1.Text & 1

BOTON #2

Text1.Text = Text1.Text & 2

BOTON #3

Text1.Text = Text1.Text & 3

BOTON #4

Text1.Text = Text1.Text & 4

BOTON #5

Text1.Text = Text1.Text & 5

BOTON #6

Text1.Text = Text1.Text & 6

BOTON #7

Text1.Text = Text1.Text & 7

BOTON #8 

Text1.Text = Text1.Text & 8

BOTON #9

Text1.Text = Text1.Text & 9

BOTON PUNTO

Text1.Text = Text1.Text & "."

BOTON =

If (num1 = 0) Then
MsgBox ("No se realizo una operación")
Else
num2 = Text1.Text
If op = "+" Then
Text1.Text = num1 + num2
End If
If op = "-" Then
Text1.Text = num1 - num2
End If
If op = "/" Then
Text1.Text = num1 / num2
End If
If op = "*" Then
Text1.Text = num1 * num2
End If
End If

BOTON +

num1 = Text1.Text
Text1.Text = ""
op = "+"
Text1.SetFocus

BOTON -

num1 = Text1.Text
Text1.Text = ""
op = "-"
Text1.SetFocus

BOTON *

num1 = Text1.Text
Text1.Text = ""
op = "*"
Text1.SetFocus

BOTON /

num1 = Text1.Text
Text1.Text = ""
op = "/"
Text1.SetFocus

BOTON C

Text1.text = ""
Text1.setfocus

BOTON NEW

Text1.text = ""
Text.setfocus

4. Y por ultimo ejecutamos la calculadora



Comentarios

Publicar un comentario

Entradas más populares de este blog

Pasos para crear un formulario. (SEMANA 22)

Imagen
    Para que aparezca la frase “Hola chicos de 2 informática “, para eso debemos seleccionar EXE estándar y luego abrir en donde empezaremos a diseñar nuestro formulario.      Como primera acción debemos de cambiar el nombre del formulario en la propiedad NOMBRE y colocar (frm1), luego en la propiedad CAPTION colocar (Practica1).      Posteriormente al formulario damos doble clic , para que nos aparezca la ventana donde Codificaremos el mensaje con el comando msgbox(“Hola estudiantes de 2 informática”), vbInformation, “Hola estudiantes de 2 informática” Cabe indicar que la función vbInformation realiza una interfaz con el signo de Admiración con fondo azul.      Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbInformation) por vbCritical, “Hola estudiantes de 2 informática” Cabe indicar que la función vbCritical realiza una interfaz con el signo de X con f...
Leer más

Pasos para crear una calculadora a grados (SEMANA 33)

Imagen
 1. Iniciamos el programa. 2. Hacer clic en EXE ESTANDAR. 3. Colocar los siguientes objetos en el formulario: 2 Label, 2 TextBox, 1 ScrollBar. 4. En la label 1 le asignaremos el nombre de "ºCentigrado" y en la label 2 le asignaremos el nombre de "ºFarenhein". 5. En el objeto ScrollBar le insertamos el siguiente codigo: OBJETO SCROLLBAR Private Sub ScrollBar1_Change(). Dim dblgrados As Double TextBox1.Text = ScrollBar1.Value dblgrados = 1.8 *  ScrollBar1.Value TextBox2.Text = dblgrados End Sub 6. Ejecutamos la calculadora. 7. Guardamos y salimos.
Leer más

Practicas en Visual Basic 6.0

Imagen
 Crear un formulario     Para que aparezca la frase “Hola chicos de 2 informática “, para eso debemos seleccionar EXE estándar y luego abrir en donde empezaremos a diseñar nuestro formulario.     Como primera acción debemos de cambiar el nombre del formulario en la propiedad NOMBRE y colocar (frm1), luego en la propiedad CAPTION colocar (Practica1).     Posteriormente al formulario damos doble clic , para que nos aparezca la ventana donde Codificaremos el mensaje con el comando msgbox(“Hola estudiantes de 2 informática”), vbInformation, “Hola estudiantes de 2 informática” Cabe indicar que la función vbInformation realiza una interfaz con el signo de Admiración con fondo azul.     Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbInformation) por vbCritical, “Hola estudiantes de 2 informática” Cabe indicar que la función vbCritical realiza una interfaz con el signo de...
Leer más