Program Database Visual Basic Connection (Ms. Access)

PENJELASAN PROGRAM

    Sekarang saya akan menjelaskan tentang program yang saya buat di Visual Basic 2012. Program ini bernama "Program Manajemen Data Bioskop CineMax 26", merupakan program manajemen data bioskop yang tidak hanya untuk meng-input data pemesanan tiket saja melainkan juga bisa membuat laporan data berdasarkan tiket bioskop yang terjual lengkap dengan kode transaksi, no. bangku, taggal pesan, waktu penayangan,  judul film dan harga tiket. Saya menggunakan data source Ms. Access yang diberi nama "Database Bioskop" dan mneggunaka Tabel Source yang diberi nama "Theatre 2".

     

CARA MENGGUNAKAN APLIKASI

Berikut adalah cara menggunakan aplikasi ini :

•      Pada saat program dijalankan , akan muncul form pemesanan untuk memesan tiket bioskop. Disitu terdapat tempat untuk mengisi : Kode Transaksi ( isi textbox kode transaksi dengan awalan "C0" lalu diikuti dengan nomor urut), No. Bangku (terdapat button "Lihat Tempat Duduk" disamping combobox No.Bangku untuk memudahkan customer melihat dimana posisi mereka duduk saat di dalam bioskop,lalu jika sudah menemtukan pilihan, pilihnomor bangku dari combobox yang disediakan), Tanggal Pesan (terdapat Date Time Picker untuk memudahkan customer memilih kapan mereka mau melihat film yang ditayangkan di bioskop), Judul Film (berupa combobox yang menyediakan pilihan film yang ditayangkan pada bulan tersebut), Show Time ( berupa combobox yang menyediakan pilihan waktu penayangan film di bioskop tersebut), Harga Tiket (berupa label yang menunjukan harga 1 tiket bioskop).
•      Setelah data diisi sesuai dengan permintaan customer, terdapat 6 button dan 1 button tambahan untuk memproses data. Button Tambah (dapat berubah tulisan menjadi "Simpan" jika user menekannya,bertujuan untuk menyimpan data yang telah dimasukan), Button Cari (untuk menemukan data yang telah disimpan dengan memasukan kode transaksi), Button Sunting(untuk memudahkan user untuk mengganti data apabila terjadi kesalahan input di peng-input-an sebelumnya), Button Cetak (untuk memperlihatkan hasil data yang di-input dalam bentuk laporan yang tersusun rapi), Button Lihat Data (untuk memastikan apakah data yang sudah diinput masuk ke dalam data base dengan memperlihatkan data di database), Button Tutup ( untuk keluar dari Program), Button Poster Film (untuk memperlihatkan Poster Film yang dipilih), Button Hapus Data (untuk menghapus data yang sudah di entri ke dalam database).
• Berikutnya ada Form "Tempat Duduk" yang fungsinya hanya untuk memperlihatkan posisi tempat duduk dalam bioskop. Untuk mengakses form ini, user hanya perlu menekan tombol "Lihat Tempat Duduk" yang ada disamping textbox No.Bangku
• Lalu ada form "Data Pemesanan" yang berfungsi untuk memperlihatkan data yang telah diinput. Untuk mengakses form ini, user hanya perlu menekan Button Browse.
• Kemudian form "Output Data" untuk menampilkan data dari form"Data Pemesanan" dalam bentuk laporan  yanh lebih rapi. Umtuk mnegakses form ini, user hanya perlu menekan Button Print".

Berikut merupakan hasil screen shoot program yang sedang running :

