Para iniciar Visual Basic 6.0, que es la versin utilizada en estos ejemplos, pulsa sobre el botn Inicio/Programas/Microsoft Visual Basic 6.0 y haz click sobre el icono del programa.

En la ventana de Nuevo proyecto que aparece, elige el icono EXE estndard, para crear un programa tpico.Esta opcin muestra los elementos necesarios para un programa Windows: Una ventana que contiene un Form (formulario) donde puedes insertar los componentes que aparecen habitualmente en los programas para Windows (botones, cajas de texto,etc).Para disear tu primer programa de Visual Basic haz clic con el botn izquierdo del ratn en el icono de la barra de herramientas que muestra una A mayscula y a continuacin arrastra el ratn sobre el formulario: vers aparecer un rectngulo que contiene un texto (Label1).

Este componente se denomina Label (etiqueta) y sirve para introducir textos de cualquier tamao y color en el formulario.El componente que hay a la derecha de Label se llama Textbox y permite introducir texto por teclado cuando el programa est funcionando.Inserta tres etiquetas ms y dos textbox en el formulario como ves en la imagen de la izquierda.Al insertar un componente, el contenido que muestran es el nombre del componente (Label1, Label2, Text1,etc) pero puedes cambiarlos (o borrarlos) seleccionndolos con un click de ratn y modificando el texto en la ventana Propiedades que hay a la derecha.

El contenido se modifica cambiando el recuadro Caption del control Label y el campo Text del control TextBox. Tambin es posible cambiar el nombre al control( modificando la propiedad Nombre del mismo), pero en este ejemplo usaremos el nombre propuesto por Visual Basic.Modifica la etiqueta Label4 para que muestre el texto: naciste en.. y deja tal como est la etiqueta Label3. En esta aparecer el resultado obtenido por el programa (el ao de nacimiento).Hasta aqu hemos realizado la parte de diseo visual del programa ( que an puedes mejorar cambiando el tipo de letra, color etc). Ahora necesitamos que el programa haga algo, esto corresponde a la parte del cdigo.Control para editar texto

Para abrir la ventana de cdigo,asegrate de seleccionar el control Text2 con un click y haz doble click sobre l. A continuacin selecciona el evento (accin) a ejecutar sobre este control= KeyPress (es decir, al escribir sobre el control) Visual Basic escribe el comienzo y el final de la subrutina que se ejecutar cuando se escriba dentro del Textbox :Private Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Label3.Caption = 2000 - Text2End Subel cdigo de programa que hay dentro de la subrutina debes escribirlo t.Su significado es: Si el cdigo de la tecla pulsada es 13 (equivale a Intro) entonces escribe en la etiqueta Label3 el resultado de restar a 2000 el contenido del control Text2. Es decir que al pulsar Intro, aparece en el control Label3 el ao de nacimiento.Ejecuta el programa pulsando sobre este icono y escribe tu nombre y edad.Al pulsar Intro debe aparecer tu ao de nacimiento.

Observa que Visual Basic realiza conversiones de tipo automticamente. Es decir que, aunque el contenido de los controles Label y Textbox son alfanumricos(textos), las operaciones con nmeros se realizan convirtiendo previamente los "textos" numricos contenidos en esos controles. Otra forma de obtener el mismo resultado sera introducir un control CommandButton (botn) y asignarle (con un doble click) el siguiente cdigo:Private Sub Command1_Click()Label3.Caption = 2000 - Text2End Sub

A un botn de comando puedes aadirle un icono (imagen bmp) pequeo para mostrar mejor la funcin que realiza.Para aadir esta imagen, selecciona el control y haz clic sobre los ... (puntos suspensivos) del campo Picture en la ventana Propiedades.Busca una imagen bmp y seleccinala. Para que el control la muestre debes activar tambien en el campo Style la opcin Graphical.

Segundo ejemplo:CONVERSIN DE PESETAS A EUROS

Inicia Visual Basic y elije crear un proyecto EXE estandar.Aade al formulario del proyecto las etiquetas que ves en la imagen de la izquierda:Conversin a eurosPesetasEurosLabel2y el CommandButton con el campo Caption cambiado a: CONVERTIR A EUROS

Para cambiar los colores y el fondo de un control Label debes cambiar los campos BackColor y ForeColor (color del fondo y del primer plano) de estos objetos.Igualmente puedes cambiar el tipo de letra, seleccionndola en el campo Font de la ventana Propiedades del control.En este ejemplo tienes que modificar TAMBIEN el nombre de los controles:Llama al control TextBox Pesetas y a la etiqueta Label2: Euros, modificando el campo (Nombre) de estos controles.

Al botn de comando ponle como nombre Convertir y en su campo Caption escribe: CONVERTIR A EUROS.Ahora podemos introducir cdigo de programa en el botn, para que al pulsarlo ejecute nuestras instrucciones.Haz doble click sobre el botn y Visual Basic te mostrar el comienzo y el final de la subrutina correspondiente a Hacer Click.Aade el cdigo siguiente:

Euros.Caption = Pesetas.Text / 165Esta instruccin se encargar de dividir el contenido del control de texto por 165 para obtener el resultado en euros.Para ir a la ventana de cdigo, en caso de que quede oculta por otra, puedes pulsar el icono Ver cdigo que hay en la parte superior de la ventana Proyecto.Ya puedes ejecutar el programa.

Tercer ejemplo:INSERTAR IMAGENES EN EL FORMULARIO

Inicia Visual Basic y elige Crear un programa EXE estandar.Haz click en el icono Image de la barra de botones y a continuacin arrastra el ratn dentro del formulario para crear una ventana de imagen. Para buscar un fichero BMP dentro del recuadro haz click sobre los [...]del campo Picture y usa el navegador para hallar unfichero grfico.

Una vez seleccionado, ese fichero aparecer dentro del control Image.Ademas de mostrar el grfico, el control puede escalarlo, es decir que puede agrandarse hasta ocupar, por ejemplo, todo el formulario. Para ello asegrate que el campo Strech (Estirar) est a True.Otra propiedad del control Image es Visible, que sirve para que la imagen aparezca o desaparezca del formulario.En este ejemplo vas a introducir un botn de Comando para que al pulsarlo aparezca la imagen que has seleccionado.

Primero pon la propiedad Visible del control Image a False. A continuacin introduce un botn de comando y haz doble click sobre l para que aparezca la ventana de cdigo.Escribe dentro de la subrutina correspondiente al botn la instruccin:Image1.Visible = Truey ejecuta el programa. Vers que la imagen no aparece hasta que no pulsas sobre el botn.

Cuarto ejemplo:CREAR UN BUCLE DE TEMPORIZACIN

Un control muy til en los programas es el Timer o temporizador, que permite que se ejecute una rutina cada vez que pase un tiempo que determinemos nosotros, por ejemplo, cada segundo.Haz clic sobre el control Timer, en la barra de botones, y arrastra el ratn sobre el formulario.

Este control no ser visible durante el funcionamiento del programa, pero estar funcionando todo el tiempo.En el campo Interval introduce el nmero de milisegundos que debe transcurrir entre cada ejecucin de cdigo (1000 ms ejecutar el codigo que escribas una vez por segundo)

Ahora introduce un control Label y modifica su propiedad Caption para que muestre cualquier mensaje. Puedes modificar el tipo de letra y su tamao (propiedad Font) as como su color (propiedad ForeColor).

Vuelve a seleccionar el control Timer y haz doble clic sobre l para entrar en la ventana de cdigo.Escribe dentro de la subrutina el cdigo que ves en la imagen de la izquierda. Este cdigo se ejecuta cada segundo y modifica la propiedad Left y Top de la etiqueta (su posicin en el formulario)Ejecuta el programa y observa lo que ocurre. Si quieres ms velocidad disminuye el nmero de milisegundos del control timer.Formatos y tipos

Para cualquier informacin:tmendoza@miajas.com

Ejerciciosresueltosbsicos y de estructuras de decisin en Visual Basic 6.0

1)Escribir unprogramaque agregue un valor de la suma

Se debe crear:

3Label (En eltercerLabel cambia el BorderStyle de0- Nonea1-Fixed Single)

1TextBox

1CommandButton

Debe quedar as

Hay dos formas de hacerlo:Forma simple(Nivel: Facil)yForma simple(Nivel: Normal). Vern porque.

Forma simple(Nivel: Facil):El problema de la forma simple es que al agregar el primer valor y al darle sumar nos agrega el primer valor ingresado, en vez de esperar los otros valores que se van a sumar. Por ejemplo:

1)Si ingreso1en lugar de quedar elLabel3en blanco te muestra el primer valor ingresado, en vez de quedarse en blanco elLabel3, para poderingresarel siguiente valor sumarlo y mostrar elresultado. Pruebenlo y veran porque.

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

Option ExplicitDimSumaAs Double_____________________________________________________________________

Private SubCommand1_Click() DimValorAs Double Valor = Text1 Suma = Suma + Valor Label3 = SumaEnd Sub

Forma simple(Nivel: Normal):Esta es la forma en que vemos si se ha ingresado datos o no en elTextBoxusando condicionales, y tambin nos ayuda a sumar de forma cmoda como lascalculadoradeWindows.

Debe quedarte as:

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

DimOperacionAs StringDimInicioAs BooleanDimPrimerValor, ValorSiguiente, Suma

Private SubCommand1_Click()PrimerValor = Val(Text1.Text)Text1.Text =""Inicio =FalseOperacion ="Suma"End Sub

Private SubCommand2_Click()Text1.Text =""Label3 =""ValorSiguiente =0Inicio =FalseEnd Sub

Private SubCommand3_Click()IfText1 =""Then MsgBox"Usted no ha ingresado su numero"End IfValorSiguiente = Text1.Text Select CaseOperacion Case"Suma" Suma = PrimerValor + ValorSiguiente Label3 = Suma End SelectEnd Sub

2)Escribir unprogramaque lea5nmeros enteros y escriba la media aritmtica (Promedio) de los mismos

Se hace de tres maneras

Primera manera

Se debe crear:

5TextBox

7Label (En elltimoLabelcambia el BorderStyle de0- Nonea1- Fixed Single)

1CommandButton

Debe quedarte as

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

Private SubCommand1_Click()DimPrimerValorAs Integer, SegundoValorAs Integer, TercerValorAs Integer, CuartoValorAs Integer, QuintoValorAs Integer

PrimerValor = Text1SegundoValor = Text2TercerValor = Text3CuartoValor = Text4QuintoValor = Text5

Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) /5

End Sub

Segunda manera:

Esta manera es para que cuando se nos olvide poner el algn valor en cualquierTextBox, nos muestre un mensaje de que faltaingresarun valor en talTextBox

Se debe crear:

5TextBox

7Label (En el ltimoLabelcambia el BorderStyle de0- Nonea1- Fixed Single)

1CommandButton

Debe quedarte as

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

Private SubCommand1_Click()

DimPrimerValorAs Integer, SegundoValorAs Integer, TercerValorAs Integer, CuartoValorAs Integer, QuintoValorAs Integer

PrimerValor =Val(Text1)SegundoValor =Val(Text2)TercerValor =Val(Text3)CuartoValor =Val(Text4)QuintoValor =Val(Text5)

IfText1 =""Then MsgBox"Falta el un valor en la casilla 1"ElseIfText2 =""Then MsgBox"Falta el un valor en la casilla 2"ElseIfText3 =""Then MsgBox"Falta el un valor en la casilla 3"ElseIfText4 =""Then MsgBox"Falta el un valor en la casilla 4"ElseIfText5 =""Then MsgBox"Falta el un valor en la casilla 5"ElseLabel7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) / 5End If

End Sub

Tercera forma:

Para eso debemos crear una"Matriz de Controles", lo que significa que debemos crear9veces unTEXT1

Como se muestra grficamente.

Creamos unTextBox

