contoh format laporan VB

KATA PENGANTAR

Rasa syukur yang teramat dalam kami panjatkan ke hadirat Allah SWT, yang telah berkenan memelihara dan membimbing kami, para penulis, sehingga dapat menyelesaikan pengerjaan dan penyusunan tugas ini .

Tugas ini kami susun sebagai persyaratan mengikuti UTS perkuliahan PEMROGRAMAN BASIS DATA .

Materi yang terkandung dalam penulisan tugas ini berdasarkan pada modul-modul praktikum yang telah kami pelajari isinya .

Disadari bahwa dalam penulisan tugas ini masih jauh dari kata sempurna, namun para penulis tetap berharap semoga isi dari tulisan ini dapat benar-benar berguna baik untuk para penulis khususnya dan para pembaca pada umumnya, maka dari itu kritik dan saran yang membangun sangat kami harapkan

DAFTAR ISI

KATA PENGANTAR ……………………………………………………………………………………………… i

DAFTAR ISI …………………………………………………………………………………………………………… ii

DAFTAR GAMBAR ……………………………………………………………………………………………….. iii

PENDAHULUAN

1. Latar Belakang Masalah…………………………………………………………………….. 1

2. Rumusan Masalah ……………………………………………………………………………… 1

3. Tujuan dan Manfaat

3.1 Tujuan ………………………………………………………………………………………….. 1

3.2 Manfaat ……………………………………………………………………………………….. 1

PERANCANGAN APLIKASI

1. Teori yang digunakan …………………………………………………………………………. 2

2. Bahan dan Alat ………………………………………………………………………………….. 2

ALGORITMA DAN KODE PROGRAM

1. Algoritma …………………………………………………………………………………………… 3

2. Kode Program ……………………………………………………………………………………. 4

HASIL DAN EVALUASI …………………………………………………………………………………………. 7

PENUTUP ………………………………………………………………………………………………………………. iv

DAFTAR PUSTAKA ……………………………………………………………………………………………….. v

DAFTAR GAMBAR

Gambar 1.0 Message Box ketika Laba …………………………………………………………….. 7

Gambar 1.1 Form Hitung…………………………………………………………………………………… 7

Gambar 1.2 Message Box ketika Rugi ……………………………………………………………… 8

Gambar 1.3 Form Hitung ………………………………………………………………………………….. 8

PENDAHULUAN

1. Latar Belakang Masalah

Seiring dengan perkembangan teknologi yang serba instant seperti saat ini dan tuntutan tugas UTS mata kuliah pembada, disini kami sebagai mahasiswa informatika univeritas negeri Surabaya berusaha membuat aplikasi sederhana dengan judul informasi maskapai penerbangan Arwana Airlines dengan tujuan memberikan informasi tentang jadwal keberangkatan dan pendaratan serta harga tiket sesuai dengan tujuan penumpang.

2. Rumusan Masalah

Sehubungan dengan mata kuliah yang mempelajari modul 1 sampai dengan modul 7, diantaranya :

1. Visual Basic for Aplication (VBA) untuk Microsoft Access

2. Structure Query Language (SQL)

3. Koneksi database menggunakan ADO, DAO dan ODBC

4. Module, Procedure dan Function

5. Memanfaatkan Fungsi Library pada VBA

6. Struktur Program Penyeleksi Kondisi

7. Struktur Program Pengulangan

3. Tujuan dan Manfaat

3.1 Tujuan

Tujuan dari pembuatan aplikasi ini adalah untuk memeberikan informasi bagi para calon penumpang maskapai penerbangan Arwana Airline tentang jadwal keberangktan dan pendaratan serta harga tiketnya .Selain itu,yang paling penting adalah sebagai syarat utama dalam mengikuti UTS mata kuliah PEMROGRAMAN BASIS DATA .

3.2 Manfaat

Aplikasi ini berguna bagi para calon penumpang maskapai penerbangan Arwana airlines yang tidak tahu tentang jadwal dan harga tiket yang ditawarkan oleh maskapai penerbangan tersebut.sehingga para penumpang bisa mengira-ngira kemampuan financial dan waktu.

PERANCANGAN APLIKASI

1. Teori yang digunakan

Kami disini hanya menggunakan teori If else

2. Bahan dan Alat

Sebuah PC dengan spesifikasi :

1. Processor Pentium-3

2. Hard disk 80 Gb

3. RAM minimal 256Mb

4. Menggunakan Microsoft Office 2003

ALGORITMA DAN KODE PROGRAM

1. ALGORITMA

Algoritma check1:

1. Mulai

2. hapus data output, jika sudah ada, dengan format

txtharga = “”

txtbrg = “”

txtdtg = “”

txtbndr7an = “”

2. Memasukan nama kota tujuan

Dim strCgk As String

