DESARROLLO DEL PRIMER

SIMULACRO TIPO ICFES EN

VISUAL BASIC
SIMULACRO EN VISUAL BASIC
JHON SEBASTIAN ALAPE LEYTON
11-2 J.M
30/10/2014

A CONTINUACION SE MOSTRARA PASO A PASO COMO CREAR UN SIMULACRO TIPO ICFES,

MEDIANTE VISUAL BASIC Y ACCESS, MOSTRANDO UN INICIO, UN JUEGO COMUN

LLAMADO AHORCADO, UNA SESION DE AMINISTRADOR, UNA PRUEBA ICFES.EXPLICANDO

COMO PUEDE SER LLEVADO A CABO.

DESARROLLO DEL PRIMER SIMULACRO TIPO

ICFES EN VISUAL BASIC

ALUMNO: JHON SEBASTIAN ALAPE LEYTON

GRADO: 11 - 2
JORNADA MAANA

INSTITUCION EDUCATIVA
JOSE ANTONIO GALAN
CUMARAL-META

INTRODUCCION
La combinacin de Microsoft Access y Microsoft Visual Basic nos
proporciona una excelente herramienta para la creacin de bases de
datos (Access) y su acceso (Visual Basic) que nos permite administrar
nuestras colecciones de audio, libros, video, etc. este ejercicio nos
permitir concebir y construir bases de datos que se amolden a
nuestras necesidades particulares, asumiendo que tienes
conocimientos ms que bsicos de Visual Basic, sin ms, manos a la
obra.

Inicio de Visual Basic

1)
2)

Haz clic en el botn Inicio, seala Todos los programas.

Haz clic en Microsoft Visual Studio 6.0, Microsoft Visual Basic 6.0.

Inicio del Proyecto

1)

Crea una carpeta que ser exclusiva para el proyecto se llamar: modalidad
2014 para guardar todos los componentes del proyecto.

2)

Por el momento no haremos nada con el formulario de inicio.

Creacin de la base de datos

1) Haz clic en el botn Inicio, seala Todos los programas.
2) Haz clic en Microsoft office, Microsoft Access.

3) Y se abrir Microsoft Access.

4) Haz clic en ,
5) En la caja Seleccione la base de datos de Microsoft Access que desea crear, en
este caso base de datos de Microsoft Access (formato 2002-2003)(*.mdb) .
Selecciona la misma carpeta creada anteriormente- en donde se guardar el
proyecto, en Nombre: escribe un nombre que identifique la base de datos (en
nuestro caso banco de preguntas) y haz clic en aceptar.

5) Ahora aparece nuevamente el Microsoft Access mostrando en la barra de

ttulo la ruta de acceso de nuestra base de datos, ahora damos clic en crear y lista
para empezar a trabajar.

Creacin de las tablas de la base de datos

1) Haz clic con el botn derecho del ratn dentro de la

Ventana de base de datos (tabla 1) y haz clic en vista diseo.

2) En la caja Estructura de tabla, Nombre de la tabla: escribe

el nombre de la tabla, para el ejercicio la tabla se llamar
preguntas, y haz clic en aceptar.

3) En nombre del campo, Nombre: escribe el nombre del primer

campo de la tabla que estamos creando, para el ejercicio agregaremos
siete campos, a saber: contexto, proposicin, opa, opb, opc, opd y
clave. En tipo de datos.
4) En Tipo de datos: selecciona el tipo de datos que contendr el
campo, en nuestro caso sern:
- campo:contexto, tipo de datos: memo
- campo: proposicin, tipo de datos: texto
- campo: opa, tipo de datos: texto
- campo: opb, tipo de datos: texto
-campo: opc,tipo de datos: texto
-campo: opd, tipo de datos: texto
-campo: clave, tipo de datos: texto

5) Cuando hayas agregado los campos de la tabla haz clic en el botn cerrar tabla.

6) Y la tabla la podrs ver en microsoft access (c:\modalidad 2014\) .

