Para programar con el Visual Basic, primero aprenderemos a como usar el programa:

1-Tras instalarlo, dale a "Inicio" y a "Programas"

2-Busca la opción "Microsoft Visual Studio 6.0"

3-Dale a "Microsoft Visual Basic 6.0"

4-Te saldrá la ventana de arriba, y entonces has de darle a "EXE estándar" dos veces

5-Te saldrá en medio esas dos ventanas: la de Form1 es la ventana en donde se realizará el programa

6-Para realizar un programa, hay que seguir tres pasos para hacerlo:

1-DIBUJO: Para hacer este paso, es como si estuviesemos haciendo un dibujo en el Paint. Usaremos estas herramientas:

Las opciones que hay son:

: Si pinchamos y hacemos un recuadro en el cuadro de tarea, te sale un cuadrado en donde podrás colocar una imagen ( explicaremos cómo mas adelante )

: Sirve para colocar una etiqueta en donde escribirás un texto explicando algo y que se quedará ese texto ahí para siempre

: Sirve para crear una caja de texto en la que, según el resultado del programa, te saldrá escrito una cosa diferente ( siempre cuando programamos, la dejamos que salga en blanco )

: Sirve para crear una tabla en donde colocaremos los botones de opción, de elección,...

: Sirve para colocar un botón de comando en donde al cliquear sobre él se ejecutará el programa

: Sirve para crear botones de elección, apropiados para hacer mas de una opción ( típico de formularios para poder elegir varias opciones ). Se coloca en el recuadro formado con .

: Sirve para crear botones de opción, como de una encuesta. Se colocan en el recuadro formado con

: Sirve para crear un recuadro en el que tiene la misma utilidad que el botón de opciones ( sólo se elige uno )

: Sirve para crear unas barras de movimiento en el que servirán para ir cambiando valores numéricos según nuestras preferencias de como se cambien con el movimiento ( se explicaran mas adelante ) y según nuestro gusto, pueden ser o verticales u horizontales.

Haremos para empezar una calculadora. Aquí tenemos el diseño hecho:

¿ Cómo hemos escrito todo eso y le hemos dado esas fuentes ? Ahora a continuación lo vamos a explicar:

2-PROPIEDADES: Para poder ejecutarse el programa, se tienen que tener unas propiedades listas de cada elemento:

Para las cajas de texto:

(Nombre) : txtNombre; Text: "     " ( normalmente se deja en blanco)

Para las etiquetas:

(Nombre): lblNombre; Caption: Lo que sea que ha de ir escrito

Para los botones de comando:

(Nombre): cmdNombre; Caption: Lo que sea que ha de ir escrito

Para las barras:

(Nombre): vsbNombre ( o hsbNombre si es horizontal ); LargeChange = ( dependiendo de cuanto en cuanta quieras que cambie los datos al desplazarlo ); SmallChange ( lo mismo ); Max =( el número máximo al que quieres que lleguen los valores cuando termines de desplazar la barra ); Min = ( lo mismo que antes solo que en este caso el número que quieras que esté cuando la barra esté al principio ); Value = 0 ( dejarlo mejor así ).

3-PROGRAMACIÓN: Para que funcione el programa tal como tú quieres que funcione, pues hay que programarlo ( si has estudiando antes el Turbo Pascal, sabrás a que me refiero, aunque de hecho, el Visual Basic es mucho más fácil que el Turbo Pascal y si éste lo has manejado perfectamente, no tendrás ningún problema para saber manejar éste ):

En el caso del programa que estamos haciendo con la calculadora, pues para que se ejecute el programa, cliqueamos en los botones de comando, y ahí en ellos ( ya que hay mas de uno ) es donde haremos la programación.

Cliqueamos dos veces en uno de ellos, Cogeremos el de sumar:

Te saldrá esa ventana y ahora abajo de donde pone Private Sub cmdsuma_Click ( al cliquear pasa este programa en el botón cdmsuma,  o sea, tal como le hemos llamado pero podía haber sido cmdpablo por ejemplo ).

Debajo, en este caso, escribimos el nombre de donde ha de producirse la acción. Cuando cliqueamos, en la caja de texto del resultado pues queremos que aparezca la suma de los dos valores que hemos escrito ahí opcionalmente. Para ello, lo ponemos así:

