Program Hitung Sederhana vb 6.0

Assalamualaikum wr.wb.

Berikut saya akan membuat sebuah program perhitungan sederhana dengan visual basic 6.0. Kali ini saya akan membuat operator arimatika karena aplikasi yang akan saya buat adalah melakukan perhitungan.

Langkah pertama kita membuat new project standart exe atau add form.

 

Lalu akan muncul tampilan seperti ini. 

 

Tambahkan komponen- komponen : 9 komponen label, 8 komponen textbox dan 3 commandbutton yang terdapat pada toolbox general, sehingga terdapat tampilan seperti di bawah ini.

Pada komponen label 1 ganti property (caption) dengan NIM, label 2 ganti property (caption) dengan Nama Mahasiswa, label 3 ganti property (caption) dengan Nilai Tugas, label 4 ganti property (caption) dengan Nilai UTS, label 5 ganti property (caption) dengan Nilai UAS, label 6 ganti property (caption) dengan Nilai Angka, label 7  ganti properti (caption) dengan Nilai Huruf, label 8 ganti property (caption) dengan Komentar dan label 9 ganti property (caption) dengan Program Hitung Nilai Mahasiswa.

Lalu pada komponen textbox 1 isikan property (name) dengan txtnim, textbox 2 isikan property (name) dengan txtmhs, textbox 3 isikan property (name) dengan txtnt, textbox 4 isikan property (name) dengan txtuts, textbox 5 isikan property (name) dengan txtuas, textbox 6 isikan property (name) dengan txtangka, textbox 7 isikan property (name) dengan txthrf, textbox 1 isikan property (name) dengan txtcmt.

dan untuk komponen commandbutton 1 ganti property (caption) dengan hitung, commandbutton 2 ganti property (caption) dengan clear dan commandbutton 3 ganti property (caption) dengan exit.

Lalu klik double pada command 1 (hitung), sampai muncul tampilan script event command_click
berikut script dari command 1 (hitung).

Private Sub cmdhitung_Click()
Dim NIM As String
    Dim Nama_Mahasiswa As String
    Dim Nilai_Tugas As Double
    Dim Nilai_UTS As Double
    Dim Nilai_UAS As Double
    Dim Huruf As String
    Dim Angka As Double
    Dim Komentar As String
NIM = txtnim.Text
Nama_Mahasiswa = txtmhs.Text
Nilai_Tugas = Val(txtnt.Text)
Nilai_UTS = Val(txtuts.Text)
Nilai_UAS = Val(txtuas.Text)
Nilai = (0.2 * Nilai_Tugas + 0.3 * Nilai_UTS + 0.5 * Nilai_UAS)
txtangka.Text = Nilai

If Nilai <= 56 Then
        Nilai_Huruf = "E"
        Komentar = "Nilai Angka Anda Sangat Kurang! Maaf, Anda Gagal! :'( "
ElseIf Nilai <= 65 Then
        Nilai_Huruf = "D"
        Komentar = "Nilai Angka Anda Kurang! Maaf, Anda Gagal! :'( "
ElseIf Nilai <= 75 Then
        Nilai_Huruf = "C"
        Komentar = "Nilai Angka Anda Cukup! Tingkatkan Lagi! :|"
ElseIf Nilai <= 85 Then
        Nilai_Huruf = "B"
        Komentar = "Nilai Angka Anda Baik! Anda Lulus, Pertahankan! :) "
ElseIf Nilai > 85 Then
        Nilai_Huruf = "A"
        Komentar = "Nilai Angka Anda Sangat Baik! Anda Lulus, Selamat! :')"
End If
txthrf.Text = Nilai_Huruf
txtcmt.Text = Komentar
End Sub

Lalu klik double pada command 2 (clear), sampai muncul tampilan script event command_click
berikut script dari command  2 (clear).

Private Sub cmdclear_Click()
txtnim.Text = ""
txtmhs.Text = ""
txtnt.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtangka.Text = ""
txthrf.Text = ""
txtcmt.Text = ""
txtmhs.SetFocus
End Sub

Lalu klik double pada command 3 (exit), sampai muncul tampilan script event command_click
berikut script dari command  3 (exit).
Private Sub cmdexit_Click()
End
End Sub

Nah pada langkah ini maka project selesai dibuat dan untuk mencoba project yang telah dibuat maka kita dapat menekan tombol F5 untuk menjalankan program. dan bisa mulai mengisi textbox yang kosong dan melakukan perhitungan dengan menekan tombol hitung, lalu dapat menghapus dengan menggunakan tombol clear dan bisa keluar otomatis dengan perintah tombol exit.
berikut tampilan ketika program dijalankan :

Pada langkah berikutnya teman-teman dapat menyimpan project program yang sudah dibuat dan untuk menyimpanya dapat melalui menu file kemudian save project. silahkan ganti nama project dan simpan dimana teman-teman inginkan.

Sekian sharing dari tongkronganilmu semoga bermanfaat buat teman-teman semua dan jangan lupa untuk mencobanya. wassalamualaikum wr. wb

follow my social media

Instagram

https://www.instagram.com/irawan08__/

Facebook

https://web.facebook.com/taufik.eraone