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
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