lbloperador = "+" [Lo que se va a escribir en la etiqueta^]

txtresult.Text = Val(txtoper1.Text) + Val(txtoper2.Text) [Dícese de que la caja de resultado es igual al valor de la caja 1 sumado con el valor de la caja 2. Cuando queremos hacer cálculos matemáticas, hemos de poner la palabra "Val" para saber que es el valor numérico ).

Luego cliqueamos en los distintos botones de comando y hacemos lo mismo pero cambiando los datos ( en la etiqueta ponemos el signo de la operación: -, *, /,... Y también lo hacemos en la caja de texto de resultado cambiamos lo de suma por la operación que queramos ).

Luego si queremos probar si funciona nuestro programa, le damos a botón "play "

Probamos el programa y veremos como funciona la minicalculadora. También si queremos podemos añadirle mas opciones: conversión de pesetas a euros o viceversa, raíz cuadrada, ...Pero en algunos escribiendo en un sólo cuadro.

Ahora conozcamos algunos bucles. Comenzaremos por el mas importante: El famoso "If...Then...Else":

Cuando escribimos algo con este bucle, lo escribimos de la siguiente forma:

If (variable) Then

(sentencia1)

Else

(sentencia2)

End If

Ej: Hagamos un programita que calcule si un número es Par o Impar:

En la programación y tras haber puesto todas las propiedades ( en este caso, serán: 

Caja 1 =  Name : txtnumero              Botón = Name : cmdcomprobar          Caja 2 = N : txtigual

                Text = "   "                                          Caption: " ¿ Par o Impar ? "                  C : "     "

La programación que haremos será así:

Private Sub cmdcomprobar_Click()              *Si tienes dudas sobre los códigos de
If Val(txtnumero.Text) Mod 2 = 0 Then          programación, mirar la tabla de Pascal,
txtigual.Text = "Es Par"                       sólo que la diferencia es que la divi-
Else                                           sión entera es "\", la raíz es "sqr",...
txtigual.Text = "Es Impar"
End If
End Sub

Luego calculemos y probemos el 2. Te saldrá que es Par, Luego pon el 5. Te saldrá que es Impar. La explicación es que si al dividirlo entre 2 el resto es cero, será par, sino será impar ( así es la explicación del programa que hemos escrito ahí ).

Cuando operamos con barras, pues por ejemplo usemos el mismo ejercicio solo que le quitamos el botón de comando y en su lugar le ponemos una barra vertical. La programación sería así:

Private Sub vsbcomprobar_Change()
txtnumero = vsbcomprobar.Value
If Val(txtnumero.Text) Mod 2 = 0 Then
txtigual.Text = "Es Par"
Else
txtigual.Text = "Es Impar"
End If
End Sub

Para que se cambien los números con el movimiento de la caja, pues decimos que la caja de texto esa es igual a la acción de la barra y luego ya ponemos lo mismo de antes. Ahora cada vez que desplacemos la barra ( y con las propiedades puestas como las pusimos anteriormente ), pues se irá cambiando de número e irá diciendo la caja de igual si es par o impar.

Cuando se trata de operar con las List Box, pues es muy fácil: Usamos el bucle "If...Then...Else if" las veces que haga falta y colocando todos los End If para cada uno de ellos, de que si se ha elegido tal opción, pasa esto, sino pasa esto, sino si es el otro pasa esto,...Colocamos una caja de texto con algunos nombres ( 2 cogeremos pero puedes poner mas ) y un botón de comando. En las propiedades, ponemos "lst1" y luego los nombres de la caja se pone en la opción "List" y vas escribiendo los nombres y cuando escribas uno les das al Enter y luego le vuelves a dar y escribes y así con todos los que quieras.

Private Sub cmdpulsar_Click()
If lst1 = "Pepe" Then
txt1.Text = "Feo!!!"
Else
txt1.Text = "Gordo!!!"
End If
End Sub

Cuando cliquees uno de los nombres, si es Pepe te saldrá eso y sino otra cosa ( no insulto a nadie que se llama así, he cogido ese nombre por coger alguno ).

(Continuará el curso, ya que queda mas temario)