Visual basic

UNIDAD EDUCATIVA “MIGUEL A. SAMANIEGO J.”

ALUMNO:

                  Gabriel Urrutia Ortiz

TUTORA:

                  Lcda. Nelly Caamaño

CURSO:

                   6to Sistema

Modulo:

                     Visual Basic 6.0 Proyecto     

DEDICATORIA

Primera mete a Dios, verdadera fuente de amor y sabiduría.

A mi padre, por que gracias a él sé que la responsabilidad se la debe vivir como

un compromiso de dedicación y esfuerzo.

A mi madre, cuyo vivir me ha mostrado que en el camino hacia la meta se

necesita de la dulce fortaleza para aceptar las derrotas y del sutil coraje para

derribar miedos.

A mi hermano, el incondicional abrazo que me motiva y recuerda que detrás de

cada detalle existe el suficiente alivio para empezar nuevas búsquedas.

A mi querida Licda. Nelly Caamaño que con su

conocimiento nos enseñó lo que

 ella sabe para que nosotros lo pongamos en práctica.

Agradecimiento

El presente trabajo lo dedico con todo mi amor y cariño:

A Dios por darme la oportunidad de vivir y de regalarme una familia maravillosa:

Con mucho cariño a mis padres que me dieron la vida y han estado conmigo en todo momento, por darme una carrera para mi futuro y por creer en mí siempre.

Para mis profesores quienes día a día nos llenan de conocimientos.

1 Primero Ingresamos a Visual Basic.

1.1 Propiedades que se utilizó en el proyecto.

a.         Caption.

b.         Borderstyle: Fixed Single

c.         Maxbuton: False.

d.         Minibuton: False.

e.         Moveable: False.

f.          Picture.

g.         StarUpPosition: Center Screen.

h.         WindowStates: Maximized.

1.2 Componentes que se utilizó en el proyecto.

a.         Commandbutton.

b.         Listbox.

c.         Image.

d.         WindowsMediaPlayer.

2 Menú Principal

 

2.1 Menú Principal en Ejecución

 

3 Archivo, Salir y Ayuda

 

4 Archivo

5 Cuentos

5.1 Cuentos

  Propiedades

a.         Caption.

b.         Borderstyle: Fixed Single

c.         Maxbuton: False.

d.         Minibuton: False.

e.         Moveable: False.

f.          Picture.

g.         StarUpPosition: Center Screen.

h.         WindowStates: Maximized.

     Componentes

a.         Commandbutton.

b.         Listbox.

c.         Image.

d.         WindowsMediaPlayer.

- Pinocho

- Pulgarcito

- Los tres chanchito

-El gato con bota

-Blanca Nieve y Los 7 Enanitos

                                   

                           

5.2 Calculadora

   Propiedades

a.         Caption.

b.         Borderstyle: Fixed Single

c.         Maxbuton: False.

d.         Minibuton: False.

e.         Moveable: False.

f.          Picture.

g.         StarUpPosition: Center Screen.

h.         WindowStates: Maximized.

     Componentes

a.         Commandbutton.

b.         Listbox.

Programación de “SUMA”

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Programación de “RESTA”

Text3.Text = Val(Text1.Text) - (Text2.Text)

Programación de “MULTIPLICAR”

Text3.Text = Val(Text1.Text) * (Text2.Text)

Programación de “DIVICION”

Text3.Text = Val(Text1.Text) / (Text2.Text)

Programación de “NUEVO”

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Programación de “VOLVER”

FORM1.SHOW

ME.HID

5.3 Factura

Propiedades:

a.- Caption.

b.- Borderstyle: Fixed Single

c.- Font: “Formas y Tamaño de las letras”.

d.- FontColor: “Color de las Letras”.

e.- Maxbuton: False.

f.- Minibuton: False.

g.- Moveable: False.

h.- Picture.

i.- StarUpPosition: Center Screen.

j.- WindowStates: Maximized.

k.- List.

l.- Interval.

Componentes

a. Label.

b. Textbox.

c. Combobox

d. Timer.

e. Commandbutton.

Programación para el primer total:

Text6.Text = Val(Text4.Text) * (Text5.Text)

