Membuat Aplikasi Perhitungan Nilai Menggunakan VB 6.0

Membuat Aplikasi Perhitungan Nilai Menggunakan VB 6.0

      Sudah lama gak posting sob....posting lagi aaahhhh ! hehehe… kali ini saya mau share mengenai pembuatan program sederhana berbasis GUI dengan menggunakan VB 6.0


Object Oriented Programming

berikut interface hasil desain form nya…

      Nah, setelah tampilan desain nya uda jadi, trus klik dua kali pada kontrol Command Button (CmdProses) untuk menuliskan listing program nya seperti dibawah ini…
=========================================================================================

Private Sub CmdProses_Click()

Dim Rata As Single

Dim Mutu As String

Rata = (Val(TxtUTS.Text) * 0.3) + (Val(TxtUAS.Text) * 0.4) + (Val(TxtTugas.Text) * 0.2) + (Val(TxtAbsen.Text) * 0.1)

If Rata >= 80 Then

Mutu = “A”

ElseIf Rata >= 70 Then

Mutu = “B”

ElseIf Rata >= 60 Then

Mutu = “C”

ElseIf Rata >= 40 Then
Mutu = “D”

Else

Mutu = “E”

End If

ListTampil.AddItem ” NIM = ” + TxtNIM.Text

ListTampil.AddItem ” Nama = ” + TxtNama.Text

If OptLk.Value = True Then

ListTampil.AddItem ” Jenis Kelamin = ” + OptLk.Caption

Else

ListTampil.AddItem ” Jenis Kelamin = ” + OptPr.Caption

End If

ListTampil.AddItem ” “

ListTampil.AddItem ” Jurusan = ” + CmbJurusan.Text

ListTampil.AddItem ” Kelas = ” + TxtKelas.Text

ListTampil.AddItem ” Semester = ” + CmbSemester.Text

ListTampil.AddItem ” “

ListTampil.AddItem ” Mata Kuliah = ” + TxtMatkul.Text

ListTampil.AddItem ” Nilai UTS = ” + TxtUTS.Text

ListTampil.AddItem ” Nilai UAS = ” + TxtUAS.Text

ListTampil.AddItem ” Nilai Tugas = ” + TxtTugas.Text

ListTampil.AddItem ” Nilai Absen = ” + TxtAbsen.Text

ListTampil.AddItem ” “

ListTampil.AddItem ” Total Nilai = ” + Str(Rata)

ListTampil.AddItem ” Mutu = ” + Mutu

ListTampil.AddItem ” “

If Mutu = “A” Then

ListTampil.AddItem ” Sukses ! Terus Semangat Belajar !!”

ElseIf Mutu = “B” Then

ListTampil.AddItem ” Cukup Baik, Rajin & Tekun Belajar !”

ElseIf Mutu = “C” Then

ListTampil.AddItem “Kurang Baik, Disarankan Untuk Mengikuti Her !”

ElseIf Mutu = “D” Then

ListTampil.AddItem “Buruk, Fokus dan Serius Lagi Belajar !”

Else

ListTampil.AddItem “Teramat Buruk, Anda Harus Lebih Serius Belajar !”

End If

MsgBox “Nilai kamu untuk mata kuliah ini adalah ” + Mutu

End Sub

Private Sub CmdReset_Click()

TxtNIM.Text = Empty

TxtNama.Text = Empty

OptLk.Value = False

OptPr.Value = False

CmbJurusan.Text = ” “

TxtKelas.Text = Empty

CmbSemester.Text = ” “

TxtMatkul.Text = Empty

TxtUTS.Text = Empty

TxtUAS.Text = Empty

TxtTugas.Text = Empty

TxtAbsen.Text = Empty

ListTampil.Clear

End Sub

Private Sub CmdKeluar_Click()

x = MsgBox(“Anda Yakin Akan Keluar ??”, vbQuestion + vbOKCancel, “AnnaLee Exit”)

If x = vbOK Then

End

End If

End Sub

=======================================================

Selamat mencoba ya sob… !