MEMBUAT PROGRAM APLIKASI SEDERHANA MENGGUNAKAN VISUAL STUDIO 2012.

Hallo Semuanya.

Disini saya akan menjelaskan sedikit penjelasan tentang Visual Studio.

Visual Basic merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak / aplikasi berbasis sistem operasi Microsoft Windows yang berbasis GUI (Grapical User Interface).

Dan selanjutnya cara membuat program aplikasi sederhana menggunakan Visual Studio 2012.

Untuk pengoperasiannya:

1.       Input Data.

2.       Proses.

3.       Simpan.

4.       Tampilkan / Output (Data yang sudah tersimpan dan sudah terkoneksi oleh database Ms. Acces).

Yang harus ada untuk menjalankan program di Visual Studio 2012:

1.       Contoh Design (via Gambar).

2.       Database (via Gambar).

3.       Grid View (via Gambar).

4.       Source Code Button BELI (via Source Code).

5.       Source Code Button CARI (via Source Code).

6.       Source Code Button SIMPAN (via Source Code).

7.       Source Code Button TAMPIL (via Source Code).

8.       Hasil RUN Program yang telah kita buat (via Gambar).

9.       Source Code Database Beli (via Source Code).

10.   Source Code Database Sepatu (via Source Code).

11.   Source Code Database Ms. Access (via Source Code).

Contoh Design:

Gambar 1.1

Data Base:

A.      Tabel Sepatu.

Gambar 1.2.1

B.      Tabel Beli.

Gambar 1.2.2

Grid View:

Gambar 1.3

Source Code Button Beli:

<asp:Button ID="BtnBeli" runat="server" Text="BELI" />

&nbsp;&nbsp;&nbsp;

Source Code Button Cari:

<asp:Button ID="BtnCari" runat="server" Text="CARI" />

&nbsp;&nbsp;&nbsp;

Source Code Button Simpan:

<asp:Button ID="BtnSimpan" runat="server" Text="SIMPAN" />

&nbsp;&nbsp;&nbsp;

Source Code Button Tampil:

<asp:Button ID="BtnTampil" runat="server" Text="TAMPIL" />

        </p>

Hasil Run yang telah dibuat:

Gambar 1.3.1

Gambar 1.3.2

Source Code WebFromSepatu:

Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM tablesepatu where KodeBarang =" & DropDownList1.SelectedValue() & "", oConn)

        xReader = ocmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            TxtBarang.Text = xReader("NamaBarang")

            TxtMerk.Text = xReader("MerkBarang")

            TxtHARGA.Text = xReader("HargaBarang")

        Else

            TxtBarang.Text = "Barang Tidak ada”

        End If

        xReader.Close()

Source Code WebFromBeli:

TOKO SEPATU UTI GANTENG</div>

        <p>

            NAMA&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :&nbsp;&nbsp;&nbsp;

            <asp:TextBox ID="TxtNama" runat="server"></asp:TextBox>

        </p>

        <p>

            KODE BARANG&nbsp;&nbsp;&nbsp; :&nbsp;&nbsp;&nbsp;

            <asp:DropDownList ID="DropDownList1" runat="server" DataSourceID="SqlDataSource1" DataTextField="KodeBarang" DataValueField="KodeBarang" Height="38px" Width="191px">

            </asp:DropDownList>

            <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ConnectionString7 %>" ProviderName="<%$ ConnectionStrings:ConnectionString7.ProviderName %>" SelectCommand="SELECT [KodeBarang] FROM [tablesepatu]"></asp:SqlDataSource>

        </p>

        <p>

            NAMA BARANG&nbsp;&nbsp;&nbsp; :&nbsp;&nbsp;&nbsp;

            <asp:TextBox ID="TxtBarang" runat="server"></asp:TextBox>

        </p>

        <p>

            MERK BARANG&nbsp;&nbsp;&nbsp; :&nbsp;&nbsp;&nbsp; <asp:TextBox ID="TxtMerk" runat="server"></asp:TextBox>

        </p>

        <p>

            HARGA BARANG&nbsp; :&nbsp;&nbsp;&nbsp;

            <asp:TextBox ID="TxtHARGA" runat="server"></asp:TextBox>

        </p>

        <p>

            JUMLAH&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :&nbsp;&nbsp;&nbsp; <asp:TextBox ID="TxtJumlah" runat="server"></asp:TextBox>

        </p>

        <p>

            TOTAL&nbsp; BAYAR&nbsp;&nbsp;&nbsp; :&nbsp;&nbsp;&nbsp;

            <asp:TextBox ID="TxtTotal" runat="server"></asp:TextBox>

        </p>

