Membuat program aplikasi sederhana "Menghitung jumlah gaji dan golongan karyawan" dalam Visual Basic 2008 menggunakan fungsi IF

Assalamualaikum Wr. Wb.

Saya akan membuat suatu program sederhana untuk menghitung jumlah gaji karyawan. Jumlah gaji dan golongan karyawan dibedakan berdasarkan status pernikahan dan jumlah anak yang dimiliki.

1. Isi Blank Form dengan 5 Label, 1 Groupbox, 2 TextBox, dan 1 ComboBox seperti ini:

2. Setelah itu ganti "Text" pada masing-masing Label, GroupBox, TextBox, dan ComboBox tersebut. Jadi seperti ini:

3. Lalu fugsikan Button1 / Button Hitung pada form dan membuat Coding-nya

   Setelah itu fungsikan juga Button2 / Button Mulai untung mengosongkan TextBox dan ComboBox

4. Setelah itu click tombol F5 pada keyboard untuk men-debug hasil dari coding tersebut. Masukkan angka percobaannya. Misalnya Gaji karyawan tersebut sebesar 7.000.000, Status Pernikahannya sudah menikah, dan memiliki 2 anak. Maka Jumlah Gaji dan Golongannya adalah:

5. Apabila anda tidak mengisi angka gaji maka akan muncul MessageBox seperti ini:

6.  Apabila anda tidak memilih status perkawinan maka akan muncul MessageBox seperti ini:

7. Jika anda akan memulai menghitung gaji karyawan lainnya, click Button Mulai, sehingga data yang sebelumnya akan terhapus seperti ini:

 

Demikian penjelasan dari saya, apabila ada kesalahan atau yang lainnya silahkan mengisi comment. Terima kasih :)

Nb: Untuk membuat program seperti diatas, gunakan SourceCode seperti ini

Public Class Form1

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

        Dim gaji As Integer

        Dim anak As Integer

        Try

            gaji = System.Convert.ToInt32(TextBox1.Text)

        Catch

            MessageBox.Show("Masukkan gaji")

        End Try

        If (gaji >= 0 And gaji <= 800000) Then

            Label4.Text = " Golongan 1 "

        Else If (gaji > 800000 And gaji <= 1500000) Then

            Label4.Text = " Golongan 2 "

        Else If (gaji > 1500000 And gaji <= 3000000) Then

            Label4.Text = " Golongan 3 "

        Else If (gaji > 3000000 And gaji <= 5000000) Then

            Label4.Text = " Golongan 4 "

        Else If (gaji > 5000000) Then

            Label4.Text = " Eselon "

        Else If (gaji <= 0) Then

            MessageBox.Show("Anda salah memasukan input")

        End If

        If (RadioButton2.Checked) Then

            anak = 0

        Else If (RadioButton1.Checked) Then

            If (ComboBox1.Text = "1") Then

                anak = 1 * 200000

            Else If (ComboBox1.Text = "2") Then

                anak = 2 * 200000

            Else If (ComboBox1.Text = "3") Then

                anak = 3 * 200000

            Else If (ComboBox1.Text = "0") Then

                anak = 0

            Else

                anak = 600000

            End If

            gaji = gaji + 300000

        Else

            MessageBox.Show("Anda belum memilih status perkawinan")

        End If

        TextBox2.Text = gaji + anak

        If (gaji > 0 And (RadioButton1.Checked Or RadioButton2.Checked)) Then

        End If

    End Sub

End Class