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".
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 :
Properties pada label, textbox, commandbutton:
Ketiga
Untuk menjalankan programnya, klik Run > Start atau Anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:
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.
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 :
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:
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.