Breaking News
Home / Source / Menggunakan If…Then…Else Statements source code untuk module server pulsa
@sourceCode

Menggunakan If…Then…Else Statements source code untuk module server pulsa

Anda dapat menggunakan If … Then … Else untuk menjalankan pernyataan tertentu atau suatu blok statemen, tergantung pada nilai kondisi. Jika … Lalu … laporan Lain dapat diulang sebagai banyak tingkatan yang Anda butuhkan. Namun, untuk dibaca, Anda mungkin ingin menggunakan pernyataan Pilih Kasus daripada beberapa tingkat bersarang if … then … else statements..

Menjalankan Laporan jika kondisi benar
Untuk menjalankan hanya satu pernyataan ketika kondisi True, gunakan sintaks single-line dari If … Then … Else. Contoh berikut menunjukkan sintaks single-line, menghilangkan kata kunci Lain:

Sub FixDate()
myDate = #2/13/95#
If myDate < Now Then myDate = Now
End Sub

Untuk menjalankan lebih dari satu baris kode, Anda harus menggunakan sintaks beberapa baris. sintaks ini termasuk End Jika pernyataan, seperti yang ditunjukkan dalam contoh berikut:

Sub AlertUser(value as Long)
If value = 0 Then
AlertLabel.ForeColor = “Red”
AlertLabel.Font.Bold = True
AlertLabel.Font.Italic = True
End If
End Sub

Menjalankan Laporan tertentu jika kondisi benar dan menjalankan Lainnya jika Ini False
Gunakan If … Then … Else untuk mendefinisikan dua blok dari pernyataan dieksekusi: satu blok berjalan jika kondisi benar, blok berjalan lain jika kondisi False.

Sub AlertUser(value as Long)
If value = 0 Then
AlertLabel.ForeColor = vbRed
AlertLabel.Font.Bold = True
AlertLabel.Font.Italic = True
Else
AlertLabel.Forecolor = vbBlack
AlertLabel.Font.Bold = False
AlertLabel.Font.Italic = False
End If
End Sub

Pengujian Kondisi Kedua jika Kondisi pertama adalah False
Anda dapat menambahkan pernyataan ElseIf ke Jika … Lalu … Else untuk menguji kondisi kedua jika kondisi pertama adalah False. Misalnya, prosedur fungsi berikut menghitung bonus berdasarkan klasifikasi pekerjaan. Pernyataan berikut pernyataan Lain berjalan jika kondisi di semua pernyataan Jika dan ElseIf yang palsu.

Function Bonus(performance, salary)
If performance = 1 Then
Bonus = salary * 0.1
ElseIf performance = 2 Then
Bonus = salary * 0.09
ElseIf performance = 3 Then
Bonus = salary * 0.07
Else
Bonus = 0
End If
End Function

About noppi

matrixpulsa Developer & CEO

Leave a Reply

Your email address will not be published. Required fields are marked *