Membuat Aplikasi Perhitungan Nilai Sederhana Menggunakan VB 6.0

• 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… !