Minggu, 15 Januari 2017

Program Data Nilai Mahasiswa Sederhana Menggunakan Visual Basic 6.0 - Program Visual Basic Sederhana

Program Data Nilai Mahasiswa Sederhana Menggunakan Visual Basic 6.0 - Program Visual Basic SederhanaDipostingan ikomputert kali ini akan menjelaskan cara pembuatan Program Data Nilai Mahasiswa Sederhana Menggunakan Visual Basic 6.0
Langkah –langkah untuk membuat program sederhanaa yaitu:
● Buka lembar kerja visual basic.
● Kita mulai dari membuka file baru dan beri nama pada Project1(default).
● Kemudian klik pada kotak form dan kita lihat pada kotak Properties. Mulai dari Name kita ganti dari Form1 menjadi Program Data Nilai Mahasiswa. Anda juga bisa mendesain sesuka hati, misal form diberi gambar dengan cara pilih pada properties Picture dan cari gambar yang Anda inginkan.

● Buat 13 Label
Label 1 diberi caption Nama
Label 2 diberi caption NRP
Label 3 diberi caption Jurusan
Label 4 diberi caption Angkatan
Label 5 diberi caption No. Induk
Label 6 diberi caption Semester
Label 7 diberi caption Mata Kuliah
Label 8 diberi caption Nilai Tugas
Label 9 diberi caption Nilai UTS
Label 10 diberi caption Nilai UAS
Label 11 diberi caption Nilai Akhir
Label 12 diberi caption Predikat
Label 13 diberi caption Ket

Dengan cara memasukkan Label dan atur sesuai keinginan Anda. Pada kotak properties Anda dapat mengatur sesuai kebutahan, misal nama Label1 menjadi Angka pertama pada caption
nya, dan seterusnya. Tetapi di sini kami menuliskan dengan label default saja.

● Buatlah 11 TextBox
Textuntuk (Nama)
Text2 untuk (NRP)
Text3 untuk (Jurusan)
Text4 untuk (Angkatan)
Text5 untuk (No. Induk)
Text6 untuk (Nilai Tugas)
Text7 untuk (Nilai UTS)
Text8 untuk (Nilai UAS)
Textuntuk (Nilai Akhir)
Text10 untuk (Predikat)
Text11 untuk (Ket)

Dengan cara memasukkan TextBox kemudian ingatlah nama TextBox masing – masing yang dibuat untuk kodingan nanti.  Atur sesuai keinginan Anda melalui kotak properties. Ada yang perlu diingat! Pada pilihan Text harus dikosongkan.


● Buatlah 2 ComboBox
Combo1 untuk Semester
Combo2 untuk Mata Kuliah

Dengan cara masukkan kontrol TextBox kemudian atur sesuai keinginan Anda melalui kotakproperties. Ada yang perlu diingat! Pada pilihan Text harus dikosongkan.
Gambar 1Penggunaan Components pada Program Data Nilai Mahasiswa

● Atur program agar kelihatan menarik.

● Masukan kode program, dengan cara klik dua kali pada form:


· Masukan kode di bawah ini:
Klik show untuk melihat
Private Sub Combo1_Click() 
If Combo1.Text = "1" Then
Combo2.AddItem "Pendidikan Pancasila"
Combo2.AddItem "Bahasa Inggris I"
Combo2.AddItem "Kalkulus I"
Combo2.AddItem "Pemrograman"
Combo2.AddItem "PPA"
Combo2.AddItem "Log. Info I"
Combo2.AddItem "A. Linier"
Else
If Combo1.Text = "2" Then
Combo2.AddItem "Matematika Diskrit"
Combo2.AddItem "Bahasa Inggris II"
Combo2.AddItem "Jaringan Komputer"
Combo2.AddItem "Kalkulus II"
Combo2.AddItem "Log. Info II"
Combo2.AddItem "Pemrograman C++"
Combo2.AddItem "Sistem Digital"
Else
If Combo1.Text = "3" Then
Combo2.AddItem "Statistik Deskriptif"
Combo2.AddItem "Metode Numerik"
Combo2.AddItem "PBO"
Combo2.AddItem "Mikroprosessor"
Combo2.AddItem "Logika dan Pemrograman"
Else
If Combo1.Text = "4" Then
Combo2.AddItem "Kewarganegaraan"
Combo2.AddItem "Sistem Operasi"
Combo2.AddItem "Struktur Data"
Combo2.AddItem "Sis. Informasi Manajemen"
Combo2.AddItem "Aplikasi Internet I"
Combo2.AddItem "IMK"
Else
If Combo1.Text = "5" Then
Combo2.AddItem "RTI"
Combo2.AddItem "Sistem Basis Data"
Combo2.AddItem "TIK"
Combo2.AddItem "SBP"
Combo2.AddItem "Pemrograman Visual"
Combo2.AddItem "Metode Penelitian"
Else
If Combo1.Text = "6" Then
Combo2.AddItem "Pendidikan Agama"
Combo2.AddItem "Arsitektur & O. Komputer"
Combo2.AddItem "RPL"
Combo2.AddItem "Etika Profesi"
Combo2.AddItem "Pemrograman Grafik"
Combo2.AddItem "Desain Grafis"
Else
If Combo1.Text = "7" Then
Combo2.AddItem "Pra Skripsi"
Combo2.AddItem "KAP"
Combo2.AddItem "Aplikasi Internet II"
Combo2.AddItem "Pengolahan Citra Digital"
Combo2.AddItem "Praktek Kerja Lapangan"
Combo2.AddItem "Sistem Terdistribusi"
Else
If Combo1.Text = "8" Then
Combo2.AddItem "Skripsi"
Combo2.AddItem "SBD Spasial"
Combo2.AddItem "Jaringan Syaraf Buatan"
Else

