Tugas Aplikasi Visual Basic

     Project ini menjelaskan tentang pembuatan soal kuis PA chapter 10. Di dalam form 1 anda akan menemukan isian data mahasiswa yaitu nama dan npm dimana nama mahasiswa menggunakan button dengan kode UpperCase supaya nama yang diisikan mahasiswa menjadi huruf besar. Selain itu ada juga button reset untuk menghapus nama dan npm yang telah ditulis dan menggunakan focus pada nama mahasiswa. Dan ada button mulai untuk pergi ke form 2. 

Tampilan Form1

.

Hasil Running1

Hasil Running 2

Kodenya:

Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtnamamahasiswa.Text = ""
        txtnpm.Text = ""
        txtnamamahasiswa.Focus()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim huruf As String
        huruf = InputBox("Masukkan Nama Mahasiswa")
        txtnamamahasiswa.Text = UCase(huruf)
    End Sub

End Class

Form 2

           Di form 2 ini terdapat 4 soal pilihan ganda yang diletakkan dalam groupbox serta hasil kuis. Soal-soal pilihan ganda dapat dipilih dengan mengunakan checkbox. Lalu setelah memilih jawaban, anda dapat menekan button tekan setelah anda mengerjakan soal dan yang terjadi adalah hasil benar atau salah serta nilai dari soal yang anda kerjakan. Tetapi setelah menekan tombol tersebut, tampilan enable groupbox tersebut false, sehingga anda tidak dapat merubah jawaban yang ada.

          Setelah anda menjawab soal nomor 4 dan menekan button yang ada, maka hasil nilai anda akan keluar dengan menggunakan kode untuk mendeskripsikan variabel. Untuk mengetahui grade dan lulus tidak lulus, anda dapat menekan button tekan untuk mengetahui grade dan kelulusan. Di dalam form ini juga terdapat 2 buah gambar yang menggambarkan lulus atau tidak lulusnya anda,dan gambar ini hanya akan muncul salah satu jika anda menekan button grade dan kelulusan.Kedua gambar ini propertiesnya diganti menjadi visible false agar gambarnya hanya muncul salah satu.

Form2

Hasil Running Jika Lulus

Hasil Running Jika Tidak Lulus

Kodenya:

Public Class Form2

    Dim soal_no1, soal_no2, soal_no3, soal_no4 As Double

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

        If RadioButton3.Checked = True Then

            TextBox1.Text = "benar"

            TextBox2.Text = 2.5

        Else

            TextBox1.Text = "salah"

            TextBox2.Text = 0

        End If

        GroupBox1.Enabled = False

    End Sub

    

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If RadioButton7.Checked = True Then

            TextBox3.Text = "benar"

            TextBox4.Text = 2.5

        Else

            TextBox3.Text = "salah"

            TextBox4.Text = 0

        End If

        GroupBox2.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If TextBox5.Text = 10 Then

            TextBox10.Text = "A"

            TextBox11.Text = "Anda Lulus"

            PictureBox2.Show()

        ElseIf TextBox5.Text = 7.5 Then

            TextBox10.Text = "B"

            TextBox11.Text = "Anda Lulus"

            PictureBox2.Show()

        ElseIf TextBox5.Text = 5 Then

            TextBox10.Text = "C"

            TextBox11.Text = "Anda Tidak Lulus"

            PictureBox1.Show()

        ElseIf TextBox5.Text = 2.5 Then

            TextBox10.Text = "D"

            TextBox11.Text = "Anda Tidak Lulus"

            PictureBox1.Show()

        Else

            TextBox10.Text = "E"

            TextBox11.Text = "Anda Tidak Lulus"

            PictureBox1.Show()

        End If

    End Sub

    

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If RadioButton10.Checked = True Then

            TextBox7.Text = 2.5

            TextBox6.Text = "benar"

        Else

            TextBox7.Text = 0

            TextBox6.Text = "salah"

        End If

        GroupBox3.Enabled = False

    End Sub

    

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        If RadioButton16.Checked = True Then

            TextBox9.Text = 2.5

            TextBox8.Text = "benar"

        Else

            TextBox9.Text = 0

            TextBox8.Text = "salah"

        End If

        GroupBox4.Enabled = False

        soal_no1 = TextBox2.Text

        soal_no2 = TextBox4.Text

        soal_no3 = TextBox7.Text

        soal_no4 = TextBox9.Text

        TextBox5.Text = soal_no1 + soal_no2 + soal_no3 + soal_no4

    End Sub

   

End Class