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