Berikut adalah Source Code Program :

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=F:\DatabaseBioskop.accdb"

    Dim objKoneksi As New OleDb.OleDbConnection(koneksi)

    Dim xReader As OleDbDataReader

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

    End Sub

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

        If btnAdd.Text = "Add" Then

            btnAdd.Text = "Save"

            txtTrans.Text = ""

            cmbNo.Text = ""

            cmbJudul.Text = ""

            cmbShow.Text = ""

            PictureBox1.Image = Nothing

            txtTrans.Focus()

        Else

            btnAdd.Text = "Add"

            objKoneksi.Open()

            Dim tambah As String = "Insert Into Theatre2 values ('" & txtTrans.Text & "','" & cmbNo.Text & "','" & DateTimePicker1.Text & "','" & cmbJudul.Text & "','" & cmbShow.Text & "','" & lblHarga.Text & "')"

            Dim OCMD = New OleDbCommand(tambah, objKoneksi)

            OCMD.ExecuteNonQuery()

            objKoneksi.Close()

            MsgBox("Sukses")

        End If

    End Sub

    Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click

        Form3.Show()

    End Sub

    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click

        Me.Close()

    End Sub

    Private Sub btnFind_Click(sender As Object, e As EventArgs) Handles btnFind.Click

        Dim kode As String = InputBox("Masukan Kode Transaksi")

        If Not Len(kode) = 0 Then

            objKoneksi.Close()

            objKoneksi.Open()

            Dim cari As String = "SELECT * FROM Theatre2 where KodeTransaksi = '" + kode + "'"

            Dim ocmd = New OleDbCommand(cari, objKoneksi)

            xReader = ocmd.ExecuteReader

            If xReader.HasRows Then

                xReader.Read()

                txtTrans.Text = xReader("KodeTransaksi")

                cmbNo.Text = xReader("NoBangku")

                DateTimePicker1.Text = xReader("TanggalPesan")

                cmbJudul.Text = xReader("JudulFilm")

                cmbShow.Text = xReader("ShowTime")

                lblHarga.Text = xReader("HargaTiket")

            Else

                MsgBox("Kode Transaksi " + kode + " TIDAK ADA")

                Exit Sub

            End If

            xReader.close()

        End If

    End Sub

    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click

        objKoneksi.Close()

        objKoneksi.Open()

        Dim ubah As String = "update Theatre2 set JudulFilm = '" & cmbJudul.Text & "' where TanggalPesan = '" & DateTimePicker1.Text & "'"

        Dim ocmd = New OleDbCommand(ubah, objKoneksi)

        ocmd.ExecuteNonQuery()

        objKoneksi.Close()

        MsgBox("Sukses")

    End Sub
   
 Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
        objKoneksi.Close()
        objKoneksi.Open()

        Dim Hapus As String = "DELETE FROM Theatre2 where KodeTransaksi = '" & txtTrans.Text & "'"
        Dim ocmd = New OleDbCommand(Hapus, objKoneksi)
        ocmd.ExecuteNonQuery()

        txtTrans.Text = ""
        cmbJudul.Text = ""
        cmbNo.Text = ""
        cmbShow.Text = ""

        MsgBox("Data Dihapus")

    End Sub

    Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click

        Form4.Show()

    End Sub

    Private Sub btnLihat_Click(sender As Object, e As EventArgs) Handles btnLihat.Click

        Form2.Show()

    End Sub

End Class

--------------------------------------------------------------------------------------------------------------------------

Form 3

Public Class Form3

    Private Sub Theatre2BindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles Theatre2BindingNavigatorSaveItem.Click

        Me.Validate()

        Me.Theatre2BindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DatabaseBioskopDataSet)

    End Sub

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

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

        Me.Theatre2TableAdapter.Fill(Me.DatabaseBioskopDataSet.Theatre2)

    End Sub

End Class

--------------------------------------------------------------------------------------------------------------------------

Form 4

Public Class Form4

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

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

        Me.Theatre2TableAdapter.Fill(Me.DatabaseBioskopDataSet.Theatre2)

        Me.ReportViewer1.RefreshReport()

    End Sub

End Class

Excel & Word Automation Visual Basic

Penjelasan Program

  Program ini merupakan program yang bisa membantu para pengajar yang memiliki kewajiban untuk meng-input nilai dari siswa yang diajarnya, dan memudahkan pengajar untuk membuat data laporan nilai siswa dan membuat surat pemberitahuan kelulusan siswa. Program ini menggunakan koding Excel dan Word Automation untuk meng-otomasi program Visual Basic ke Ms. Excel & Ms.Word.

Berikut adalah cara penggunaan aplikasi :

