Laporan Pratikum Konsep Pemograman 2

Laporan Pratikum Konsep Pemograman 2

Download Laporan Ini

Laporan

Pratikum konsep pemograman II

(Perancangan Program Pengolahan Mahasiswa Politeknik Negeri Bengkalis dengan Visual Basic 6.0)

Dosen Pembimbing :

Mansur M.Kom

Disusun oleh:

    Nama    :    Muhammad Syahril

    Nim    :    6103141113

POLITEKNIK NEGERI BENGKALIS

TEKNIK INFORMATIKA

2014/2015

Kata Pengantar

Puji syukur saya ucapkan kepada Tuhan Yang Maha Esa karena berkat rahmat-Nya saya dapat menyelesaikan laporan pratikum mata kuliah Konsep Pemograman II dengan judul “Perancangan Program Pengolahan Mahasiswa Politeknik Negeri Bengkalis dengan Visual Basic 6.0”. Pertama penulis mengucapkan terima kasih kepada Bapak Mansur, M.Kom selaku Dosen Mata Kuliah Konsep Pemograman yang telah banyak memberikan pengarahan dalam menyelesaikan pratikum hingga penyusunan laporan akhir ini.

Pelaksaan pratikum bertujuan agar para mahasiswa dmampu memahami dasar-dasar pemograman Visual Basic. Dimana untuk mengembangkan pengetahuan mahasiswa bukan hanya dengan memelajari teori diperlukan juga kemampuan mengaplikasikan kemampuan teori tersebut agar tercipta pengetahuan yang nyata melalui kegiatan pratikum.

Penulis menyadari laporan ini masih jauh dari sempurna. Maka dari itu penulis memohon maaf dan aakn menerima segala masukan yang diberika untuk menyempurnakan laporan ini. Penulis berharap laporan ini berguna bagi siapapun yang membacanya.

    Bengkalis, 27 Maret 2015

    Muhammad Syahril

Daftar Isi

Halaman Sampul        i

Kata pengantar         ii

Daftar Isi         iii

Bab I Pendahuluan         1   

1. Visual Basic         1
2. Ms. Access         1

Bab II Pembahasan         2

1. Perancangan Database dan Table        2
1. Rancangan Field Database Access        2
2. Record Data Access dan Table         2
2. Tampilan Program         3
1. Tampilan Perancangan Program Sebelum dijalankan        3
2. Tampilan Program setelah dijalankan        4
3. Tampilan Program Setelah Proses penginputan data         5
4. Tampilan program setelah proses Simpan         5
5. Tampilan program setelah menyimpan         6
3. Tampilan Coding         7
1. Coding Pada Module         7
2. Coding Pada Form1         7
3. Coding Pada Commandbutton Simpan        7
4. Coding Pada Commandbutton Lihat Data         8
5. Coding Pada Commandbutton Bersih         9
6. Coding Pada Commandbutton Exit         9
7. Coding Pada Textbox Nilai_Harian_Asli         10
8. Coding Pada Textbox Nilai_UTS_Asli         10
9. Coding Pada Textbox Nilai_UAS_Asli        10

Bab III Penutup         11

1. Kesimpulan         11
2. Saran         11

BAB I

Pendahuluan

1. Visual Basic

Visual Basic merupakan turunan bahasa pemograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat. Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.

Para programmer dapat membangun aplikasi dengan menggunakan komponen –komponen yang disediakan oleh Microsoft Visual Baic Program-program yang ditulis dengan Visual Basic juga dapat mengguanakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.

Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Sebuah servey yang dilakukan  pada tahun 2005 menunjukkan bahwa 62% pengembangan perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.

2. Ms. Access

Microsoft Access adalah aplikasi yang berguna untuk membuat, mengolah, dan mengelola basis data atau lebih dikenal dengan data base. Database adalah kumpulan arsip data berbentuk tabel yang saling berkaitan untuk menghasilkan informasi. Data digunakan sebagai masukan yang akan diolah menjadi informasi.

Fungsi Microseoft Access

• Untuk membuat program aplikasi persediaan barang
• Untuk membuat program aplikasi gaji pegawai
• Untuk membuat program aplikasi kehadiran.

BAB II

Pembahasan

1. Perancangan Data Base dan Table
1. Rancangan Field Database Access

1. Nama Database    :    Nilai_Mahasiswa
2. Nama Table    :    Tbl_Nilai_Mahasiswa
3. Field     :

Nama    Type Data     Jumlah Karakter

Nama_Mahasiswa    Text    20

NIM    Text    10

Nilai_Harian_Asli    Number    -

Nilai_UTS_Asli    Number    -

Nilai_UAS_Asli    Number    -

Gambar 2.1  Rancangan Field pada Database Access

