Visual Basic

Visual Basic

¿Que es un programa?

Es un conjunto de instrucciones que devuelven un valor al usuario ya sea numérico o una cadena de caracteres. Este dato es resultado de la acción del usuario sobre el programa ya que el usuario fue el que solicitó el dato.

¿Que es objeto?

Es algo que puede ser manipulado y se puede utilizar en las aplicaciones necesarias, por ejemplo: botones, etiquetas, cuadros de texto. Estos elementos van a reaccionar a propiedades, métodos y eventos.

Propiedades son las características que tiene un objeto y determina la apariencia y comportamiento del objeto. Se encuentran en la paleta de propiedades.

Métodos: son las acciones que puede hacer un objeto.

Eventos: son acciones a las que responde el objeto.

Programación por eventos vs. Programación estructurada

Programación estructurada o lineal:

Las líneas de un programa de esta aplicación se utilizan de una forma lineal, ya que cada línea se puede ejecutar con la anterior a esto se le llama flujo de programa.

Programación por eventos:

La creación del programa tiene el enfoque de resolver un problema. La programación por eventos se ejecuta por diferentes porciones de código, no es necesario que exista un flujo lineal para ejecutarse.

¿Como se programa visual basic?

Es necesario tener la solución rápida

Pasos:

1.     Crear el entorno grafico (interfas rápido)
2.     Establecer las propiedades de los objetos

 CODIGOS

Private Sub e_btn_Click()
e_txt.Text = q_txt.Text / 10
End Sub

Private Sub km_btn_Click()
km_txt.Text = mt1_txt.Text / 1000
End Sub

Private Sub m_btn_Click()
m_txt.Text = a_txt.Text * 12
End Sub

Private Sub mt_btn_Click()
mt_txt.Text = ct_txt.Text / 100
End Sub

Private Sub mt1_btn_Click()
mt1_txt.Text = km_txt.Text * 1000
End Sub

Private Sub q_btn_Click()
q_txt.Text = e_txt.Text * 10
End Sub

Multiplicacion

For Next: permite crear un ciclo

Sintaxis
For i = 1 To 10
Print num; “ * “ ; i; “ = “;i * un,

Codigo

Private Sub Command1_Click()
Dim num, i As Integer
Form1.Cls
num = InputBox("introduce el numero de la tabla que desees generar")
For i = 1 To 20
Print num; " * "; i; "="; i * num
Next i
End Sub

OPERACIONES

Private Sub azul_HS_Change()

Dim rojo, verde, azul As Integer
rojo = rojo_HS.Value
verde = verde_HS.Value
azul = azul_HS.Value
color_txt.BackColor = RGB(rojo, verde, azul)
End Sub

Private Sub rojo_HS_Change()
Dim rojo, verde, azul As Integer
rojo = rojo_HS.Value
verde = verde_HS.Value
azul = azul_HS.Value
color_txt.BackColor = RGB(rojo, verde, azul)
End Sub

Private Sub verde_HS_Change()
Dim rojo, verde, azul As Integer
rojo = rojo_HS.Value
verde = verde_HS.Value
azul = azul_HS.Value
color_txt.BackColor = RGB(rojo, verde, azul)
End Sub