strCgk = InputBox(“masukan nama kota tujuan”, “input kota tujuan”, “ketik disini dg huruf kecil”)

3 Proses : missal

If (LTrim(strCgk)) = “balikpapan” Then

txtharga = ” 250.000 “

txtbrg = “06:05”

txtdtg = “09:00”

txtbndr7an = “sepinggan”

Else

4. Selesai


2. KODE PROGRAM

Option Compare Database

Private Sub cmdcgk_Click()

txtharga = “”

txtbrg = “”

txtdtg = “”

txtbndr7an = “”

Dim strCgk As String

strCgk = InputBox(“masukan nama kota tujuan”, “input kota tujuan”, “ketik disini dg huruf kecil”)

If (LTrim(strCgk)) = “ketik disini dg huruf kecil” Then

MsgBox “maaf inputan tidak teridentifikasi, coba periksa dan ulangi lagi”, , “WARNING !!”

Else

If (LTrim(strCgk)) = “balikpapan” Then

txtharga = ” 250.000 “

txtbrg = “06:05”

txtdtg = “09:00”

txtbndr7an = “sepinggan”

Else

If (LTrim(strCgk)) = “banda aceh” Then

txtharga = ” 250.000 “

txtbrg = “06:40”

txtdtg = “09:30”

txtbndr7an = “sultan iskandar muda”

Else

If (LTrim(strCgk)) = “banjarmasin” Then

txtharga = ” 250.000 “

txtbrg = “13:05”

txtdtg = “16:00”

txtbndr7an = “syamsuddin noor”

Else

If (LTrim(strCgk)) = “batam” Then

txtharga = ” 250.000 “

txtbrg = “12:05”

txtdtg = “13:30”

txtbndr7an = “hang nadim”

Else

If (LTrim(strCgk)) = “bengkulu” Then

txtharga = ” 150.000 “

txtbrg = “07:05”

txtdtg = “07:45”

txtbndr7an = “iqbal abdurrachman”

Else

If (LTrim(strCgk)) = “bali” Then

txtharga = ” 2500.000 “

txtbrg = “07:05”

txtdtg = “09:50”

txtbndr7an = “ngurah rai”

Else

If (LTrim(strCgk)) = “denpasar” Then

txtharga = ” 2500.000 “

txtbrg = “07:05”

txtdtg = “09:50”

txtbndr7an = “ngurah rai”

Else

If (LTrim(strCgk)) = “jambi” Then

txtharga = ” 200.000 “

txtbrg = “11:05”

txtdtg = “11:45”

txtbndr7an = “sultan thoha syaifuddin”

Else

If (LTrim(strCgk)) = “jogjakarta” Then

txtharga = ” 350.000 “

txtbrg = “06:35”

txtdtg = “07:20”

txtbndr7an = “adi sucipto”

Else

If (LTrim(strCgk)) = “lampung” Then

txtharga = ” 100.000 “

txtbrg = “09:25”

txtdtg = “10:00”

txtbndr7an = “radin inten II”

Else

If (LTrim(strCgk)) = “makassar” Then

txtharga = ” 250.000 “

txtbrg = “06:00”

txtdtg = “09:05”

txtbndr7an = “hasanuddin”

Else

If (LTrim(strCgk)) = “manado” Then

txtharga = ” 850.000 “

txtbrg = “11:05”

txtdtg = “13:20”

txtbndr7an = “sam ratulangi”

Else

If (LTrim(strCgk)) = “mataram” Then

txtharga = ” 750.000 “

txtbrg = “18:05”

txtdtg = “20:30”

txtbndr7an = “selaparang”

Else

If (LTrim(strCgk)) = “medan” Then

txtharga = ” 450.000 “

txtbrg = “06:45”

txtdtg = “09:00”

txtbndr7an = “polonia”

Else

If (LTrim(strCgk)) = “padang” Then

txtharga = ” 350.000 “

txtbrg = “06:35”

txtdtg = “07:40”

txtbndr7an = “minangkabau”

Else

If (LTrim(strCgk)) = “palembang” Then

txtharga = ” 350.000 “

txtbrg = “07:05”

txtdtg = “08:00”

txtbndr7an = “sultan mahmud badarudin”

Else

If (LTrim(strCgk)) = “pangkal pinang” Then

txtharga = ” 450.000 “

txtbrg = “10:05”

txtdtg = “11:05”

txtbndr7an = “depati amir”

Else

If (LTrim(strCgk)) = “pekanbaru” Then

txtharga = ” 650.000 “

txtbrg = “13:35”

txtdtg = “15:30”

txtbndr7an = “sultan syarif amir”

Else

If (LTrim(strCgk)) = “pontianak” Then

txtharga = ” 950.000 “

txtbrg = “06:05”

txtdtg = “07:30”