4. Primary Key     :    Primary Key Terletak pada Field NIM Karna setiap mahasiswa bisa namanya sama Tapi NIM setiap mahasiswa itu pasti berbeda.

2. Record Data Access dan Table

Record Data Access yang akan diisi minimal 5 record sesuai dengan soal yang diberikan berikut tampilan setelah di Refresh.

Gambar 2.2 Record data pada Access setelah di Refresh

2. Tampilan Program
1. Tampilan Perancangan Program sebelum di jalankan

Gambar 2.3 Tampilan perancangan program sebelum dijalankan

No	Jenis Objek	Nama	Caption / Text
	Form	mahasiswa02	Program Pengolahan Nilai Mahasiswa Politeknik Negeri Bengkalis
1	Label	Nama	Nama Mahasiswa
2	Label	Nim	Nim
3	Label	nilaiharian asli1 persen1	Nilai Harian Asli 30%
4	Label	nilaiuts asli2 persen2	Nilai UTS Asli 30%
5	Label	nilaiuas asli3 persen3	Nilai UAS Asli 40%
6	Label	Nilaiakhir	Nilai Akhir 30% + 30% + 40%
7	Label	nilaiangka angka keterangan	Nilai Angka Nilai Angka Keterangan
8	Text	Tnama	Kosongkan
9	Text	Tnim	Kosongkan
10	Text	tasli1	Kosongkan
11	Text	persen1	Kosongkan
12	Text	tasli2	Kosongkan
13	Text	persen2	Kosongkan
14	Text	tasli3	Kosongkan
15	Text	persen3	Kosongkan
16	Text	Takhir	Kosongkan
17	Text	Tangka	Kosongkan
18	Text	Tketerangan	Kosongkan
19	Commandbutton	Simpan	Simpan
20	Commandbutton	Lihat	Lihat Data
21	Commandbutton	Bersih	Bersih
22	Commandbutton	Search	Search
23	Commandbutton	Exit	Exit
24	Adodc	Adodc	Kosongkan
25	Datagrid	datagrid1	-

2. Tampilan Program setelah di jalankan

Gambar 2.4 tampilan program setelah dijalankan

3. Tampilan Program setelah proses Penginputan data

Gambar 2.5 Tampilan program setelah proses Penginputan data

4. Tampilan program setelah proses Simpan

Gambar 2.6 Tampilan Program Setelah Proses Simpan

5. Tampilan Program setelah menyimpan kemudian melihat data yang telah kita simpan tadi apakah telah disimpan didatabase atau belum.

Gambar 2.7 Hasil operasi dari Program

3. Tampilan Coding
1. Coding pada Module Buka dan Tutup

Public Syahril As ADODB.Connection   

Public Function koneksidata() As Boolean

Set Syahril = New ADODB.Connection

Syahril.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Kuliah SyahDhiya\Semester 02 Teknik Informatika A\Konsep Pemograman 2\Tugas dan Makalah\Praktek\Visual Basic\08. SyahDhiya\1Nilai_Mahasiswa.mdb;Persist Security Info=False"

If Err.Number = 0 Then

koneksidata = True

Else

koneksidata = False

End If

End Function   

Public Function batalkoneksi(rs As ADODB.Recordset, db As ADODB.Connection)

Set rs = Nothing

Set db = Nothing

End Function   

2. Coding pada Form1

Dim database As ADODB.Connection

Dim recordata As ADODB.Recordset

Dim SQL As String   

Private Sub Form_Load()

If koneksidata = True Then

Set database = Syahril

Set recordata = New ADODB.Recordset

recordata.CursorLocation = adUseClient

MsgBox "Object Requered", vbCritical, "DEBUG"

End If

End Sub   

3. Coding pada Commandbutton Simpan

Private Sub simpan_Click()

On Error GoTo errsimpan

database.Execute "INSERT INTO TBL_NILAI_MAHASISWA (NAMA_MAHASISWA,NIM,NILAI_HARIAN_ASLI,NILAI_UTS_ASLI,NILAI_UAS_ASLI)Values('" & tnama & "','" & tnim & "','" & tasli1 & "','" & tasli2 & "','" & tasli3 & "')"

MsgBox "Data Sudah Berhasil Diproses", vbInformation, "INFO"

errsimpan:

If Err.Number <> 0 Then

   If Err.Number = -2147217900 Or Err.Number = -2147467259 Then

       MsgBox "Data Sudah Terdaftar", vbInformation, "INFORMASI"

   Else

       MsgBox CStr(Err.Number) & " " & Err.Description

   End If

End If

End Sub   

4. Coding pada Commandbutton Lihat Data

Private Sub lihat_Click()

