Rumus VB-2
- 1. Menghitung gaji bersih pegawai A. Rancangan Input Output Data B. Setting Objek Objek Setting Alphabetic Categorized Label 1 Caption Menghitung Gaji Bersih Pegawai
- 2. Label 2 Caption Nama pegawai Label 3 Caption Status Kepegawaian Label 4 Caption Potongan Label 5 Caption Tunjangan Label 6 Caption Jumlah hari kerja Label 7 Caption Jumlah borongan Text 1 Name na Text - Text 2 Name np Text - Text 3 Name nt Text - Text 4 Name nh Text - Text 5 Name nb Text - ComboBox Name ns Commandbutton 1 Name Proses Caption Proses Commandbutton 2 Name Stop Caption Stop Picture Name Layar C. Penulisan Program Dim Potongan, gapok, gaber, tunjangan, hk, borongan As Double Dim nama As String * 40 Dim status As Integer Const gapok1 = 400000, gapok2 = 200000, gapok3 = 300000 Sub baca() nama = na.Text Potongan = Val(np.Text) tunjangan = Val(nt.Text) hk = Val(nh.Text) borongan = Val(nb.Text) End Sub Sub seleksi() Select Case status Case 1 gapok = gapok1 gaber = gapok + tunjangan - Potongan
- 3. Case 2 gapok = gapok2 gaber = ((gapok * hk) + tunjangan) - Potongan Case 3 gapok = gapok3 gaber = ((gapok * borongan) + tunjangan) - Potongan End Select End Sub Sub tampil() layar.Cls layar.FontSize = 17 layar.ForeColor = vbBlack layar.Print "Hasil perhitungan gaji bersih pegawai adalah:" layar.FontSize = 15 layar.Print "Nama pegawai = "; na layar.Print "Status kepegawaian ="; status layar.Print "Gaji Pokok Rp="; Format(gapok, "000000.00") layar.Print "Tunjangan Rp="; Format(nt, "000000.00") layar.Print "Jumlah hari kerja="; hk layar.Print "Jumlah borongan="; borongan layar.Print "Potongan Rp="; Format(np, "000000.00") layar.Print "Gaji bersih Rp="; Format(gaber, "000000.00") End Sub Private Sub Form_Load() ns.List(0) = "Status pegawai tetap" ns.List(1) = "Status pegawai harian" ns.List(2) = "Status pegawai borongan" ns.ItemData(0) = 1 ns.ItemData(1) = 2 ns.ItemData(2) = 3 End Sub Private Sub ns_click() status = ns.ItemData(ns.ListIndex)
- 4. End Sub Private Sub Proses_click() baca seleksi tampil na.SetFocus End Sub Private Sub Stop_click() End End Sub