Le damos click derecho delMousey nos saldr el siguiente cuadro lo cual sale una opcin que dicecopiar.

Ahora acercamos el cursor en el espacio del formulario le damosclickderecho y pegar. O lomsfcil apretamos la teclaCtrly la tecla V las dos (teclas a la vez)

Luego de haberle dado pegar te va a salir un cuadro que te dice lo siguiente:"Ya existe uncontrolllamado Text1 Deseas crear una matriz de controles?"

Les das click enSIo enAceptar

Creas5Text1

7Labels

yunCommandButton

El formulario debe quedarte as

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

Private SubCommand1_Click()

DimPrimerValorAs Integer, SegundoValorAs Integer, TercerValorAs Integer, CuartoValorAs Integer, QuintoValorAs Integer

PrimerValor =Val(Text1(0))SegundoValor =Val(Text1(1))TercerValor =Val(Text1(2))CuartoValor =Val(Text1(3))QuintoValor =Val(Text1(4))

IfText1(1) =""Then MsgBox"Falta el un valor en la casilla 1"ElseIfText1(2) =""Then MsgBox"Falta el un valor en la casilla 2"ElseIfText1(3) =""Then MsgBox"Falta el un valor en la casilla 3"ElseIfText1(4) =""Then MsgBox"Falta el un valor en la casilla 4"ElseIfText1(5) =""Then MsgBox"Falta el un valor en la casilla 5"ElseLabel7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) /5End If

End Sub

3)El alquiler de unvehculocuesta70.000bolvarespordams750bolvarespor cada kilmetro recorrido. Escribir unprogramaque lea por teclado el nmero dedas en alquilery el nmeros de kilmetros recorridosymuestre el monto total que se debe pagar.

Se debe crear:

2TextBox

4Label (En el ltimoLabelcambia el BorderStyle de0- Nonea1- Fixed Single)

1CommandButton

Debe quedarte as

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

Private SubCommand1_Click() 'Declaramos las constantes ConstAlquilerDelAuto =70000 ConstKilometrosRecorrido =750 DimDiasDeAlquilerAs Integer DimKilometrosRecorridosAs Integer DiasDeAlquiler =Val(Text1) Kilometros =Val(Text2) IfText1 =""Then MsgBox"No has ingresado los dias" ElseIfText2 =""Then MsgBox"No has ingresado los kilometros" Else Label3 = (DiasDeAlquiler * AlquilerDelAuto) + (KilometrosRecorrido * Kilometros) End If End Sub

4)Escribir unprogramaque lea por teclado un numero entero, el cual representa un monto en bolvares y muestre cuantos billetes de50.000,20.000,10.000,5.000,2.000y1.000y cuantas monedas de500,100,50,20,10,5y1constituyen esa cantidad.

Aqu usaremosInputBox

Se debe crear:

13TextBox

13Label

1CommandButton

Debe quedarte as

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

Option ExplicitPrivate SubCommand1_Click() DimMontoAs Long 'Ingresamos los datos Monto =InputBox("Ingrese su monto") Text1 = Monto \50000 Text2 = Monto \20000 Text3 = Monto \10000 Text4 = Monto \5000 Text5 = Monto \2000 Text6 = Monto \1000 Text7 = Monto \500 Text8 = Monto \100 Text9 = Monto \50 Text10 = Monto \20 Text11 = Monto \10 Text12 = Monto \5 Text13 = Monto \1 End Sub

5)Escribir unprogramaque solicite al usuario la introduccin de un nmero detresdgitos y que lo imprima en orden inverso.Ejemplo:Para unaentradade695,la salida deber ser596.

Se debe crear:

2TextBox

2Label

1CommandButton

Debe quedarte as

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

Private SubCommand1_Click() DimNumeroAs Integer DimCalculoUnoAs Integer, RespuestaUnoAs Integer DimCalculoDosAs Integer, RespuestaDosAs Integer Numero = Text1 CalculoUno = Numero \100 RespuestaUno = NumeroMod100 CalculoDos = RespuestaUno \10 RespuestaDos = RespuestaUnoMod10 Text2 = RespuestaDos&CalculoDos&CalculoUno End Sub

6)Dados tres valores enteros, los cuales representan las longitudes de los lados de un tringulo, escribir unprogramaque determine si el tringulo esissceles, equilterooescaleno.

Se debe crear:

4Label

3TextBox

1CommandButton

Debe quedar as

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

Private SubCommand1_Click() DimLadoUnoAs Integer, LadoDosAs Integer, LadoTresAs Integer LadoUno = Text1 LadoDos = Text2 LadoTres = Text3 IfLadoUno = LadoDosAndLadoDos = LadoTresThen Label4 ="Es equiltero" ElseIfLadoUno = LadoDosOrLadoUno = LadoTresOrLadoDos = LadoTresOrLadoDos = LadoUnoOrLadoTres = LadoUnoOrLadoTres = LadoDosThen Label4 ="Isosceles" Else Label4 ="Escaleno" End IfEnd Sub

7)Escribir unprogramaque dada la hora enHH:MM:SScalcule y muestre la hora un segundo despus.

Donde:

HHes la hora

MMson los minutos

SSson los segundos

Se debe crear:

3TextBox

3CommandButton

Debe quedar as

Aqu esta el cdigo (Darle doble clck alCommandButtone introducir lo siguiente)

Private SubCommand3_Click()VariableHora = Text1VariableMinutos = Text2VariableSegundos = Text3VariableSegundos = VariableSegundos +1IfVariableSegundos =60Then VariableSegundos =0 VariableMinutos = VariableMinutos +1 IfVariableMinutos =60Then VariableMinutos =0 VariableHora = VariableHora +1 IfVariableHora >12Then VariableHora =1 End If End IfEnd IfText1 = VariableHoraText2 = VariableMinutosText3 = VariableSegundosEnd Sub_____________________________________Private SubCommand1_Click()Text1 =""Text2 =""Text3 =""

End Sub_______________________________Private SubCommand2_Click()EndEnd Sub_________________________________

NOTA:

A)El CommandButton3 es el botnHora

B)El CommandButton1 es el botnBorrar

C)El CommandButton2 es el botnSalir

Si no entienden algn algoritmo(Los cdigo por decirlo as), dejar un comentario. Para los que se inician en Visual Basic6.0

http://es.kioskea.net/forum/affich-188138-programas-en-visual-basic-6-0http://visualbasicmavd.blogspot.com/2011/08/ejercicios-resueltos-encontraras.htmlhttp://es.slideshare.net/nedlud/practicas-de-visual-basic-60http://es.slideshare.net/skriom/practicas-visual-basic-60?related=1http://es.slideshare.net/betsabebarcenas/visual-basic-60-progarmacion?related=2http://es.slideshare.net/magda_chivas_/ejercicios-de-visual?related=3http://es.slideshare.net/lcahuich/ejercicios-practicos-vb-1a-parte?related=4https://docs.google.com/document/d/1IIK9Gs9iKbfrAgPYR_VN-lUzK44snIFAdTBVUZoF_JU/edit?pli=1http://www.buenastareas.com/materias/ejercicios-resueltos-de-visual-basic-6-0/0https://www.youtube.com/watch?v=FDeCXQ4LJOUhttps://www.youtube.com/results?search_query=ejercicios+resueltos+en+visual+basic+6.0https://www.youtube.com/watch?v=AVe8mDwabqQ&list=PLD655577811A16E44http://aprenderaprogramar.com/index.php?option=com_content&view=article&id=298:ejercicios-resueltos-ejemplos-de-pseudocodigo-calcular-volumen-de-un-cilindro-o-un-precio-medio-cu00137a&catid=28:curso-bases-programacion-nivel-i&Itemid=59http://es.slideshare.net/epetekaun/52-ejerciciosresueltosenpseudocodigo-21155879http://es.slideshare.net/samicitagutierrez/algoritmos-ejemplos-14195295?related=1http://www.discoduroderoer.es/ejercicios-propuestos-y-resueltos-en-pseudocodigo/