Ejercicio Programacion Tipo de Contrato‏ Sueldo Ventas‏

Ejercicio Tipo de Contrato

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim ventas As Decimal
Dim basico As Decimal
Dim tipo As String
Dim comision As Decimal
Dim sueldo As Decimal
ventas = TextBox1.Text
basico = TextBox2.Text
tipo = TextBox3.Text
If (tipo = "medio") Then
basico = basico / 2
If (ventas < 3000000) Then
comision = ventas * 0.03
sueldo = basico + comision
Else
If (ventas < 7000000) Then
comision = ventas * 0.05
sueldo = basico + comision
Else
comision = ventas * 0.07
sueldo = basico + comision
End If
End If
Else
If (ventas < 7000000) Then
comision = ventas * 0.07
sueldo = basico + comision
Else
If (ventas < 13000000) Then
comision = ventas * 0.09
sueldo = basico + comision
Else
comision = ventas * 0.12
sueldo = basico + comision
End If
End If
End If
TextBox4.Text = "Sueldo: " + CStr(sueldo)
End Sub
End Class

Ejercicio Programacion Sueldo Ventas‏

Ejercicio Sueldo Ventas

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim ventas As Decimal
Dim basico As Decimal
Dim comision As Decimal
Dim sueldo As Decimal
ventas = TextBox1.Text
basico = TextBox2.Text
If (ventas < 3000000) Then
comision = ventas * 0.03
sueldo = basico + comision
Else
If (ventas < 7000000) Then
comision = ventas * 0.05
sueldo = basico + comision
Else
sueldo = basico + ventas * 0.07
End If
End If
TextBox3.Text = "Sueldo: " + CStr(sueldo)
End Sub
End Class

Ejercicio Programacion Comision‏

Ejercicio Comision

Public Class Form1

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

Dim ventas As Single

Dim comision As Single

Dim valcomision As Single

TextBox1.Text = ventas

TextBox2.Text = comision

If (ventas >= 3000000) Then

valcomision = ventas * comision / 100

TextBox3.Text = "Comision: " + CStr(valcomision)

Else

TextBox3.Text = "Ventas inferiores a 3000000"

End If

End Sub

End Class

Ejercicio Programación Triangulo‏

Ejercicio Triangulo

Public Class Form1

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

Dim l1 As Single

Dim l2 As Single

Dim l3 As Single

l1 = TextBox1.Text

l2 = TextBox2.Text

l3 = TextBox3.Text

If (l1 = l2 And l2 = l3) Then

TextBox4.Text = "Equilatero"

Else

If (l1 <> l2) And (l1 <> l3) And (l2 <> l3) Then

TextBox4.Text = "Escaleno"

Else

TextBox4.Text = "Isoseles"

End If

End If

End Sub

End Class

Ejercicio Programación Random‏

EJERCICIO RANDOM (Rnd())

Public Class Form1

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

num1 = TextBox1.Text

num2 = CInt(Int((6 * Rnd())) + 1)

TextBox2.Text = CStr(num2)

If (num1 <= num2) Then

textbox3.text = "Perdio"

Else

TextBox3.Text = "Ganó"

End If

End Sub

End Class

PRIMER PARCIAL

PRIMER PUNTO

 Public Class Form1

    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 num3 As Single
        Dim num4 As Single
        Dim num5 As Single
        Dim num6 As Single
        Dim num7 As Single
        Dim num8 As Single
        Dim suma As Single
        Dim multiplicacion As Single
        Dim resta As Single
        Dim division As Single
        num1 = TextBox1.Text
        num2 = TextBox2.Text
        num3 = TextBox3.Text
        num4 = TextBox4.Text
        num5 = TextBox5.Text
        num6 = TextBox6.Text
        num7 = TextBox7.Text
        num8 = TextBox8.Text
        suma = num1 + num2
        Label3.Text = CStr(suma)
        multiplicacion = num3 * num4
        Label6.Text = CStr(multiplicacion)
        resta = num5 - num6
        Label9.Text = CStr(resta)
        division = num7 / num8
        Label12.Text = CStr(division)
    End Sub
End Class

SEGUNDO PUNTO

Public Class Form1

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

        Dim nombres(4) As String

        Dim sueldos(4) As Single

        Dim total As Single

        nombres(0) = TextBox1.Text

        nombres(1) = TextBox3.Text

        nombres(2) = TextBox5.Text

        nombres(3) = TextBox7.Text

        sueldos(0) = TextBox2.Text

        sueldos(1) = TextBox4.Text

        sueldos(2) = TextBox6.Text

        sueldos(3) = TextBox8.Text

        total = sueldos(0) + sueldos(1) + sueldos(2) + sueldos(3)

        TextBox9.Text = nombres(0) + CStr(sueldos(0)) + vbCrLf + nombres(1) + CStr(sueldos(1)) + vbCrLf + nombres(2) + CStr(sueldos(2)) + vbCrLf + nombres(3) + CStr(sueldos(3)) + vbCrLf + "total:" + CStr(total)

    End Sub

End Class

EJERCICIO DE MATRICES

Public Class Form1

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

Dim nombres(4) As String
Dim edades(4) As Single
Dim opcion As Single

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

edades(0) = TextBox5.Text
edades(1) = TextBox6.Text
edades(2) = TextBox7.Text
edades(3) = TextBox8.Text

opcion = TextBox9.Text

TextBox10.Text = "nombre" + nombres(opcion - 1) + vbCrLf + "edad" + CStr(edades(opcion - 1))



End Sub
End Class

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)