UAS LAB. PEMROGRAMAN BISNIS 2

SITI NURSALEHA

1506715936

AKUNTANSI TEKNOLOGI SISTEM INFORMASI

PROGRAM VOKASI

UNIVERSITAS INDONESIA

1. PENJELASAN PROGRAM

Aplikasi yang saya buat adalah aplikasi penghubung antara Ms. Access dan Visual Studio. Tujuan dibuatnya aplikasi ini adalah untuk memudahkan mengakses database tanpa harus membuka Ms. Access. Yaitu dengan cara 'Add New Data Source' pada Visual Basic dan menambahkan MS. Access sebagai referensinya, serta memilih file database .accdb yang dituju sebagai referensi.  Aplikasi ini dapat:

• Membuat database baru (Create)
• Menampilkan database (Read)
• Memperbarui database (Edit)
• Mencari database (Find)
• Menghapus database (Delete)

Database yang saya gunakan pada aplikasi ini adalah Database Kependudukan. Database Kependudukan ini berisi data-data yang harus diinput yang berkaitan dengan kependudukan. Di antaranya:

• Nama Lengkap (Text Box)
• No. KK (Text Box)
• Alamat (Text Box)
• Nama Kepala Keluarga (Text Box)
• Tempat Lahir (Text Box)
• Agama (Text Box)
• Pekerjaan (Text Box)
• Hubungan Keluarga (Ayah/Ibu/Anak) (Combo Box)
• No. Paspor (Text Box)
• Nama Ibu (Text Box)
• Nama Ayah (Text Box)
• No. Hp (Text Box)
• No. Telp (Text Box)
• NIK (Text Box)
• Jenis Kelamin (Combo Box)
• Pendidikan Terakhir (Combo Box)
• Status Perkawinan (Combo Box)
• Kewarganegaraan (Text Box)

Pada database di MS. Access semua data yang harus diinput tersebut mempunyai data type Text, karena dalam pengisiannya beragam bisa berupa huruf dan angka yang dikombinasikan.

Cara Menjalankan Program:

• Ketika program di run, akan muncul menu utama dari aplikasi ini. Ketika anda mengklik button 'Create' anda baru bisa menginputkan data-data pada tool box yang tersedia. Ketika semua data terisi, klik button 'Save'. Maka data yang baru saja anda isi tersebut akan tersimpan ke dalam database di Ms. Access.
• Jika anda ingin melihat/membaca database kependudukan yang diinput, anda klik button 'Read'. Maka akan muncul form baru yang akan menampilkan database tersebut.
• Ketika anda ingin mengedit suatu data, misal anda berganti alamat maka anda harus mengupdate database. Anda bisa melakukannya dengan meng-klik button Find terlebih dahulu untuk mencari database yang akan diedit, kemudian akan muncul input box, yang meminta anda untuk memasukan No. KK. Berdasarkan no. KK tersebut, data yang lain akan otomatis terbaca dan siap untuk diedit/diperbarui. Ketika selesai, klik button 'Update', maka data akan terupdate langsung.
• Jika anda ingin menghapus data, anda bisa klik button 'Find' lalu memasukan No. KK anda yang kemudian akan membaca data anda, lalu klik delete untuk menghapus, maka data akan terhapus dari database.

2. SCREEN SHOOT PROGRAM

Tampilan utama aplikasi:

Tampilan utama database di Ms, Access:

Ketika meng-create database baru:

Data berhasil tersimpan:

Ketika ingin membaca/menampilkan database:

Ketika ingin mencari database dengan klik button Find lalu menginputkan no. KK:

Ketika data yang dicari terbaca:

Ketika mengedit salah satu di antara data tersebut, ex: mengedit alamat menjadi 'jakarta' lalu mengklik button update:

Ketika data berhasil diupdate:

Ketika ingin menghapus database, ex: ingin menghapus data yang baru saja dicreate dengan mengklik button 'Delete':

Ketika data sudah terhapus dan hilang dari database:

3. SOURCE CODE

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Windoes7\Documents\Database3.accdb"

    Dim objekKoneksi As New OleDb.OleDbConnection(koneksi)

    Dim xReader As OleDbDataReader

    Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click

        Me.Close()

    End Sub

    Private Sub btncreate_Click(sender As Object, e As EventArgs) Handles btncreate.Click

        If btncreate.Text = "CREATE" Then

            txtnamalengkap.Clear()

            txtkewarganegaraan.Clear()

            cmbhubungankeluarga.Text = ""

            cmbk.Text = ""

            cmbpendidikan.Text = ""

            cmbstatus.Text = ""

            txtagama.Clear()

            txtalamat.Clear()

            txtnamaayah.Clear()

            txtnamaibu.Clear()

            txtnamakepalakeluarga.Clear()

            txtnik.Clear()

            txtnohp.Clear()

            txtnokk.Clear()

            txtnopaspor.Clear()

            txtnotelp.Clear()

            txtpekerjaan.Clear()

            txttempatlahir.Clear()

            btncreate.Text = "SAVE"

            txtnamalengkap.Focus()

        Else

            btncreate.Text = "CREATE"

            objekKoneksi.Open()

            Dim tambah As String = "INSERT INTO tKependudukan values('" & txtnamalengkap.Text & "', '" & txtnokk.Text & "', '" & txtalamat.Text & "', '" & txtnamakepalakeluarga.Text & "', '" & txttempatlahir.Text & "', '" & txtagama.Text & "', '" & txtpekerjaan.Text & "', '" & cmbhubungankeluarga.Text & "', '" & txtnopaspor.Text & "', '" & txtnamaibu.Text & "', '" & txtnamaayah.Text & "', '" & txtnohp.Text & "', '" & txtnotelp.Text & "', '" & txtnik.Text & "', '" & cmbk.Text & "', '" & cmbpendidikan.Text & "', '" & cmbstatus.Text & "', '" & txtkewarganegaraan.Text & "')"

            Dim oCmd = New OleDbCommand(tambah, objekKoneksi)

            oCmd.ExecuteNonQuery()

            objekKoneksi.Close()

            MsgBox("Success!!!")

        End If

    End Sub

    Private Sub btnread_Click(sender As Object, e As EventArgs) Handles btnread.Click

        Form2.Show()

    End Sub

    Private Sub btnedit_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub BTNFIND_Click(sender As Object, e As EventArgs) Handles BTNFIND.Click

        Dim kode As String = InputBox("Masukkan No KK")

        If Not Len(kode) = 0 Then

            'Tutup dan buka koneksi ke database

            objekKoneksi.Close()

            objekKoneksi.Open()

            'Perintah SQL untuk menampilkan berdasarkan kriteria

            Dim cari As String = "Select* from tKependudukan where NoKK='" + kode + "'"

            Dim ocmd = New OleDbCommand(cari, objekKoneksi)

            xReader = ocmd.ExecuteReader

            'JIKA PERINTAH SELECT DITEMUKAN TAMPILKAN KE TEXTBOX MASING2NYA

            If xReader.HasRows Then

                xReader.Read()

                txtnokk.Text = xReader("NoKK")

                txtnamalengkap.Text = xReader("NamaLengkap")

                txtkewarganegaraan.Text = xReader("Kewarganegaraan")

                txtagama.Text = xReader("Agama")

                txtalamat.Text = xReader("Alamat")

                txtnamaayah.Text = xReader("NamaAyah")

                txtnamaibu.Text = xReader("NamaIbu")

                txtnamakepalakeluarga.Text = xReader("NamaKepalaKeluarga")

                txtnik.Text = xReader("NIK")

                txtnohp.Text = xReader("NoHP")

                txtnokk.Text = xReader("NoKK")

                txtnopaspor.Text = xReader("NoPaspor")

                txtnotelp.Text = xReader("NoTelp")

                txtpekerjaan.Text = xReader("Pekeraan")

                txttempatlahir.Text = xReader("TempatLahir")

                cmbhubungankeluarga.Text = xReader("HubunganKeluarga")

                cmbk.Text = xReader("JenisKelamin")

                cmbpendidikan.Text = xReader("Pendidikan")

                cmbstatus.Text = xReader("StatusPerkawinan")

                'jika tidak ditemukan tampilan pesan

            Else

                MsgBox("DATA TIDAK ADA!")

                Exit Sub

            End If

            'tutup perintah pembacaan

            xReader.Close()

        End If

    End Sub

    Private Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click

        objekKoneksi.Close()

        objekKoneksi.Open()

        Dim ubah As String = "update tKependudukan set Alamat='" & txtalamat.Text & "' where NamaLengkap= '" & txtnamalengkap.Text & " ' "

        Dim oCmd = New OleDbCommand(ubah, objekKoneksi)

        oCmd.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Sukses")

    End Sub

    Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click

        Dim hapus As String = "Delete From [tKependudukan] where [NoKK]='" & txtnokk.Text & "'"

        Dim oCMD = New OleDbCommand(hapus, objekKoneksi)

        oCMD.ExecuteNonQuery()

        objekKoneksi.Close()

        MsgBox("Berhasil")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) 

    End Sub

