-->
/ /

Menggunakan ComboBox Di Visual Basic

Written By Thursday 31 December 2015 Edit
Hampir sama dengan Option dan CheckBox, ComboBox juga berfungsi memberikan pilihan. ComboBox hanya mengijinkan user untuk memiliki 1 pilihan. ComboBox memberikan pilihan dalam bentuk list atau daftar, pilihan dilakukan dengan mengklik salah satu daftar tersebut. Baiklah untuk lebih jelasnya, mari kita coba membuat Aplikasi Huruf Mutu Mahasiswa berikut ini

Membuat Aplikasi Huruf Mutu Mahasiswa


1. Buatlah desain aplikasi seperti pada gambar dibawah ini

2. Ganti Properties tools yang telah dibuat menjadi seperti dibawah ini

Tools
Nama
Properties
Label
Label1
Caption : HURUF MUTU MAHASISWA
Label2
Caption : NPM
Label3
Caption : NAMA MAHASISWA
Label4
Caption : JURUSAN
Label5
Caption : NILAI QUIS
Label6
Caption : NILAI TUGAS
Label7
Caption : UTS
Label8
Caption : UAS
Label9
Caption : NILAI AKHIR
Label10
Caption : HURUF MUTU YANG DIDAPATKAN
ComboBox
Combo1
Name : CboNpm
Text : Pilih Npm
TextBox
Text1
Name : TxtNama
Text : -
Text2
Name : TxtJurusan
Text : -
Text3
Name : TxtNilaiQuis
Text : -
Text4
Name : TxtNilaiTugas
Text : -
Text5
Name : TxUts
Text : -
Text6
Name : TxtUas
Text : -
Text7
Name : TxtNilaiAkhir
Text : -
Text8
Name : TxtMutu
Text : -
Command Button
Command1
Name : CmdProses
Caption : Proses
Command2
Name : CmdBatal
Caption : Batal
Command3
Name : CmdExit
Caption : Exit

3. Masukan script dibawah ini pada kotak dialog script

Private Sub CboNpm_Click()
    Dim Nama, Jurusan As String
    Select Case CboNpm.Text
        Case "15100001"
            Nama = "Stevanus Prihanuji"
            Jurusan = "Sistem Informasi"
        Case "15100002"
            Nama = "Fergiawan Listianto"
            Jurusan = "Sistem Informasi"
        Case "15100003"
            Nama = "Renita Fitri Andriyanti"
            Jurusan = "Sistem Informasi"
        Case "15100004"
            Nama = "Evi Setyorini"
            Jurusan = "Sistem Informasi"
        Case "15100005"
            Nama = "Anggi Maharani"
            Jurusan = "Sistem Informasi"
        Case "15100006"
            Nama = "Oktafiani"
            Jurusan = "Sistem Informasi"
        Case "15100007"
            Nama = "Desi Yulianti"
            Jurusan = "Sistem Informasi"
        Case "15100008"
            Nama = "Ahmad Yudi"
            Jurusan = "Sistem Informasi"
        Case "15100009"
            Nama = "Opi Laraswati"
            Jurusan = "Sistem Informasi"
        Case "15100010"
            Nama = "Laili Rizkia Putri"
            Jurusan = "Sistem Informasi"
        Case "15100011"
            Nama = "Tia Anggraeni"
            Jurusan = "Sistem Informasi"
        Case "15100012"
            Nama = "Fisuryani"
            Jurusan = "Sistem Informasi"
        Case "15100014"
            Nama = "Ita Indriyani"
            Jurusan = "Sistem Informasi"
        Case "15100015"
            Nama = "M Arif Rizki"
            Jurusan = "Sistem Informasi"
        Case "15100016"
            Nama = "Mirzon Prananda"
            Jurusan = "Sistem Informasi"
        Case "15100017"
            Nama = "Desi Auliani"
            Jurusan = "Sistem Informasi"
        Case "15100018"
            Nama = "Tri Setia Ningsih"
            Jurusan = "Sistem Informasi"
        Case "15100023"
            Nama = "Anggun Destriyanti"
            Jurusan = "Sistem Informasi"
        Case "15100024"
            Nama = "Rizah Anggraeni"
            Jurusan = "Sistem Informasi"
        Case "15100025"
            Nama = "Rahmat Darmawan"
            Jurusan = "Sistem Informasi"
        Case "15100026"
            Nama = "Reza Anggara"
            Jurusan = "Sistem Informasi"
        Case "15100027"
            Nama = "Rio Adi Pradhana"
            Jurusan = "Sistem Informasi"
        Case "15100030"
            Nama = "Hermin Sukmiati"
            Jurusan = "Sistem Informasi"
        Case "15100031"
            Nama = "Artika Kustriyani"
            Jurusan = "Sistem Informasi"
        Case "15100032"
            Nama = "Intan Ratnasari"
            Jurusan = "Manajemen Informatika"
        Case "15100033"
            Nama = "Dona Ari Wijaya"
            Jurusan = "Sistem Informasi"
        Case "15100034"
            Nama = "Dimas Bima Ananta"
            Jurusan = "Sistem Informasi"
        Case "15100036"
            Nama = ""
            Jurusan = "Sistem Informasi"
        Case "15100037"
            Nama = "Jefri Erlamsyah"
            Jurusan = "Sistem Informasi"
        Case "15100038"
            Nama = "Panji Wahyu Trihantoro"
            Jurusan = "Sistem Informasi"
        Case "15100039"
            Nama = "Yusuf Sugianto"
            Jurusan = "Sistem Informasi"
        Case "15100040"
            Nama = "Bagas Anggara"
            Jurusan = "Sistem Informasi"
        Case "15100041"
            Nama = "Rudi Rizkiyanto"
            Jurusan = "Sistem Informasi"
    End Select
    TxtNama = Nama
    TxtJurusan = Jurusan
    TxtNilaiQuis.SetFocus
End Sub

Private Sub CmdBatal_Click()
    CboNpm.SetFocus
    CboNpm.Text = ""
    TxtNama.Text = ""
    TxtJurusan.Text = ""
    TxtNilaiQuis.Text = ""
    TxtNilaiTugas.Text = ""
    TxtUts.Text = ""
    TxtUas.Text = ""
    TxtNilaiAkhir.Text = ""
    TxtMutu.Text = ""
    TxtNilaiAkhir.BackColor = vbWhite
    TxtMutu.BackColor = vbWhite
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdProses_Click()
    Dim NA As Integer
    Dim Mutu As String
    TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4
 
    Select Case TxtNilaiAkhir.Text
        Case Is > 80
            Mutu = "A"
        Case Is > 70
            Mutu = "B"
        Case Is > 60
            Mutu = "C"
        Case Is > 50
            Mutu = "D"
        Case Is < 50
            Mutu = "E"
    End Select
    TxtMutu = Mutu
    TxtNilaiAkhir.BackColor = vbRed
    TxtMutu.BackColor = vbRed
End Sub

Private Sub Form_Load()
    CboNpm.AddItem "15100001"
    CboNpm.AddItem "15100002"
    CboNpm.AddItem "15100003"
    CboNpm.AddItem "15100004"
    CboNpm.AddItem "15100005"
    CboNpm.AddItem "15100006"
    CboNpm.AddItem "15100007"
    CboNpm.AddItem "15100008"
    CboNpm.AddItem "15100009"
    CboNpm.AddItem "15100010"
    CboNpm.AddItem "15100011"
    CboNpm.AddItem "15100012"
    CboNpm.AddItem "15100014"
    CboNpm.AddItem "15100015"
    CboNpm.AddItem "15100016"
    CboNpm.AddItem "15100017"
    CboNpm.AddItem "15100018"
    CboNpm.AddItem "15100023"
    CboNpm.AddItem "15100024"
    CboNpm.AddItem "15100025"
    CboNpm.AddItem "15100026"
    CboNpm.AddItem "15100027"
    CboNpm.AddItem "15100030"
    CboNpm.AddItem "15100031"
    CboNpm.AddItem "15100032"
    CboNpm.AddItem "15100033"
    CboNpm.AddItem "15100034"
    CboNpm.AddItem "15100036"
    CboNpm.AddItem "15100037"
    CboNpm.AddItem "15100038"
    CboNpm.AddItem "15100039"
    CboNpm.AddItem "15100040"
    CboNpm.AddItem "15100041"
End Sub

Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtNilaiTugas.SetFocus
    End If
End Sub

Private Sub TxtNilaiTugas_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtUts.SetFocus
    End If
End Sub

Private Sub TxtUas_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Dim NA As Integer
        Dim Mutu As String
        TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4
 
        Select Case TxtNilaiAkhir.Text
            Case Is > 80
                Mutu = "A"
            Case Is > 70
                Mutu = "B"
            Case Is > 60
                Mutu = "C"
            Case Is > 50
                Mutu = "D"
            Case Is < 50
                Mutu = "E"
        End Select
        TxtMutu = Mutu
        TxtNilaiAkhir.BackColor = vbRed
        TxtMutu.BackColor = vbRed
    End If
End Sub

Private Sub TxtUts_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtUas.SetFocus
    End If
End Sub

4. Jalankan aplikasinya dengan menekan F5

Selamat Mencoba


Baca Juga :

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel