Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Program Menghitung Nilai Akhir dengan metode IIF di VB

· · 0 comments
Assalamu’alaikum wr.wb

Program Hitung Nilai Mahasiswa Mengggunakan metode IFF di VB – Selamat datang kembali rekan-rekan. Ditulisan ini tentang bagaimana mempersingkat penulisan If Then Else pada bahasa Pemograman Visual Basic (VB) dengan menggunakan metode IFF. Sehingga penulisan kontrol program tidak banyak menghabiskan baris. Hanya menggunakan satu baris saja kita sudah bisa membuat beberapa ekspresi program sesuai dengan kriteria yang telah kita tentukan. Program yang kita gunakan sama dengan pembahasan sebelumnya :

Baca disini --> Hitung Nilai Mahasiswa menggunakan select case

Jadi sebenarnya ini hanyalah variasi penulisan saja, namun hasilnya tetap sama. Jika rekan-rekan lebih memahami penulisan if then else secara vertikal maka pilihlah cara itu, atau lebih menyenangi penggunaan kontrol program select case. Atau seperti yang akan kita bahas disini rekan-rekan menyukai penulisan gaya formula IF seperti di microsoft Excel juga dipersilahkan. Saya kira setiap orang mempunyai seni dan gaya tersendiri. Namun jika rekan-rekan masih berstatus mahasiswa jurusan komputer maka kita harus memahami semua metode tersebut, karena dosen rekan-rekan pasti akan menguji dengan berbagai metode kontrol program pada visual basic jika ingin nilai B minimal C atau sesekali dapat A hehe.

Sebelumnya kita menggunakan metode select case untuk menentukan nilai huruf Mahasiswa silahkan lihat lebih detail pada link posting diatas

Select Case Val(Text5.Text)
Case Is >= 85
     hasil = "A"
Case Is >= 75
     hasil = "B"
Case Is >= 65
     hasil = "C"
Case Is >= 55
     hasil = "D"
Case Else
    hasil = "E"
End Select

Maka kita rubah menggunakan metode penulisan IFF secara horizontal. Maka script diatas akan menjadi :

hasil = IIf(nilai >= 85, "A", IIf(nilai >= 75, "B", IIf(nilai >= 65, "C", IIf(nilai >= 55, "D", "E"))))

Nah.. lebih singkat padat bukan ?
Mantera lengkapnya sebagai berikut :

Private Sub Command1_Click()
Dim nilai As Integer
Dim hasil As String

nilai = Val(Text1.Text * 0.2) + Val(Text2.Text * 0.1) + Val(Text3.Text * 0.35) + Val(Text4.Text * 0.35)

Text5.Text = nilai
hasil = IIf(nilai >= 85, "A", IIf(nilai >= 75, "B", IIf(nilai >= 65, "C", IIf(nilai >= 55, "D", "E"))))

Text6.Text = hasil
End Sub

Private Sub Command2_Click()
      Unload Me
End Sub



Kalau programnya dijalankan hasilnya akan sama seperti menggunakan select case seperti yang dibahas sebelumnya DISINI.

contoh program cara mempersingkat penulisan if then else



Demikian pembahasan tata cara penulisan kontrol program If then else secara horizontal atau menggunakan satu baris saja. Moga bermanfaat. Begitulah.


0 comments:

Post a Comment

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan