calculador de la edad de una persona

Este proyecto se realizo con la siguiente programación:

Private Sub CmdAceptar_Click()

Dim FecNac As Date, Edad As Integer

FecNac = CDate(TxtFecNac)

Edad = CInt((Date - FecNac) / 365)

TxtEdad = Str(Edad) & "años"

End Sub

Private Sub Command2_Click()

TxtFecNac.Text = ""

TxtEdad.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Notas

Este proyecto se realizo con la siguiente programación:

Private Sub Command2_Click()

End

End Sub

Private Sub Command6_Click()

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

Text4.Text = suma

End Sub

Private Sub Command7_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text1.Text = "" Then

MsgBox ("Digite un nùmero")

Text1.SetFocus

Else

Text2.SetFocus

End If

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text2.Text = "" Then

MsgBox ("Digite un nùmero")

Text2.SetFocus

Else

Text3.SetFocus

End If

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text3.Text = "" Then

MsgBox ("Digite un nùmero")

Text3.SetFocus

Else

Command6.SetFocus

End If

End If

End Sub

Calculadora

Este Es una calculadora, este proyecto se realizo con la siguiente programación:

Option Explicit

Private Sub cmdDiv_Click()

TxtResult.Text = Val(TxtOper1.Text) / Val(TxtOper2.Text)

lblOp.Caption = "/"

End Sub

Private Sub cmdProd_Click()

TxtResult.Text = Val(TxtOper1.Text) * Val(TxtOper2.Text)

lblOp.Caption = "*"

End Sub

Private Sub cmdResta_Click()

TxtResult.Text = Val(TxtOper1.Text) - Val(TxtOper2.Text)

lblOp.Caption = "-"

End Sub

Private Sub cmdSuma_Click()

TxtResult.Text = Val(TxtOper1.Text) + Val(TxtOper2.Text)

lblOp.Caption = "+"

End Sub

Colores

Este trabajo se hizo con la siguiente programación:

Option Explicit

Private Sub Form_Load()

txtCaja.Top = 0

End Sub

Private Sub optArriba_Click()

txtCaja.Top = 0

End Sub

Private Sub optAbajo_Click()

txtCaja.Top = frmColores0.ScaleHeight - txtCaja.Height

End Sub

Private Sub optAzul_Click()

txtCaja.BackColor = vbBlue

End Sub

Private Sub optRojo_Click()

txtCaja.BackColor = vbRed

End Sub

Private Sub optVerde_Click()

txtCaja.BackColor = vbGreen

End Sub

Private Sub optAmarillo_Click()

txtCaja.BackColor = vbYellow

End Sub

Temperatura

Este trabajo se realizo con la siguiente programacion:

Private Sub Command1_Click()

Beep

End

End Sub

Private Sub VScroll1_Change()

Text1.Text = VScroll1.Value

Text2.Text = 32 + 1.8 * VScroll1.Value

End Sub

Colores de texto y fondos

Este trabajo se realizo con la siguiente programación: 

verde, Bazul As Integer

Public Frojo, Fverde, Fazul As Integer

Private Sub cmdSalir_Click()

EndOption Explicit

Public Brojo, B

End Sub

Private Sub Form_Load()

Brojo = 0

Bverde = 0

Bazul = 0

Frojo = 255

Fverde = 255

Fazul = 255

lblCuadro.BackColor = RGB(Brojo, Bverde, Bazul)

lblCuadro.ForeColor = RGB(Frojo, Fverde, Fazul)

End Sub

Private Sub hsbColor_Change(Index As Integer)

If optColor(0).Value = True Then

lblCuadro.BackColor = RGB(hsbColor(0).Value, hsbColor(1).Value, _

hsbColor(2).Value)

Dim i As Integer

For i = 0 To 2

TxtColor(i).Text = hsbColor(i).Value

Next i

Else

lblCuadro.ForeColor = RGB(hsbColor(0).Value, hsbColor(1).Value, _

hsbColor(2).Value)

For i = 0 To 2

TxtColor(i).Text = hsbColor(i).Value

Next i

End If

End Sub

Private Sub optColor_Click(Index As Integer)

If Index = 0 Then ''Se pasa a cambiar el fondo''

Frojo = hsbColor(0).Value

Fverde = hsbColor(1).Value

Fazul = hsbColor(2).Value

hsbColor(0).Value = Brojo

hsbColor(1).Value = Bverde

hsbColor(2).Value = Bazul

Else: ''Se pasa cambiar el texto''

Brojo = hsbColor(0).Value

Bverde = hsbColor(1).Value

Bazul = hsbColor(2).Value

hsbColor(0).Value = Frojo

hsbColor(1).Value = Fverde

hsbColor(2).Value = Fazul

End If

End Sub

Encuestas

TWITTER

¿QUE ES TWITTER?

Es un sistema de microbloggin limitada a 140 caracteres.

Cada usuario sigue la actividad de otros (following) y es seguido por otros (followwers).

• No es chat
• No es blog

¿PARA QUE SIRVE?

ENTERARTE: para saber que hacen tus amigos, familiares y conocidos.

COMPARTIR: noticias, conocimientos y material que creas es interesante y útil para otros.

ADQUIRIR: conocimiento de noticias, tendencias y cosas que suceden en el mundo.

!PRIVACIDAD¡

Puede tener un perfil publico o privado, hay que saber que publica

¿DESDE DONDE?

• !desde todas partes¡
• desde Internet
• Desde el celular

¿COMO TENER SEGUIDORES?

Ingrese a:

1. Opción de encuentra cuentas que te interesen.
2. Tercera opción de buscar, y digita el nombre completo de la persona con la que desea estar de seguidor.

"Debemos estar como seguidores, para una comunicación directa entre los compañeros del centro".

LAS TIC

Son nuevas tecnologías de la información, y comunicación empleadas para la trasmisión de contenidos a través de internet, las cuales funcionan como medios y aplicaciones en el desarrollo de las actividades de los individuos. Gracias a estas, los campos de la educación, cultura, política, opinión, y demás han logrado avanzar en la distribución y masificación de sus contenidos, planes de acción y trabajo.

Las tic actúan como herramientas y medios para el envió de mensajes minuto a minuto en la red.

Las paginas del ministerio de las tic son:

• www.mintic.gov.co:

En una pagina del ministerio de Tecnologías de la información  y las comunicaciones, donde se lleva acabo las noticias mas recientes respecto a la información sobre el Tic.

El ministerio ha diseñado este espacio pensando en expertos, profesionales, operadores y empresas del sector Tic.

• www.colombiadigital.net:

Es una pagina digital donde se encuentra lo ultimo en tecnología en diversas partes del mundo.

Nos ayuda a promover el uso y aprobación de las tecnologías de la información y las comunidades (Tic), como herramientas para el desarrollo social y productivo hacia una sociedad en la que la creación de riqueza y bienestar esta basada en el conocimiento.

Restaurante

Este programa esta basado en  calcular las ganancias diarias de un restaurante para  lo  cual fue  necesario  realizar distintos tipos de variables con sus respectivas  operaciones necesarias.

Con  la siguiente programacion:

Private Sub Command1_Click()

Dim a, b, c, d, e, f, g, h, i, j As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

d = Val(Text4.Text)

e = Val(Text5.Text)

f = Val(Text6.Text)

g = Val(Text7.Text)

h = Val(Text8.Text)

Text9 = (a * 2500) + (b * 1500) + (c * 2500) + (d * 3000) + (e * 2500) + (f * 1000) + (g * 3000) + (h * 2000)

Text10 = (a * 18 * 100) + (b * 18 * 100) + (c * 18 * 100) + (d * 18 * 100) + (e * 18 * 100) + (f * 18 * 100) + (g * 18 * 100) + (h * 18 * 100)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text1.Text = "" Then

    Text1.SetFocus

    Else

    Text2.SetFocus

End If

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text2.Text = "" Then

    Text2.SetFocus

    Else

    Text3.SetFocus

End If

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text3.Text = "" Then

    Text3.SetFocus

    Else

   Text4.SetFocus

End If

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text4.Text = "" Then

    Text4.SetFocus

    Else

    Text5.SetFocus

End If

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text5.Text = "" Then

    Text5.SetFocus

    Else

    Text6.SetFocus

End If

