Write a Vb.net program to design following screen, accept the details from the user. Clicking on Submit button Net Salary should be calculated and displayed into the TextBox. Display the MessageBox informing the Name and Net Salary of employee.

Slip No 7

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim netsal As Double
        netsal = Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text)
        TextBox9.Text = netsal
        MsgBox("Name : " & TextBox1.Text & vbNewLine & "Net Salary : " & netsal)
    End Sub
End Class
 

Comments

Post a Comment

Popular posts from this blog

Write a Vb.net program to accept a character from keyboard and check whether it is vowel or not. Also display the case of that character.

Image
Slip10 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim ch As Char         ch = TextBox1.Text         Select Case ch             Case "A", "E", "I", "O", "U"                 MessageBox.Show(ch + " is Vowel And UpperCase")             Case "a", "e", "i", "o", "u"                 MessageBox.Show(ch + " is Vowel And LowerCase")          ...
Read more

Write a Vb.net program to check whether entered string is palindrome or not.

Image
Slip No 1 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim s As String         Dim r As String         s = TextBox1.Text         r = StrReverse(s)         If s = r Then             MessageBox.Show("Enterd String is Palindrome")         Else             MessageBox.Show("Enterd String is Not Palindrome")         End If     End Sub End Class
Read more

Write a Vb.net program for blinking an image.

Image
Slip No 2 Public Class Form1     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         If PictureBox1.Visible = Visible Then             PictureBox1.Visible = False         Else             PictureBox1.Visible = True         End If     End Sub End Class
Read more