Script atau Coding Membuat Form Perhitungan Nilai Mahasiswa Pada VB 6

HELLO FLEN - Pada pemograman ini saya akan membuat suatu form di aplikasi Microsoft Visual Basic 6.0 dalam metode percabangan. Artikel pemrograman kali ini yakni Script atau Coding Membuat Form Perhitungan Nilai Mahasiswa Pada VB 6. Seperti biasa sebelum membuat form perhitungan nilai mahasiswa, saya akan menjelaskan terlebih dahulu mengenai apa itu percabangan? Percabangan adalah pemilihan statemen pada kondisi dua pilihan atau banyak pilihan, yang akan dieksekusi selanjutnya di mana pemilihan tersebut didasarkan atas kondisi tertentu. Lebih jelasnya, Percabangan merupakan metode yang ada pada semua bahasa pemrograman yang mengijinkan user untuk memilih dan mengeksekusi blok kode dan mengabaikan blok kode yang lain.

Ada dua macam percabangan yakni "If" dan "Select Case", namun pada form perhitungan nilai mahasiswa ini menggunakan "If". percabangan If terdapat 3 bagian yakni "If...Then, If...Then...Else, dan Nested If".

If...Then

Perintah  ini memiliki pengertian “Jika kondisi benar, maka perintah akan diproses. Jika tidak maka akan diabaikan (program berhenti diproses)”. If ini disebut juga IF Tunggal dan penulisan syntaknya dalam VB seperti berikut:

If kondisi Then
     Pernyataan
End If

If...Then...Else

Perintah ini memiliki pengertian “Jika kondisi benar, maka perintah akan diproses. Jika tidak maka akan memproses perintah yang lain”.

If kondisi Then
     Pernyataan
Else
     Pernyataan
End If

Nested If

Ini digunakan untuk suatu kondisi yang bercabang.

If kondisi Then
     If kondisi Then
         Pernyataan
Else
         Pernyataan
     End If
         Pernyataan
End If

Kita langsung saja pada pembuatan program perhitungan nilai mahasiswa, berikut langkah - langkahnya:

Pertama

Buka aplikasi VB 6 anda lalu, klik File > New Project > Standard EXE

Kedua

Buat tampilannya seperti ini :

www.helloflen.com

Properties pada label, textbox, commandbutton:

Name
Label, Command = Caption | Textbox = Text
CommandButton Command1 Hitung
CommandButton Command2 Bersih
CommandButton Command3 Keluar
Label Label12 PERHITUNGAN NILAI MAHASISWA
Label Label1 Absen
Label Label2 Tugas
Label Label3 UTS
Label Label4 UAS
Label Label5 x 20% =
Label Label6 x 25% =
Label Label7 x 25% =
Label Label8 x 30% =
Label Label9 Total Nilai
Label Label10 Grade
Label Label11 Keterangan
TextBox Text1 Kosongkan (samping absen)
TextBox Text2 Kosongkan (tugas)
TextBox Text3 Kosongkan (UTS)
TextBox Text4 Kosongkan (UAS)
TextBox Text5 Kosongkan (x 20% = )
TextBox Text6 Kosongkan (x 25% = )
TextBox Text7 Kosongkan (x 25% = )
TextBox Text8 Kosongkan (x 30% = )
TextBox Text9 Kosongkan (total nilai)
TextBox Text10 Kosongkan (grade)
TextBox Text11 Kosongkan (keterangan)

Catatan: usahakan "Name" samakan, karena berpengaruh dengan coding dibawah ini:


Dim a, b, c, d, total, grade, keterangan As Double

Private Sub Command1_Click()

a = Val(Text1) * 0.2
Text5.Text = a
b = Val(Text2) * 0.25
Text6.Text = b
c = Val(Text3) * 0.25
Text7.Text = c
d = Val(Text4) * 0.3
Text8.Text = d

total = a + b + c + d
Text9.Text = total

If Val(total) >= 80 Then
    Text10.Text = "A"
    Text11.Text = "Lulus dengan sempurna"
ElseIf Val(total) >= 70 Then
    Text10.Text = "B"
    Text11.Text = "Lulus dengan baik"
ElseIf Val(total) >= 60 Then
     Text10.Text = "C"
    Text11.Text = "Lulus dengan cukup baik"
ElseIf Val(total) >= 50 Then
    Text10.Text = "D"
    Text11.Text = "Lulus dengan cukup"
Else
    Text10.Text = "E"
    Text11.Text = "Tidak lulus"
End If

End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""

End Sub

Private Sub Command3_Click()

keluar = MsgBox(" Yakin Keluar ? ", vbQuestion + vbYesNo, " Informasi ")
If keluar = vbYes Then
End
End If

End Sub


Ketiga

Untuk menjalankan programnya, klik Run > Start atau anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:

www.helloflen.com

Ketika pada saat di Run dan muncul tampilannya isikan Absen, Tugas, UTS, dan UAS lalu klik button/ tombol Hitung.

Sekian pembahasan program mengenai tentang Script atau Coding Membuat Form Perhitungan Nilai Mahasiswa Pada VB 6. Semoga dapat bermanfaat dan juga bisa membantu untuk anda yang sedang belajar tentang pendasaran pemrograman VB 6.

Memberikan informasi yang terbaik, akurat dan bermanfaat untuk kita semua, salam blogger.

Tambahkan Komentar Anda
EmoticonEmoticon