txtbndr7an = “supadio”

Else

If (LTrim(strCgk)) = “semarang” Then

txtharga = ” 250.000 “

txtbrg = “16:05”

txtdtg = “17:00”

txtbndr7an = “Ahmad yani”

Else

If (LTrim(strCgk)) = “solo” Then

txtharga = ” 90.000 “

txtbrg = “14:05”

txtdtg = “14:40”

txtbndr7an = “Adi sumarmo”

Else

If (LTrim(strCgk)) = “jakarta” Then

txtharga = ” 450.000 “

txtbrg = “06:25”

txtdtg = “07:50”

txtbndr7an = “halim perdana kusuma”

Else

If (LTrim(strCgk)) = “” Then

MsgBox “maaf anda belum inputkan kota 7an, coba ulangi lagi”, , “WARNING !!”

Else

MsgBox “maaf inputan tidak teridentifikasi, coba periksa dan ulangi lagi”, , “WARNING !!”

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 If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub cmdhlm_Click()

txtharga2 = “”

txtbrg2 = “”

txtdtg2 = “”

txtbndr7an2 = “”

Dim strhlm As String

strhlm = InputBox(“masukan nama kota tujuan”, “input kota tujuan”, “ketik disini dg huruf kecil”)

If (LTrim(strhlm)) = “ketik disini dg huruf kecil” Then

MsgBox “maaf inputan tidak teridentifikasi, coba periksa dan ulangi lagi”, , “WARNING !!”

Else

If (LTrim(strhlm)) = “balikpapan” Then

txtharga2 = ” 250.000 “

txtbrg2 = “06:05”

txtdtg2 = “09:00”

txtbndr7an2 = “sepinggan”

Else

If (LTrim(strhlm)) = “banda aceh” Then

txtharga2 = ” 250.000 “

txtbrg2 = “06:40”

txtdtg2 = “09:30”

txtbndr7an2 = “sultan iskandar muda”

Else

If (LTrim(strhlm)) = “banjarmasin” Then

txtharga2 = ” 250.000 “

txtbrg2 = “13:05”

txtdtg2 = “16:00”

txtbndr7an2 = “syamsuddin noor”

Else

If (LTrim(strCgk)) = “batam” Then

txtharga2 = ” 250.000 “

txtbrg2 = “12:05”

txtdtg2 = “13:30”

txtbndr7an2 = “hang nadim”

Else

If (LTrim(strCgk)) = “bengkulu” Then

txtharga2 = ” 150.000 “

txtbrg2 = “07:05”

txtdtg2 = “07:45”

txtbndr7an2 = “iqbal abdurrachman”

Else

If (LTrim(strhlm)) = “bali” Then

txtharga2 = ” 2500.000 “

txtbrg2 = “07:05”

txtdtg2 = “09:50”

txtbndr7an2 = “ngurah rai”

Else

If (LTrim(strhlm)) = “denpasar” Then

txtharga2 = ” 2500.000 “

txtbrg2 = “07:05”

txtdtg2 = “09:50”

txtbndr7an2 = “ngurah rai”

Else

If (LTrim(strhlm)) = “jambi” Then

txtharga2 = ” 200.000 “

txtbrg2 = “11:05”

txtdtg2 = “11:45”

txtbndr7an2 = “sultan thoha syaifuddin”

Else

If (LTrim(strhlm)) = “jogjakarta” Then

txtharga2 = ” 350.000 “

txtbrg2 = “06:35”

txtdtg2 = “07:20”

txtbndr7an2 = “adi sucipto”

Else

If (LTrim(strhlm)) = “lampung” Then

txtharga2 = ” 100.000 “

txtbrg2 = “09:25”

txtdtg2 = “10:00”

txtbndr7an2 = “radin inten II”

Else

If (LTrim(strhlm)) = “makassar” Then

txtharga2 = ” 250.000 “

txtbrg2 = “06:00”

txtdtg2 = “09:05”

txtbndr7an2 = “hasanuddin”

Else

If (LTrim(strhlm)) = “manado” Then

txtharga2 = ” 850.000 “

txtbrg2 = “11:05”

txtdtg2 = “13:20”

txtbndr7an2 = “sam ratulangi”

Else

If (LTrim(strhlm)) = “mataram” Then

txtharga2 = ” 750.000 “

txtbrg2 = “18:05”

txtdtg2 = “20:30”

txtbndr7an2 = “selaparang”

Else

If (LTrim(strhlm)) = “medan” Then

txtharga2 = ” 450.000 “

txtbrg2 = “06:45”

txtdtg2 = “09:00”

txtbndr7an2 = “polonia”

Else

If (LTrim(strhlm)) = “padang” Then

txtharga2 = ” 350.000 “

txtbrg2 = “06:35”