Programación para el IVA.

Text7.Text = Val(Text5.Text) * 0.12

Programación para sacar el valor total a pagar de la compra.

Text8.Text = Val(Text6.Text) + (Text7.Text)

El timer es usado para colocarle a la factura la hora y la fecha con la ayuda de interval que es una propiedad que tiene que tener la cantidad de 1000.

Programación de “TIMER”.

Text3.Text = Date

Esta factura tiene dos botones hechos con commandbutton se llaman :

“NUEVO” y “VOLVER”

Programación de “NUEVO”.

Text1.Text = ""

Text2.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Programación de “VOLVER”.

Form1.Show

Me.Hide

5.4 Rol de Pago

Propiedades:

a.- Caption.

b.- Borderstyle: Fixed Single

c.- Font: “Formas y Tamaño de las letras”.

d.- FontColor: “Color de las Letras”.

e.- Maxbuton: False.

f.- Minibuton: False.

g.- Moveable: False.

h.- Picture.

i.- StarUpPosition: Center Screen.

j.- WindowStates: Maximized.

Componentes:

a. Label

b. Textbox

c. Commandbutton.

Programación para los Ingresos:

Text11.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text)

Programación para los Egresos:

Text12.Text = Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text)

Programación para el total a recibir:

Text13.Text = Val(Text11.Text) -(Text12.Text)

Programación para el botón “NUEVO”.

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Programación para “VOLVER”.

Form1.Show

Me.Hide

5.5 Operaciones Básica

Propiedades:

a.- Caption.

b.- Borderstyle: Fixed Single

c.- Font: “Formas y Tamaño de las letras”.

d.- FontColor: “Color de las Letras”.

e.- Maxbuton: False.

f.- Minibuton: False.

g.- Moveable: False.

h.- Picture.

i.- StarUpPosition: Center Screen.

j.- WindowStates: Maximized.

Componentes:

a. Label

b. Textbox

c. Commandbutton.

Programaciones utilizadas en los diferentes botones de comando.

“SUMA”.

Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)

“RESTA”.

Text4.Text = Val(Text1.Text) - (Text2.Text) - (Text3.Text)

“MULTIPLICACION”.

Text4.Text = Val(Text1.Text) * (Text2.Text) * (Text3.Text)

“NUEVO”.

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

“VOLVER”.

Form1.Show

Me.Hide

5.6 Datos Personales

Propiedades:

a.- Caption.

b.- Borderstyle: Fixed Single

c.- Font: “Formas y Tamaño de las letras”.

d.- FontColor: “Color de las Letras”.

e.- Maxbuton: False.

f.- Minibuton: False.

g.- Moveable: False.

h.- Picture.

i.- StarUpPosition: Center Screen.

j.- WindowStates: Maximized.

Componentes:

a. Label

b. Textbox

c. Commandbutton.

Propiedades

NUEVO.

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

VOLVER.

Form1.Show

Me.Hide

5.7 Adivinanzas

Propiedades.

a.- Caption.

b.- Borderstyle: Fixed Single

c.- Font: “Formas y Tamaño de las letras”.

d.- FontColor: “Color de las Letras”.

e.- Maxbutton: False.

f.- Minibutton: False.

g.- Moveable: False.

h.- Picture: “Fondo”.

i.- Picture: “Imagen”.

j.- Streech: true

k.- StarUpPosition: Center Screen.

l.- WindowStates: Maximized.

Componentes.

Label.

Textbox.

Picture.

Commandbutton.

Cada adivinanza tiene su respuesta correcta con su respective imagen.

MsgBox "CORRECTO"

Form35.Show (Ojo) Es Donde está La repuesta Correcta y donde tabien sale la imagen….!!

MsgBox "INCORRECTO"

Me.Hide

Volver

Form1.show

Me hide.

- Adivinanza 1

- Adivinanza 2

- Adivinanza 3

- Adivinanza 4

- Adivinanza 5

- Adivinanza 6

- Adivinanza 7

- Adivinanza 8

- Adivinanza 9

- Adivinanza 10

5.8 Área de un Triangulo

Propiedades.