7) Repite los pasos desde el punto 1) para cada tabla que tendr la base de
datos.

Introduciendo la informacin en las tablas

1) Haz clic con el botn derecho del ratn en la tabla recin creada de la base de
datos y haz clic en Abrir.

2) Haz clic cada uno de los campos de la tabla para empezar a introducir la
informacin en los campos de la tabla.

3) Cuando termines de introducir la informacin en la ltima caja de

texto, haz clic en cerrar tabla.

*NOTA: para crear la contrasea de la sesin de usuario y de administrado, sigue

los mismos pasos solo que en nombre del campo coloca contrasea o nombre
clave, y coloca al llenar la tabla una palabra, puedes hacer una tabla para cada
sesin, pero en este caso utilizaremos la misma contrasea para ambos.

Preparando los formularios

En un formulario de Visual Basic crea los label necesarias que correspondan
modificando su propiedad Caption- con los nombres de los campos de la tabla
contexto ,a saber, proposicin, opa, opb, opc, opd y uno de diga respuesta, (en
este el usuario colocara la respuesta que el crea que es la correcta).

Crea las cajas de texto dejando en blanco su propiedad Text- necesarias para
mostrar el contenido de los campos y un ADO DATA CONTROL, repite los pasos
para cada tabla que tengas en tu base de datos.

1. Conectando el ADO DATA CONTROL

a) Selecciona el ADO DATA CONTROL y modifica sus propiedades como sigue:
b) Damos click derecho sobre el ADO DATA CONTROL, propiedades.

Nos aparece la pagina de propiedades, damos click en generar.

Seleccionamos en el proveedor, Microsoft jet 4.0 OLE DB provider.

Antes de dar click en aceptar, seleccionamos la pestaa conexin y buscamos la la

localizacin de la carpeta del proyecto y selecciona la base de datos (banco de
preguntas) en donde se halla la tabla.

Ahora si damos click en abrir.

En la paginas de propiedades seleccionamos la pestaa de origen de registros, en
tipo de comando, seleccionamos el comando 2-adCmdTable. En tabla o nombre de
procedimiento almacenado, seleccionamos el nombre de la tabla hecha en access.
Y damos click en aceptar.

2. Conectando las cajas de texto

a) Selecciona una de las cajas de texto y modifica sus propiedades como sigue:
b) DataSource: selecciona adodc1.
c) DataField: selecciona el nombre del campo de la tabla que corresponda
con la etiqueta correcta- que se mostrar en la caja de texto.
d) Repite los pasos con cada caja de texto del formulario y ejecuta el programa
con F5.

En esta segunda parte del ejercicio, vamos a controlar el acceso al programa, de

manera que solamente accesen el sistema, usuarios que previamente se hayan
registrado como tales, tambin se crear la opcin para que los interesados se auto
registren y puedan hacer uso del programa, por lo que vamos a crear:

a) Una pantalla de Inicio, que se ver inmediatamente antes de iniciar el

programa.
b) Una pantalla de Bienvenida, con opciones para entrar al programa o
registrarnos si es que no somos usuarios registrados para accesar el
programa.
c) Una pantalla de Entrada, para acceder al programa como usuario registrado.
d) Una pantalla de Registro, en donde se registrarn los usuarios que quieran
entrar el programa.

Creando una pantalla de inicio

a) Haz clic en Proyecto, Agregar formulario.

b) En la caja de dilogo Agregar formulario, opcin Nuevo, selecciona el icono
Pantalla de inicio y haz clic en Abrir.
Para el propsito del ejercicio slo conserva dos etiquetas que nos sern de
utilidad as como la grfica, selecciona el resto de las etiquetas y presiona el botn
Suprimir para eliminarlas. Modifica las etiquetas, cambia la grfica por la que
prefieras, y agrega un reloj a la pantalla de inicio para que se vea ms o menos
como se ve abajo.

Para que esta pantalla se vea inmediatamente antes que inicie el programa hay
que hacer lo siguiente:
a) Selecciona el reloj y cambia su propiedad Interval a 100.

