Aplikasi Untuk Menghitung Gaji Pegawai Dengan Visual Basic 6.0

Oleh peistar

Monday 5 December 2016

Bagikan :

Tweet

Artikel kali ini saya akan berikan mengenai proses bagaimana membuat proses menghitung gaji pegawai dengan menggunakan bahasa pemrograman visual basic 6.0.

Adapun cara pengerjaanya dapat saudara ikuti langkah – langkah sebagai berikut :

- Langkah Pertama : Desainlah form untuk menghitung gaji pegawai seperti gambar dibawah ini.

- Langkah Kedua : Pada “Form Load” saudara dapat memasukan Coding Program dibawah ini.

Coding Program Form Load :

Combo1.AddItem "Kawin"

Combo1.AddItem "Belum Kawin"

Combo2.AddItem "Ia"

Combo2.AddItem "Ib"

Combo2.AddItem "Ic"

Combo2.AddItem "Id"

Combo2.AddItem "IIa"

Combo2.AddItem "IIb"

Combo2.AddItem "IIc"

Combo2.AddItem "IId"

Combo2.AddItem "IIIa"

Combo2.AddItem "IIIb"

Combo2.AddItem "IIIc"

Combo2.AddItem "IIId"

Combo2.AddItem "IVa"

Combo2.AddItem "IVb"

Combo2.AddItem "IVc"

Combo2.AddItem "IdV"

- Langkah Ketiga : Pada “ComboBox 2” saudara dapat memasukan Coding Program dibawah ini dengan “Procedure Click”.

Coding Program Procedure Click :

If Combo2.Text = "Ia" Then

Text3.Text = "1400000"

Text4.SetFocus

ElseIf Combo2.Text = "Ib" Then

Text3.Text = "1500000"

Text4.SetFocus

ElseIf Combo2.Text = "Ic" Then

Text3.Text = "1600000"

Text4.SetFocus

ElseIf Combo2.Text = "Id" Then

Text3.Text = "1700000"

Text4.SetFocus

ElseIf Combo2.Text = "IIa" Then

Text3.Text = "1800000"

Text4.SetFocus

ElseIf Combo2.Text = "IIb" Then

Text3.Text = "1900000"

Text4.SetFocus

ElseIf Combo2.Text = "IIc" Then

Text3.Text = "2000000"

Text4.SetFocus

ElseIf Combo2.Text = "IId" Then

Text3.Text = "2100000"

Text4.SetFocus

ElseIf Combo2.Text = "IIIa" Then

Text3.Text = "2200000"

Text4.SetFocus

ElseIf Combo2.Text = "IIIb" Then

Text3.Text = "2300000"

Text4.SetFocus

ElseIf Combo2.Text = "IIIc" Then

Text3.Text = "2400000"

Text4.SetFocus

ElseIf Combo2.Text = "IIId" Then

Text3.Text = "2500000"

Text4.SetFocus

ElseIf Combo2.Text = "IVa" Then

Text3.Text = "2600000"

Text4.SetFocus

ElseIf Combo2.Text = "IVb" Then

Text3.Text = "2700000"

Text4.SetFocus

ElseIf Combo2.Text = "IVc" Then

Text3.Text = "2800000"

Text4.SetFocus

ElseIf Combo2.Text = "IVd" Then

Text3.Text = "2900000"

Text4.SetFocus

End If

- Langkah Keempat : Masukan Coding Program dibawah ini kedalam “Command2” atau “tombol Clear” seperti gambar dibawah ini.

Coding Program Clear :

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Combo1.Text = "Pilih"

Combo2.Text = "Pilih"

Text1.SetFocus

- Langkah Kelima : Pada “Command1” atau “tombol Proses” masukan Coding Program dibawah ini.

Coding Program Clear :

Text8.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text)

Selamat mencoba, salam kompak selalu untuk kita semua. Wasalllaammmm...!!

Tag : Pemrograman Visual Basic 6.0