Modul Visual Basic lanjutan 1
Test pilihan : fungsi bantu yang mengeksekusi sekumpulan perintah berdasarkan
kondisi.
Test pilihan terdiri atas:
-
IIF
-
IF
…THEN…ELSE…ENDIF
-
SELECT
CASE…END SELECT
1.
IIF :
pemakaiannya dilakukan pada ekspresi
Syntax : IIF ( Test
expr, true part, false part)
2.
IF …t=THEN
…ELSE…ENDIF
Terbagi atas 3 bagian :
1.
Pilihan
Tambahan
Syntax IF <
condition> then
[statement]
END IF
2.
Pilihan
diantara dua
Syntax IF <
condition> then
[statement]
ELSE
[statement]
END IF
3.
Pilihan
diantara banyak
Syntax IF <
condition> then
[statement]
ELSEIF < condition2> then
[statement]
.
.
.
ELSE
[ELSE statement]
END IF
3.
SELECT
CASE …AND SELECT
Syntax:
Select case <test
expr>
Case <expr1>
[statement1]
Case <expr2>
[statement2]
Case else
[else statement]
End select
Tugas
1.
Buatlah
sebuah program untuk menghitung total gaji dari seorang karyawan, dengan
ketentuan :
-
Input
adalah gaji pokok, jam lembur karyawan, dan gaji lembur perjam
-
Jika jam
lembur di atas 20 jam, bonus yang diperoleh 10% dari gaji pokok.
-
Total gaji
= gaji pokok + bonus + ( jam lembur * gaji lembur)
-
Lengkapi
form dengan tombol hapus, hitung, dan keluar!
-
Simpan
dengan nama latihan 3-1.frm!
2.
Sebuah
Perusahaan akan memberikan bonus akhir tahun kepada setiap pegawai, dengan
ketentuan :
Lamanya kerja
|
Golongan A
|
Golongan B
|
5 tahun ke bawah
|
5% dari gaji pokok
|
10% dari gaji pokok
|
6 tahun s/d 10 tahun
|
10% dari gaji pokok
|
15% dari gaji pokok
|
11 tahun s/d 15 tahun
|
15% dari gaji pokok
|
20% dari gaji pokok
|
16 tahun s/d 20 tahun
|
20% dari gaji pokok
|
25% dari gaji pokok
|
21 tahun s/d 25 tahun
|
25% dari gaji pokok
|
30% dari gaji pokok
|
26 tahun ke atas
|
30% dari gaji pokok
|
35% dari gaji pokok
|
Bentuklah sebuah program dengan input gaji pokok, golongan , dan
lama kerja sehingga dapat dihitung bonus dan Total Gaji yang diterima oleh
pegawai perusahaan tersebut . lengkapi form dengan tombol calculate, Clear, dan
Exit ! simpan dengan nama Latihan 3-2.frm.
Catatan: Total gaji = gaji pokok +Bonus`
Private Sub
cmdCalculate_Click()
Dim gp, g, lk, b As Single
gp = txtGajiPokok.Text
g = txtgol.Text
lk = txtlama.Text
If g = "A" Or g = "a"
Then
Select Case lk
Case Is <= 5
b = 0.05 * gp
Case Is <= 10
b = 0.1 * gp
Case Is <= 15
b = 0.15 * gp
Case Is <= 20
b = 0.2 * gp
Case Is <= 25
b = 0.25 * gp
Case Else
b = 0.3 * gp
End Select
ElseIf g = "B" Or g =
"b" Then
Select Case lk
Case Is <= 5
b = 0.1 * gp
Case Is <= 10
b = 0.15 * gp
Case Is <= 15
b = 0.2 * gp
Case Is <= 20
b = 0.25 * gp
Case Is <= 25
b = 0.3 * gp
Case Else
b = 0.35 * gp
End Select
End If
txtBonus.Text = b
txtTotal.Text = gp + b
End Sub
Private Sub
cmdClear_Click()
txtGajiPokok.Text = ""
txtgol.Text = ""
txtlama.Text = ""
txtBonus.Text = ""
txtTotal.Text = ""
txtGajiPokok.SetFocus
End Sub
Private Sub
cmdKeluar_Click()
End
End Sub
0 komentar:
Post a Comment