Pra UTS 1

Bismillah…

Setelah seharian kutak katik di nepi kesayangan. Akhirnya bisa juga nyelesain tugas yang diberikan instruktur di BSI untuk pembuatan program dalam bentuk VB.

Saya masih dibilang masih newbie dalam hal programmer, selama ini ane hanya duduk manis dan menjalan kan program yang telah disediakan. Cukup bingung juga, tapi seperti pepatah yang sering saya dengar “Bisa karena Terbiasa”.

Belum bisa karena belum terbiasa, next kalo sering latihan juga pasti BISA.

Semester  4, saya baru dikenalkan sebuah program yang sangat asing ditelinga seorang karyawan admin dan bercita-cita menjadi  Akuntan. Visual Basic 6.0, sebuah program untuk membuat program (ini yang saya tahu) klo yang lebih jelas bisa langsung searching Om Google aja  ya :D

Lanjut ke Tugas VB Pra UTS 1,

Sebuah PT. Sudah Makmur Jaya Unggul Lagi (Nama yg aneh) membuat program kalkulasi gaji karyawannya. Dimana karyawannya digoongkan menjadi 5 golongan. Setiap golongan, jabatan, gaji dan tunjangannya berbeda + status pernikahan itu juga berpengaruh pada jumlah gaji yang akan diterima perbulannya.

Berikut Design Form yang saya buat (VB 6.0 Portable)

 

Dan Objek-Objek yang digunakan di Form pada propetis

Objek                                     Name                    Caption

Textbox1                              txtnip                                    

Textbox2                              txttgl                                      

Textbox3                              txtnama                                               

Textbox4                              txtjab                                    

Textbox5                              txtgapok                                               

Textbox6                              txttunjab                                              

Textbox7                              txttransport                                          

Textbox8                              txttunjangan                                       

Textbox9                              txtgakot                                

Textbox10                            txtpph                                   

Textbox11                            txtgaber                                

Frame1                                 Frame1                  Jabatan dan Gaji Pokok                   

Frame2                                 Frame2                  Tunjangan & Transport                    

Frame3                                 Frame3                  Status Pernikahan                              

Frame4                                 Frame4                  Gaji                       

ComboBox1                        cmbgol                                  

Option1                               opt1                       Menikah                               

Option2                               opt2                       Belum Menikah                  

Option3                               opt3                       Janda/Duda                         

CommandButton1             cmdhitung            &HITUNG LAGI                

CommandButton2             cmdkeluar             &KELUAR          

               

Kalau sudah selesai, baru saya buat listingnya.

Listing

Sub aktif()

txtnip.Enabled = True

txtnama.Enabled = True

cmbgol.Enabled = True

opt1.Enabled = True

opt2.Enabled = True

opt3.Enabled = True

End Sub

Sub nonaktif()

txtnip.Enabled = False

txtnama.Enabled = False

cmbgol.Enabled = False

txtjab.Enabled = False

txtgapok.Enabled = False

opt1.Enabled = False

opt2.Enabled = False

opt3.Enabled = False

txttgl.Enabled = False

txttunjab.Enabled = False

txttransport.Enabled = False

txttunstas.Enabled = False

txtgakot.Enabled = False

txtpph.Enabled = False

txtgaber.Enabled = False

End Sub

Sub bersih()

txtnip.Text = ""

txtnama.Text = ""

cmbgol.Text = ""

txtjab.Text = ""

txtgapok.Text = ""

opt1.Value = 0

opt2.Value = 0

opt3.Value = 0

txttunjab.Text = ""

txttransport.Text = ""

txttunstas.Text = ""

txtgakot.Text = ""

txtpph.Text = ""

txtgaber = ""

End Sub

Private Sub Form_Activate()

bersih

aktif

txttgl.Text = Date

cmbgol.Text = "-PILIH-"

cmbgol.AddItem "I"

cmbgol.AddItem "II"

cmbgol.AddItem "III"

cmbgol.AddItem "IV"

cmbgol.AddItem "V"

cmdhitung.Enabled = True

cmdkeluar.Enabled = True

End Sub

Private Sub cmbgol_Click()

If cmbgol.Text = "I" Then

txtjab.Text = "Pantry"

txtgapok.Text = 1000000

txttunjab.Text = 200000

txttransport.Text = 0

ElseIf cmbgol.Text = "II" Then

txtjab.Text = "Staff"

txtgapok.Text = 1750000

txttunjab.Text = 300000

txttransport.Text = 200000

ElseIf cmbgol.Text = "III" Then

txtjab.Text = "Supervisor"

txtgapok.Text = 2250000

txttunjab.Text = 500000

txttransport.Text = 300000

ElseIf cmbgol.Text = "IV" Then

txtjab.Text = "Manager"

txtgapok.Text = 5000000

txttunjab.Text = 700000

txttransport.Text = 500000

Else

txtjab.Text = "Direktur"

txtgapok.Text = 10000000

txttunjab.Text = 1000000

txttransport.Text = 1000000

End If

End Sub

Private Sub cmdhitung_Click()

bersih

aktif

txtnip.SetFocus

cmdhitung.Enabled = True

cmdkeluar.Enabled = True

End Sub

Private Sub cmdkeluar_Click()

X = MsgBox("Anda Ingin Keluar?", vbQuestion + vbYesNo, "Konfirmasi")

If X = vbYes Then

Unload Me

End If

End Sub

Private Sub opt1_Click()

If opt1.Value = True Then

txttunstas.Text = 300000

txtgakot.Text = Val(txtgapok.Text) + Val(txttunjab.Text) + Val(txttransport.Text) + Val(txttunstas.Text)

txtpph.Text = 0.1 * Val(txtgakot.Text)

txtgaber.Text = Val(txtgakot.Text) - Val(txtpph.Text)

End If

End Sub

Private Sub opt2_Click()

If opt2.Value = True Then

txttunstas.Text = 0

txtgakot.Text = Val(txtgapok.Text) + Val(txttunjab.Text) + Val(txttransport.Text) + Val(txttunstas.Text)

txtpph.Text = 0.1 * Val(txtgakot.Text)

txtgaber.Text = Val(txtgakot.Text) - Val(txtpph.Text)

End If

End Sub

Private Sub opt3_Click()

If opt3.Value = True Then

txttunstas.Text = 100000

txtgakot.Text = Val(txtgapok.Text) + Val(txttunjab.Text) + Val(txttransport.Text) + Val(txttunstas.Text)

txtpph.Text = 0.1 * Val(txtgakot.Text)

txtgaber.Text = Val(txtgakot.Text) - Val(txtpph.Text)

End If

End Sub

Private Sub txtnip_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Alhamdulilah setelah 3 jam berjuang (modul2 contekan ilang terbawa arus banjir  L ) bolak balik cari info di Om Google  Program pun running.

Dan ini penampakannya. Cekidot!!!

Walaupun banyak kekurangan, tapi setidaknya saya sudah mencoba.

Kalo ada yang mau Tanya-tanya atau curhat add ym aq aja di anita_bi88

(Tidak terima pertanyaan yang aneh2 y)

Terima Kasih