Kali ini kita akan mencoba membuat program untuk menghitung nilai mahasiswa dengan aturan sebagai berikut
Nilai Total = Nilai Tugas + Nilai UTS + Nilai UAS
Nilai Akhir = Nilai Total dibagi 3 (Nilai Total/3)
Buat design form seperti gambar dibawah ini
Klik dua kali pada tombol Hitung lalu tambahkan script dibawah ini
Dim UT As Integer Dim UTS As Integer Dim UAS As Integer Dim nilaitotal As Integer Dim nilaiakhir As Integer ' menghitung nilai total dengan rumus Nilai Tugas + Nilai UTS + Nilai UAS UT = TextBox2.Text UTS = TextBox3.Text UAS = TextBox4.Text nilaitotal = UT + UTS + UAS TextBox5.Text = nilaitotal ' Menghitung nilai akhir dengan rumus nilaitotal/3 nilaiakhir = nilaitotal / 3 TextBox6.Text = nilaiakhir ' Menerjemahkan hasil akhir kedalam huruf dengan aturan ' If nilaiakhir >= 80 Then TextBox7.Text = "A" Label8.Caption = "Lulus" Else If nilaiakhir >= 70 Then TextBox7.Text = "B" Label8.Caption = "Lulus" Else If nilaiakhir >= 50 Then TextBox7.Text = "C" Label8.Caption = "Lulus" Else If nilaiakhir >= 35 Then TextBox7.Text = "D" Label8.Caption = "Lulus" Else TextBox7.Text = "E" Label8.Caption = "Tidak Lulus" Endif
kembali ke design form, klik dua kali di tempat kosong lalu tambahkan script dibawah ini
TextBox1.Clear TextBox2.Clear TextBox3.Clear TextBox4.Clear TextBox5.Clear TextBox6.Clear TextBox7.Clear Label8.Caption = ""
Klik dua kali pada tombol Batal dan tambahkan script dibawah ini
' Gambas class file Public Sub _new() End Public Sub Form_Open() TextBox1.Clear TextBox2.Clear TextBox3.Clear TextBox4.Clear TextBox5.Clear TextBox6.Clear TextBox7.Clear Label8.Caption = "" End Public Sub Button1_Click() Dim UT As Integer Dim UTS As Integer Dim UAS As Integer Dim nilaitotal As Integer Dim nilaiakhir As Integer ' menghitung nilai total dengan rumus Nilai Tugas + Nilai UTS + Nilai UAS UT = TextBox2.Text UTS = TextBox3.Text UAS = TextBox4.Text nilaitotal = UT + UTS + UAS TextBox5.Text = nilaitotal ' Menghitung nilai akhir dengan rumus nilaitotal/3 nilaiakhir = nilaitotal / 3 TextBox6.Text = nilaiakhir ' Menerjemahkan hasil akhir kedalam huruf dengan aturan ' If nilaiakhir >= 80 Then TextBox7.Text = "A" Label8.Caption = "Lulus" Else If nilaiakhir >= 70 Then TextBox7.Text = "B" Label8.Caption = "Lulus" Else If nilaiakhir >= 50 Then TextBox7.Text = "C" Label8.Caption = "Lulus" Else If nilaiakhir >= 35 Then TextBox7.Text = "D" Label8.Caption = "Lulus" Else TextBox7.Text = "E" Label8.Caption = "Tidak Lulus" Endif End Public Sub Button2_Click() TextBox1.Clear TextBox2.Clear TextBox3.Clear TextBox4.Clear TextBox5.Clear TextBox6.Clear TextBox7.Clear Label8.Caption = "" End
Jalankan program diatas dengan menekan tombol F5 di keyboard, tampilannya akan seperti gambar dibawah ini
Download Download “Menghitung nilai mahasiswa”