• 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 342 times – 178 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 AWS CLI SSL VALIDATION failed
  • Monitoring Kubernetes Cluster dengan Prometheus
  • Solusi Playwright Firefox version `GLIBCXX_3.4.30′ not found (required by /lib64/libicuuc.so.69)
  • Cara Upgrade Fedora 35 ke Fedora 36
  • Ekstrak Gzip File dan Ambil Total dengan Python

Komentar

  • Xpud on Script PHP untuk Mengambil History Lagu Shoutcast v2.5
  • Jrenx on Membuat Bot Telegram Sederhana dengan PHP
  • Sella on Kemana Menghilangnya Saldo BCA 50 ribu
  • Rian on Mengganti Halaman Error Laravel
  • Suchie on Kemana Menghilangnya Saldo BCA 50 ribu

Tulisan Populer

  • Password Router Huawei HG8245H5 Indihome 1m views
  • Password Terbaru ZTE F609 Indihome 781.5k views
  • Password Superadmin Huawei HG8245A 294.2k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 267.8k views
  • Cara Setting Wireless ZTE F609 Indihome 251k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 165.4k views
  • Akses UseeTV Indihome via Wireless ZTE F609 154.7k views
  • Cara Reset Password ZTE F609 Indihome 146k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 135.2k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 108.9k views

Kategori

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

Sponsor

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