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