• ·        Pada saat program dijalankan, yang pertama kali keluar adalah form pengisian data siswa. Pengajar dapat mengisikan nama siswa,nomor siswa dan nilai siswa.
• ·        Setelah data selesai diisi, pengajar harus menekan tombol hitung data untuk memproses nilai siswa.
• ·        Di bagian paling bawah form, terdapat tombol “Baru”, “Surat Pemberitahuan”,”Lihat Data”,dan “Selesai”. Berikut penjelasan untuk tombol        :

Ø  Tombol “Baru” = Tombol ini berfungsi untuk membersihkan data yang tadi diisikan                                  dan membuat form siap diisi data baru.

   

Ø  Tombol “Surat Pemberitahuan” = Tombol ini berfungsi untuk membuat visual basic

   terhubung dengan Ms.Word untuk surat

   pemberitahuan kelulusan.

Ø  Tombol “Lihat Data” = Tombol ini berfungsi untuk membuat program yang ada di                                              visual basic terhubung dengan Ms.Excel untuk membantu 

                                                             membuat laporan data nilai siswa.

Ø  Tombol “ Selesai” = Tombol ini berfungsi jika pengajar sudah menyelesaikan tugasnya

        untuk meng-input nilai siswa.

 Dalam program ini saya tidak hanya menggunkan prgram Visual Basic sebagai mesin penghitung, tetapi juga memanfaatkan aplikasi Ms.Excel untuk menghitung akumulasi nilai siswa. Dengan menambahkan rumus pada sel-sel tertentu. Source Code dibawah, memungkinkan user untuk memasukan data siswa yang jumlahnya banyak.

Screen Shoot Hasil Running Program

                                               NB : Terdapat garis merah sebagai bookmark surat

Source Code

Imports Excel = Microsoft.Office.Interop.Excel

Imports Word = Microsoft.Office.Interop.Word

