Tutoriales de Visual Basic

« ‹ 1 2/2 › »
Tablas de multiplicar en visual
Introducción

Programa que despliega la tabla de multiplicar que seleccione.

En el formulario agramamos dos botones (mostrar y salir), un combobox y una cajade texto con ScrollBars vertical y multilínea.

En el botón mostrar: 

Private sub cmdMostrar_Click()
    t = CInt(Combo1.ListIndex)
    if t = -1 Then
        MsgBox ("Selecciona una tabla.")
    else
        Label2.Caption = "Resultado de la tabla " & t + 1
        Combo1.ListIndex = -1
        Combo1.Text = "Selecciona una"
        For i = 1 To 10
            Text1.Text = Text1.Text & (t + 1) & " x " & i & " = " & i * (t + 1) 
& vbCrLf
        Next
    end If
end sub


En el botón salir: 

Private sub cmdSalir_Click()
    End
end sub


y en el combobox: 

Private sub Combo1_Click()
    Text1.Text = ""
end sub


Autor: Gamaliel M.
Sistema de ecuaciones lineales en visual
Introducción

Se muestra un pequeño sistema que resuelve sistemas de ecuaciones lineales utilizando el método de Gauss Jordan, para realizarlo se utilizaron matrices (el sistema soporta hasta 5 incógnitas).

El programa esta extenso para poner el código fuente pero puedes descargar el ejemplo funcionando al final.

Autor: Gamaliel M.
Mover de izq a derch un vector en visual
Introducción

Para realizar el siguiente programa utilizaremos un vector, en el cual insertaremos números aleatorios del lado izquierdo y los ya insertados se moverán a la derecha así hasta que se llene el vector.
Esto quiere decir que el primer numero insertado quedara del dalo derecho.

Crea un formulario, agrega un botón y una caja de texto, esta modificala a multilínea y con ScrollBars vertical.



Private sub Command1_Click()
    Dim vec(50) As Integer
    Dim c As Integer
    
    For i = 0 To 49
        x = Int(Rnd * 100)
        d = i - 1
        While (c < i)
            vec(d + 1) = vec(d)
            d = d - 1
            c = c + 1
        Wend
        vec(0) = x
        c = 0
        
        For e = 0 To 49
            Text1.Text = Text1.Text & vec(e)
        Next
        Text1.Text = Text1.Text & vbCrLf
    Next
end sub


Autor: Gamaliel M.
Promedio random en visual
Introducción

Para comprender el funcionamiento del random, ve este programita que genera 50 números aleatorios y obtiene el promedio de ellos.

En el botón borrar agrega lo siguiente.



Private sub cmdBorrar_Click()
    txtNumeros.Text = ""
    txtPromedio.Text = ""
end sub


En el botón generar introduce esto.



Private sub cmdGenerar_Click()
    txtNumeros.Text = ""
        suma = 0
        For i = 1 To 50
            valor = Int((1000 * Rnd) + 1)
            suma = suma + valor
            txtNumeros.Text = txtNumeros.Text & i & ".-  " & valor & vbCrLf
        Next
        txtPromedio.Text = suma / (i - 1)
end sub


Y por último en el botón salir solo agrega esto y listo.



Private sub cmdSalir_Click()
    End
end sub


Autor: Gamaliel M.
Promedio por sex en visual
Introducción

Programita que genera aleatoriamente calificaciones de estudiantes y su sexo, obtiene el promedio de los alumnos por sexo (promedio de hombres y de mujeres).

Primero al creamos un formulario, en el agregamos dos botones, dos etiquetas y tres cajas de texto, una de ellas la aremos multilínea y con ScrollBars vertical.
En el botón borrar agregamos el siguiente código.



Private sub cmdborrar_Click()
    Text2.Text = ""
    Text1.Text = ""
    Text3.Text = ""
end sub


Y en el botón generar agregamos lo siguiente para generar los números.



Private sub cmdgenerar_Click()
    Text2.Text = ""
    con1 = 0
    con2 = 0
    i = 1
    While (i < 30)
        rsex = Int((2 * Rnd) + 1)
        rcal = Int((10 * Rnd) + 1)
        if rsex = 1 Then
            con1 = con1 + 1
            sum1 = sum1 + rcal
        else
            if rsex = 2 Then
                con2 = con2 + 1
                sum2 = sum2 + rcal
            end If
        end If
        i = i + 1
        Text2.Text = Text2.Text & i & ".-   " & rcal & " -- " & rsex & vbCrLf
    Wend
    Text1.Text = sum1 / con1
    Text3.Text = sum2 / con2
end sub


Autor: Gamaliel M.
Contar palabras (caja txt) en visual
Introducción

En este programita trabajaremos un poco con las cadenas, en una caja de texto se podrá escribir palabras cuando se deseé se puede presionar el botón para que muestre el numero de palabras de esa cadena (contenido de la caja de texto), además mostrara la palabra con mayor numero de caracteres.

Puedes descargar el archivo de visual para que veas el código fuente con mas detalle y funcionando.

Autor: Gamaliel M.
« ‹ 1 2/2 › »