Source Code WebFromDatabase:

<asp:Content runat="server" ID="FeaturedContent" ContentPlaceHolderID="FeaturedContent">

    <section class="featured">

        <div class="content-wrapper">

            <hgroup class="title">

                <h1><%: Title %>.</h1>

                <h2>Modify this template to jump-start your ASP.NET application.</h2>

            </hgroup>

            <p>

                To learn more about ASP.NET, visit <a href="http://asp.net" title="ASP.NET Website">http://asp.net</a>.

                The page features <mark>videos, tutorials, and samples</mark> to help you get the most from ASP.NET.

                If you have any questions about ASP.NET visit <a href="http://forums.asp.net/18.aspx" title="ASP.NET Forum">our forums</a>.

            </p>

        </div>

    </section>

</asp:Content>

<asp:Content runat="server" ID="BodyContent" ContentPlaceHolderID="MainContent">

    <h3>We suggest the following:</h3>

    <ol class="round">

        <li class="one">

            <h5>Getting Started</h5>

            ASP.NET Web Forms lets you build dynamic websites using a familiar drag-and-drop, event-driven model.

            A design surface and hundreds of controls and components let you rapidly build sophisticated, powerful UI-driven sites with data access.

            <a href="http://go.microsoft.com/fwlink/?LinkId=245146">Learn more…</a>

        </li>

        <li class="two">

            <h5>Add NuGet packages and jump-start your coding</h5>

            NuGet makes it easy to install and update free libraries and tools.

            <a href="http://go.microsoft.com/fwlink/?LinkId=245147">Learn more…</a>

        </li>

        <li class="three">

            <h5>Find Web Hosting</h5>

            You can easily find a web hosting company that offers the right mix of features and price for your applications.

            <a href="http://go.microsoft.com/fwlink/?LinkId=245143">Learn more…</a>

        </li>

    </ol>

</asp:Content>

Terima Kasih. Semoga Bermanfaat.

Pembuatan Aplikasi Restoran sederhana menggunakan Visual Studio 2012

Assalamu’alaikum. Wr. Wb..

Oke kawan-kawan, bagi kalian yang ingin belajar membuat program APLIKASI RESTORAN sederhana dengan menggunakan aplikasi Visual Studio 2012 disinilah tempatnya.

Kali ini saya akan membuat program aplikasi kasir sederhan dengan menggunakan aplikasi Visual Studio, sebelum mulali membuat mari kita ketahui dulu apa itu Visual Studio?.

Jadi Visual Studio adalah Sebuah perangkat lunak lengkap (suite) yang dapat digunakan untuk melakukan pengembangan aplikasi, baik itu aplikasi bisnis, aplikasi personal, ataupun komponen aplikasinya, dalam bentuk aplikasi console, aplikasi Windows, ataupun aplikasi Web.

Naah, sekarang udah tau kan apa itu Visual Studio.. yu langsung aja guys kita mulai.

Disini saya membuat program aplikasi kasir yang mana fungsinya itu untuk mempermudah penghitungan sebuah kasir.

Disini saya menggunakan toolbox Label, ComboBox, TextBox, PictureBox, Button.

DESIGN UTAMA “APLIKASI RESTORAN”

Alur dari aplikasi ini :

Ø  Kita pilih barang yang akan kita beli pada ToolBox ComboBox, lalu otomatis akan keluar harga dan gambarnya.

Ø  Lalu masukan jumlah makanan yang akan kita beli, klik “Hitung” maka akan muncul total jumlah harga dari barang tersebut.

Ø  Disitu ada button “CETAK” untuk Word dan “SIMPAN” untuk Excel.

Langkah selanjutnya.

ü  Langkah yang pertama kalian harus punya dulu aplikasi Visual Studianya, jika belum punya silahkan download, lalu Install.

ü  Jika anda sudah punya, langsung saja buka aplikasinya.

ü  Klik new project, pilih Windows Forms Application, masukan nama projek yang akan kita bikin, lalu Ok seperti gambar dibawah :

ü  Langkah awal yaitu mendesain aplikasi yang akan kita buat.

ü  Setelah desain jadi, mari kita mulai codingannya :

ü  Klik 2 kali pada toolbox yang akan kita coding

