Operaciones Basicos en Visual Basic PDF

Preview

Summary

Practica en Visual Basic con las operaciones basicas entre dos números....

Description

PRACTICA #3 “MODELO GOMS”

Universidad Autónoma de Querétaro Facultad de Informática Ing. Software

Diseño de Interfaces

SUMA Private Sub frm_CuadroMensaje_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim num1, num2, operacion As Double num1 = 2 num2 = 5 operacion = num1 + num2 MsgBox(operacion.ToString) End Sub

RESTA Private Sub frm_CuadroMensaje_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim num1, num2, operacion As Double num1 = 2 num2 = 5 operacion = num1 - num2 MsgBox(operacion.ToString) End Sub

MULTIPLICACIÓN Private Sub frm_CuadroMensaje_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim num1, num2, operacion As Double num1 = 2 num2 = 5 operacion = num1 * num2 MsgBox(operacion.ToString) End Sub

DIVISIÓN Private Sub frm_CuadroMensaje_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim num1, num2, operacion As Double num1 = 2 num2 = 5 operacion = num1 / num2 MsgBox(operacion.ToString) End Sub

MOD Private Sub frm_CuadroMensaje_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim num1, num2, operacion As Double num1 = 2 num2 = 5 operacion = num1 Mod num2 MsgBox(operacion.ToString) End Sub

CUADRO MENSAJE Private Sub btn_ingresar_Click(sender As Object, e As EventArgs) Handles btn_ingresar.Click 'Declaración de Variables Dim nombre As String 'Entrada de Datos nombre = InputBox("Ingresa tu nombre", "Registro de Datos", "Nombre", 100, 0) MessageBox.Show("Bienvenido Usuario: " & nombre, "Registro de Datos", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub Private Sub btn_salir_Click(sender As Object, e As EventArgs) Handles btn_salir.Click 'Declarar Variable Dim opcion As DialogResult opcion = MessageBox.Show("Realmente desea salir de la aplicación", "Salir de la aplicación", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If (opcion = System.Windows.Forms.DialogResult.Yes) Then Me.Close() End If End Sub

CONTROL TIMER Public Class frm_control Private num As Integer = 0 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If (num Mod 2 = 0) Then lbl_uno.Visible = True lbl_dos.Visible = False Else lbl_uno.Visible = False lbl_dos.Visible = True End If num = num + 1 End Sub Private Sub btn_iniciar_Click(sender As Object, e As EventArgs) Handles btn_iniciar.Click Timer1.Enabled = True End Sub Private Sub btn_parar_Click(sender As Object, e As EventArgs) Handles btn_parar.Click

Timer1.Enabled = False End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick lbl_fecha.Text = TimeOfDay End Sub End Class...