Public Class Form1

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

        Dim myExcelApp As New Excel.Application

        Dim myExcelBook As Excel.Workbook

        Dim row As Long

        Dim myExcelSheet As Excel.Worksheet

        myExcelApp.Visible = True

        myExcelBook = myExcelApp.Workbooks.Open("F:\ExcelWordAutomation\Book1.xlsx")

        myExcelSheet = myExcelBook.Sheets("Sheet1")

        row = myExcelSheet.Range("A" & myExcelSheet.Rows.Count).End(Excel.XlDirection.xlUp).Row

        myExcelApp.Range("A1").Value = "No."

        myExcelApp.Range("B1").Value = "Nama Mahasiswa"

        myExcelApp.Range("C1").Value = "NPM"

        myExcelApp.Range("D1").Value = "Jenis Kelamin"

        myExcelApp.Range("E1").Value = "Statistik"

        myExcelApp.Range("F1").Value = "Diskrit"

        myExcelApp.Range("G1").Value = "Matek"

        myExcelApp.Range("H1").Value = "Ekonomi"

        myExcelApp.Range("I1").Value = "Akuntansi"

        myExcelApp.Range("J1").Value = "Nilai Rata-Rata"

        myExcelApp.Range("K1").Value = "Grade"

        myExcelApp.Range("L1").Value = "Keterangan"

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

        myExcelApp.Range("B" & row + 1).Value = txtNama.Text

        myExcelApp.Range("C" & row + 1).Value = txtNPM.Text

        myExcelApp.Range("D" & row + 1).Value = lblJK.Text

        myExcelApp.Range("E" & row + 1).Value = txtSta.Text

        myExcelApp.Range("F" & row + 1).Value = txtDis.Text

        myExcelApp.Range("G" & row + 1).Value = txtMat.Text

        myExcelApp.Range("H" & row + 1).Value = txtEko.Text

        myExcelApp.Range("I" & row + 1).Value = txtAkn.Text

        Me.txtNama.Text = ""

        Me.txtNPM.Text = ""

        Me.lblJK.Text = ""

        Me.txtSta.Text = ""

        Me.txtDis.Text = ""

        Me.txtMat.Text = ""

        Me.txtEko.Text = ""

        Me.txtAkn.Text = ""

        myExcelBook.SaveAs("F:\ExcelWordAutomation\Book1.xlsx")

        myExcelApp.Quit()

    End Sub

    Private Sub btnBaru_Click(sender As Object, e As EventArgs) Handles btnBaru.Click

        txtAkn.Text = ""

        txtDis.Text = ""

        txtEko.Text = ""

        txtMat.Text = ""

        txtNama.Text = ""

        txtNPM.Text = ""

        txtSta.Text = ""

        txtNama.Focus()

    End Sub

    Private Sub btnSelesai_Click(sender As Object, e As EventArgs) Handles btnSelesai.Click

        Me.Close()

    End Sub

    Private Sub rbtLaki_CheckedChanged(sender As Object, e As EventArgs) Handles rbtLaki.CheckedChanged

        lblJK.Text = rbtLaki.Text

    End Sub

    Private Sub rbtPer_CheckedChanged(sender As Object, e As EventArgs) Handles rbtPer.CheckedChanged

        lblJK.Text = rbtPer.Text

    End Sub

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

    End Sub

    Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click

        Dim myWordApp As New Word.Application

        Dim myWordDoc As New Word.Document

        myWordApp.Visible = True

        myWordDoc = myWordApp.Documents.Open("F:\ExcelWordAutomation\Word1.docx")

        myWordDoc.Bookmarks("Nama1").Select()

        myWordApp.Selection.Font.Name = "Times New Roman"

        myWordApp.Selection.Font.Size = 12

        myWordApp.Selection.TypeText(txtNama.Text)

        myWordDoc.Bookmarks("Nama2").Select()

        myWordApp.Selection.Font.Name = "Times New Roman"

        myWordApp.Selection.Font.Size = 12

        myWordApp.Selection.TypeText(txtNama.Text)

        myWordDoc.Bookmarks("NPM").Select()

        myWordApp.Selection.Font.Name = "Times New Roman"

        myWordApp.Selection.Font.Size = 12

        myWordApp.Selection.TypeText(txtNPM.Text)

        myWordDoc.Bookmarks("Ket").Select()

        myWordApp.Selection.Font.Name = "Bradley Hand ITC"

        myWordApp.Selection.Font.Size = 16

        myWordApp.Selection.Font.Bold = 1

        myWordApp.Selection.TypeText(lblKet.Text)

        myWordDoc.Bookmarks("Pred").Select()

        myWordApp.Selection.Font.Name = "Times New Roman"

        myWordApp.Selection.Font.Size = 12

        myWordApp.Selection.Font.Bold = 1

        myWordApp.Selection.TypeText(lblPred.Text)

        myWordDoc.Bookmarks("Pred2").Select()

        myWordApp.Selection.Font.Name = "Times New Roman"

        myWordApp.Selection.Font.Size = 12

        myWordApp.Selection.Font.Bold = 1

        myWordApp.Selection.TypeText(lblPred2.Text)

        myWordDoc.SaveAs("F:\ExcelWordAutomation\Word1.docx")

        myWordApp.Quit()

    End Sub

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

        lblRata.Text = (Val(txtAkn.Text) + Val(txtDis.Text) + Val(txtEko.Text) + Val(txtMat.Text) + Val(txtSta.Text)) / 5

        If (lblRata.Text >= 85) Then

            lblPred.Text = "A"

        ElseIf (lblRata.Text >= 75) Then

            lblPred.Text = "B"

        ElseIf lblRata.Text >= 60 Then

            lblPred.Text = "C"

        ElseIf lblRata.Text >= 55 Then

            lblPred.Text = "D"

        Else : lblPred.Text = "E"

        End If

        If (lblPred.Text = "A") Then

            lblKet.Text = "Lulus"

        ElseIf (lblPred.Text = "B") Then

            lblKet.Text = "Lulus"

        ElseIf (lblPred.Text = "C") Then

            lblKet.Text = "Lulus Bersyarat"

        Else : lblKet.Text = "Tidak Lulus"

        End If

        If (lblPred.Text = "A") Then

            lblPred2.Text = "Sangat Baik"

        ElseIf (lblPred.Text = "B") Then

            lblPred2.Text = "Baik"

        ElseIf (lblPred.Text = "C") Then

            lblPred2.Text = "Cukup"

        ElseIf (lblPred.Text = "D") Then

            lblPred2.Text = "Kurang"

        Else : lblPred2.Text = "Sangat Kurang"

        End If

    End Sub