Disini yang akan saya coding pertama ialah pada ToolBox :

1.ComboBox

Masukan menu makanan di Edit Text, seperti gambar dibawah:

Codingan:

If ComboBoxNama.Text = "Nasi Pecel" Then

            TextBoxHarga.Text = "20000"

            PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\nasi pecel.jpg")

        End If

        If ComboBoxNama.Text = "Nasi Timbel" Then

            TextBoxHarga.Text = "20000"

            PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\nasi timbel.jpg")

        End If

        If ComboBoxNama.Text = "Soto Kuning" Then

            TextBoxHarga.Text = "15000"

            PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\soto kuning.jpg")

        End If

        If ComboBoxNama.Text = "Mie Kocok" Then

            TextBoxHarga.Text = "15000"

            PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\mie kocok.jpg")

        End If

        If ComboBoxNama.Text = "Empal Gentong" Then

            TextBoxHarga.Text = "25000"

            PictureBox1.Image = Image.FromFile("C:\Users\user\Pictures\empal.jpg")

        End If

Perhatilkan gambar berikut :

Jika ingin memasukan ke Ms. Word atau Ms. Exel, kita aktifkan dulu dari projeknya, berikut langkahnya :

v  Klik menu PROJECT  lalu pilih Add reference kemudian pilih COM lalu cari Microsoft Word atau Excelnya kemudian ceklis, perhatikan gambar berikut :

 Visual Studionya minimize aja dulu bos.

v  Tahap selanjutnya kita buka Microsoft Word, lalu buat seperti gambar berikut :

Kemudian klik menu Insert pada Microsoft Word, klik Bookmark, lalu buat seperti gambar berikut :

 Langkah selanjutnya kita masuk pada Microsoft Excel lalu buat seperti seperti gambar berikut :

v  Buka kembali Visual Studionya lalu scrol pada kodingan paling atas, masukan kodingan seperti berikut :

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

v  Kemudian klik 2 kali pada Button Cetak Word untuk mengkoding, ini kodingannya :

 Dim Appnya As New Word.Application

        Dim Dokumennya As Word.Document

        Dokumennya = Appnya.Documents.Open("D:\Semester 4\uts\bill.docx")

        Dokumennya.Bookmarks("namamakanan").Select()

        Appnya.Selection.TypeText(ComboBoxNama.Text)

        Dokumennya.Bookmarks("hargamakanan").Select()

        Appnya.Selection.TypeText(TextBoxHarga.Text)

        Dokumennya.Bookmarks("jumlahmakanan").Select()

        Appnya.Selection.TypeText(TextBoxJumlah.Text)

        Dokumennya.Bookmarks("bayar").Select()

        Appnya.Selection.TypeText(TextBoxBayar.Text)

        Dokumennya.SaveAs("D:\Semester 4\uts]billNew.docx")

        Appnya.Visible = True

 Gambar  :

v  Next…klik 2 kali pada Button Cetak Excel lalu masukan kodingan seperti berikut :

Private Sub ButtonExcel_Click(sender As Object, e As EventArgs) Handles ButtonExcel.Click

        Dim AppExcelnya As New Excel.Application

        Dim ExcelWB As Excel.Workbook

        ExcelWB = AppExcelnya.Workbooks.Open("D:\Semester 4\uts\billing.xlsx")

        AppExcelnya.Range("A2").Value = ComboBoxNama.Text

        AppExcelnya.Range("B2").Value = TextBoxHarga.Text

        AppExcelnya.Range("C2").Value = TextBoxJumlah.Text

        AppExcelnya.Range("D2").Value = TextBoxHarga.Text

        ExcelWB.SaveAs("D:\Semester 4\uts\billingNew.xlsx")

 AppExcelnya.Visible = True

Gambar :

 Hasilnya :

v  Yeaaah.. selesai kawan, mari kita coba.. tekan f5, lakukan proses pembayaran lalu klik Cetak Word maka akan muncul message sukses, lalu klik Ok, maka akan Keluar seperti berikut :

 Yeeee sukseeees.. Untuk ke Excel lakukan sama seperti yang di Word tadi, jika keluar peringatan klik yes :

Ini hasilnya :

 Sekian cara membuat program aplikasi kasir sederhana dengan menggunakan aplikasi Visual Studio  dari saya, kurang dan lebihnya mohon maaf. Semoga Bermanfaat ya kawan, dan semoga kita semua sukses.

Wassalamu’alaikum. Wr. Wb.