a.- Caption.

b.- Borderstyle: Fixed Single

c.- Font: “Formas y Tamaño de las letras”.

d.- FontColor: “Color de las Letras”.

e.- Maxbutton: False.

f.- Minibutton: False.

g.- Moveable: False.

h.- Picture: “Fondo”.

i.- Picture: “Imagen”.

j.- Streech: true

k.- StarUpPosition: Center Screen.

l.- WindowStates: Maximized.

Componentes.

Label.

Textbox.

Commandbutton.

Picture.

Formulario

Text3.Text = Val(Text1.Text) * (Text2.Text)

 “NUEVO”.

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

“VOLVER”.

FORM1.SHOW

ME.HIDE

5.9 Movimientos

Propiedades:

Picture.

Caption.

BorderStyle: Fixed singel.

Maxbutton: False.

Minibutton: False.

Moveable: False.

StarUpPosition: Center Screen.

Componentes:

Picture.

Commandbutton.

- Cuadricula

Propiedades:

“MouseMove”.

Programación del formulario.

FillStyle = 0

FillColor = RGB (Rnd * (250), RED * (250), Rnd * (250))

  Circle (X, Y), 500

Programación de “VOLVER”.

Form1.show

Me.hide

- Circulo

Propiedades:

“Click”.

Programación.

constpi = 3.14159265

Circle (3500, 1500), 1100, , -p1 / 2, p1 / 3

Programación de “VOLVER”.

Form1.show

Me.hide

- Eclipse

Propiedades:

“MouseMove”.

Programación.

Dim radius

r = 225 * Rnd

g = 225 * Rnd

b = 225 * Rnd

xpos = SCALEWIDHT / 2

ypos = ScaleHeight / 2

radius = ((ypos * 0.9)) * Rnd

Circle (xpos, ypos), radius, RGB(r,g,b)

Programación de “VOLVER”.

Form1.show

Me.hide

- Círculos Múltiple

Propiedades:

“click”.

Programación.

FillStyle = 0

Circle (600, 1000), 800, , , , 3

FillStyle = 1

Circle (1800, 1000), 800, , , , 1 / 3

Programación de “VOLVER”.

Form1.show

Me.hide

5.10 Imágenes en Movimientos

Propiedades:

Picture.

Caption.

BorderStyle: Fixed singel.

Maxbutton: False.

Minibutton: False.

Moveable: False.

StarUpPosition: Center Screen.

Componentes:

Picture.

Commandbutton.

- Caritas

Programación.

“MouseMove”.

Picture1.Picture = Picture2.Picture

Picture2.Picture = Picture3.Picture

Picture3.Picture = Picture4.Picture

Picture4.Picture = Picture5.Picture

Picture5.Picture = Picture1.Picture

Programación de “VOLVER”.

Form1.show

Me.hide

- Pez

 Programación.

“MouseMove”.

Picture1.Picture = Picture2.Picture

Picture2.Picture = Picture3.Picture

Picture3.Picture = Picture4.Picture

Picture4.Picture = Picture5.Picture

Picture5.Picture = Picture1.Picture

Programación de “VOLVER”.

Form1.show

Me.hide

- Avión

Programación.

“MouseMove”.

Picture1.Picture = Picture2.Picture

Picture2.Picture = Picture3.Picture

Picture3.Picture = Picture4.Picture

Picture4.Picture = Picture5.Picture

Picture5.Picture = Picture1.Picture

Programación de “VOLVER”.

Form1.show

Me.hide

5.11 Taba de Multiplicar

Propiedades:

Picture.

Caption.

BorderStyle: Fixed singel.

Maxbutton: False.

Minibutton: False.

Moveable: False.

StarUpPosition: Center Screen.

Componentes:

Picture.

Commandbutton.

Programación de “MOSTRAR”..

cont = 0

Do Until (cont >= Val(Text2.Text))

cont = cont + 1

producto = Val(Text1.Text) * cont

Print Text1.Text & "*"; cont & "=" & producto

Loop

Programación de “NUEVO”.

Text1.Text = ""

Text2.Text = ""

Programación de “VOLVER”.

Form1.show

Me.hide