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 :
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
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.
Demikian pembahasan tata cara penulisan kontrol program If then else secara horizontal atau menggunakan satu baris saja. Moga bermanfaat. Begitulah.
Baca juga --> Membuat teks berjalan di visual basic
0 comments:
Post a Comment
- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan