Kamis, 19 Juni 2014

PEMBAHASAN MASALAH tentang VISUAL STUDIO (VB) 2008. prakerin RPL



BAB III
PEMBAHASAN MASALAH

3.1 Uraian Materi
           
          3.1.1 Pengertian Data

Data adalah kumpulan kejadian yang diangkat dari suatu kenyataan (fakta), dapat berupa angka-angka, huruf, simbol-simbol khusus, atau gabungan dari ketiganya. Data masih belum dapat ‘bercerita’ banyak sehingga perlu diolah lebih lanjut.
Penertian data juga bisa berarti kumpulan file atau informasi dengan tipe tertentu, baik suara, gambar atau yang lainnya.
Definisi data adalah “facts or information used in deciding or discussing something”. Terjemahan bebasnya: “fakta atau informasi yang digunakan
dalam menentukan atau mendiskusikan sesuatu”. Juga bisa berarti “information prepared for or stored by a computer” dalam bahasa Indonesia berarti “informasi yang disiapkan untuk atau disimpan oleh komuter.
Menurut Kamus Besar Bahasa Indonesia  pengertian data adalah keterangan yang benar dan nyata. Atau keterangan atau bahan nyata yang dapat dijadikan bahan kajian (analisis atau kesimpulan).

            Data terdiri dari:

  1. Elemen data yaitu satuan data terkecil yang tidak dapat di pecah lagi menjadi unit lain yang bermakna.
  2. Rekaman (record) yaitu gabungan sejumlah elemen data yang saling berhubungan.
  3. Berkas (File) adalah kumpulan dari record-record yang bertipe s






3.1.2    Pengertian Basis Data
Basis Data adalah:
Menurut “Siberschatz, dkk.; (2002) mendefinisikan basisdata sebagai kumpulan data berisi informasi yang sesuai untuk sebuah perusahaan. System manajemen basisdata (DBMS) adalah kumpulan data yang saling berhubungan dan kumpulan program untuk mengakses data. Tujuan utama system manajemen basisdata adalah menyediakan cara menyimpan dan mengambil informasi basisdata secara mudah dan efisien”.

3.1.3        Perangkat Lunak yang Digunakan

1.      Microsoft Visual basic 2008

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjFJ0gOt7AaFcOOSvBo8NP2GEdKWIYulM54yUigU80suwDxPK2Ca5VbTfAFnFMeEvu_JPgMrCrc4mE2Z4CjUIPi-g15JNi3N22-ILcsdHGEvxz0Xshq9wO0en2nIftpwFVIXEv0sVo250A/s400/0002.jpg
Gambar 3.1.3.1. Microsoft Visual basic 2008

pengertian Microsoft Visual Basic (sering di sinngkat VB saja)Merupakan sebuah bahasa pemrograman yang menawarkan integrated development enviromente(ide visual untuk mmbuat program prangkat lunak berbasis sistem oprasi microsoft windows dengan menggunakan model pemrograman (com),



visual basic merupakan turunan bahasa pemograman basic dan menawarkan
pengembangan prangkat lunak kompuer berbasis grafik dengan cepat ,beberapa bahasa skrip seperti visual basic for applications (VBA)dan visual basic scripting edition (VBS cripte); mirip seperti halnya visuaal basic ,tetapi caran  kerjanya yang berbeda

2.    Microsoft Office Access 2007

cc
Gambar 3.1.3.2. Microsoft Office Access 2007

Adalah suatu program aplikasi basis data komputer relasional yang digunakan untuk merancang, membuat dan menngolah berbagai jenis data dengan kapasitas yang besar. Aplikasi ini menggunakan mesin basi data microsoft z database engine,dan juga menggunakan tampilan grapis yang intutip sehingga memudahkan pengguna. Persi terahir adalah microsoft office sistem 2007,









3.1.3.1.                        Pengerian Microsoft Visual Basic

images
Gambar 3.1.3.1.1.  Microsoft Visual Basic

pengertian Microsoft Visual Basic (sering di sinngkat VB saja)Merupakan sebuah bahasa pemrograman yang menawarkan integrated development enviromente(ide visual untuk mmbuat program prangkat lunak berbasis sistem oprasi microsoft windows dengan menggunakan model pemrograman (com),visual basic merupakan turunan bahasa pemograman basic dan menawarkan pengembangan prangkat lunak kompuer berbasis grafik dengan cepat ,beberapa bahasa skrip seperti visual basic for applications (VBA)dan visual basic scripting edition (VBS cripte); mirip seperti halnya visuaal basic ,tetapi caran  kerjanya yang berbeda














3.1.3.2.      Cara kerja Visual Basic 2008

Sebelum memulai, pastikan software Microsoft Visual Basic .NET 9.0 sudah terinstal pada komputer anda
untuk memulai membuka Ikutin langkah berikut :
Klik Menu Start > All Program > Microsoft Visual Studio 2008 > Microsoft Visual Studio 2008


memilih vb
Gambar 3.1.3.2.1. Tampilan  memilih visual studio 2008







Kemudian akan ditampilkan IDE (Integrated Development Environtmen) atau sebutannya lingkungan kerja, seperti gambar berikut :

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjFJ0gOt7AaFcOOSvBo8NP2GEdKWIYulM54yUigU80suwDxPK2Ca5VbTfAFnFMeEvu_JPgMrCrc4mE2Z4CjUIPi-g15JNi3N22-ILcsdHGEvxz0Xshq9wO0en2nIftpwFVIXEv0sVo250A/s400/0002.jpg
Gambar 3.1.3.2.2. Tampilan Integrated Development Environtmen

Lalu kita akan membuat sebuah pro
ject baru, caranya adalah :
·                     Klik Menu File > New Project ; atau
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhlUREIinfy6CH0Zn8yYXrcA-F6M-xVKUrqbKeX2QZXfgjqSvJr4n8oti1HWVOQIL1kQzVjdcZ7oDI74VZ_fZp1LaJK2KAl6Q0ND_YMPPtsnVc8ggykciS8JJFK2FPBSzgExebgeZPiBM4/s1600/0004.jpg

Gambar 3.1.3.2.3. Tampilan untuk membuat projek baru









Lalu akan tampil kotak dialog "New Project". Pada Name ketik nama proyek Anda. Misalkan : "Proyek Pertama Saya". Lalu Klik OK.

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiH5kVagBZAC0G9lYf9fI1Q5EJ14VZmTwJD2UR7lqr0NLtoCMBqRdtvXABvfbKhxiNTr2AKp_ZPy6Ak96MfWIyoP4ucMEggU4av_IeLV62Ud3l_fedtC7u3XCzP8vn1iZPKt9upvS7RWHo/s400/0005.jpg

Gambar 3.1.3.2.4. Tampilan untuk memberi nama Program

Project baru. Berikut adalah tampilannya.

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiznj-vHcjYAwK8r-wLEyhVGNc2vd6gBaOmcHnvSj0en7CEZqr9ClJjfGZHnAbry-eb3agX8QeQHwP_XUkCs3iK575t2BjAoP6JxRFeA1W7GjUsXKJNjXJ1SlnPLz9ECHyaVgdTBsnAfzs/s400/0006.jpg

Gambar 3.1.3.2.5. tampilan dasar



Adapun Komponen- Komponen dalam Microsoft Visual Basic 2008.

    1. Project
Project adalah sekumpulan modul.Jadi Project adalah  program aplikasi itu sendiri. Project di simpan dalam file yang berektensi. VB. File ini menyimpan seluruh komponen program termasuk project, pilihan eviroment dan segala sesuatu yang sesuatu yang berhubungan dengan project.

    1. Form
Form adalah suatu obyek yang di pakai sebagai tempat kerja program aplikasi.
Berbentuk jendela dan dapat di bayangkan sebagai kertas atau meja yang dapat di lukis di letakan kedalamnya object- object lain.






















    1. Toolbox

toolbok
Gambar 3.1.3.2.6. Toolbok

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1jTEvfn90LfOZMJ39Ccaq-3i7KMEuogXrV6rC0KAIFxYHz5dhA-d87MAO2fKWhl3VtulmOuRT91qlWUXuLeUmEaETGUVnHd6Yb5RNuX75KUN6lfLDOcvJDtILxlN5bRe0W-MBbFfkUM0/s640/Visual_studio_toolbox.jpg
Gambar 3.1.3.2.7. Pointer
Pointer gunannya untuk memilih untuk mengatur ukuran dan memindahkan posisi control pada bagian form
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvdGsDfolvWJUOTfHtGFDNn6DVLtDwxRTOTykI4Kgn_-gIZXiWvJbWjlGi3QDQjkCoxuRANGuU-WhH2FPMNHSUfdyC7GcXPvSvomZ4-66Nabo1PZVrY9ws8S8SXmDNixevlWu_n9aoPBw/s640/Visual_studio_toolbox+2.jpg
Gambar 3.1.3.2.8. Button

Button gunannya untuk menambahkan control tombol perintah

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9WFHyHV43mJUg3rS8LGmsn8y1HMbEUzBtMsA0PHMRaQceXhCsO8o192sIZIRE3N2Ew4s3wFri2NoJD0RTgeKj3E0dLjfGDvs6QvW2jx7TJd-ZM-ZFecIjw8zUBBHsKEpuz0aVfb7EbNs/s640/Visual_studio_toolbox+3.jpg
Gambar 3.1.3.2.8. Chekbox

CheckBox gunannya untuk menambahkan kotak periksa / checklist / pilihan
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhw9XUdOhZDQNSsMUu2LuLFRjCNxKF0BMdGdcepjIwZhMjG9IIOU5zV4lgFNDWKI3fjy2Ak3nFU-zJYF1h1fs2N03tB1YcbpaN6FRnQkhntkxyk-K9o4Nqm-Gixvij3sW6gBNMWHkF8amw/s640/date.jpg
Gambar 3.1.3.2.9. Date Time picker

DateTimePicker gunannya untuk menampilkan / mengeset tanggal di suatu form
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMQO6PwNRo0EztL-TmMzBJXB2wBKQnbRrozULJ55gYkPCwJyWB3Gh6unwWqT4Bx4BCV9J5uwX3XiD3dnC5lR2ZL2zFnesCCCCAFixrr73j6WvpdLNW-gomK3eVfssn6PAW2IUdkhtaYC8/s640/label.jpg
Gambar 3.1.3.2.10. Label

Label gunannya untuk menambah label atau text tambahan
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRRI9eUcAtSR-tadDV8rGsYsm8Gfh_Db4PUPggwoUGGksgNZXUCqvfd-Gr7qxkkP0ceHE8M2CqxpEluKYaulOP4_xA-UqIJwq6PF74XmuaW3IcqLlK-oh_vD5DK9KP-kJ4xhyphenhyphenOICAYne0/s640/link.jpg
Gambar 3.1.3.2.11. Link label





LinkLabel gunannya untuk menambah label atau text yang bisa dikasih link url agar bisa langsung ke alamat web yang dituju
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivJU_uMAraxci_SaSb6wORa2QyWxavYHn9nL0XxsLHLljIAWgoKNhwL5xPNi5U7Gr-B1efP3b8aYKez3xoedrB13ydzwL5tfG28Ij0oX9nuxOMqNcpn0j7zQVFOrKxljH5MLZeSrSvKPw/s640/calender.jpg
Gambar 3.1.3.2.12. MonthCalender

MonthCalender gunannya untuk menampilkan tanggal dalam satu bulan dengan tampilan penuh

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEieFxsd8iqGvfIznv3p6jfXt7tgw3bcf2GN6DK9jT86OULthKCAFT4PHCPAriuvDycFiU-IoGw0Gagvl-war1UaZi_1lye0dINM_aUnE4DfIP28JGAL4uUY666LDgEgZHd70ubV28X-AqI/s640/gambar.jpg
Gambar 3.1.3.2.13. PictureBox
 PictureBox gunannya untuk memasukan gambar pada form
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGb_3UMficy60eF8rp_xl1EeShQ3E_7ssUPlE-rikARtBFsYRexSpqlPB6JbnwtnxxmxytN8PSS6E-yD7z2F7GvWhT_nBkzh-leE72TADC8mIlfMtFFqG2UEkVGXmbAruggcZ9MqGGJng/s640/textbox+.jpg
Gambar 3.1.3.2.14. TextBox

TextBox gunannya untuk menampilkan tulisan
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh85dFc8sDNDCXM5sU38wIy4bVqAzEESNimzA5_-aWoR88nE2MxZMYq7rxkK7wFX-RBosNC2iC5Dcut-ENOlBxHLuRVDDWzWy3lH0w-WkADDBKRWWIRJRgXBWEB-XQcxFnF9bVvCR-XIn0/s640/webbrowser.jpg
Gambar 3.1.3.2.15. WebBrowser

WebBrowser gunannya untuk membuat halaman browsing di internet








    1. Properties

propertis
Gambar 3.1.3.2.16. Properties



Properties diigunakan untuk menentukan ssseting suatu objek. Suatu objek biasa mempunyai beberapa properties yang dapat di atur langsung dari jendela properties atau lewat kode program.seting properties akan menentukan cara kerja dari object yang bersangkutan saat program aplikasi di jalankan. Misalnya menentukan warna objek, bingkai objek, pengambilan data dll. Untuk mengaktipkan properties dengan cara mengklik menu >view>Properties window atau dengan menekan tombol F4.




    1. Kode Program

Kode program adalah serangkaian tulisan perintah yang akan di lakukan jika suatu obyek dijalankan . Kode program ini akan mengontrol dan menentukan jalan nya suatu objek..


kode prograsm
Gambar 3.1.3.2.17.  kode Program

    1. Toolbar dan Menubar

Untitledc

Gambar 3.1.3.2.18. Toolbar dan menubar





    1. Event

Event adalah peristiwa atau kejadian yang diterima oleh suatu objek. Misalnya di klik, di drag dll. Event yang diterima objek akan memicu MS.Visual Studio 2008 menjalankan kode program yang ada di dalamnya.
Contoh Event:

Private Sub Form2_Click()

Baris diatas menunjukan penggunaan event clik pada objek form, yang berarti jika form di klik maka baris-baris kode program yang ada di bawah nya akan di jalankan.

3.2.         Analisis Pembuatan Program
           
            3.2.1 Alasan Membuat Program

            Dalam penulisan Laporan ini Penulis mengambil judul laporan tentang “      Penulis mengambil judul tersebut karena di tempat kerja industri tersebut masih menggunakan sistem yang manual.
Penulis mengambil judul Laporan tersebut agar pendataan menjadi lebih efisien, sehingga dapat terkondisikan menjadi lebih baik, dan tidak memakan waktu lama.












3.2.2.  Data atau Field yang Dibutuhkan

Penjelasan Data Pada Tabel Pemesanan Barang

Kode Dokumen
Kode Dokumen di input sesuai dengan yang ada di dokumen
Nama dokumen
Nama dokumen
Lemari
Nomor lemari
Rak
Nomor Rak yang ada di lemari
Gambar 3.2.2.1. fiel di ms.acces



3.2.3.         data flowchart (Algoritma)

Flowchart adalah urutan langkah-langkah penyelesaian sebuah masalah yang di susun secara logis ,sistematis, tersusun menggunakan simbol-simbol.
















Berikut ini simbol flowchart:

xxx
Gambar 3.2.3.1. Simbol Flowchart










Gambar berikut adalah simbol flowchart yang umum digunakan:



Gambar 3.2.3.2. Flowchart
3.3.  Rancangan Desain

3.3.1. Struktur Tabel
Untitledcc 
3.3.1.1. struktur tabel
            3.3.2. Tampilan Login


 












Gamb

Gambar 3.3.2.1. Tampilan Login


            3.3.4.  Tampilan menu utama



 












Gambar 3.3.4.1. Tampilan Menu utama

3.3.5.  Tampilan  untuk Menginput
 














Gambar 3.3Tampilan Menginput

3.3.6 . Tampilan Output
 















Gambar 3.2.2.4.1. Tampilan Output




Program Inpentaris UPK Karangnunggal
                                   
                                    Cari




 
3.2.2.4. Tampilan Input dan Output









Gambar
 


Gambar
 






Output
 
 













Gambar 3.2.2.4.1. Input dan Output
3.4.         Hasil Program

3.4.1.  Tampilan Login
xxx
Gambar 3.4.1.1. Tampilan Login

3.4.2.  Tampilan  Menu Utama
wdwsd
Gambar 3.4.2.1. Tampilan Input menu utama

3.4.3.   Tampilan Input
zxzs
Gambar 3.4.3.1. Tampilan Input

3.4.4.  Tampilan Output
vbv
Gambar 3.4.4.1. Tampilan Outpu
3.4.5.  Tampilan Input dan Output
zxxz
Gambar 3.4.5.1. Input dan Output

            3.2.3. Listing program
Log in

Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Me.TextBox1.Text = "UPK KRN" And Me.TextBox2.Text = "upeka" Then
            Beranda.Show()
        Else
            MsgBox("Nama Pengguna Atau Kata Sandi Yang Anda Masukan Salah... Cobalagi")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label9.Text = Format(Now(), "HH:mm:ss")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'menampilkan hari pada object lblhari
        Dim hari As String
        Select Case Weekday(Today)
            Case 1 : hari = "Minggu"
            Case 2 : hari = "Senin"
            Case 3 : hari = "Selasa"
            Case 4 : hari = "Rabu"
            Case 5 : hari = "Kamis"
            Case 6 : hari = "Jum,at"
            Case 7 : hari = "Sabtu"
        End Select
        Label5.Text = hari

        'menampilkan tanggal pada object lbltanggal
        Label7.Text = Format(Today, "dd-MM-yyyy")
    End Sub
End Class


Beranda

Public Class beranda

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label9.Text = Format(Now(), "HH:mm:ss")
    End Sub




    Private Sub beranda_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'menampilkan hari pada object lblhari
        Dim hari As String
        Select Case Weekday(Today)
            Case 1 : hari = "Minggu"
            Case 2 : hari = "Senin"
            Case 3 : hari = "Selasa"
            Case 4 : hari = "Rabu"
            Case 5 : hari = "Kamis"
            Case 6 : hari = "Jum,at"
            Case 7 : hari = "Sabtu"
        End Select
        Label5.Text = hari

        'menampilkan tanggal pada object lbltanggal
        Label7.Text = Format(Today, "dd-MM-yyyy")
    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub

    Private Sub CariToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CariToolStripMenuItem.Click
        CARI.Show()
    End Sub
End Class

Input dan hasil input
Public Class Input
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label9.Text = Format(Now(), "HH:mm:ss")
    End Sub


    Private Sub Input_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Lemari_Buku_UPK_KarangnunggalDataSet.Data_Buku' table. You can move, or remove it, as needed.
        Me.Data_BukuTableAdapter.Fill(Me.Lemari_Buku_UPK_KarangnunggalDataSet.Data_Buku)
        'menampilkan hari pada object lblhari
        Dim hari As String
        Select Case Weekday(Today)
            Case 1 : hari = "Minggu"
            Case 2 : hari = "Senin"
            Case 3 : hari = "Selasa"
            Case 4 : hari = "Rabu"
            Case 5 : hari = "Kamis"
            Case 6 : hari = "Jum,at"
            Case 7 : hari = "Sabtu"
        End Select
        Label5.Text = hari

        'menampilkan tanggal pada object lbltanggal
        Label7.Text = Format(Today, "dd-MM-yyyy")
    End Sub

    Private Sub Data_BukuBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Data_BukuBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Data_BukuBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Lemari_Buku_UPK_KarangnunggalDataSet)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Validate()
        Me.Data_BukuBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Lemari_Buku_UPK_KarangnunggalDataSet)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Data_BukuBindingSource.AddNew()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Validate()

        Me.Data_BukuBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Lemari_Buku_UPK_KarangnunggalDataSet)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Data_BukuBindingSource.RemoveCurrent()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        CARI.Show()
    End Sub
End Class

Cari

Public Class CARI

    Private Sub Data_BukuBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Data_BukuBindingNavigatorSaveItem.Click
  Me.Validate()
        Me.Data_BukuBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Lemari_Buku_UPK_KarangnunggalDataSet)

    End Sub

    Private Sub CARI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Lemari_Buku_UPK_KarangnunggalDataSet.Data_Buku' table. You can move, or remove it, as needed.
        Me.Data_BukuTableAdapter.Fill(Me.Lemari_Buku_UPK_KarangnunggalDataSet.Data_Buku)

        Me.ReportViewer1.RefreshReport()
    End Sub

    Private Sub ttsearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsearch.TextChanged
        Me.Data_BukuTableAdapter.FillBynama(Me.Lemari_Buku_UPK_KarangnunggalDataSet.Data_Buku, txtsearch.Text)

        Me.ReportViewer1.RefreshReport()
    End Sub
End Class



Tidak ada komentar:

Posting Komentar