VB .net Practical part II

Software Testing August 22, 2017
Slip 14
Write a Vb.net program to design the following form, select the question number from combo box that question will be displayed into textbox and the options for that question will be displayed on four radio buttons, select option and click on submit button result should be displayed in another textbox.




Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 1 Then
            TextBox1.Text = ("what is your name")
            RadioButton1.Text = "aaa"
            RadioButton2.Text = "bbb"
            RadioButton3.Text = "ccc"
            RadioButton4.Text = "ddd"
        ElseIf ComboBox1.SelectedIndex = 2 Then
            TextBox1.Text = ("Your Age...")
            RadioButton1.Text = "18"
            RadioButton2.Text = "19"
            RadioButton3.Text = "20"
            RadioButton4.Text = "21"
        ElseIf ComboBox1.SelectedIndex = 3 Then
            TextBox1.Text = ("Your Fav Color....")
            RadioButton1.Text = "Red"
            RadioButton2.Text = "Pink"
            RadioButton3.Text = "Blue"
            RadioButton4.Text = "Black
    End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If ComboBox1.SelectedIndex = 1 And RadioButton1.Checked = True Then
            Label2.Text = "Correct"

        ElseIf ComboBox1.SelectedIndex = 2 And RadioButton3.Checked = True Then
            Label2.Text = "Correct"
        ElseIf ComboBox1.SelectedIndex = 3 And RadioButton4.Checked = True Then
            Label2.Text = "Correct"
        Else
            Label2.Text = "Incorrect"
        End If
End Sub

 Slip 15

Write a Vb.net program to generate Sample TreeView control shown in following form 


 

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles    Button1.Click
        TreeView1.Nodes.Add("Computer Science")

        TreeView1.Nodes(0).Nodes.Add("BCA")
        TreeView1.Nodes(0).Nodes.Add("BCS")
        TreeView1.Nodes(0).Nodes.Add("MCA")

        TreeView1.Nodes(0).Nodes(0).Nodes.Add("FYBCA")
        TreeView1.Nodes(0).Nodes(0).Nodes.Add("SYBCA")
        TreeView1.Nodes(0).Nodes(0).Nodes.Add("TYBCA")

        TreeView1.Nodes(0).Nodes(1).Nodes.Add("FYBCS")
        TreeView1.Nodes(0).Nodes(1).Nodes.Add("SYBCS")
        TreeView1.Nodes(0).Nodes(1).Nodes.Add("TYBCS")

        TreeView1.Nodes(0).Nodes(2).Nodes.Add("FYMCA")
        TreeView1.Nodes(0).Nodes(2).Nodes.Add("SYMCA")
        TreeView1.Nodes(0).Nodes(2).Nodes.Add("TYMCA")

End Sub

 

Slip 16
Write a Vb.net program to design the following form,  it contains  the three menus  Color (Red,Blue,Green) ,Window(Maximize, Minimize, Restore) and Exit. On Selection of any menu or submenu result should affect the form control( for example if user selected Red color from Color menu back color of form should get changed to Red and if user selected Maximize from Window Menu then form should get maximized).




Private Sub RedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedToolStripMenuItem.Click
        Me.BackColor = Color.Red
End Sub

Private Sub BlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlueToolStripMenuItem.Click
        Me.BackColor = Color.Blue
End Sub

Private Sub GreenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GreenToolStripMenuItem.Click
        Me.BackColor = Color.Green
End Sub

Private Sub MaximizedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MaximizedToolStripMenuItem.Click
        Me.WindowState = FormWindowState.Maximized
 End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
End Sub

Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Me.WindowState = FormWindowState.Normal
End Sub

Private Sub MinimizedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimizedToolStripMenuItem.Click
        Me.WindowState = FormWindowState.Minimized
End Sub

Private Sub CloseToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem1.Click
        Me.Close()
End Sub

Slip 17

Write a Vb.net program to design the following form, this program shows the details of students in the form of form (use split container or Groupbox control to separate the input and output session).

 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        lbl_sname.Text = txt_sname.Text
        lbl_fname.Text = txt_fname.Text
        lbl_sname.Text = txt_sname.Text

        lbl_course.Text = cb_course.Text
        If RadioButton1.Checked = True Then
            lbl_gender.Text = "Male"
        Else
            lbl_gender.Text = "Female"
        End If

        lbl_dob.Text = DateTimePicker1.Value
        lbl_hobbies.Text = txt_hobbies.Text
        lbl_cno.Text = txt_cno.Text

End Sub

Slip 18
Write a Vb.net program to design the following form, accept all details from user and display the details through message box.
 




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim name As String
        Dim post As String
        Dim quali As String

        name = TextBox1.Text

        If radio_manager.Checked = True Then
            post = "Manager"
        ElseIf radio_eng.Checked = True Then
            post = "Engineer"
        ElseIf radio_acconu.Checked = True Then
            post = "Accountant"
        ElseIf radio_cherk.Checked = True Then
            post = "Cleark"
        End If

If chk_be.Checked = True Then
            quali = quali & "BE"
        End If
        If chk_mba.Checked = True Then
            quali = quali & "MBA"
        End If
        If chk_grad.Checked = True Then
            quali = quali & "Graduate"
        End If
        If chk_ca.Checked = True Then
            quali = quali & "CA"
        End If
 
                   MsgBox("Welcome:" & name & "  " & "Your Post:" & post & "  " & "Qualification: " & quali)
     End Sub
End Class


 Slip 19

Develop the menu based Vb.net application to implement a text editor with cut, copy, paste, save, close operations.


 

Private Sub CUTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CUTToolStripMenuItem.Click
   TextBox1.Cut()
End Sub

Private Sub COPYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COPYToolStripMenuItem.Click
        TextBox1.Copy()
 End Sub

Private Sub PASTEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PASTEToolStripMenuItem.Click
        TextBox2.Paste()
 End Sub

Private Sub SAVEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVEToolStripMenuItem.Click
        Dim sw As New System.IO.StreamWriter("C:\txttest.txt", True)
        sw.WriteLine(TextBox1.Text)
        sw.Close()
        MsgBox("Save completed!")
        Me.TextBox1.Text = ""
End Sub

Slip 20
          Write a VB.NET program to do the following operations on RichTextBox values
            i) Font Style
            ii) Font Color
            iii) Save
            iv) Open

                       




Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        Dim sw As New System.IO.StreamWriter("C:\txttest1.txt", True)
        sw.WriteLine(RichTextBox1.Text)
        sw.Close()
        MsgBox("Save completed!")
        Me.RichTextBox1.Text = ""
End Sub

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        Dim sr As New System.IO.StreamReader("C:\txttest1.txt")
        Dim str As String
        Do
            str = sr.ReadLine()
            Me.RichTextBox1.Text += str + vbCrLf
        Loop Until sr.EndOfStream = True
        sr.Close()
End Sub

Private Sub FontColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontColorToolStripMenuItem.Click
        ColorDialog1.FullOpen = True
        ColorDialog1.ShowDialog()
        RichTextBox1.ForeColor = ColorDialog1.Color
End Sub

Private Sub FontStyleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontStyleToolStripMenuItem.Click
        If FontDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            FontDialog1.ShowColor = True
            RichTextBox1.Font = FontDialog1.Font
        End If
End Sub