Program Menghitung Nilai Mahasiswa dengan Gambas

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