End If

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text6.Text = "" Then

   Text6.SetFocus

   Else

   Text7.SetFocus

   End If

   End If

   End Sub

  

  

  

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

GrdMenu.Cols = 2

GrdMenu.Rows = 9

GrdMenu.FixedCols = 0

GrdMenu.FixedRows = 1

GrdMenu.TextArray(0) = "Menú"

GrdMenu.TextArray(1) = "Precio"

GrdMenu.TextArray(2) = "Hamburguesa"

GrdMenu.TextArray(3) = "2500"

GrdMenu.TextArray(4) = "Cerveza"

GrdMenu.TextArray(5) = "1500"

GrdMenu.TextArray(6) = "Gaseosa"

GrdMenu.TextArray(7) = "2500"

GrdMenu.TextArray(8) = "Ensalada"

GrdMenu.TextArray(9) = "3000"

GrdMenu.TextArray(10) = "Salchichas"

GrdMenu.TextArray(11) = "2500"

GrdMenu.TextArray(12) = "Refresco"

GrdMenu.TextArray(13) = "1000"

GrdMenu.TextArray(14) = "Sopa"

GrdMenu.TextArray(15) = "3000"

GrdMenu.TextArray(16) = "Postre"

GrdMenu.TextArray(17) = "2000"

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text7.Text = "" Then

   Text7.SetFocus

   Else

 Text8.SetFocus

   End If

   End If

   End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text8.Text = "" Then

   Text8.SetFocus

   Else

 Command1.SetFocus

   End If

   End If

   End Sub

Calculo Del Salario Neto

Este programa se basa en  calcular el salario de un trabjador que  se produce deacuerdo a  las horas trabajadas para lograr hallar su salario bruto, descuento y su salario neto.

Con la siguiente programacion:

Private Sub Command1_Click()

Text4.Text = Text2 * Text3

Text5.Text = 0.2 * Text4

Text6.Text = Text4 - Text5

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text1.Text = "" Then

    MsgBox ("digite un nombre")

    Text1.SetFocus

    Else

    Text2.SetFocus

End If

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text2.Text = "" Then

    MsgBox ("digite un nombre")

    Text2.SetFocus

    Else

    Text3.SetFocus

End If

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text3.Text = "" Then

    MsgBox ("digite un nombre")

    Text3.SetFocus

    Else

    Command1.SetFocus

End If

End If

End Sub

Mapa Mental: Visual Basic

Sala Comedor

Este proyecto esta basado en describir las partes de una sala comedor, para lo cual fue necesario hacer una programación a cierto botón para mostrar los nombres respecto a cada objeto elegido.

Su programación fue:

Private Sub Label1_Click()

Label11.Caption = "Sofa"

End Sub

Private Sub Label10_Click()

Label11.Caption = "lampara"

End Sub

Private Sub Label2_Click()

Label11.Caption = " Mesa"

End Sub

Private Sub Label3_Click()

Label11.Caption = "Cojín"

End Sub

Private Sub Label4_Click()

Label11.Caption = "Portarretratos"

End Sub

Private Sub Label5_Click()

Label11.Caption = "repisa"

End Sub

Private Sub Label6_Click()

Label11.Caption = "florero"

End Sub

Private Sub Label7_Click()

Label11.Caption = "Gabinete"

End Sub

Private Sub Label8_Click()

Label11.Caption = "Comedor"

End Sub

Private Sub Label9_Click()

Label11.Caption = "cortina"

End Sub





Componentes De La Computadora

Este proyecto esta basado en las partes que compone una computadora, tales como lo muestra la imagen.
Con el fin de programar un botón que muestra el nombre de la parte que escojamos con la siguiente programación:

Private Sub Command1_Click()
End
End Sub

Private Sub Label2_Click()
Label1.Caption = "Monitor"
End Sub

Private Sub Label3_Click()
Label1.Caption = "Torre"
End Sub

Private Sub Label4_Click()
Label1.Caption = "Teclado"
End Sub

Private Sub Label5_Click()
Label1.Caption = "Parlante"
End Sub

Private Sub Label6_Click()
Label1.Caption = "Parlante"
End Sub

Private Sub Label7_Click()
Label1.Caption = "Mouse"
End Sub

He Creado Mi Blog De Tic Sena

Bievenidos A Mi Blog