WORD AUTOMATION & EXCEL AUTOMATION (VB.NET)

1. Penjelasan Program Aplikasi

Program yang saya buat ini adalah program untuk meng-automasi VB.NET ke Ms.Word atau Ms.Excel. sebagai contoh, saya membuat form peminjaman buku di perpustakaan. Dimana nanti akan menginput :

• 1.       No. Transaksi (TextBox)
• 2.       Tanggal Transaksi (DateTimePicker)
• 3.       Nama Pelanggan (TextBox)
• 4.       Jenis Kelamin (RadioButton)
• 5.       No Telepon (TextBox)
• 6.       Alamat (TextBox)
• 7.       Judul Buku (TextBox)
• 8.       Pengarang (TextBox)
• 9.       Penerbit buku (TextBox)

Ketika semua data sudah diinputkan, ketika kita meng-klik “Simpan”, maka data akan tersimpan di Ms.Excel. Jika kita ingin mencetak data tersebut, maka kita klik “Cetak Data” dengan begitu data akan meng-automasi dari VB.NET ke Ms.Word dan kita bisa langsung mencetaknya. Jika kita meng-klik “Mulai Baru”, maka data yang sudah kita tulis sebelumnya akan hilang dan kita bisa menulis lagi dari awal (No.Transaksi) tanpa harus menghapus satu-satu. Jika kita meng-klik “Keluar”, maka form tersebut secara otomatis akan tertutup.

2. Screen Shoot

Ini adalah form peminjaman buku yang saya buat :

Contoh data yang akan diinput dari VB.NET ke Ms.Word & Ms.Excel

Data yang sudah kita input diatas, akan muncul seperti ini jika kita mengklik "Simpan", secara automatis dia akan menyimpan data tersebut (yang berwarna kuning) ke Ms.Excel

Jika kita meng-klik "Cetak Data", maka akan muncul data yang telah kita input tadi ke Ms.Word (yang berwarna kuning)

Jika kita meng-klik "Mulai Baru", maka secara otomatis data yang kita input akan hilang dan ita bisa menginput data baru tanpa harus menghapusnya satu persatu

Jika kita meng-klik "Keluar", maka akan muncul form dialog seperti gambar dibawah ini

Jika kita meng-klik "Yes" maka program tersebut akan tertutup, sedangkan kalau kita meng-klik "No" maka program tersebut tidak tertutup sehingga kita masih bisa menginput data lagi.

3. Source Coding

Imports Microsoft.Office.Interop

Imports word = Microsoft.Office.Interop.Word

