Project Aplikasi Sederhana menggunakan Visual Studio code behind VB.Net

Aplikasi yang saya buat disini adalah aplikasi tentang penginputan data-data karyawan yang dilakukan oleh PT. Senang Ceria. Dengan menggunakan Visual Basic dan Microsoft Access. Sehingga, membantu proses penginputannya menjadi lebih mudah dan cepat. 

Di dalam aplikasi yang tersedia disini, user harus menginput data seperti : 

1. NIK

2. Nama

3. Umur

4. Tempat-Tanggal-Lahir

5. Email

6. Alamat

7. Jenis Kelamin 

Untuk menginput data-data dari di Visual Basic ke Ms.Access, kita harus menggunakan toolbox berikut :
1. TextBox   : untuk menginput data NIK, Nama, Umur, Tempat-Tanggal-Lahir, Email, Alamat
2. ComboBox : untuk menginput data Jenis Kelamin
3. Button : untuk menjalankan program aplikasi

• Button Add : untuk menambahkan data karyawan baru PT. Senang Ceria
• Button Find : untuk memudahkan user dalam pencarian data yang sudah tersimpan sebelumnya
• Button Edit : untuk merubah data karyawan PT.Senang Ceria
• Button Print : menampilkan data yang akan langsung bisa di Print oleh user
• Button Browse : untuk menampilkan data karyawan yang sudah tersimpan
• Button Delete : memudahkan user untuk menghapus suatu data karyawan
• Button Exit : button yang digunakan untuk mengeluarkan dari aplikasi Data Karyawan PT.Senang Ceria

Pada aplikasi ini, saya membuat 3 form yang terdiri dari :

1. Form1 yaitu sebagai form inti atau form induk, form ini yang berinteraksi langsung terhadap user dengan menginputkan data-data. Tampilan Form1 seperti dibawah ini :

2. Form Database, yaitu sebagai form yang digunakan untuk memunculkan database yang sudah disimpan oleh user. Gambar dibawah ini merupakan tampilan dari Form Database :

3. Form Report, yaitu form yang menampilkan tampilan seperti berikut ini :

Cara Kerja Aplikasi :

1. BUTTON ADD

• Jika user ingin menambah data karyawan, maka user harus meng-klik button 'add', maka secara otomatis aplikasi akan menyimpan data karyawan baru yang telah kita tambahkan. Saya disini akan mencontohkan dengan menambahkan data "Ambarwati SW".

Secara otomatis data "Ambarwati SW" yang tadi kita tambahkan akan tersimpan, jika kita ingin melihatnya, kita bisa mengklik button 'browse'

2. BUTTON FIND

• Lalu jika kita mau mencari data karyawan, kita bisa mengklik button 'find' yang tersedia. Setelah itu, aplikasi akan memunculkan showdialog yang mengharuskan user untuk mengisi nama yang akan dicari. 

Disini saya contohkan dengan mencari data karyawan PT. Senang Ceria yang bernama "Shawn".

Jika nama/data karyawan tersebut tersedia, maka aplikasi akan memunculkan data karyawannya, seperti berikut :

Tetapi jika data karyawan tersebut tidak tersedia, seperti contohnya disini saya akan mencari data "ASUS"

Maka aplikasi akan memunculkan showdialog 'Data Karyawan yang Anda Cari Tidak Tersedia', seperti berikut :

3. BUTTON EDIT

• Jika kita ingin mengubah data dari data karyawan yang sudah tersedia, kita bisa mengklik button 'Edit', maka secara otomatis data tersebut akan berganti. Disini saya akan mencontohkan dengan mengganti email dari data karyawan shawn yang tadi, yang sebelumnya "SM67@yahoo.com" menjadi "SM9001@yahoo.com"

Setelah kita mengganti emailnya, kita bisa melihat perubahannya dengan mengklik button 'browse'.
Dengan mengklik button ini juga, kita akan bisa melihat semua data karyawan yang telah kita simpan.

5. BUTTON PRINT

• Jika kita ingin mencetak/men-print data karyawannya, kita dapat mengklik button 'print'. Maka secara otomatis akan menampilkan tabel seperti ini :

6. BUTTON DELETE

• Jika ingin meng-hapus suatu data di Data Karyawan, yang harus kita lakukan adalah mencari data yang ingin dihapus dengan mengklik button 'find'. Disini saya akan mencontohkan dengan menghapus data dari "Kengi Jasmine"

Berikut ini adalah data sebelum "Kengi Jasmine" dihapus :

Pencarian data bernama "Kengi Jasmine" dengan menggunakan button 'find' :

 Setelah kita klik button 'oke', maka data dari "Kengi Jasmine" akan keluar

Setelah itu, kita dapat menghapus data "Kengi Jasmine" dengan meng-klik button 'delete'. Dan datanya sudah secara otomatis terhapus.

Untuk mengeceknya, kita dapat klik button 'browse' dan data dari "Kengi Jasmine" sudah berhasil terhapus.

7. BUTTON EXIT