If Combo1.Text = "9" Then
Combo2.AddItem "Pendidikan Pancasila"
Combo2.AddItem "Bahasa Inggris I"
Combo2.AddItem "Kalkulus I"
Combo2.AddItem "Pemrograman"
Combo2.AddItem "PPA"
Combo2.AddItem "Log. Info I"
Combo2.AddItem "A. Linier"
Combo2.AddItem "Matematika Diskrit"
Combo2.AddItem "Bahasa Inggris II"
Combo2.AddItem "Jaringan Komputer"
Combo2.AddItem "Kalkulus II"
Combo2.AddItem "Log. Info II"
Combo2.AddItem "Pemrograman C++"
Combo2.AddItem "Sistem Digital"
Combo2.AddItem "Statistik Deskriptif"
Combo2.AddItem "Metode Numerik"
Combo2.AddItem "PBO"
Combo2.AddItem "Mikroprosessor"
Combo2.AddItem "Logika dan Pemrograman"
Combo2.AddItem "Kewarganegaraan"
Combo2.AddItem "Sistem Operasi"
Combo2.AddItem "Struktur Data"
Combo2.AddItem "Sis. Informasi Manajemen"
Combo2.AddItem "Aplikasi Internet I"
Combo2.AddItem "IMK"
Combo2.AddItem "RTI"
Combo2.AddItem "Sistem Basis Data"
Combo2.AddItem "TIK"
Combo2.AddItem "SBP"
Combo2.AddItem "Pemrograman Visual"
Combo2.AddItem "Metode Penelitian"
Combo2.AddItem "Pendidikan Agama"
Combo2.AddItem "Arsitektur & O. Komputer"
Combo2.AddItem "RPL"
Combo2.AddItem "Etika Profesi"
Combo2.AddItem "Pemrograman Grafik"
Combo2.AddItem "Desain Grafis"
Combo2.AddItem "Pra Skripsi"
Combo2.AddItem "KAP"
Combo2.AddItem "Aplikasi Internet II"
Combo2.AddItem "Pengolahan Citra Digital"
Combo2.AddItem "Praktek Kerja Lapangan"
Combo2.AddItem "Sistem Terdistribusi"
Combo2.AddItem "Skripsi"
Combo2.AddItem "SBD Spasial"
Combo2.AddItem "Jaringan Syaraf Buatan"
Else
If Combo1.Text = "10" Then
Combo2.AddItem "Pendidikan Pancasila"
Combo2.AddItem "Bahasa Inggris I"
Combo2.AddItem "Kalkulus I"
Combo2.AddItem "Pemrograman"
Combo2.AddItem "PPA"
Combo2.AddItem "Log. Info I"
Combo2.AddItem "A. Linier"
Combo2.AddItem "Matematika Diskrit"
Combo2.AddItem "Bahasa Inggris II"
Combo2.AddItem "Jaringan Komputer"
Combo2.AddItem "Kalkulus II"
Combo2.AddItem "Log. Info II"
Combo2.AddItem "Pemrograman C++"
Combo2.AddItem "Sistem Digital"
Combo2.AddItem "Statistik Deskriptif"
Combo2.AddItem "Metode Numerik"
Combo2.AddItem "PBO"
Combo2.AddItem "Mikroprosessor"
Combo2.AddItem "Logika dan Pemrograman"
Combo2.AddItem "Kewarganegaraan"
Combo2.AddItem "Sistem Operasi"
Combo2.AddItem "Struktur Data"
Combo2.AddItem "Sis. Informasi Manajemen"
Combo2.AddItem "Aplikasi Internet I"
Combo2.AddItem "IMK"
Combo2.AddItem "RTI"
Combo2.AddItem "Sistem Basis Data"
Combo2.AddItem "TIK"
Combo2.AddItem "SBP"
Combo2.AddItem "Pemrograman Visual"
Combo2.AddItem "Metode Penelitian"
Combo2.AddItem "Pendidikan Agama"
Combo2.AddItem "Arsitektur & O. Komputer"
Combo2.AddItem "RPL"
Combo2.AddItem "Etika Profesi"
Combo2.AddItem "Pemrograman Grafik"
Combo2.AddItem "Desain Grafis"
Combo2.AddItem "Pra Skripsi"
Combo2.AddItem "KAP"
Combo2.AddItem "Aplikasi Internet II"
Combo2.AddItem "Pengolahan Citra Digital"
Combo2.AddItem "Praktek Kerja Lapangan"
Combo2.AddItem "Sistem Terdistribusi"
Combo2.AddItem "Skripsi"
Combo2.AddItem "SBD Spasial"
Combo2.AddItem "Jaringan Syaraf Buatan"
Else
If Combo1.Text = "11" Then
Combo2.AddItem "Pendidikan Pancasila"
Combo2.AddItem "Bahasa Inggris I"
Combo2.AddItem "Kalkulus I"
Combo2.AddItem "Pemrograman"
Combo2.AddItem "PPA"
Combo2.AddItem "Log. Info I"
Combo2.AddItem "A. Linier"
Combo2.AddItem "Matematika Diskrit"
Combo2.AddItem "Bahasa Inggris II"
Combo2.AddItem "Jaringan Komputer"
Combo2.AddItem "Kalkulus II"
Combo2.AddItem "Log. Info II"
Combo2.AddItem "Pemrograman C++"
Combo2.AddItem "Sistem Digital"
Combo2.AddItem "Statistik Deskriptif"
Combo2.AddItem "Metode Numerik"
Combo2.AddItem "PBO"
Combo2.AddItem "Mikroprosessor"
Combo2.AddItem "Logika dan Pemrograman"
Combo2.AddItem "Kewarganegaraan"
Combo2.AddItem "Sistem Operasi"
Combo2.AddItem "Struktur Data"
Combo2.AddItem "Sis. Informasi Manajemen"
Combo2.AddItem "Aplikasi Internet I"
Combo2.AddItem "IMK"
Combo2.AddItem "RTI"
Combo2.AddItem "Sistem Basis Data"
Combo2.AddItem "TIK"
Combo2.AddItem "SBP"
Combo2.AddItem "Pemrograman Visual"
Combo2.AddItem "Metode Penelitian"
Combo2.AddItem "Pendidikan Agama"
Combo2.AddItem "Arsitektur & O. Komputer"
Combo2.AddItem "RPL"
Combo2.AddItem "Etika Profesi"
Combo2.AddItem "Pemrograman Grafik"
Combo2.AddItem "Desain Grafis"
Combo2.AddItem "Pra Skripsi"
Combo2.AddItem "KAP"
Combo2.AddItem "Aplikasi Internet II"
Combo2.AddItem "Pengolahan Citra Digital"
Combo2.AddItem "Praktek Kerja Lapangan"
Combo2.AddItem "Sistem Terdistribusi"
Combo2.AddItem "Skripsi"
Combo2.AddItem "SBD Spasial"
Combo2.AddItem "Jaringan Syaraf Buatan"
Else
If Combo1.Text = "12" Then
Combo2.AddItem "Pendidikan Pancasila"
Combo2.AddItem "Bahasa Inggris I"
Combo2.AddItem "Kalkulus I"
Combo2.AddItem "Pemrograman"
Combo2.AddItem "PPA"
Combo2.AddItem "Log. Info I"
Combo2.AddItem "A. Linier"
Combo2.AddItem "Matematika Diskrit"
Combo2.AddItem "Bahasa Inggris II"
Combo2.AddItem "Jaringan Komputer"
Combo2.AddItem "Kalkulus II"
Combo2.AddItem "Log. Info II"
Combo2.AddItem "Pemrograman C++"
Combo2.AddItem "Sistem Digital"
Combo2.AddItem "Statistik Deskriptif"
Combo2.AddItem "Metode Numerik"
Combo2.AddItem "PBO"
Combo2.AddItem "Mikroprosessor"
Combo2.AddItem "Logika dan Pemrograman"
Combo2.AddItem "Kewarganegaraan"
Combo2.AddItem "Sistem Operasi"
Combo2.AddItem "Struktur Data"
Combo2.AddItem "Sis. Informasi Manajemen"
Combo2.AddItem "Aplikasi Internet I"
Combo2.AddItem "IMK"
Combo2.AddItem "RTI"
Combo2.AddItem "Sistem Basis Data"
Combo2.AddItem "TIK"
Combo2.AddItem "SBP"
Combo2.AddItem "Pemrograman Visual"
Combo2.AddItem "Metode Penelitian"
Combo2.AddItem "Pendidikan Agama"
Combo2.AddItem "Arsitektur & O. Komputer"
Combo2.AddItem "RPL"
Combo2.AddItem "Etika Profesi"
Combo2.AddItem "Pemrograman Grafik"
Combo2.AddItem "Desain Grafis"
Combo2.AddItem "Pra Skripsi"
Combo2.AddItem "KAP"
Combo2.AddItem "Aplikasi Internet II"
Combo2.AddItem "Pengolahan Citra Digital"
Combo2.AddItem "Praktek Kerja Lapangan"
Combo2.AddItem "Sistem Terdistribusi"
Combo2.AddItem "Skripsi"
Combo2.AddItem "SBD Spasial"
Combo2.AddItem "Jaringan Syaraf Buatan"
Else
If Combo1.Text = "13" Then
Combo2.AddItem "Pendidikan Pancasila"
Combo2.AddItem "Bahasa Inggris I"
Combo2.AddItem "Kalkulus I"
Combo2.AddItem "Pemrograman"
Combo2.AddItem "PPA"
Combo2.AddItem "Log. Info I"
Combo2.AddItem "A. Linier"
Combo2.AddItem "Matematika Diskrit"
Combo2.AddItem "Bahasa Inggris II"
Combo2.AddItem "Jaringan Komputer"
Combo2.AddItem "Kalkulus II"
Combo2.AddItem "Log. Info II"
Combo2.AddItem "Pemrograman C++"
Combo2.AddItem "Sistem Digital"
Combo2.AddItem "Statistik Deskriptif"
Combo2.AddItem "Metode Numerik"
Combo2.AddItem "PBO"
Combo2.AddItem "Mikroprosessor"
Combo2.AddItem "Logika dan Pemrograman"
Combo2.AddItem "Kewarganegaraan"
Combo2.AddItem "Sistem Operasi"
Combo2.AddItem "Struktur Data"
Combo2.AddItem "Sis. Informasi Manajemen"
Combo2.AddItem "Aplikasi Internet I"
Combo2.AddItem "IMK"
Combo2.AddItem "RTI"
Combo2.AddItem "Sistem Basis Data"
Combo2.AddItem "TIK"
Combo2.AddItem "SBP"
Combo2.AddItem "Pemrograman Visual"
Combo2.AddItem "Metode Penelitian"
Combo2.AddItem "Pendidikan Agama"
Combo2.AddItem "Arsitektur & O. Komputer"
Combo2.AddItem "RPL"
Combo2.AddItem "Etika Profesi"
Combo2.AddItem "Pemrograman Grafik"
Combo2.AddItem "Desain Grafis"
Combo2.AddItem "Pra Skripsi"
Combo2.AddItem "KAP"
Combo2.AddItem "Aplikasi Internet II"
Combo2.AddItem "Pengolahan Citra Digital"
Combo2.AddItem "Praktek Kerja Lapangan"
Combo2.AddItem "Sistem Terdistribusi"
Combo2.AddItem "Skripsi"
Combo2.AddItem "SBD Spasial"
Combo2.AddItem "Jaringan Syaraf Buatan"
Else
If Combo1.Text = "14" Then
Combo2.AddItem "Pendidikan Pancasila"
Combo2.AddItem "Bahasa Inggris I"
Combo2.AddItem "Kalkulus I"
Combo2.AddItem "Pemrograman"
Combo2.AddItem "PPA"
Combo2.AddItem "Log. Info I"
Combo2.AddItem "A. Linier"
Combo2.AddItem "Matematika Diskrit"
Combo2.AddItem "Bahasa Inggris II"
Combo2.AddItem "Jaringan Komputer"
Combo2.AddItem "Kalkulus II"
Combo2.AddItem "Log. Info II"
Combo2.AddItem "Pemrograman C++"
Combo2.AddItem "Sistem Digital"
Combo2.AddItem "Statistik Deskriptif"
Combo2.AddItem "Metode Numerik"
Combo2.AddItem "PBO"
Combo2.AddItem "Mikroprosessor"
Combo2.AddItem "Logika dan Pemrograman"
Combo2.AddItem "Kewarganegaraan"
Combo2.AddItem "Sistem Operasi"
Combo2.AddItem "Struktur Data"
Combo2.AddItem "Sis. Informasi Manajemen"
Combo2.AddItem "Aplikasi Internet I"
Combo2.AddItem "IMK"
Combo2.AddItem "RTI"
Combo2.AddItem "Sistem Basis Data"
Combo2.AddItem "TIK"
Combo2.AddItem "SBP"
Combo2.AddItem "Pemrograman Visual"
Combo2.AddItem "Metode Penelitian"
Combo2.AddItem "Pendidikan Agama"
Combo2.AddItem "Arsitektur & O. Komputer"
Combo2.AddItem "RPL"
Combo2.AddItem "Etika Profesi"
Combo2.AddItem "Pemrograman Grafik"
Combo2.AddItem "Desain Grafis"
Combo2.AddItem "Pra Skripsi"
Combo2.AddItem "KAP"
Combo2.AddItem "Aplikasi Internet II"
Combo2.AddItem "Pengolahan Citra Digital"
Combo2.AddItem "Praktek Kerja Lapangan"
Combo2.AddItem "Sistem Terdistribusi"
Combo2.AddItem "Skripsi"
Combo2.AddItem "SBD Spasial"
Combo2.AddItem "Jaringan Syaraf Buatan"
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
Combo1.AddItem "11"
Combo1.AddItem "12"
Combo1.AddItem "13"
Combo1.AddItem "14"


