Plan De Mejoramiento Math Worsheet Generator

Acceda Aqui

Video Tutorial Math WorkSheet Generator

Click Aqui 

Vídeos

Video Redes
Video Salida Pedagogica Medellín

Mantenimiento Preventivo

Boleta de Pago

Esta aplicación es una boleta de pago en el cual indica el Salario Neto.

A continuación su programación :

Private Sub Check1_Click()

Text5.Text = Text2.Text * 0.03

End Sub

Private Sub Check2_Click()

Text6.Text = Text2.Text * 0.07

End Sub

Private Sub Check3_Click()

Text7.Text = Text2.Text * 0.01

End Sub

Private Sub Command1_Click()

Dim k, m, n As Integer

k = Text2.Text

m = Text3.Text

n = Text4.Text

Text8.Text = (((k + (m * n)) - (Text5.Text)) - Text6.Text) - Text7.Text

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Option1_Click()

Text4.Text = 10000

End Sub

Private Sub Option2_Click()

Text4.Text = 15000

End Sub

Este Es Mi Twitter

Este Es Mi Facebook