Public Class Form1

    Dim app As New Excel.Application

    Dim book As Excel.Workbook

    Dim row As Long

    Dim sheet As Excel.Worksheet

    Dim myWordApp As New Word.Application

    Dim myworddoc As New Word.Document

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

        book = app.Workbooks.Open("D:\tugas excel P.AG.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 = "Nomor Transaksi"

        app.Range("C1").Value = "Tanggal Transaksi"

        app.Range("D1").Value = "Nama Pelanggan"

        app.Range("E1").Value = "Jenis Kelamin"

        app.Range("F1").Value = "Nomor Telepon"

        app.Range("G1").Value = "Alamat"

        app.Range("H1").Value = "Judul Buku"

        app.Range("I1").Value = "Pengarang"

        app.Range("J1").Value = "Penerbit"

        app.Range("A" & row + 1).Value = CStr(row)

        app.Range("B" & row + 1).Value = TextBoxnotransaksi.Text

        app.Range("C" & row + 1).Value = DateTimePicker1.Text

        app.Range("D" & row + 1).Value = TextBoxnama.Text

        If RadioButton1.Checked Then

            app.Range("E" & row + 1).Value = RadioButton1.Text

        End If

        If RadioButton2.Checked Then

            app.Range("E" & row + 1).Value = RadioButton2.Text

        End If

        app.Range("F" & row + 1).Value = TextBoxtelp.Text

        app.Range("G" & row + 1).Value = TextBoxalamat.Text

        app.Range("H" & row + 1).Value = TextBoxjudul.Text

        app.Range("I" & row + 1).Value = TextBoxpengarang.Text

        app.Range("J" & row + 1).Value = TextBoxpenerbit.Text

        book.Save()

        app.Quit()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Buttonkeluar.Click

        Dim a As String

        a = MsgBox("Akan Keluar..?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If a = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub Buttonmulaibaru_Click(sender As Object, e As EventArgs) Handles Buttonmulaibaru.Click

        Me.TextBoxnotransaksi.Text = ""

        Me.TextBoxnama.Text = ""

        Me.RadioButton1.Checked = False

        Me.RadioButton2.Checked = False

        Me.TextBoxtelp.Text = ""

        Me.TextBoxalamat.Text = ""

        Me.Textboxjudul.Text = ""

        Me.TextBoxpenerbit.Text = ""

        Me.TextBoxpengarang.Text = ""

        Me.TextBoxnotransaksi.Focus()

    End Sub

    Private Sub Buttoncetakdata_Click(sender As Object, e As EventArgs) Handles Buttoncetakdata.Click

        Dim mywordapp As New word.Application

        Dim myworddoc As New word.Document

        myworddoc = mywordapp.Documents.Open("D:\TUGASPEMRO.docx")

        myworddoc.Bookmarks("no").Select()

        myWordApp.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft

        myWordApp.Selection.Font.Name = "Franklin Gothic Demi Cond"

        myWordApp.Selection.Font.Size = 16

        myWordApp.Selection.TypeText(TextBoxnotransaksi.Text)

        myworddoc.Bookmarks("tanggal").Select()

        myWordApp.Selection.Paragraphs.Alignment = word.WdParagraphAlignment.wdAlignParagraphLeft

        myWordApp.Selection.Font.Name = "Franklin Gothic Demi Cond"

        myWordApp.Selection.Font.Size = 16

        myWordApp.Selection.TypeText(DateTimePicker1.Text)

        myworddoc.Bookmarks("nama").Select()

        myWordApp.Selection.Paragraphs.Alignment = word.WdParagraphAlignment.wdAlignParagraphLeft

        myWordApp.Selection.Font.Name = "Franklin Gothic Demi Cond"

        myWordApp.Selection.Font.Size = 16

        myWordApp.Selection.TypeText(TextBoxnama.Text)

        myworddoc.Bookmarks("jeniskelamin").Select()

        If RadioButton1.Checked Then

            myWordApp.Selection.TypeText(RadioButton1.Text)

        End If

        If RadioButton2.Checked Then

            myWordApp.Selection.TypeText(RadioButton2.Text)

        End If

        myworddoc.Bookmarks("notelp").Select()

        myWordApp.Selection.Paragraphs.Alignment = word.WdParagraphAlignment.wdAlignParagraphLeft

        myWordApp.Selection.Font.Name = "Franklin Gothic Demi Cond"

        myWordApp.Selection.Font.Size = 16

        myWordApp.Selection.TypeText(TextBoxtelp.Text)

        myworddoc.Bookmarks("alamat").Select()

        myWordApp.Selection.Paragraphs.Alignment = word.WdParagraphAlignment.wdAlignParagraphLeft

        myWordApp.Selection.Font.Name = "Franklin Gothic Demi Cond"

        myWordApp.Selection.Font.Size = 16

        myWordApp.Selection.TypeText(TextBoxalamat.Text)

        myworddoc.Bookmarks("judulbuku").Select()

        myWordApp.Selection.Paragraphs.Alignment = word.WdParagraphAlignment.wdAlignParagraphLeft

        myWordApp.Selection.Font.Name = "Franklin Gothic Demi Cond"

        myWordApp.Selection.Font.Size = 16

        myWordApp.Selection.TypeText(Textboxjudul.Text)

        myworddoc.Bookmarks("pengarang").Select()

        myWordApp.Selection.Paragraphs.Alignment = word.WdParagraphAlignment.wdAlignParagraphLeft

        myWordApp.Selection.Font.Name = "Franklin Gothic Demi Cond"

        myWordApp.Selection.Font.Size = 16

        myWordApp.Selection.TypeText(TextBoxpengarang.Text)

        myworddoc.Bookmarks("penerbit").Select()

        myWordApp.Selection.Paragraphs.Alignment = word.WdParagraphAlignment.wdAlignParagraphLeft

        myWordApp.Selection.Font.Name = "Franklin Gothic Demi Cond"

        myWordApp.Selection.Font.Size = 16

        mywordapp.Selection.TypeText(TextBoxpenerbit.Text)

        myworddoc.SaveAs("D:\TUGASPEMRO.docx")

        mywordapp.Visible = True

        

    End Sub

End Class

UJIAN AKHIR SEMESTER KONSEP PEMOGRAMAN

Saya Ambarwati Setyorini Wibowo dari Vokasi Akuntansi Teknologi Sistem Informasi UI 2015 membuat tugas ini untuk memenuhi tugas mata kuliah Konsep Pemograman. Saya membuat program ini dengan menggunakan  bahasa C++.

1. Penjelasan Program Aplikasi

Disini saya menggunakan 4 fungsi, yaitu :
1. String
2. Array
3. If Else
4. Class

Saya menggunakan string untuk :

·         memperkenalkan nama

·         mengubah huruf capital

·         mengubah menjadi huruf kecil

·         membalikkan karakter pada nama

Saya menggunakan Class untuk menghitung Nilai Akhir Mata Kuliah Konsep Pemograman.

Diantaranya terdiri dari :

·         Nilai Tugas

·         Nilai Quis

·         Nilai Persentasi

·         Nilai UAS

·         Nilai UTS

·         Nilai Akhir

Saya menggunakan If Else untuk menentukan Keterangan dan Grade.

         Keterangan :

-                                       - Jika Nilai diatas 65, maka keterangan = Lulus

-                                       - Jika nilai dibawah 65, maka keterangan = Tidak Lulus

          Grade :

           - Jika nilai diatas 85, grade = A

           - Jika nilai diatas 70 , grade = B

           - Jika nilai diatas 55 , grade = C

           - Jika nilai dibawah 55, grade= D

2. Screen Shoot

3. Source Coding

// ambarkpH-.cpp : Defines the entry point for the console application.

//

#include "stdafx.h"

#include <iostream>

using namespace std;

int _tmain(int argc, _TCHAR* argv[])

{

       char NamaDepan[100];

       char NamaBelakang[100];

       cout << "Hallo Selamat Datang di Mata Kuliah Konsep Pemograman";

       cout << endl;

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

       cout << endl;

       cout << "Masukan Nama Depan Anda :";

       cin.getline(NamaDepan, 100);

       cout << "Masukan Nama Belakang Anda :";

       cin.getline(NamaBelakang, 100);

       cout << " Hallo Nama Anda : " << strcat(NamaDepan , NamaBelakang) << endl;

       cout << "Jumlah Karakter Nama Anda : " << strlen(NamaDepan) << endl;

       cout << "Mengubah Nama Anda Menjadi Huruf Kapital : " << _strupr(NamaDepan) << endl;

       cout << "Mengubah Nama Anda Menjadi Huruf Kecil : " << _strlwr(NamaDepan) << endl;

       cout << "Membalikkan Karakter Pada Nama Anda : " << _strrev(NamaDepan) << endl;

       cout << endl;

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

       cout << endl;

       cout << "Menghitung Nilai Akhir Mata Kuliah Konsep Pemograman";

       cout << endl;

       class nilaiambar{

       public:

              int tugas(int nilai1, int nilai2){

                     int tugas = (nilai1 + nilai2) / 2;

                     return tugas;

              }

              int quis(int nilai1, int nilai2){

                     int quis = (nilai1 + nilai2) / 2;

                     return quis;

              }

              int persentasi(int nilai1, int nilai2){

                     int persentasi = (nilai1 + nilai2) / 2;

                     return persentasi;

              }

             

       }AmbarwatiSetyoriniWibowo1506715942;

       {

              int tugas, quis, persentasi, nilai1, nilai2, nilaiuas, nilaiuts;

              string keterangan;

              cout << "Masukkan Nilai Tugas Pertama Anda = ";

              cin >> nilai1;

              cout << "Masukkan Nilai Tugas Kedua Anda = ";

              cin >> nilai2;

              tugas = AmbarwatiSetyoriniWibowo1506715942.tugas(nilai1, nilai2);

              cout << "Hasil Akhir Nilai Tugas = " << tugas << endl;

              cout << "Masukkan Nilai Quis Pertama Anda =";

              cin >> nilai1;

              cout << "Masukkan Nilai Quis Kedua  Anda = ";

              cin >> nilai2;

              quis = AmbarwatiSetyoriniWibowo1506715942.quis(nilai1, nilai2);

              cout << "Hasil Akhir Nilai Quis = " << quis << endl;

              cout << "Masukkan Nilai Persentasi Pertama Anda =";

              cin >> nilai1;

              cout << "Masukkan Nilai Persentasi Kedua  Anda = ";

              cin >> nilai2;

              persentasi = AmbarwatiSetyoriniWibowo1506715942.persentasi(nilai1, nilai2);

              cout << "Hasil Akhir Nilai Persentasi = " << persentasi << endl;

              cout << "Masukkan Nilai UTS Anda = ";

              cin >> nilaiuts;

              cout << "Masukkan Nilai UAS Anda = ";

              cin >> nilaiuas;

              int a;

              a = (tugas + quis + persentasi + nilaiuts + nilaiuas) / 5;

              cout << "Nilai Akhir = " <<   a;

              cout << endl;

              if (a >= 65){

                     cout << "Keterangan = Lulus";

              }

              else{

                     cout << "Keterangan = Tidak Lulus";

              }

              cout << endl;

              int b;

              b = (tugas + quis + persentasi + nilaiuts + nilaiuas) / 5;

      

              if (b >= 85){

                     cout << "Grade = A";

              }

              else if (b >= 70) {

                     cout << "Grade = B";

              }

              else if (b >= 55) {

                     cout << "Grade = C";

              }

              else{

                     cout << "Grade = D";

              }

              cout << endl;

       }

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

       cout << endl;

       cout << "Fungsi Array : ";

       int ambar[2][5] = { { 1, 3, 5, 7, 9 }, { 2, 4, 6, 8, 10 } };

      

              cout << ambar[1][2];

              cout << endl;

              cout << ambar[0][2];

              cout << endl;

       return 0;

}