End Class

***

Public Class Form2

    Private Sub TKependudukanBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TKependudukanBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.TKependudukanBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.Database3DataSet)

    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'Database3DataSet.tKependudukan' table. You can move, or remove it, as needed.

        Me.TKependudukanTableAdapter.Fill(Me.Database3DataSet.tKependudukan)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.Close()

    End Sub

End Class

Sekian. Terima Kasih.

***

PR (TUGAS) Lab. Pemrograman Bisnis 2 : Automation Excel dan Word (PROGRAM AUTOMASI FORM PENDAFTARAN)

SITI NURSALEHA
1506715936
AKUNTANSI TEKNOLOGI SISTEM INFORMASI
VOKASI UI
MATA KULIAH LAB. PEMROGRAMAN BISNIS 2

PROGRAM AUTOMASI FORM PENDAFTARAN

1. Penjelasan

Program ini merupakan program automasi dari VB  ke MS. Word dan MS. Excel. Pertama-tama hanya menginput data pada form VB, kemudian data-data tersebut akan terbaca di Excel dan Word.
Dalam hal ini, saya membuat form pada VB dengan judul Form Pendaftar. Pendaftar yang dimaksudkan di sini adalah pendaftar yang akan mengisikan data diri untuk mengikuti suatu acara Kuis yaitu Kuis Siapa Takut. Data-data yang harus diinput pada Form Pendaftar adalah:

- Nama Lengkap
- Nama Panggilan
- Asal Kota
- Umur
-No Telepon

Data-data tersebut akan diinputkan dalam sebuah text box. Kemudian, setelah data yang terakhir diinputkan akan terisi pada file Excel dan data tersebut akan disimpan ke Excel dengan meng-klik button "Save". Ketika sudah menginput suaru data, anda bisa langsung memulai entry baru lagi setelahnya, data akan tetap tersimpan dan data yang sebelumnya tidak hilang, melainkan akan tersimpan dalam bentuk tabel dan akan mengupdate dengan sendirinya jika ditambah entry baru. Lalu, data juga dapat dicetak ke bentuk kertas, melalui Ms. Word dengan meng-klik button  "Cetak Form". Jika, ingin mengisikan entry baru anda dapat meng-klik button "Mulai Baru". Dan terakhir, untuk menutup program anda dapat meng-klik button "Close". Untuk melihat data yang tersimpan di Excel anda dapat menuju library lalu membuka file yang dimaksud, atau membuka Excel terlebih dahulu lalu meng-klik file yang berada pada recent dengan nama file yang sudah ada / sudah anda buat.

2. Source Code