End Sub

Private Sub Text10_GotFocus()
If Text9.Text >= 80 Then
Text10.Text = "A"
Else
If Text9.Text >= 70 Then
Text10.Text = "B"
Else
If Text9.Text >= 60 Then
Text10.Text = "C"
Else
If Text9.Text >= 40 Then
Text10.Text = "D"
Else
Text10.Text = "E"
End If
End If
End If
End If
End Sub

Private Sub Text11_GotFocus()
If Text9.Text >= 60 Then
Text11.Text = "Lulus"
Else
If Text9.Text < 60 Then
Text11.Text = "Gagal"
End If
End If
End Sub

Private Sub Text2_Change()
If Mid(Text2.Text, 3, 2) = "01" Then
Text3.Text = "Manajemen Informatika"
Text4.Text = 20 & Left(Text2.Text, 2)
Text5.Text = Right(Text2.Text, 4)
Else
If Mid(Text2.Text, 3, 2) = "02" Then
Text3.Text = "Komputer Akuntansi"
Text4.Text = 20 & Left(Text2.Text, 2)
Text5.Text = Right(Text2.Text, 4)
Else
If Mid(Text2.Text, 3, 2) = "03" Then
Text3.Text = "Sistem Informasi"
Text4.Text = 20 & Left(Text2.Text, 2)
Text5.Text = Right(Text2.Text, 4)
Else
If Mid(Text2.Text, 3, 2) = "04" Then
Text3.Text = "Teknik Informatika"
Text4.Text = 20 & Left(Text2.Text, 2)
Text5.Text = Right(Text2.Text, 4)
Else
End If
End If
End If
End If
End Sub

Private Sub Text9_GotFocus()
Text9.Text = Text6.Text * 0.3 + Text7.Text * 0.3 + Text8.Text * 0.4
End Sub



● Simpan Program.
Coba dulu program yang telah anda buat tadi dengan menekan tombol F5 atau mengklik toolbar Run -Start. Letaknya -letaknya terserah anda. Bila program tidak berjalan dengan baik berarti masih ada kesalahan yang harus anda perbaiki lagi. Biasanya VB akan langsung memberitahukan kepada anda, mana kode yang error. Kalau mau mengganti tulisan tinggal setting ke captionnya, kalau mau ganti tulisan atau ukurannya tinggal ke font. Kalau mau ganti
background tinggal klik picture di setting formnya.

Gambar 2Aplikasi Dijalankan
Load disqus comments

0 komentar