b) Haz doble clic en el reloj y escribe el siguiente cdigo:

Private Sub Timer1_Timer()
Static J As Integer
J=J+1
If J = 20 Then
frmSplash.Hide
Bienvenida.Show
Timer1.Enabled = False
End If
End Sub
Aqu sencillamente declaramos una variable que se incrementar de uno en
uno y al llegar a 20 se ocultar la pantalla de inicio y mostrar otro
formulario, en nuestro caso el formulario de Bienvenida, y deshabilitar el
reloj. Para que el programa inicie con el formulario que acabamos de crear:
c) Haz clic en Proyecto, Propiedades de proyecto y se abrir la caja de
dilogo, Propiedades del proyecto.
d) En la opcin General, Objeto inicial, selecciona el formulario frmSplash y haz
clic en Aceptar.

Creando una pantalla de bienvenida

Crea un formulario, con una etiqueta y tres botones, para que se vea
ms o menos como se ve abajo.

a) El cdigo del botn ADMINISTRADOR es:

Private Sub Command1_Click()
MENU.Hide
PAGADM.Show
End Sub
Cuya funcin es la de ocultar el formulario de MENU y mostrar el formulario
de ADMINISTRADOR.
b) El cdigo del botn USUARIO es:
Private Sub Command1_Click()
MENU.Hide

PAGUSU.Show
End Sub
Cuya funcin es la de ocultar el formulario de MENU y mostrar el formulario
de USUARIO.
c) El cdigo del botn SALIR es:
Private Sub Command3_Click()
Dim R As Integer
R = MsgBox("DESEA SALIR DEL PROGRAMA?", 36, "MENU")
If R = 6 Then
End
Else
End If
End Sub
Cuya funcin es la de cerrar el programa.

Creando una pantalla de entrada

Crea un formulario, con dos etiquetas, dos cajas de texto, tres botones, y un
adodc1 para que se vea ms o menos como se ve abajo.

a) El cdigo del botn Entrar al Programa es:

Private Sub Command1_Click()
If Text1.Text = Text2.Text Then
MsgBox ("BIENVENIDO")
sesionadm.Show
Unload Me
Else
MsgBox ("EL NOMBRE CLAVE ES INCORRECTO INTENTE DE NUEVO")
Text2.SetFocus
Text2.Text = ""
End If
End Sub
Cuya funcin es asegurarse de que el nombre de la contrasea introducidos se
hallen en la tabla de usuarios, si lo halla le permitir la entrada al programa, si
no lo encuentra, invitar al usuario a intentarlo de nuevo o salir del programa.
b) El cdigo del botn inicio es:
Private Sub Command1_Click()
pagusu.Hide

menu.Show
End Sub

b) El cdigo del botn Salir del programa es:

Private Sub Command2_Click()
Dim R As Integer
R = MsgBox("DESEA SALIR DEL PROGRAMA?", 36, "MENU")
If R = 6 Then
End
Else
End If
End Sub
Cuya funcin es la de cerrar el programa.
b) Escribe el siguiente cdigo en el evento Activate del formulario
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Cuya funcin es la de colocar el cursor en la caja de texto 1 al cargar el
formulario
Escribe el siguiente cdigo en el evento KeyPress de la caja de texto 1
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = 13
Text2.SetFocus
End Sub
Cuya funcin es la que en la caja de texto aparezca el cursor.
*nota: la caja de textos que escogimos, en la propiedad visible, seleccionamos la
opcin false, para que cuando reproduzcamos el proyecto, esa caja de texto
aparesca oculta.
1. Conectando el ADO DATA CONTROL
c) Selecciona el ADO DATA CONTROL y modifica sus propiedades como sigue:

d) Damos click derecho sobre el ADO DATA CONTROL, propiedades.