Imports Microsoft.Office.Interop
Public Class Form1
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnclose.Click
        Me.Close()
    End Sub

    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
        Dim app As New Excel.Application
        Dim book As Excel.Workbook
        Dim row As Long
        Dim sheet As Excel.Worksheet

        book = app.Workbooks.Open("D:\prvb2nure.xlsx")
        sheet = book.Sheets("Sheet1")
        row = sheet.Range("A" & sheet.Rows.Count).End(Excel.XlDirection.xlUp).Row

        app.Range("A1").Value = "No."
        app.Range("B1").Value = "Nama Lengkap"
        app.Range("C1").Value = "Nama Panggilan"
        app.Range("D1").Value = "Asal Kota"
        app.Range("E1").Value = "Umur"
        app.Range("F1").Value = "No. Telp"

        app.Range("A" & row + 1).Value = CStr(row)
        app.Range("B" & row + 1).Value = txtnamalengkap.Text
        app.Range("C" & row + 1).Value = txtnamapanggilan.Text
        app.Range("D" & row + 1).Value = txtasalkota.Text
        app.Range("E" & row + 1).Value = txtumur.Text
        app.Range("F" & row + 1).Value = txtnotelp.Text
        book.Save()


    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btncetak.Click
        Dim mywordapp As New Word.Application
        Dim myworddoc As New Word.Document
        myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
        myworddoc.Bookmarks("bknamalengkap").Select()
        mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
        mywordapp.Selection.Font.Name = "Times New Roman"
        mywordapp.Selection.Font.Size = 14
        mywordapp.Selection.TypeText(txtnamalengkap.Text)


        myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
        myworddoc.Bookmarks("bknamapanggilan").Select()
        mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
        mywordapp.Selection.Font.Name = "Times New Roman"
        mywordapp.Selection.Font.Size = 14
        mywordapp.Selection.TypeText(txtnamapanggilan.Text)


        myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
        myworddoc.Bookmarks("bkasalkota").Select()
        mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
        mywordapp.Selection.Font.Name = "Times New Roman"
        mywordapp.Selection.Font.Size = 14
        mywordapp.Selection.TypeText(txtasalkota.Text)


        myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
        myworddoc.Bookmarks("bkumur").Select()
        mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
        mywordapp.Selection.Font.Name = "Times New Roman"
        mywordapp.Selection.Font.Size = 14
        mywordapp.Selection.TypeText(txtumur.Text)


        myworddoc = mywordapp.Documents.Open("D:\Biodata Pendaftar.docx")
        myworddoc.Bookmarks("bknotelp").Select()
        mywordapp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
        mywordapp.Selection.Font.Name = "Times New Roman"
        mywordapp.Selection.Font.Size = 14
        mywordapp.Selection.TypeText(txtnotelp.Text)
        myworddoc.SaveAs("D:\Biodata Pendaftar Baru.docx")
        mywordapp.Visible = True

    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnMulai.Click

        Me.txtnamalengkap.Text = ""
        Me.txtnamapanggilan.Text = ""
        Me.txtasalkota.Text = ""
        Me.txtumur.Text = ""
        Me.txtnotelp.Text = ""
        Me.txtnamalengkap.Focus()

    End Sub

End Class


3. Screen Shoot Program

Ketika ingin memulai suatu entry baru dengan mengklik button "Mulai Baru"

Ketika sudah mengisikan seluruh data ke text box dan ingin menyimpannya ke Excel dengan meng-klik button "Save"

Ketika sudah meg-klik save dan ingin membuka file excel tersebut dengan menuju ke Ms. Excel dan mencari file pada Recent

Ketika file sudah ditemukan dan melihat file tersebut dengan dalam keadaan data terakhir yang diinput sudah tersimpan

Ketika ingin mencetak form atau membaca form pada Ms. Word dengan cara meng-klik button "Cetak Form"

Ketika data yang diinput terbaca di Ms. Word dan siap untuk dicetak

-Sebelum data yang diinput terbaca di Ms. Word

-Sesudah data yang diiput terbaca di Ms. Word

