MATRICES

UNA DIMENSION

Cuando se necesita crear muchas variables se utiliza una matriz para evitar esto. Una matrix es una secuencia de elementos con los datos del mismo tipo se acceden por el nombre de la matriz y un indice que empieza en 0.

Dim nombre(tamaño) as tipo de dato.

Ej:
Dim nombres (50) as string

Si quiero guardar en el nombre numero 3 se hace lo siguiente:

- nombres(3) = "Juanita"

DOS DIMENSIONES

Dim datos(5,3) as string

5=filas
3=columnas

Ej:
Dim usuarios(4) as string

usuarios(0) = TextBox1.Text
usuarios(1) = TextBox2.Text
usuarios(2) = TextBox3.Text
usuarios(3) = TextBox4.Text

TextBox5.Text= usuarios(0) + vbCrLf + usuarios(1) + vbCrLf + usuarios(2) + VbCrLf + usuarios(3)

FUNCIONES DE CONVERSIÓN

1.CStr()

En este ejemplo se utiliza la función CStr() para convertir un valor numérico a uno de tipo String (alfanumérico o texto).

Dim MyDouble As Double, MyString
MyDouble = 437.324   ' MyDouble is a Double.
MyString = CStr(MyDouble)   ' MyString contains "437.324".

2. CInt()

En este ejemplo se utiliza la función CInt() para convertir un valor real a uno de tipo entero.

Dim MyDouble As Double, MyInt
MyDouble = 2345.5678   ' MyDouble is a Double.
MyInt = CInt(MyDouble)   ' MyInt contains 2346.

 3.CDbl()

En este ejemplo se utiliza la función CDbl() para convertir una expresión numérica válida a un tipo de datos Double.

Dim MyCurr As Currency, MyDouble
MyCurr = CCur(234.456784)   ' MyCurr is a Currency.
MyDouble = CDbl(MyCurr * 8.2 * 0.01)   ' Convert result to a Double. 

4. CDate()

Aquí, en este ejemplo, se utiliza la función CDate() para convertir un string, que contiene un formato de fecha y/u horario, a un tipo de datos Date. En general, no se recomienda el uso de strings (cadenas de caracteres) que contengan información de fechas y de horas, porque no son estándares en las diversas plataformas. Es recomendable utilizar literales de fecha y literales de horas, tales como: #2/12/1969# y #4:45:23 PM#.

Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969"   ' Define date.
MyShortDate = CDate(MyDate)   ' Convert to Date data type.

MyTime = "4:35:47 PM"   ' Define time.
MyShortTime = CDate(MyTime)   ' Convert to Date data type.

QUIZ

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim nombre As String

        Dim sueldo As Decimal

        Dim ventas As Decimal

        Dim salario As Decimal

        Dim pension As Decimal

        Dim salud As Decimal

        Dim comision As Decimal

        nombre = TextBox1.Text

        sueldo = TextBox2.Text

        ventas = TextBox3.Text

        comision = ventas * 0.15

        pension = sueldo * 0.12

        salud = sueldo * 0.14

        salario = (sueldo + comision) - (pension + salud)

        TextBox4.Text = nombre + "," + vbCrLf + "Usted ganó " + CStr(salario) + vbCrLf + "Descuentos:" + vbCrLf + "Pensión: " + CStr(pension)         + vbCrLf + "Salud: " + CStr(salud)

    End Sub

End Class

EJERCICIO 3

EJERCICIO 3

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim nombre As String

Dim sueldo As Single

nombre = TextBox1.Text

sueldo = TextBox2.Text

TextBox3.Text = nombre + "," + "usted gana" + CStr(sueldo)

EJERCICIO 2

EJERCICIO 2

Ejemplo utilizando la multiplicación.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim numero1 As Single

Dim numero2 As Single

Dim resultado As Single

numero1 = TextBox1.Text

numero2 = TextBox2.Text

resultado = numero1 + numero2

TextBox3.Text = CStr(resultado)

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim numero1 As Single

Dim numero2 As Single

Dim resultado As Single

numero1 = TextBox1.Text

numero2 = TextBox2.Text

resultado = numero1 - numero2

TextBox3.Text = CStr(resultado)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim numero1 As Single

Dim numero2 As Single

Dim resultado As Single

numero1 = TextBox1.Text

numero2 = TextBox2.Text

resultado = numero1 * numero2

TextBox3.Text = CStr(resultado)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim numero1 As Single

Dim numero2 As Single

Dim resultado As Single

numero1 = TextBox1.Text

numero2 = TextBox2.Text

resultado = numero1 / numero2

TextBox3.Text = CStr(resultado)

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim numero1 As Single

Dim numero2 As Single

Dim resultado As Single

numero1 = TextBox1.Text

numero2 = TextBox2.Text

resultado = numero1 + numero2

TextBox3.Text = ""

End Sub

End Class

EJERCICIO 1

EJERCICIO 1

Cstr= Funcion que sirve para convertir un número a texto.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim num1 As Single

Dim num2 As Single

Dim resultado As Single

num1 = TextBox1.Text

num2 = TextBox2.Text

resultado = num1 + num2

TextBox3.Text = CStr(resultado)