• 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 985 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

  • Cara Menonaktifkan Pager di macOS
  • Cara Mengupdate Nama Apple silicon-as-a-Service Scaleway
  • Cara Force Delete Namespace di Kubernetes
  • Install PHP MariaDB di Mac Monterey
  • MacOS Minta Install Git

Komentar

  • Ari on Cara Mematikan SSID Molecool Balifiber
  • kiki anarki on Mengambil Data dari Situs BPJS Ketenagakerjaan dengan PHP cURL
  • musgan on Password Router Huawei HG8245H5 Indihome
  • ghabily on Mengambil Informasi Router Alcatel Lucent G-241W-A dengan PHP
  • nea on Mencari urutan angka yang hilang di PHP

Tulisan Populer

  • Password Router Huawei HG8245H5 Indihome 1.1m views
  • Password Terbaru ZTE F609 Indihome 784k views
  • Password Superadmin Huawei HG8245A 314k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 272.2k views
  • Cara Setting Wireless ZTE F609 Indihome 256k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 169k views
  • Akses UseeTV Indihome via Wireless ZTE F609 156.5k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 150.1k views
  • Cara Reset Password ZTE F609 Indihome 147.2k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 112.8k 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