End Class

Program C++ Interaktif

Hallo Readers, posting lagi nih. Sekarang aku mau kalian lihat hasil tugas UAS Matkul Konsep Pemrograman punya aku. Semoga bermanfaat ya, jangan lupa cantumkan sumber kalau mau copy paste ya. See you on next post :)

Penjelasan Program

Program ini merupakan program interaktif yang memberikan kebebasan pada user untuk memilih masalah apa yang ingin dibahas berikut dengan penyelesaiannya. Dalam program ini saya menggunakan 4 materi bahasan yang telah dibahas, diantaranya : Struct, String, Class, dan Array. Berikut adalah algoritma program :

1.     Pada output awal saya menggunakan string untuk menginput nama pengguna.

2.     Setelah itu user diberi 3 pilihan masalah yang ingin diselesaikan, seperti program perhitungan fisika (kecepatan, jarak, waktu), program perhitungan nilai akhir, juga program pemanggilan data yang diperlukan.

3.     Jika user memilih problem pertama denganmemasukkan angka 1, maka akan muncul komponen-komponen perhitungan fisika. Dalam program ini saya menggunakan fungsi class yang merupakan metode untuk organisasi data dan fungsi dalam struktur yang sama.

4.  Jika user memilih problem kedua dengan memasukkan angka 2, maka akan muncul objek pelajaran dan user dituntut untuk memasukkan angka yang berhubungan dengan nilai yang mereka miliki pada objek pelajaran tertentu. Dalam program ini saya menggunakan fungsi struct merupakan kumpulan berbagai tipe data yang memiliki ukuran yang berbeda di kelompokan dalam satu deklarasi unik.

5.     Jika user memilih problem ketiga dengan memasukkan angka 3, maka akan muncul program pemanggilan data dan dilihat lalu dipanggil sesuai dengan angka baris dan kolom yang dimasukkan pengguna. Dalam program ini saya menggunakan fungsi array yang merupakan himpunan elemen (variable) dengan tipe yang sama dan disimpan secara berurutan dalam memory yang ditandai dengan memberikan index pada suatu nama variable.

Screen Shoot Hasil Running Program

Ini adalah dialog input, kalian harus memasukkan angka 1,2, atau 3 sesuai dengan pilihan pertanyaan,jika sudah selesai input tekan enter.

Jika kalian memasukkan angka 1 pada input awal, akan keluar output seperti ini    :

Jika kalian memasukkan angka 2 pada input awal, akan keluar output seperti ini    :

Jika kalian memasukkan angka 3 pada input awal, akan keluar output seperti ini    :

Source Code Program

// UASkp.cpp : Defines the entry point for the console application.

//

#include"stdafx.h"

#include<iostream>

using namespace std;

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

class physic{

public:

       int velocity(int space, int time){

             int velocity = space / time;

             return velocity;

       }

       int space(int velocity, int time){

             int space = velocity*time;

             return space;

       }

       int time(int velocity, int space){

             int time = space / velocity;

             return time;

       }

}PhysicOperation;

struct HighScores{

       char Grade[5];

       int Math;

       int Chemistry;

       int Biology;

       int Physics;

       int English;

       float Final;

}Scores;

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

