Etornadod

Tiempo de diseño.
Es cuando a los controles les ponemos las propiedades en la ventana Properties Window de Visual Basic.

Tiempo de ejecución.
Es cuando los controles interactúan en virtud del código escrito en la ventana de edición.

Instrucciones básicas
MsgBox
Muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un entero que indica elbotón utilizado.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim retorno As String

retorno = Val(TextBox4.Text)

MsgBox("Usted ingresó el número:" & retorno)
End Sub

IsNumeric
Devuelve un valor Boolean (ósea verdadero o falso) que indica si una expresión puede evaluarse como un número.
Enel ejemplo siguiente se utiliza la función IsNumeric para determinar si el contenido de una variable puede evaluarse como un número.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If IsNumeric(TextBox2.Text) = False Then

Beep()

MsgBox("Solo se aceptan números", 16, "Error")TextBox2.Text = ""

End If
textbox3.text = Val(TextBox1.Text) * Val(textbox2.text)
End Sub
Val (Función)
La función Val convierte una cadena en un número.
Ejemplos:
cadena = "123456"
cadena = Val(cadena)

'Ahora cadena vale 123456

Str (Función)
La función Str convierte un número en una cadena.
Ejemplos:
cadena2 = 123456
cadena2 = Str(cadena2)

'Ahora cadena2 vale"123456"


EJERCICIO EN CLASE (CALCULADORA)

Public Class frmCalculos

Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
End
End Sub

Private Sub btnPotencia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnPotencia.Click
txtTotal.Text = Val(txtNum1.Text) ^ Val(txtNum2.Text)
End Sub

Private Sub btnRestar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestar.Click
txtTotal.Text = Val(txtNum1.Text) - Val(txtNum2.Text)
End Sub

Private Sub btnMultiplicar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnMultiplicar.Click
txtTotal.Text = Val(txtNum1.Text) * Val(txtNum2.Text)
End Sub

Private Sub btnDividir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDividir.Click
txtTotal.Text = Val(txtNum1.Text) / Val(txtNum2.Text)
End Sub

Private Sub btnSumar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSumar.ClicktxtTotal.Text = Val(txtNum1.Text) + Val(txtNum2.Text)
End Sub
End Class

EJERCICIO EN CLASE (ROBOT)

Public Class frmMonobot

Private Sub OvalShape1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OvalShape1.MouseMove
txtMensaje.Text = "CABEZA"
End Sub

Private Sub RectangleShape1_MouseMove(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles RectangleShape1.MouseMove
txtMensaje.Text = "CUELLO"
End Sub

Private Sub RectangleShape4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RectangleShape4.MouseMove
txtMensaje.Text = "BRAZO DERECHO"
End Sub

Private Sub RectangleShape2_MouseMove(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RectangleShape2.MouseMove
txtMensaje.Text = "CUERPO"
End Sub

Private Sub RectangleShape3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RectangleShape3.MouseMove
txtMensaje.Text = "BRAZO IZQUIERDO"
End Sub

Private Sub RectangleShape6_Click(ByVal sender...