Salida Pedagogica

Medellin Cilck Aquí

Redes de computadoras y modelo osi

Click Aquí

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