Maria Virginia Melati

Senin, 04 April 2011

Pembetulan Tugas Aplikasi VB 2

Tugas saya keseluruhan berisi tentang sebuah Toko Kue dimana kita bisa melihat tampilan produk yang dijual di toko kue tersebut dan juga bisa memesan kue. Pada Form pertama berisi halaman utama pada toko kue, dimana terdapat inputan nama pelanggan yang menggunakan ucase dan pelanggan2 dapat memasukan nama mereka dalam huruf kecil dan tampilan yang akan keluar adalah huruf besar. Selain itu di form1 terdapat iseng2 berhadiah dimana pelanggan hanya dapat mencobanya 1 kali saja. Hadiah- hadiahnya adalah macaroons, zupa sup dan green tea. Bila tidak dapat hadiah, akan muncul tulisan "Maaf anda kurang beruntung. Konsep iseng2 berhadiah ini menggunakan timer. Pada form ini terdapat link ke daftar menu, dan juga pemesanan. Berikut ini adalah sourcecodenya

Public Class Form1

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

Dim nama As String

nama = InputBox("masukan nama anda dalam huruf kecil")

TextBox1.Text = UCase(nama)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim a As Integer

For a = 1 To 10

Label1.Text = Rnd(a)

Label2.Text = Strings.Mid(Label1.Text, 3, 1)

End Sub

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

If Button2.Text = "Silahkan diklik untuk iseng2 berhadiah" Then

Timer1.Enabled = True

Button2.Text = "stop"

Else : Button2.Text = "stop"

Button2.Text = "Iseng2 berhadiah hanya bisa dicoba 1 kali"

Timer1.Enabled = False

TextBox2.Enabled = False

Select Case Label2.Text

Case 1, 3

TextBox2.Text = "Gratis Green Tea"

Case 2, 4

TextBox2.Text = " Gratis macaroons rasa apa saja"

Case 5, 8

TextBox2.Text = "Gratis zuppa sup"

Case 6, 7, 9, 0

TextBox2.Text = "Maaf Anda Kurang Beruntung"

End Select

End If

End Sub

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

Form2.Show()

End Sub

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

Dim x As String