• Jika kita ingin keluar dari aplikasinya, user diharuskan mengklik button 'exit'. Setelah kita klik, aplikasi akan memunculkan showdialog 'konfirmasi', jika kita klik 'yes' maka aplikasi tersebut akan keluar. Dan jika kita mengklik 'no' maka aplikasi akan tetap menampilkan form data karyawan PT.Senang Ceria.

Source Coding 

Form 1 :

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\USER\Documents\DATABASE UAS LAB PEMRO.accdb"
    Dim objekKoneksi As New OleDb.OleDbConnection(koneksi)
    Dim xReader As OleDbDataReader

    Private Sub Button1ADD_Click(sender As Object, e As EventArgs) Handles Button1ADD.Click
        If Button1ADD.Text = "Add" Then
            TextBox11NAMA.Clear()
            TextBox1UMUR.Clear()
            TextBox2NIK.Clear()
            TextBox3ALAMAT.Clear()
            TextBox4EMAIL.Clear()
            TextBox6TTL.Clear()
            ComboBox1JENISKELAMIN.Text = ""
            Button1ADD.Text = "Save"
            TextBox2NIK.Focus()

        Else
            Button1ADD.Text = "Add"

            objekKoneksi.Open()
            Dim tambah As String = "Insert Into TDataKaryawan values('" & TextBox2NIK.Text & "', '" & TextBox11NAMA.Text & "', '" & TextBox1UMUR.Text & "', '" & TextBox6TTL.Text & "', '" & TextBox4EMAIL.Text & "', '" & TextBox3ALAMAT.Text & "', '" & ComboBox1JENISKELAMIN.Text & "')"

            Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
            oCmd.ExecuteNonQuery()
            objekKoneksi.Close()
            MsgBox("Success")

        End If
    End Sub

    Private Sub Button6FIND_Click(sender As Object, e As EventArgs) Handles Button6FIND.Click
        Dim nama As String = InputBox("Masukkan Nama Karyawannya")
        If Not Len(nama) = 0 Then
            'Tutup dan buka koneksi ke database

            objekKoneksi.Close()
            objekKoneksi.Open()

            'Perintah SQL untuk menampilkan berdasarkan kriteria
            Dim cari As String = "Select* from TDataKaryawan where Nama='" + nama + "'"

            Dim ocmd = New OleDbCommand(cari, objekKoneksi)
            xReader = ocmd.ExecuteReader

            'JIKA PERINTAH SELECT DITEMUKAN TAMPILKAN KE TEXTBOX MASING2NYA
            If xReader.HasRows Then
                xReader.Read()
                TextBox11NAMA.Text = xReader("Nama")
                TextBox2NIK.Text = xReader("NIK")
                TextBox1UMUR.Text = xReader("Umur")
                TextBox6TTL.Text = xReader("TempatTglLahir")
                TextBox4EMAIL.Text = xReader("Email")
                TextBox3ALAMAT.Text = xReader("Alamat")
                ComboBox1JENISKELAMIN.Text = xReader("JenisKelamin")

                'jika tidak ditemukan tampilan pesan
            Else
                MsgBox("Data Karyawan yang Anda Cari Tidak Tersedia")
                Exit Sub
            End If
            'tutup perintah pembacaan
            xReader.Close()
        End If
    End Sub

    Private Sub Button5EDIT_Click(sender As Object, e As EventArgs) Handles Button5EDIT.Click
        objekKoneksi.Close()
        objekKoneksi.Open()
        Dim ubah As String = "update TDataKaryawan set Email='" & TextBox4EMAIL.Text & "' where Nama= '" & TextBox11NAMA.Text & " ' "
        Dim oCmd = New OleDbCommand(ubah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Berhasil")
    End Sub

    Private Sub Button3BROWSE_Click(sender As Object, e As EventArgs) Handles Button3BROWSE.Click
        Form_Database.Show()
    End Sub

    Private Sub Button2EXIT_Click(sender As Object, e As EventArgs) Handles Button2EXIT.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 Button4PRINT_Click(sender As Object, e As EventArgs) Handles Button4PRINT.Click
        Form_Report.Show()
    End Sub

    Private Sub Button1delete_Click(sender As Object, e As EventArgs) Handles Button1delete.Click
        Dim hapus As String = "Delete From [TDataKaryawan] where [Nama]='" & TextBox11NAMA.Text & "'"
        Dim oCMD = New OleDbCommand(hapus, objekKoneksi)
        oCMD.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Berhasil")
    End Sub
End Class

Form Database :

Public Class Form_Database

    Private Sub TDataKaryawanBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TDataKaryawanBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.TDataKaryawanBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DATABASE_UAS_LAB_PEMRODataSet)

    End Sub

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

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

        Me.TDataKaryawanTableAdapter.Fill(Me.DATABASE_UAS_LAB_PEMRODataSet.TDataKaryawan)

    End Sub

End Class

Form Report :

Public Class Form_Report

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

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

        Me.TDataKaryawanTableAdapter.Fill(Me.DATABASE_UAS_LAB_PEMRODataSet1.TDataKaryawan)

        Me.ReportViewer1.RefreshReport()

    End Sub

End Class

Sekian penjelasan program aplikasi Data Karyawan PT. Senang Ceria yang saya buat. Mohon maaf bila ada kesalahan kata dan penulisan. Terimakasih :)

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;

}