Fungsi IF merupakan perintah dari percabangan menurut kriteria suatu variabel atau nilai di dalam pemrograman Visual Basic, menurut penggunaanya fungsi IF mempunyai beberapa format diantaranya :
1. Jika kriteria terpenuhi maka dilakukan proses / tindakan yang hanya satu baris perintah saja
If (Kriteria) Then (Tindakan Jika Kriteria Terpenuhi)
Kriteria :
Jika pembelian melebihi 200.000 maka pembeli di beri gelas
maka scriptnya :
If beli > 200000 then hadiah = Gelas
2. Jika kriteria terpenuhi maka akan dilakukan lebih dari satu tindakan
If (Kriteria) Then
(Tindakan 1)
(Tindakan 2)
End If
Kriteria :
Jika Pembelian melebihi 250.000 maka pembeli di berikan diskon 10% dan diberi Gelas
maka scriptnya :
If beli > 250000 then
bayar = 250000 - (250000*10%) 'Tindakan Pertama
hadiah = gelas 'Tindakan kedua
End If
3. Jika kriteria terpenuhi maka dilakukan tindakan A, dan bila tidak terpenuhi maka dilakukan tindakan B, (2 kemungkinan) tapi hanya satu perintah saja.
If (kriteria) Then (Tindakan A) Else <Tindakan B)
Kriteria :
Jika Nilai Siswa Lebih dari 6 maka status siswa tersebut Lulus, bila tidak maka Tidak Lulus
If Nilai > 6 then status = Lulus else status = Tidak Lulus
4. Jika kriteria terpenuhi maka dilakukan tindakan A, dan bila tidak terpenuhi maka dilakukan tindakan B, (2 kemungkinan) dan jumlah tindakan lebih dari satu
If (kriteria) Then
(Tindakan 1)
(Tindakan 2)
Else
(Tindakan 3)
(Tindakan 4)
End If
Kriteria :
Jika Nilai Siswa Lebih dari 6 maka status siswa tersebut Lulus dan nilai abjad ialah B, bila tidak maka Tidak Lulus dan Nilai abjad ialah E
If nilai > 6 Then
status = Lulus
nilaihuruf = B
Else
status = Tidak Lulus
nilaihuruf = E
End If
5. IF Bercabang dengan satu tindakan
If (kriteria 1) then
(Tindakan 1)
Else
If (kriteria 2)
(Tindakan 2)
Else
If (kriteria 3)
(Tindakan 3)
Else
If (kriteria n)
(Tindakan n)
End If
End If
End If
End If
Kriteria :
Jika nilai kurang dari 30 maka nilai abjad = C,
bila nilai kurang dari 60 maka nilai abjad = B
bila nilai kurang dari 90 maka nilai abjad = A
bila nilai kurang dari 100 maka nilai abjad = A+
if nilai < 31 then
nilaihuruf = C
else
if nilai < 61 then
nilaihuruf = B
else
if nilai < 91 then
nilaihuruf = A
else
if nilai < 101 then
nilaihuruf = A+
End If
End If
End If
Ed If
6. IF Bercabang dengan lebih dari 1 tindakan
If (kriteria 1) then
(Tindakan 1)
(Tindakan 2)
Else
If (kriteria 2)
(Tindakan 3)
(Tindakan 4)
Else
If (kriteria n)
(Tindakan n)
End If
End If
End If
Kriteria :
Sebuah Perusahaan akan memperlihatkan bonus kepada karyawan yang jam kerjanya melebihi 40 jam (Lembur), setiap kelebihanya di kalikan 25.000, dan bagi karyawan yang selalu tiba sempurna waktu akan di berikan 15% dari honor pokok.
if jamkerja > 40 then
kelebihanjam = totaljam - 40
bonusjam = kelebihanjam * 25000
else
if telat = 0 then
bonustepat = gajipokok * 15%
totalgaji = gajipopk + bonustepat + bonusjam
End If
End If
Saya rasa cukup hingga disini pembahasaanya mengenai fungsi if di visual basic, untuk pola programnya akan saya jelaskan di tutorial berikutnya, jadi kunjungi terus routerosmikrotik
Sekian dan terimakasih
1. Jika kriteria terpenuhi maka dilakukan proses / tindakan yang hanya satu baris perintah saja
If (Kriteria) Then (Tindakan Jika Kriteria Terpenuhi)
Kriteria :
Jika pembelian melebihi 200.000 maka pembeli di beri gelas
maka scriptnya :
If beli > 200000 then hadiah = Gelas
2. Jika kriteria terpenuhi maka akan dilakukan lebih dari satu tindakan
If (Kriteria) Then
(Tindakan 1)
(Tindakan 2)
End If
Kriteria :
Jika Pembelian melebihi 250.000 maka pembeli di berikan diskon 10% dan diberi Gelas
maka scriptnya :
If beli > 250000 then
bayar = 250000 - (250000*10%) 'Tindakan Pertama
hadiah = gelas 'Tindakan kedua
End If
3. Jika kriteria terpenuhi maka dilakukan tindakan A, dan bila tidak terpenuhi maka dilakukan tindakan B, (2 kemungkinan) tapi hanya satu perintah saja.
If (kriteria) Then (Tindakan A) Else <Tindakan B)
Kriteria :
Jika Nilai Siswa Lebih dari 6 maka status siswa tersebut Lulus, bila tidak maka Tidak Lulus
If Nilai > 6 then status = Lulus else status = Tidak Lulus
4. Jika kriteria terpenuhi maka dilakukan tindakan A, dan bila tidak terpenuhi maka dilakukan tindakan B, (2 kemungkinan) dan jumlah tindakan lebih dari satu
If (kriteria) Then
(Tindakan 1)
(Tindakan 2)
Else
(Tindakan 3)
(Tindakan 4)
End If
Kriteria :
Jika Nilai Siswa Lebih dari 6 maka status siswa tersebut Lulus dan nilai abjad ialah B, bila tidak maka Tidak Lulus dan Nilai abjad ialah E
If nilai > 6 Then
status = Lulus
nilaihuruf = B
Else
status = Tidak Lulus
nilaihuruf = E
End If
If (kriteria 1) then
(Tindakan 1)
Else
If (kriteria 2)
(Tindakan 2)
Else
If (kriteria 3)
(Tindakan 3)
Else
If (kriteria n)
(Tindakan n)
End If
End If
End If
End If
Kriteria :
Jika nilai kurang dari 30 maka nilai abjad = C,
bila nilai kurang dari 60 maka nilai abjad = B
bila nilai kurang dari 90 maka nilai abjad = A
bila nilai kurang dari 100 maka nilai abjad = A+
if nilai < 31 then
nilaihuruf = C
else
if nilai < 61 then
nilaihuruf = B
else
if nilai < 91 then
nilaihuruf = A
else
if nilai < 101 then
nilaihuruf = A+
End If
End If
End If
Ed If
6. IF Bercabang dengan lebih dari 1 tindakan
If (kriteria 1) then
(Tindakan 1)
(Tindakan 2)
Else
If (kriteria 2)
(Tindakan 3)
(Tindakan 4)
Else
If (kriteria n)
(Tindakan n)
End If
End If
End If
Kriteria :
Sebuah Perusahaan akan memperlihatkan bonus kepada karyawan yang jam kerjanya melebihi 40 jam (Lembur), setiap kelebihanya di kalikan 25.000, dan bagi karyawan yang selalu tiba sempurna waktu akan di berikan 15% dari honor pokok.
if jamkerja > 40 then
kelebihanjam = totaljam - 40
bonusjam = kelebihanjam * 25000
else
if telat = 0 then
bonustepat = gajipokok * 15%
totalgaji = gajipopk + bonustepat + bonusjam
End If
End If
Catatan :
Dalam Penggunaan fungsi if pastikan diakhiri script "End If" sebanayak fungsi if yang di gunakan
Saya rasa cukup hingga disini pembahasaanya mengenai fungsi if di visual basic, untuk pola programnya akan saya jelaskan di tutorial berikutnya, jadi kunjungi terus routerosmikrotik
Sekian dan terimakasih
Comments
Posting Komentar