x = MsgBox("Apakah anda yakin akan keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "End")

If x = vbYes Then

Me.Close()

End If

End Sub

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

Form3.Show()

End Sub

End Class

Tampilan Design

Hasil Running 1

Hasil Running 2

Untuk button keluar

Pada form ke 2 berisi daftar makanan dan minuman beserta tampilan aslinya, jadi sebelum membeli kue atau minuman, pembeli dapat melihat-lihat tampilan makanan dan minuman yang ada. Untuk menampilkan makanan atau minuman menggunakan listbox dan picture box. Visible. pada semua picture boxnya bernilai false, agar hanya gambar yang dipilih tulisannya saja yang muncul. Selain itu pada form ini terdapat link untuk masuk ke form pemesanan. Berikut ini adalah sourcecodenya

Public Class Form2

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Select Case ComboBox1.Text

Case "Chocolate cupcake"

PictureBox1.Visible = True

PictureBox3.Visible = False

PictureBox4.Visible = False

PictureBox5.Visible = False

PictureBox2.Visible = False

PictureBox6.Visible = False

Case "Strawberry cupcake"

PictureBox2.Visible = True

PictureBox3.Visible = False

PictureBox4.Visible = False

PictureBox5.Visible = False

PictureBox1.Visible = False

PictureBox6.Visible = False

Case "Tiramisu"

PictureBox3.Visible = True

PictureBox1.Visible = False

PictureBox4.Visible = False

PictureBox5.Visible = False

PictureBox2.Visible = False

PictureBox6.Visible = False

Case "Zuppa Sup"

PictureBox4.Visible = True

PictureBox3.Visible = False

PictureBox1.Visible = False

PictureBox5.Visible = False

PictureBox2.Visible = False

PictureBox6.Visible = False

Case "Macaroons"

PictureBox5.Visible = True

PictureBox3.Visible = False

PictureBox4.Visible = False

PictureBox1.Visible = False

PictureBox2.Visible = False

PictureBox6.Visible = False

Case "Chocostrw cupcake"

PictureBox6.Visible = True

PictureBox3.Visible = False

PictureBox4.Visible = False

PictureBox5.Visible = False

PictureBox2.Visible = False

PictureBox1.Visible = False

End Select

End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

Select Case ComboBox2.Text

Case "Green Tea"

PictureBox7.Visible = True

PictureBox8.Visible = False

PictureBox9.Visible = False

PictureBox10.Visible = False

Case "Green tea ice cream"

PictureBox8.Visible = True

PictureBox7.Visible = False

PictureBox9.Visible = False

PictureBox10.Visible = False

Case "Strawberry Yoghurt"

PictureBox9.Visible = True

PictureBox8.Visible = False

PictureBox7.Visible = False

PictureBox10.Visible = False

Case "Capucini"

PictureBox10.Visible = True

PictureBox8.Visible = False

PictureBox9.Visible = False

PictureBox7.Visible = False

End Select

End Sub

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

Form3.Show()

End Sub

End Class

Tampilan design

Hasil Running

Form 3 merupakan form pemesanan dimana pelanggan dapat terlebih dahulu mengklik makanan atau minuman yang ada di checkbox, yang bertujuan untuk melihat harganya terlebih dahulu. Setelah memilih makanan yang akan dipesan, kita dapat mengklik total untuk mengetahui berapa total belanja. Setelah itu pelanggan dapat mengklik di radio button untuk memilih apakah menggunakan jasa delivery atau tidak. Jika menggunakan jasa delivery, pelanggan akan dikenakan biaya tambahan sebesar 10000. Lalu setelah itu pelanggan dapat mengklik button jumlah bayar untuk menu pembayaran. Untuk menghapus semua text menggunakan hapus. Button hapus menggunakan struktur for each, jika ditekan maka semua text yang ada akan hilang.Lalu jika ingin keluar tekan button keluar.Berikut ini adalah sourcecodenya

Public Class Form3

   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
   If CheckBox1.Checked = True Then
   Label1.Text = 9000
   Else
   Label1.Text = ""
   End If

   End Sub

   Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
   If CheckBox2.Checked = True Then
   Label2.Text = 8000
   Else
   Label2.Text = ""
   End If
   End Sub

   Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
   If CheckBox3.Checked = True Then
   Label3.Text = 500000
   Else
   Label3.Text = ""
   End If
   End Sub

   Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
   If CheckBox4.Checked = True Then
   Label4.Text = 15000
   Else
   Label4.Text = ""
   End If
   End Sub

   Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
   If CheckBox5.Checked = True Then
   Label5.Text = 20000
   Else
   Label5.Text = ""
   End If
   End Sub

   Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
   If CheckBox6.Checked = True Then
   Label6.Text = 8000
   Else
   Label6.Text = ""
   End If
   End Sub

   Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
   If CheckBox8.Checked = True Then
   Label7.Text = 16000
   Else
   Label7.Text = ""
   End If
   End Sub

   Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
   If CheckBox9.Checked = True Then
   Label9.Text = 11000
   Else
   Label9.Text = ""
   End If
   End Sub

   Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged
   If CheckBox10.Checked = True Then
   Label10.Text = 15000
   Else
   Label10.Text = ""
   End If
   End Sub

   Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
   If CheckBox7.Checked = True Then
   Label8.Text = 9000
   Else
   Label8.Text = ""
   End If

   End Sub



   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
   If RadioButton1.Checked Then
   TextBox2.Text = 10000
   Else
   TextBox2.Text = ""
   End If
   End Sub

   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
   If RadioButton2.Checked Then
   TextBox2.Text = ""
   End If
   End Sub

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

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   TextBox3.Text = TextBox1.Text + TextBox2.Text
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   TextBox1.Text = Label1.Text + Label2.Text + Label3.Text + Label4.Text + Label5.Text + Label6.Text + Label7.Text + Label8.Text + Label9.Text + Label10.Text
   End Sub

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

Dim TextBox As Control

For Each TextBox In Me.Controls

TextBox.Text = ""

Next TextBox

End Sub

End Class

Tampilan Design

Hasil Running 1

Hasil Running 2

Hasil For Each

Minggu, 03 April 2011

Tugas Aplikasi VB 2

Public Class Form1

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

Dim nama As String

nama = InputBox("masukan nama anda dalam huruf kecil")

TextBox1.Text = UCase(nama)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim a As Integer

For a = 1 To 10

Label1.Text = Rnd(a)

Label2.Text = Strings.Mid(Label1.Text, 3, 1)

End Sub

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

If Button2.Text = "Silahkan diklik untuk iseng2 berhadiah" Then

Timer1.Enabled = True

Button2.Text = "stop"

Else : Button2.Text = "stop"

Button2.Text = "Iseng2 berhadiah hanya bisa dicoba 1 kali"

Timer1.Enabled = False

TextBox2.Enabled = False

Select Case Label2.Text

Case 1, 3

TextBox2.Text = "Gratis Green Tea"

Case 2, 4

TextBox2.Text = " Gratis macaroons rasa apa saja"

Case 5, 8

TextBox2.Text = "Gratis zuppa sup"

Case 6, 7, 9, 0

TextBox2.Text = "Maaf Anda Kurang Beruntung"

End Select

End If

End Sub

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

Form2.Show()

End Sub

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

Dim x As String

x = MsgBox("Apakah anda yakin akan keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "End")

If x = vbYes Then

Me.Close()

End If

End Sub

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

Form3.Show()

End Sub

End Class

Tampilan Design

Hasil Running 1

Hasil Running 2

Untuk button keluar

Public Class Form2

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Select Case ComboBox1.Text

Case "Chocolate cupcake"

PictureBox1.Visible = True

PictureBox3.Visible = False

PictureBox4.Visible = False

PictureBox5.Visible = False

PictureBox2.Visible = False

PictureBox6.Visible = False

Case "Strawberry cupcake"

PictureBox2.Visible = True

PictureBox3.Visible = False

PictureBox4.Visible = False

PictureBox5.Visible = False

PictureBox1.Visible = False

PictureBox6.Visible = False

Case "Tiramisu"

PictureBox3.Visible = True

PictureBox1.Visible = False

PictureBox4.Visible = False

PictureBox5.Visible = False

PictureBox2.Visible = False

PictureBox6.Visible = False

Case "Zuppa Sup"

PictureBox4.Visible = True

PictureBox3.Visible = False

PictureBox1.Visible = False

PictureBox5.Visible = False

PictureBox2.Visible = False

PictureBox6.Visible = False

Case "Macaroons"

PictureBox5.Visible = True

PictureBox3.Visible = False

PictureBox4.Visible = False

PictureBox1.Visible = False

PictureBox2.Visible = False

PictureBox6.Visible = False

Case "Chocostrw cupcake"

PictureBox6.Visible = True

PictureBox3.Visible = False

PictureBox4.Visible = False

PictureBox5.Visible = False

PictureBox2.Visible = False

PictureBox1.Visible = False

End Select

End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

Select Case ComboBox2.Text

Case "Green Tea"

PictureBox7.Visible = True

PictureBox8.Visible = False

PictureBox9.Visible = False

PictureBox10.Visible = False

Case "Green tea ice cream"

PictureBox8.Visible = True

PictureBox7.Visible = False

PictureBox9.Visible = False

PictureBox10.Visible = False

Case "Strawberry Yoghurt"

PictureBox9.Visible = True

PictureBox8.Visible = False

PictureBox7.Visible = False

PictureBox10.Visible = False

Case "Capucini"

PictureBox10.Visible = True

PictureBox8.Visible = False

PictureBox9.Visible = False

PictureBox7.Visible = False

End Select

End Sub

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

Form3.Show()

End Sub

End Class

Tampilan design

Hasil Running

Form 3 merupakan form pemesanan dimana pelanggan dapat terlebih dahulu mengklik makanan atau minuman yang ada di checkbox, yang bertujuan untuk melihat harganya terlebih dahulu. Setelah memilih makanan yang akan dipesan, kita dapat mengklik total untuk mengetahui berapa total belanja. Setelah itu pelanggan dapat mengklik di radio button untuk memilih apakah menggunakan jasa delivery atau tidak. Jika menggunakan jasa delivery, pelanggan akan dikenakan biaya tambahan sebesar 10000. Lalu setelah itu pelanggan dapat mengklik button jumlah bayar untuk menu pembayaran. Lalu jika ingin keluar tekan button keluar.Berikut ini adalah sourcecodenya

Public Class Form3

   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
   If CheckBox1.Checked = True Then
   Label1.Text = 9000
   Else
   Label1.Text = ""
   End If

   End Sub

   Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
   If CheckBox2.Checked = True Then
   Label2.Text = 8000
   Else
   Label2.Text = ""
   End If
   End Sub

   Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
   If CheckBox3.Checked = True Then
   Label3.Text = 500000
   Else
   Label3.Text = ""
   End If
   End Sub

   Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
   If CheckBox4.Checked = True Then
   Label4.Text = 15000
   Else
   Label4.Text = ""
   End If
   End Sub

   Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
   If CheckBox5.Checked = True Then
   Label5.Text = 20000
   Else
   Label5.Text = ""
   End If
   End Sub

   Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
   If CheckBox6.Checked = True Then
   Label6.Text = 8000
   Else
   Label6.Text = ""
   End If
   End Sub

   Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
   If CheckBox8.Checked = True Then
   Label7.Text = 16000
   Else
   Label7.Text = ""
   End If
   End Sub

   Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
   If CheckBox9.Checked = True Then
   Label9.Text = 11000
   Else
   Label9.Text = ""
   End If
   End Sub

   Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged
   If CheckBox10.Checked = True Then
   Label10.Text = 15000
   Else
   Label10.Text = ""
   End If
   End Sub

   Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
   If CheckBox7.Checked = True Then
   Label8.Text = 9000
   Else
   Label8.Text = ""
   End If

   End Sub




   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
   If RadioButton1.Checked Then
   TextBox2.Text = 10000
   Else
   TextBox2.Text = ""
   End If
   End Sub

   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
   If RadioButton2.Checked Then
   TextBox2.Text = ""
   End If
   End Sub

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

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   TextBox3.Text = TextBox1.Text + TextBox2.Text
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   TextBox1.Text = Label1.Text + Label2.Text + Label3.Text + Label4.Text + Label5.Text + Label6.Text + Label7.Text + Label8.Text + Label9.Text + Label10.Text
   End Sub
End Class

Tampilan Design

Hasil running daftar harga

Hasil running 2

Sabtu, 05 Maret 2011

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