VISUAL BASIC: CLASE #3.-PROYECTO CALCULADORA

VISUAL BASIC: CLASE #3.-PROYECTO CALCULADORA

Programación completa del proyecto de la calculadora VB 6.0





Programación completa del proyecto de la calculadora VB 6.0

Esta es la programación completa usada en nuestro proyecto de la calculadora básica desarrollada en Visual Basic
El tema del proyecto: IMPLEMENTACIÓN DE UN PROYECTO DE CALCULADORA (NO DISPONIBLE)


Programación

?
Dim num1 As Integer
Dim num2 As Integer
Dim num2 As IntegerDim num2 As Integer Dim op As StringDim op As String
Private Sub Command1_Click()
Private Sub Command1_Click()Private Sub Command1_Click() Text1.Text = Text1.Text & 9Text1.Text = Text1.Text & 9 End SubEnd Sub
Private Sub Command10_Click() num1 = Text1.Text num1 = Text1.Text Text1.Text = "" Text1.Text = "" op = "/" op = "/" Text1.SetFocus Text1.SetFocus End Sub End Sub Private Sub Command11_Click() Private Sub Command11_Click() num1 = Text1.Text num1 = Text1.Text Text1.Text = "" Text1.Text = "" op = "*" op = "*" Text1.SetFocus Text1.SetFocus End Sub End Sub Private Sub Command12_Click() Private Sub Command12_Click() num1 = Text1.Text num1 = Text1.Text Text1.Text = "" Text1.Text = "" op = "-" op = "-" Text1.SetFocus Text1.SetFocus End Sub End Sub Private Sub Command13_Click() Private Sub Command13_Click() num1 = Text1.Text num1 = Text1.Text Text1.Text = "" Text1.Text = "" op = "+" op = "+" Text1.SetFocus Text1.SetFocus End Sub End Sub Private Sub Command14_Click() Private Sub Command14_Click() Text1.Text = Text1.Text & 0 Text1.Text = Text1.Text & 0 End Sub End Sub Private Sub Command15_Click() Private Sub Command15_Click() If (num1 = 0) Then If (num1 = 0) Then MsgBox ("No se realizó una operación") MsgBox ("No se realizó una operación") Else Else num2 = Text1.Text num2 = Text1.Text If op = "+" Then If op = "+" Then Text1.Text = num1 + num2 Text1.Text = num1 + num2 End If End If If op = "-" Then If op = "-" Then Text1.Text = num1 - num2 Text1.Text = num1 - num2 End If End If If op = "/" Then If op = "/" Then Text1.Text = num1 / num2 Text1.Text = num1 / num2 End If End If If op = "*" Then If op = "*" Then Text1.Text = num1 * num2 Text1.Text = num1 * num2 End If End If End If End If End Sub End Sub Private Sub Command16_Click() Private Sub Command16_Click() Text1.Text = Text1.Text & "." Text1.Text = Text1.Text & "." End Sub End Sub Private Sub Command17_Click() Private Sub Command17_Click() Text1.Text = "" Text1.Text = "" Text1.SetFocus Text1.SetFocus End Sub End Sub Private Sub Command18_Click() Private Sub Command18_Click() Text1.Text = "" Text1.Text = "" Text1.SetFocus Text1.SetFocus End Sub End Sub Private Sub Command2_Click() Private Sub Command2_Click() Text1.Text = Text1.Text & 1 Text1.Text = Text1.Text & 1 End Sub End Sub Private Sub Command3_Click() Private Sub Command3_Click() Text1.Text = Text1.Text & 2 Text1.Text = Text1.Text & 2 End Sub End Sub Private Sub Command4_Click() Private Sub Command4_Click() Text1.Text = Text1.Text & 3 Text1.Text = Text1.Text & 3 End Sub End Sub Private Sub Command5_Click() Private Sub Command5_Click() Text1.Text = Text1.Text & 4 Text1.Text = Text1.Text & 4 End Sub End Sub Private Sub Command6_Click() Private Sub Command6_Click() Text1.Text = Text1.Text & 5 Text1.Text = Text1.Text & 5 End Sub End Sub Private Sub Command7_Click() Private Sub Command7_Click() Text1.Text = Text1.Text & 6 Text1.Text = Text1.Text & 6 End Sub End Sub Private Sub Command8_Click() Private Sub Command8_Click() Text1.Text = Text1.Text & 7 Text1.Text = Text1.Text & 7 End Sub End Sub Private Sub Command9_Click() Private Sub Command9_Click() Text1.Text = Text1.Text & 8 Text1.Text = Text1.Text & 8 End Sub
End Sub


Comentarios

Publicar un comentario

Entradas populares de este blog

CLASE #4: TEXTO FUEGO EN PHOTOSHOP

Imagen
CLASE #4: TEXTO FUEGO EN PHOTOSHOP Paso 1:  Creamos un nuevo documento de  “600 x 400”  (opcional) con el fondo negro. Paso 2:  Creamos una nueva capa y colocamos el texto que queramos, en este caso coloco  “FUEGO” . El tipo de fuente es  “Charlemagne Std”  a  “110pt” , color  “#FFFFFF” .  Paso 3:  Duplicamos la capa texto haciendo clic derecho a la capa y Duplicar capa o simplemente presionando las teclas  “CTRL + J” . Paso 4:  Vamos al menú  “Edición → Transformar → Rotar 90° AC” . Creando las flamas del fuego Paso 5:  Aquí vamos a aplicar el filtro viento para conseguir el  texto de fuego , para esto vamos al menú  “Filtro → Estilizar → Viento” . Para hacer esto la capa texto debe estar  “rasterizado” , así que se nos abrirá una ventana de advertencia y damos clic a  “ok” . Colocamos los siguientes valores: Paso 6:  Presionamos 2 veces las teclas  “CTRL + F...
Leer más

visual basic clase#1,text box-frame _option button

Imagen
VISUAL BASIC: CLASE #1.-TEXT BOX-FRAME -OPTION BUTTON TEXT BOX:  Un TextBox es un control que principalmente utilizamos para que el usuario introduzca datos, pero también puede mostrar una respuesta predeterminada o incluso servir para mostrar en vez de para pedir datos. FRAME:  La herramienta Frame sirve para agrupar otros objetos, se inserta el Frame y luego se pone los objetos dentro. Es muy útil para agrupar objetos o hacer barras de herramientas. También se le conoce como marco o panel, observar que incluye un pestaña, donde se describe en forma lógica todos los controles que agrupa. Para usar correctamente Frame es necesario colocar primero todos los paneles en la forma y encima de ellos los componentes que contendrán (dividir una sola ventana en varias partes).   OPTION BUTTON :  La función específica del control  OptionButton  es permitirle al usuario elegir entre diferentes opciones dentro de un grupo de opciones. Este control no se util...
Leer más