txtdtg2 = “07:40”

txtbndr7an2 = “minangkabau”

Else

If (LTrim(strhlm)) = “palembang” Then

txtharga2 = ” 350.000 “

txtbrg2 = “07:05”

txtdtg2 = “08:00”

txtbndr7an2 = “sultan mahmud badarudin”

Else

If (LTrim(strhlm)) = “pangkal pinang” Then

txtharga2 = ” 450.000 “

txtbrg2 = “10:05”

txtdtg2 = “11:05”

txtbndr7an2 = “depati amir”

Else

If (LTrim(strhlm)) = “pekanbaru” Then

txtharga2 = ” 650.000 “

txtbrg2 = “13:35”

txtdtg2 = “15:30”

txtbndr7an2 = “sultan syarif amir”

Else

If (LTrim(strhlm)) = “pontianak” Then

txtharga2 = ” 950.000 “

txtbrg2 = “06:05”

txtdtg2 = “07:30”

txtbndr7an2 = “supadio”

Else

If (LTrim(strhlm)) = “semarang” Then

txtharga2 = ” 250.000 “

txtbrg2 = “16:05”

txtdtg2 = “17:00”

txtbndr7an2 = “Ahmad yani”

Else

If (LTrim(strhlm)) = “solo” Then

txtharga2 = ” 90.000 “

txtbrg2 = “14:05”

txtdtg2 = “14:40”

txtbndr7an2 = “Adi sumarmo”

Else

If (LTrim(strhlm)) = “surabaya” Then

txtharga2 = ” 450.000 “

txtbrg2 = “06:25”

txtdtg2 = “07:50”

txtbndr7an2 = “juanda”

Else

If (LTrim(strhlm)) = “” Then

MsgBox “maaf anda belum inputkan kota 7an, coba ulangi lagi”, , “WARNING !!”

Else

MsgBox “maaf inputan tidak teridentifikasi, coba periksa dan ulangi lagi”, , “WARNING !!”

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 If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub Text24_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Halim_perdana_kusuma_Jakarta_Click()

End Sub

Private Sub txtbndr_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txtbndr7an_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txtbndr7an2_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txtbrg_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txtbrk2_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txtdtg_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txtdtg2_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txtharga_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txthrg2_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub txtharga2_BeforeUpdate(Cancel As Integer)

End Sub


HASIL DAN EVALUASI

1. Misalkan kita mau memasukan kota tujuan,tekan Enter pada form

Gambar 1.1 form bandara

maka akan keluar tampilan sbb:

Gambar 1.1 Message Box ketika menekan commond botton Enter

2. Misalkan kita menulis “solo” sebagai kota tujuan, maka akan tampil hasil seperti :

Gambar 1.2 tampilan hasil dari inputan

3. jika kita menulis kata “SOLO” dengan huruf besar maka tampilan sama dengan pakai huruf kecil seperti gambar 1.2 diatas.

4. jika kita memasukan nama kota dengan salah tulis, maka akan tampil :

Gambar 1.3 Warning

Tampilan diatas adalah sebuah error handling yang telah kami program sebagai antisipasi apabila terjadi kesalahan pada penulisan nama kota.


5. jika kita belum mengimputkan nama kota, maka akan muncul tampilan :

Gambar 1.4 Warning

Tampilan diatas sebagai pemberitahuan bahwa user belum mengimputkan kota tujuan.


PENUTUP

Semoga dengan terselesaikannya program aplikasi ini dapat membantu para penggunanya dalam mencari informasi tentang jadwal pemberangkatan maskapai penerbangan ARWANA AIRLINE dengan cepat dan tepat .Serta menambah wawasan tentang PEMROGRAMAN BASIS DATA, baik bagi penuilis maupun para pengguna / pembaca .

DAFTAR PUSTAKA

1. Modul 1

( Visual Basic for Aplication (VBA) untuk Microsoft Access )

2. Modul 2

( Structure Query Language ( SQL ) )

3. Modul 3

( Koneksi Database menggunakan ADO, DAO dan ODBC )

4. Modul 4

( Module, Procedure dan Function )

5. Modul 5

( Memanfaatkan Fungsi Library pada VBA )

6. Modul 6

( Strukutur Program Penyeleksi Kondisi )

7. Modul 7

( Struktur Program Pengulangan )

8. http://www.garudaindonesia.com

5 Responses to “contoh format laporan VB”

  1. ok bos,🙂

  2. makasih atas contoh laporannya………. semoga saya berhasil
    terima kasih………….

  3. angga dika ngomong Says:

    baik….baik….
    terima kasih

  4. hisbannauri Says:

    kira-kira judul untuk laporan kerja lapangan di kantor kementrian agama apa… dibidang penerimaan surat masuk dan keluar menggunakan visual basic

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: