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 op As String Private Sub Command1_Click() Text1.Text = Text1.Text & 9 End Sub Private Sub Command10_Click() num1 = Text1.Text Text1.Text = "" op = "/" Text1.SetFocus End Sub Private Sub Command11_Click() num1 = Text1.Text Text1.Text = "" op = "*" Text1.SetFocus End Sub Private Sub Command12_Click() num1 = Text1.Text Text1.Text = "" op = "-" Text1.SetFocus End Sub Private Sub Command13_Click() num1 = Text1.Text Text1.Text = "" op = "+" Text1.SetFocus End Sub Private Sub Command14_Click() Text1.Text = Text1.Text & 0 End Sub Private Sub Command15_Click() If (num1 = 0) Then MsgBox ("No se realizó 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 End Sub Private Sub Command16_Click() Text1.Text = Text1.Text & "." End Sub Private Sub Command17_Click() Text1.Text = "" Text1.SetFocus End Sub Private Sub Command18_Click() Text1.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() Text1.Text = Text1.Text & 1 End Sub Private Sub Command3_Click() Text1.Text = Text1.Text & 2 End Sub Private Sub Command4_Click() Text1.Text = Text1.Text & 3 End Sub Private Sub Command5_Click() Text1.Text = Text1.Text & 4 End Sub Private Sub Command6_Click() Text1.Text = Text1.Text & 5 End Sub Private Sub Command7_Click() Text1.Text = Text1.Text & 6 End Sub Private Sub Command8_Click() Text1.Text = Text1.Text & 7 End Sub Private Sub Command9_Click() Text1.Text = Text1.Text & 8 End Sub

CLASE #5: CREACION DE GIF EN PHOTOSHOP

1. Abre un nuevo documento con las siguiente medidas: 960 x 960 píxeles con una resolución de 72 pulgadas, modo color RGB, 8 bits.
2. Crea elementos o imágenes en capas independientes o si los tienes listos haz clic en Archivo y luego en Colocar elementos incrustados (Coloca cada imagen en una capa diferente)
3. Luego clic en Ventana, Línea de tiempo. Aparecerá un espacio en la parte inferior del programa. Crea línea de tiempo de video.
4. De acuerdo a las imágenes que tengas, se crearan automáticamente filas para cada una. Ubícalas en el orden que deseas que aparezcan.
5. Clic en Archivo, Guardar Como, escribes el nombre para tu GIF y lo guardas como PSD.
6. Clic en Archivo, Exportar, Guardar para Web (heredado).
7. En los ajustes selecciona GIF, selectivo.
8. En Opciones de repetición elige Infinito. Así la secuencia se repetirá sin parar. Guárdalo.

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” para repetir este efecto.

Paso 7: Vamos al menú “Edición → Transformar → Rotar 90° ACD”.

Paso 8: Presionamos “CTRL + U” y colocamos los siguientes valores:

Ondas de fuego gracias al filtro

Paso 9: Vamos al menú “Filtro → Distorsionar → Rizo” y colocamos los siguientes valores:

Paso 10: Ahora nos dirigimos al menú “Filtro → Licuar”. Con los siguientes valores vamos a aumentar las flamas del texto de fuego. Hacer esto puede ser complicado.

Puedes cambiar el tamaño del pincel para hacer flamas pequeñas.

Paso 11: Vamos al menú “Filtro → Desenfocar → Desenfoque Gaussiano” y colocamos “1.5 píxeles”.

Duplicamos la capa y cambiamos de color

Paso 12: Duplicamos la capa de texto “FUEGO copia”, presionamos “CTRL + U” y colocamos los siguientes valores:

Paso 13: La capa de texto “FUEGO” lo ubicamos en la parte superior.

Paso 14: Vamos al menú “Capa → Estilo de capa → Superposición de degradado” o simplemente hacemos doble clic a dicha capa y vamos a “Superposición de degradado”. Hacemos doble clic al color en degradado y cambiamos los colores (negro y blanco) por “#b43212” y “#feb020”respectivamente.

Paso 15: Movemos el texto con la herramienta mover hasta que quede perfectamente sobre la llama.

Paso 16: Para darle un mejor acabado alefecto texto de fuego en Photoshop, modificamos el fondo. Pintamos con la herramienta degradado modo radial. Los colores utilizados son “#000000” y “#890b0b”.

Paso 17: Vamos al menú “Filtro → Distorsionar → Rizo”. Colocamos lo siguiente:

Paso 18: Y para acabar vamos a aplicar un poco más de color al texto, para eso vamos al menú “Capa → Estilo de capa → Resplandor Exterior”. Colocamos lo siguiente

Listo, tenemos nuestro fuego en el texto…podemos hacer un efecto reflejo al texto para un mejor acabado.

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 utiliza de a uno solo, si no que se debe tener por lo menos 2 de ellos, ya que sería ilógico utilizar uno solo.

EJERCICIO  DE COLORES Y POSICIONES

CODIFICACION:

Option Explicit

Private Sub Form_Load()

txtCaja.Top=0

End Sub

Private Sub optArriba_Click()

txtCaja.Top=0

End Sub

Private Sub optAbajo_click()

txtCaja.Top = frmColores0.ScaleHeight - txtCaja.Height

End Sub

Private Sub optAzul_Click()

txtCaja.BackColor = vbBlue

End Sub

Private Sub optRojo_Click()

txtCaja.BackColor = vbRed

End Sub

Private Sub optVerde_Click()

txtCaja.BackColor = vbGreen

End Sub

Private Sub optAmarillo_Click()

txtCaja.BackColor = vbYello

End Sub