Write a Program
to calculate the salary of employee.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Handles TextBox1.TextChanged
TextBox2.Text = (40 * Val(TextBox1.Text) / 100)
TextBox3.Text = (15 * Val(TextBox1.Text) / 100)
TextBox4.Text = (10 * Val(TextBox1.Text) / 100)
TextBox5.Text = (20 * Val(TextBox1.Text) / 100)
TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text) +
Val(TextBox3.Text) + Val(TextBox4.Text)
End Sub
End Class
_____________________________________________________________________________
Comments
Post a Comment