Praktikum TI 42: Tugas Pendahuluan, Tugas Kelompok : Gaji Pegawai

TUGAS PENDAHULUAN

KELOMPOK 42 TI UNDIP 2012

TUGAS KELOMPOK

PROGRAM GAJI PEGAWAI

Berikut adalah contoh program gaji pegawai yang kami buat menggunakan Visual Basic 2010

Berikut ini adalah list programnya :

Public Class Form1

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

End Sub

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

If RadioButton1.Checked And ComboBox2.Text = ("A") Then TextBox3.Text = ("Rp 1.500.000,00")

If RadioButton1.Checked And ComboBox2.Text = ("B") Then TextBox3.Text = ("Rp 2.000.000,00")

If RadioButton1.Checked And ComboBox2.Text = ("C") Then TextBox3.Text = ("Rp 3.500.000,00")

If RadioButton1.Checked And ComboBox2.Text = ("D") Then TextBox3.Text = ("Rp 5.000.000,00")

If RadioButton1.Checked And ComboBox2.Text = ("E") Then TextBox3.Text = ("Rp 8.000.000,00")

If RadioButton1.Checked And ComboBox2.Text = ("F") Then TextBox3.Text = ("Rp 15.000.000,00")

If RadioButton2.Checked And ComboBox2.Text = ("A") Then TextBox3.Text = ("Rp 1.000.000,00")

If RadioButton2.Checked And ComboBox2.Text = ("B") Then TextBox3.Text = ("Rp 1.500.000,00")

If RadioButton2.Checked And ComboBox2.Text = ("C") Then TextBox3.Text = ("Rp 3.000.000,00")

If RadioButton2.Checked And ComboBox2.Text = ("D") Then TextBox3.Text = ("Rp 4.000.000,00")

If RadioButton2.Checked And ComboBox2.Text = ("E") Then TextBox3.Text = ("Rp 7.000.000,00")

If RadioButton2.Checked And ComboBox2.Text = ("F") Then TextBox3.Text = ("Rp 12.500.000,00")

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

End Sub

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

Close()

End Sub

End Class

Praktikum TI 42