• Skip to primary navigation
  • Skip to main content
  • Skip to primary sidebar

Jaranguda

Belajar Mengajar

  • Home
  • Sponsor/Jasa
  • Tentang

Program Menghitung Nilai Mahasiswa dengan Gambas

Last Updated on 30 January 2013 By tommy Leave a Comment

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
design program menghitung nilai mahasiswa

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
menghitung nilai mahasiswa

menghitung nilai mahasiswa

menghitung nilai mahasiswa lulus

menghitung nilai mahasiswa tidak lulus

Download

Download “Menghitung nilai mahasiswa”

nilaimahasiswa-0.0.1.tar.gz – Downloaded 1269 times – 178.00 B

Tulisan menarik lainnya

  • Menghitung Umur dengan Gambas

    Buat design program seperti gambar dibawah ini Komponen yang digunakan 2 buath TextBox 1 Buah…

  • Menghitung Total Gaji dengan Gambas

    Buat project baru (CTRL + N), namakan gajikaryawan, lalu design formnya seperti gambar dibawah ini…

  • Aplikasi Menghitung Tiket Kereta Api dengan Gambas

    Aplikasi yang kita buat ini, masih sangat sederhana, tujuannya adalah untuk mempelajari cara untuk mempelajari…

  • Membuat Program Launcher dengan Gambas

    Komponen yang akan digunakan untuk membuat program launcher di Gambas adalah button. Buat project baru…

Filed Under: Gambas Tagged With: nilai mahasiswa, script, source code

Reader Interactions

Leave a Reply Cancel reply

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

Primary Sidebar

Pencarian

Tanya Jawab tentang DevOps SRE CPE, gabung di https://t.me/devopsindonesia

Terbaru

  • Solusi helm Upgrade Failed
  • macOS package is untrusted
  • Cara Mengganti Port Screen Sharing macOS
  • Cara Menonaktifkan Pager di macOS
  • Cara Mengupdate Nama Apple silicon-as-a-Service Scaleway

Komentar

  • Beritalogi on Cara Redirect Domain di Cloudflare
  • Putu on Cara Setting TP-LINK EN020-F5 Sebagai Range Extender
  • Budi on Solusi Simple Queue Mikrotik Tidak Berjalan
  • mazda on Tutorial Lengkap Install Mail Server Postfix Dovecot MariaDB di CentOS 7
  • adi on Menggunakan Mikrotik Sebagai SSH Client

Tulisan Populer

  • Password Router Huawei HG8245H5 Indihome 1.2m views
  • Password Terbaru ZTE F609 Indihome 785k views
  • Password Superadmin Huawei HG8245A 322.8k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 273.9k views
  • Cara Setting Wireless ZTE F609 Indihome 258.3k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 170.7k views
  • Akses UseeTV Indihome via Wireless ZTE F609 157.1k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 156.2k views
  • Cara Reset Password ZTE F609 Indihome 147.9k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 114.3k views

Kategori

  • Delphi
  • dll
  • Gambas
  • Internet
  • Java
  • Lazarus
  • Linux
  • PHP
  • Review
  • Teknologi

Sponsor

kadal.id
carakami.com
kuotabisa.com
Untuk jadi sponsor, hubungi kita lewat halaman sponsor
© 2021. Jaranguda
  • Linux
  • PHP
  • Internet
  • Teknologi
  • Delphi
  • Gambas
  • Java