SQL = "SELECT NAMA_MAHASISWA, NIM, NILAI_HARIAN_ASLI, NILAI_HARIAN_ASLI*30/100 AS NILAI_HARIAN, NILAI_UTS_ASLI, NILAI_UTS_ASLI*30/100 AS NILAI_UTS, NILAI_UAS_ASLI, NILAI_UAS_ASLI*40/100 AS NILAI_UAS, NILAI_HARIAN+NILAI_UTS+NILAI_UAS AS NILAI_AKHIR, IIF(NILAI_AKHIR>80,'A',IIF(NILAI_AKHIR>70,'AB',IIF(NILAI_AKHIR>65,'B',IIF(NILAI_AKHIR>60,'BC',IIF(NILAI_AKHIR>55,'C',IIF(NILAI_AKHIR>41,'D',IIF(NILAI_AKHIR<40,'E'))))))) AS NILAI_HURUF, IIF(NILAI_HURUF='A','DENGAN_PUJIAN',IIF(NILAI_HURUF='AB','SANGAT_BAIK',IIF(NILAI_HURUF='B','BAIK',IIF(NILAI_HURUF='BC','CUKUP_BAIK',IIF(NILAI_HURUF='C','CUKUP',IIF(NILAI_HURUF='D','KURANG',IIF(NILAI_HURUF='E','KURANG_SEKALI'))))))) AS KETERANGAN FROM TBL_NILAI_MAHASISWA;"

If recordata.State = 1 Then recordata.Close

recordata.Open SQL, Syahril, adOpenStatic, adLockReadOnly

If Not recordata.EOF Then

With DataGrid1

Set .DataSource = recordata

.MarqueeStyle = dbhighlightrowraisecell

.Refresh

End With

End If

End Sub   

5. Coding pada Commandbutton Bersih

Private Sub bersih_Click()

tnama.Text = ""

tnim.Text = ""

tasli1.Text = ""

tpersen1.Text = ""

tasli2.Text = ""

tpersen2.Text = ""

tasli3.Text = ""

tpersen3.Text = ""

takhir.Text = ""

tketerangan.Text = ""

End Sub   

6. Coding pada Commandbutton Exit

Private Sub exit_Click()

Unload Me

End Sub   

7. Coding pada Textbox Nilai_Harian_Asli

Private Sub tasli1_Change()

tpersen1.Text = Val(tasli1.Text) * (3 / 10)

End Sub   

8. Coding pada Textbox Nilai_UTS_Asli

Private Sub tasli2_Change()

tpersen2.Text = Val(tasli2.Text) * (3 / 10)

End Sub   

9. Coding pada Textbox Nilai_UAS_Asli

Private Sub tasli3_Change()

tpersen3.Text = Val(tasli3.Text) * (4 / 10)

takhir.Text = Val(tpersen1.Text) + Val(tpersen2.Text) + Val(tpersen3.Text)

If nilai = Val(takhir.Text < 80 And 100) Then

tangka.Text = "A"

tketerangan.Text = "Istimewa"

ElseIf nilai = Val(takhir.Text < 71 And 80) Then

tangka.Text = "AB"

tketerangan.Text = "Baik Sekali"

ElseIf nilai = Val(takhir.Text < 66 And 70) Then

tangka.Text = "B"

tketerangan.Text = "Baik"

ElseIf nilai = Val(takhir.Text < 61 And 65) Then

tangka.Text = "BC"

tketerangan.Text = "Cukup Baik"

ElseIf nilai = Val(takhir.Text < 56 And 60) Then

tangka.Text = "C"

tketerangan.Text = "Cukup"

ElseIf nilai = Val(takhir.Text < 41 And 55) Then

tangka.Text = "D"

tketerangan.Text = "Kurang Baik"

ElseIf nilai = Val(takhir.Text < 40) Then

tangka.Text = "E"

tketerangan.Text = "Kurang Sekali"

End If

End Sub   

BAB III

Penutup

1. Kesimpulan

Program aplikasi pengolahan nilai mahasiswa politeknik negeri bengkalis ini adalah program aplikasi yang berbasis bahasa pemrograman VB. Aplikasi ini menggunakan database sebagai sarana tempat penampungan data-data yang di inputkan dan nantinya akan kembali dipanggil jika dibutuhkan. Secara fungsional aplikasi ini dapat digunakan dan di implementasikan untuk menghitung dan mengolah data dari nilai-nilai mahasiswa seperti Nilai Harian, Nilai UTS, Nilai UAS, dan menghitung Nilai Akhirnya secara sederhana.

2. Saran

Program aplikasi pengolahan nilai mahasiswa politeknik negeri bengkalis ini penulis maklumi bahwa masih bandyak yang kurang dan harus dikembangkan lagi sehingga menjadi lebih bagus dan kompleks. Untuk itu, saran serta masukan yang mendukung dari dosen penilai atau pembaca sangat penulis harapan agar penulis dapat memberikan program aplikasi yang lebih baik.