Nos aparece la pagina de propiedades, damos click en generar.
Seleccionamos en el proveedor, Microsoft jet 4.0 OLE DB provider.
Antes de dar click en aceptar, seleccionamos la pestaa conexin y buscamos la la
localizacin de la carpeta del proyecto y selecciona la base de datos (contrasea)
en donde se halla la tabla.
Ahora si damos click en abrir.
En la paginas de propiedades seleccionamos la pestaa de origen de registros, en
tipo de comando, seleccionamos el comando 2-adCmdTable. En tabla o nombre de
procedimiento almacenado, seleccionamos el nombre de la tabla hecha en access.
Y damos click en aceptar.
2. Conectando las cajas de texto
e) Selecciona una de las cajas de texto y modifica sus propiedades como sigue:
f) DataSource: selecciona adodc1.
g) DataField: selecciona el nombre del campo de la tabla que corresponda
con la etiqueta correcta- que se mostrar en la caja de texto.
*nota: la caja de textos que escogimos, en la propiedad visible, seleccionamos la
opcin false, para que cuando reproduzcamos el proyecto, esa caja de texto
aparesca oculta.
Creando una pantalla de entrada

Crea un formulario, con dos etiquetas, dos cajas de texto, tres botones, y un
adodc1 para que se vea ms o menos como se ve abajo.

a) El cdigo del botn Entrar al Programa es:

Private Sub Command1_Click()
If Text1.Text = Text2.Text Then
MsgBox ("BIENVENIDO")
sesionadm.Show
Unload Me
Else
MsgBox ("EL NOMBRE CLAVE ES INCORRECTO INTENTE DE NUEVO")
Text2.SetFocus
Text2.Text = ""
End If
End Sub
Cuya funcin es asegurarse de que el nombre de la contrasea introducidos se
hallen en la tabla de usuarios, si lo halla le permitir la entrada al programa, si
no lo encuentra, invitar al usuario a intentarlo de nuevo o salir del programa.
b) El cdigo del botn inicio es:

Private Sub Command1_Click()

pagusu.Hide
menu.Show
End Sub

b) El cdigo del botn Salir es:

Private Sub Command2_Click()
Dim R As Integer
R = MsgBox("DESEA SALIR DEL PROGRAMA?", 36, "MENU")
If R = 6 Then
End
Else
End If
End Sub
Cuya funcin es la de cerrar el programa.
b) Escribe el siguiente cdigo en el evento Activate del formulario
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Cuya funcin es la de colocar el cursor en la caja de texto 1 al cargar el
formulario
Escribe el siguiente cdigo en el evento KeyPress de la caja de texto 1
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = 13
Text2.SetFocus
End Sub
Cuya funcin es la que en la caja de texto aparezca el cursor.

1. Conectando el ADO DATA CONTROL

e) Selecciona el ADO DATA CONTROL y modifica sus propiedades como sigue:
f) Damos click derecho sobre el ADO DATA CONTROL, propiedades.

Nos aparece la pagina de propiedades, damos click en generar.

Seleccionamos en el proveedor, Microsoft jet 4.0 OLE DB provider.

Antes de dar click en aceptar, seleccionamos la pestaa conexin y buscamos la la

localizacin de la carpeta del proyecto y selecciona la base de datos (contrasea)
en donde se halla la tabla.

Ahora si damos click en abrir.

En la paginas de propiedades seleccionamos la pestaa de origen de registros, en
tipo de comando, seleccionamos el comando 2-adCmdTable. En tabla o nombre de
procedimiento almacenado, seleccionamos el nombre de la tabla hecha en access.
Y damos click en aceptar.

2. Conectando las cajas de texto

h) Selecciona una de las cajas de texto y modifica sus propiedades como sigue:
DataSource: selecciona adodc1.
DataField: selecciona el nombre del campo de la tabla que corresponda
con la etiqueta correcta- que se mostrar en la caja de texto.

Y LISTO YA PODEMOS REPRODUCIR EL PROGRAMA Y FUNCIONARA CORRECTAMENTE.

YA PUEDEN ORGANIZARLO Y DISEARLO A SU ESTILO.