NUMEROS IMPARES Y PARES

Public Class Form1

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


Dim num As Integer
Dim sumat As Integer
Dim sump As Integer
Dim sumi As Integer

num = TextBox1.Text


For j = 2 To num Step 2

sump += j

Next j

For z = 1 To num Step 2

sumi += z

Next z

For i = 1 To num
sumat += i

Next i

TextBox2.Text = "suma" + vbCrLf + "pares" + CStr(sump) + vbCrLf + "impares" + CStr(sumi) + vbCrLf + "total" + CStr(sump + sumi)

TABLA MULTIPLICAR

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c As Integer
        a = TextBox1.Text
        For b = 1 To 20
            c = a * b
            TextBox2.Text += CStr(a) + " x " + CStr(b) + " = " + CStr(c) + vbCrLf
        Next
    End Sub
End Class

VENTAS BASICO

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 basico As Single

        Dim comision As Single

        Dim sueldo As Single

        ventas = TextBox1.Text

        basico = TextBox2.Text

        If (ventas < 3000000) Then

            comision = ventas * 0.03

        Else

            If (ventas < 7000000) Then

                comision = ventas * 0.05

            Else

                comision = ventas * 0.07

            End If

        End If

        sueldo = (comision + basico)

        TextBox3.Text = "sueldo" + CStr(sueldo)

    End Sub

End Class

VENTAS CONTRATO

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 basico As Single

        Dim contrato As String

        Dim comision As Single

        Dim sueldo As Single

        ventas = TextBox1.Text

        basico = TextBox2.Text

        contrato = TextBox3.Text

        If (contrato = "medio") Then

            basico = (basico / 2)

            If (ventas < 3000000) Then

                comision = ventas * 0.03

            Else

                If (ventas < 7000000) Then

                    comision = ventas * 0.05

                Else

                    comision = ventas * 0.07

                End If

            End If

        Else

            If (contrato = "completo") Then

                If (ventas < 7000000) Then

                    comision = ventas * 0.07

                Else

                    If (ventas < 13000000) Then

                        comision = ventas * 0.09

                    Else

                        comision = ventas * 0.12

                    End If

                End If

            End If

        End If

        sueldo = (basico + comision)

        TextBox4.Text = "sueldo" + CStr(sueldo)

    End Sub

End Class

    

    

VENTAS COMI

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
        ventas = TextBox1.Text
        comision = TextBox2.Text
        If (ventas >= 3000000) Then
            valcomision = (ventas * comision / 100)
            TextBox3.Text = "comision" + CStr(valcomision)
        Else
            TextBox3.Text = "No hay nada"
        End If
    End Sub
End Class

DADOS

Public Class Form1

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

        Dim numero As Single

        Dim numero2 As Single

        numero = TextBox1.Text

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

        TextBox2.Text = CStr(numero2)

        If (numero <= numero2) Then

            TextBox3.Text = "perdio"

        Else

            TextBox3.Text = "gano"

        End If

    End Sub

End Class

PROYECTO IF .2 PLAN

PublicClassForm1

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

DimdineroAsSingle

Dim plan AsString

dinero = TextBox1.Text

plan = TextBox2.Text

If (dinero>= 50000) Then

If (plan = "s") Then

TextBox3.Text = "buenootrodia"

Else

TextBox3.Text = "vamos por una fria"

EndIf

Else

TextBox3.Text = "no ay dinero"

EndIf

EndSub

EndClass

PROYECTO IF . LICHIGO . CERVEZA

PublicClassForm1

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

DimdineroAsSingle

dinero = TextBox1.Text

If (dinero>= 50000) Then

TextBox2.Text = "vamos a tomar cerveza"

Else

TextBox2.Text = "lichigo"

EndIf

EndSub

PARCIAL PUNTO 2

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

PARCIAL PUNTO 1|

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.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

MATRIZ 2 DIMENSION

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim datos(4, 2) As String
Dim OPCION As Single
Dim IMPRIME As Single
datos(0, 0) = TextBox1.Text
datos(1, 0) = TextBox2.Text
datos(2, 0) = TextBox3.Text
datos(3, 0) = TextBox4.Text
datos(0, 1) = TextBox5.Text
datos(1, 1) = TextBox6.Text
datos(2, 1) = TextBox7.Text
datos(3, 1) = TextBox8.Text
OPCION = TextBox9.Text
IMPRIME = OPCION - 1
TextBox10.Text = "NOMBRE" + datos(IMPRIME, 0) + "," + vbCrLf + "EDADES" + datos(IMPRIME, 1)
　
　End Sub
End Class

MATRIZ 1 DIMENSION

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim NOMBRE(4) As String
Dim EDAD(4) As String
Dim OPCION As Single
Dim IMPRIME As Single
NOMBRE(0) = TextBox1.Text
NOMBRE(1) = TextBox2.Text
NOMBRE(2) = TextBox3.Text
NOMBRE(3) = TextBox4.Text
EDAD(0) = TextBox5.Text
EDAD(1) = TextBox6.Text
EDAD(2) = TextBox7.Text
EDAD(3) = TextBox8.Text
OPCION = TextBox9.Text
IMPRIME = OPCION - 1
TextBox10.Text = "NOMBRE" + NOMBRE(IMPRIME) + "," + vbCrLf + "EDADES" + EDAD(IMPRIME)
End Sub
End Class 

QUIZ

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 comision As Decimal

Dim salario As Decimal
nombre = TextBox1.Text
sueldo = TextBox2.Text
ventas = TextBox3.Text
comision = ventas * 0.1
salario = sueldo + comision
TextBox4.Text = nombre + "," + vbCrLf + "usted gano" + CStr(salario)

End Sub

End Class

trabajo 3

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)
End Sub
End Class

trabajo 2

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 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

trabajo 1

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)

End Sub
End Class



VIDEO TUTORIAL SOBRE COMO HACER UNA CALCULADORA EN VISUAL BASIC 2010 EXPRESS

COMO SE PUEDE HACER UNA CALCUALDORA DESDE VISUALBASIC DE UNA FORMA RAPIDA Y SENCILLA

APORTE TOMADO DE YOUTUBE

VIDEO TUTORIAL SOBRE VISUAL BASIC 2010 EXPRESS

DATOS SOBRE Q ES VISUAL BASIC

Visual Basic es un lenguaje de programación orientada al objeto, desarrollado por el alemán Alan Cooper para Microsoft. El lenguaje de programación es un dialecto de BASIC, con importantes agregados. Su primera versión fue presentada en 1991, con la intención de simplificar la programación utilizando un ambiente de desarrollo completamente gráfico que facilitara la creación de interfaces gráficas y, en cierta medida, también la programación misma. Desde el 2001 Microsoft ha propuesto abandonar el desarrollo basado en la API Win32 y pasar a trabajar sobre un framework o marco común de librerías independiente de la versión del sistema operativo, .NET Framework, a través de Visual Basic .NET (y otros lenguajes como C Sharp (C#) de fácil transición de código entre ellos).

Visual Basic (Visual Studio) constituye un IDE (entorno de desarrollo integrado, o, en inglés, Integrated Development Enviroment) que ha sido empaquetado como un programa deaplicación; es decir, consiste en un editor de código (programa donde se escribe el código fuente), un depurador (programa que corrige errores en el código fuente para que pueda ser bien compilado), un compilador (programa que traduce el código fuente a lenguaje de máquina), y un constructor de interfaz gráfica o GUI (es una forma de programar en la que no es necesario escribir el código para la parte gráfica del programa, sino que se puede hacer de forma visual).