{

       cout<<"Welcome to My Program!!! Have a Nice Day :)";

       cout<<endl;

       cout<<endl;

       char widi[100];

       cout<<"What's Your Name? ";

       cin.getline(widi, 100);

       cout<<endl;

       cout<<"Hello "<<widi<<" Nice to Meet You :)"<<".\n";

       cout<<endl;

       cout<<endl;

       cout<<"What do you want to ask?";

       cout<<endl;

       cout<<"1. I can help your physics problem (velocity,time,space)";

       cout<<endl;

       cout<<"2. I can help to count your final scores";

       cout<<endl;

       cout<<"3. I can help to call the data that you need";

       cout<<endl;

       cout<<endl;

       int a;

       cout<<"Enter your question number : ";

       cin>> a;

       if (a <= 1){

             cout<<"Choose your problem";

             cout<<endl;

             cout<<"Count the Velocity : 1";

             cout<<endl;

             cout<<"Count the Space : 2";

             cout<<endl;

             cout<<"Count the Time ; 3";

             cout<<endl;

             cout<<endl;

             int choice;

             cout<<"Enter your Phisycs Problem : ";

             cin>> choice;

             cout<<endl;

             if (choice <= 1){

                    int s;

                    cout<<"Enter the Space : ";

                    cin>> s;

                    int t;

                    cout<<"Enter The Time (Hours) : ";

                    cin>> t;

                    int VelocityResult;

                    VelocityResult =PhysicOperation.velocity(s,t);

                    cout<<"Velocity : "<<VelocityResult<<endl;

                    cout<<"Thank you for coming!!! See you soon!!!!";

                    cout<<endl;

             }

             else if (choice <= 2){

                    int v;

                    cout<<"Enter the Velocity : ";

                    cin>> v;

                    int t;

                    cout<<"Enter the Time (Hours) : ";

                    cin>> t;

                    int SpaceResult;

                    SpaceResult = PhysicOperation.space(v, t);

                    cout<<"Space : "<<SpaceResult<<endl;

                    cout<<"Thank you for coming!!! See you soon!!!!";

                    cout<<endl;

             }

             else {

                    int s;

                    cout<<"Enter the Space : ";

                    cin>> s;

                    int v;

                    cout<<"Enter the Velocity : ";

                    cin>> v;

                    int TimeResult;

                    TimeResult = PhysicOperation.time(v, s);

                    cout<<"Time : "<<TimeResult<<endl;

                    cout<<"Thank you for coming!!! See you soon!!!!";

                    cout<<endl;

             }

       }

       else if (a <= 2){

             cout<<"Enter your Scores";

             cout<<endl;

             cout<<"Math Scores : ";

             cin>> (Scores.Math);

             cout<<endl;

             cout<<"Chemistry Scores : ";

             cin>> (Scores.Chemistry);

             cout<<endl;

             cout<<"Biology Scores : ";

             cin>> (Scores.Biology);

             cout<<endl;

             cout<<"Physics Scores : ";

             cin>> (Scores.Physics);

             cout<<endl;

             cout<<"English Scores : ";

             cin>> (Scores.English);

             cout<<endl;

             cout<<endl;

             int FinalScores;

             FinalScores = (Scores.Math * 20 / 100) + (Scores.Chemistry * 20 / 100) + (Scores.Biology * 20 / 100) + (Scores.Physics * 20 / 100) + (Scores.English * 20 / 100);

             cout<<"Final Score : "<<FinalScores;

             cout<<endl;

                           if (FinalScores>= 80){

                    cout<<"Grade = A";

             }

             else if (FinalScores>= 70){

                    cout<<"Grade = B";

             }

              else if (FinalScores>= 65){

                    cout<<"Grade = C";

             }

             else if (FinalScores>= 55){

                    cout<<"Grade = D";

             }

             else {

                    cout<<"Grade = E";

             }

             cout<<endl;

             if (FinalScores>= 65){

                    cout<<"Congratulation for Your High Grade";

             }

             else{

                    cout<<"I'm Sorry to Hear That, You Have Many Chances to Repair Your Grade";

             }

             cout<<endl;

             cout<<endl;

             cout<<"Thank you for coming!!! See you soon!!!!";

             cout<<endl;

       }

       else{

             cout<<" Data : {(row1){1,2,3,4,5},(row2){6,7,8,9,10}}";

             cout<<endl;

             int num1;

             cout<<"Enter Row :  ";

             cin>> num1;

             int num2;

             cout<<"Enter Column : ";

             cin>> num2;

             cout<<"Data : "<<billy[num1][num2];

             cout<<endl;

             cout<<endl;

             cout<<"Thank you for coming!!! See you soon!!!!";

             cout<<endl;

       }

       return 0;

}