UAS KONSEP PEMROGRAMAN (C++)

UAS KONSEP PEMROGRAMAN (C++)

8 JUNI 2016

DISUSUN OLEH:

SITI NURSALEHA

1506715936

1.      Penjelasan Program

Program yang saya buat adalah sebuah program mengenai transaksi di counter pulsa online bernama Siti Nursaleha Cell. Di counter pulsa ini menjual pulsa dengan segala jenis provider dan dengan nominal berkelipatan Rp. 5.000,-. Dalam program ini, saya menggunakan 4 fungsi, yaitu:

-          Structure (struct)

-          String

-          Class

-          If, Else

Pada saat seseorang menjalankan program, orang tersebut akan ditanyai nama depan dan nama belakangnya, kemudian disambut ucapan selamat datang dengan menggabungkan kedua namanya (nama depan dan nama belakang). Di sini saya menggunakan fungsi String.

Kemudian, si pembeli akan ditanyakan provider yang ia pakai dan nomor handphone tujuan. Di sini saya menggunakan Structure. Lalu, pembeli akan menuliskan besaran nominal pulsa yang ingin dibeli, pada saat tersebut terjadilah perhitungan yang berlangsung di Class. Perhitungan tersebut mengenai berapa jumlah uang yang harus dibayarkan ke toko pulsa atas pulsa yang telah dibeli. Tidak hanya itu, toko pulsa ini juga mengadakan promo untuk menarik untuk menarik pelanggan, apabila pelanggan membeli pulsa dengan nominal minimal Rp. 150.000,- maka akan mendapatkan bonus pulsa gratis sebesar Rp. 5.000,-. Saya menggunakan fungsi If, Else untuk mengoperasikannya.

2.      Screen Shoot Program

3.      Source Coding

// sitinursaleha_sesi tambahan uas.cpp : Defines the entry point for the console application.

//

#include "stdafx.h"

#include <iostream>

using namespace std;

struct KiosPulsaSitiNursaleha{

    char Provider[100];

    int nohp;

}KiosPulsaku;

int _tmain()

{

    cout << "SELAMAT DATANG DI COUNTER PULSA ONLINE, SITI NURSALEHA CELL!";

    cout << endl;

    cout << "--------------------------------------------------------------------------------";

    cout << endl;

    cout << "PROMO! BELI PULSA DENGAN NOMINAL MINIMAL Rp. 150.000,- DAPAT BONUS PULSA GRATIS SEBESAR Rp. 5.000,- LOH!";

    cout << endl;

   

    char NamaDepan[100];

    char NamaBelakang[100];

    cout << "Masukan nama depan Anda :";

    cin.getline(NamaDepan, 100);

    cout << "Masukan nama belakang Anda :";

    cin.getline(NamaBelakang, 100);

    cout << "Selamat datang, " << strcat(NamaDepan, NamaBelakang) << endl;

    cout << "Jenis Provider: ";

    cin >> KiosPulsaku.Provider;

    cout << "Masukan nomor handphone anda dengan benar: ";

    cin >> KiosPulsaku.nohp;

    class totalbayar {

    public:

            int bayar(int nilai1, int nilai2=2000) {

                    int bayar = (nilai1 + nilai2);

                    return bayar;

            }

    }SitiNursaleha1506715936;

            {int nominal1, nominal2, totalbayarr;

            cout << "Masukan nominal pulsa yang ingin dibeli (kelipatan Rp. 5.000,-) = ";

            cin>>nominal1;

            totalbayarr = SitiNursaleha1506715936.bayar(nominal1, nominal2 = 2000);

            cout << "Total yang harus anda bayar adalah = " << totalbayarr << endl;

            if (totalbayarr>=150000)

            {

                    cout << "Selamat! Anda akan mendapatkan bonus pulsa sebesar Rp.5000,-";

                    cout << endl;

            }

            else

            {

                    cout << endl;

            }

    }

   

    return 0;

}