Membuat Progrram Aplikasi Transaksi Online Menggunakan VB.Net

Hallo, teman teman kali ini saya akan mendeskripsikan hasil tugas saya yaitu tugas VB.net, berikut langkah langkahnya :

Anda buka VB.Net sama project nya, bila sudah di buka kemudian di Run Projectnya,

Tampilan pertama project anda harus login dengan username “admin” dan passwordnya “admin”, jika username dan password yang anda masukan salah maka akan ada peringatan berikut ini, lihat gambar (gb.1.0 dan gb.1.1)

gb 1.0

 

gb1.1

Dan apabila username dan password anda kosong maka akan ada peringatan berikut ini, lihat gambar

 

gb 2

Source code MenuLogin

-          3 Label = Silahkan Login, Username, dan Password

-          2 TextBox = txtnama dan txt pass

-          2 Button = btnmasuk dan btnkeluar

  Cara memasukkan code nya :

Double klik pada tombol Masuk lalu masukkan code di bawah ini

Public Class MenuLogin

  

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

        If txtnama.Text <> "" And txtpass.Text <> "" Then

            If txtnama.Text = "admin" And txtpass.Text = "admin" Then

                MenuUtama.Visible = True

                Hide()

            Else

                MsgBox("Username atau password anda salah!")

            End If

        Else

            MsgBox("Username atau password tidak boleh kosong")

        End If

    End Sub

  

Double klik pada tombol Keluar lalu masukkan code di bawah ini :

 

 Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

End Class

 

Dan apabila anda memasukan username dan password dengan benar maka anda akan di arahkan ke menu berikut nya, gambar di bawah ini adalah tampilan setelah kita berhasil login tadi. Dimenu ini, anda dapat memilih hero yang anda inginkan, dengan cara klik > Pilih Hero > lalu pilih hero tersebut, maka akan keluar juga gambar hero yang di pilih, karena disini saya sudah mengisi hero dengan “Zilong” maka akan seperti ini tampilan nya. Oh iya, jenis hero akan terisi secara otomatis setelah kita memilih hero tadi

  

 gb 3

-          1 Groupbox = Pilih hero >gbph

-          1 Combobox = Pilih Hero > cmbnama

-          6 Radiobutton = rdmm, rdfighter, rdasassin, rdmage, rdtank, rd support

-          2 Button = Batal > Button1 dan Pilih > Button2

-          1 Picturebox = PictureBox1

-          3 label = Mobel Lejen, Nama Hero dan Jenis Hero

Source code Menu Utama

Double Klik Batal lalu masukkan code di bawah ini :  

Public Class MenuUtama

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

        If Not cmbnama.Text = "" Then

            PictureBox1.Image = Nothing

            cmbnama.Text = ""

            rdasassin.Checked = False

            rdfighter.Checked = False

            rdmage.Checked = False

            rdmm.Checked = False

            rdsupport.Checked = False

            rdtank.Checked = False

            Me.Close()

        Else

            End

        End If

    End Sub

Double Klik Pilih lalu masukkan code di bawah ini :  

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

        DetailHero.txtnamahero.Text = cmbnama.Text

        If cmbnama.SelectedItem = "Pilih Hero" Then

            MsgBox("Anda harus memilih hero", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Warning")

        ElseIf cmbnama.SelectedItem = "Layla" Then

            DetailHero.Visible = True

        ElseIf cmbnama.SelectedItem = "Zilong" Then

            DetailHero.Visible = True

        ElseIf cmbnama.SelectedItem = "Hylos" Then

            DetailHero.Visible = True

        ElseIf cmbnama.SelectedItem = "Kagura" Then

            DetailHero.Visible = True

        ElseIf cmbnama.SelectedItem = "Angela" Then

            DetailHero.Visible = True

        ElseIf cmbnama.SelectedItem = "Lancelot" Then

            DetailHero.Visible = True

        End If

    End Sub

Double Klik pada formnya lalu masukkan code di bawah ini :  

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

        cmbnama.Items.Add("Pilih Hero")

        cmbnama.Items.Add("Layla")

        cmbnama.Items.Add("Zilong")

        cmbnama.Items.Add("Hylos")

        cmbnama.Items.Add("Kagura")

        cmbnama.Items.Add("Angela")

        cmbnama.Items.Add("Lancelot")

    End Sub

Double Klik RadioButton lalu masukkan code di bawah ini : 

    Private Sub rdmm_CheckedChanged(sender As Object, e As EventArgs) Handles rdmm.CheckedChanged

        DetailHero.txtrole.Text = rdmm.Text

        rdasassin.Enabled = False

        rdfighter.Enabled = False

        rdmage.Enabled = False

        rdsupport.Enabled = False

        rdtank.Enabled = False

        rdmm.Enabled = True

    End Sub

Double Klik ComboBoxnya lalu masukkan code di bawah ini :  

 

    Private Sub cmbnama_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbnama.SelectedIndexChanged

        Select Case cmbnama.Text

            Case "Pilih Hero"

                rdmm.Checked = False

                    PictureBox1.Image = System.Drawing.Image.FromFile("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\image\X.jpg")

            Case "Layla"

                    rdmm.Checked = True

                    PictureBox1.Image = System.Drawing.Image.FromFile("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\image\layla.jpg")

            Case "Zilong"

                    PictureBox1.Image = System.Drawing.Image.FromFile("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\image\zilong.jpg")

                    rdfighter.Checked = True

            Case "Hylos"

                    PictureBox1.Image = System.Drawing.Image.FromFile("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\image\hylos.jpg")

                    rdtank.Checked = True

            Case "Lancelot"

                    PictureBox1.Image = System.Drawing.Image.FromFile("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\image\lancelot.jpg")

                    rdasassin.Checked = True

            Case "Kagura"

                    PictureBox1.Image = System.Drawing.Image.FromFile("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\image\kagura.jpg")

                    rdmage.Checked = True

            Case "Angela"

                    PictureBox1.Image = System.Drawing.Image.FromFile("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\image\angela.jpg")

                    rdsupport.Checked = True

        End Select

    End Sub

Double Klik RadioButton lalu masukkan code di bawah ini :  

    Private Sub rdfighter_CheckedChanged(sender As Object, e As EventArgs) Handles rdfighter.CheckedChanged

        DetailHero.txtrole.Text = rdfighter.Text

        rdasassin.Enabled = False

        rdmm.Enabled = False

        rdmage.Enabled = False

        rdsupport.Enabled = False

        rdtank.Enabled = False

        rdfighter.Enabled = True

    End Sub

Double Klik RadioButton lalu masukkan code di bawah ini :  

    Private Sub rdasassin_CheckedChanged(sender As Object, e As EventArgs) Handles rdasassin.CheckedChanged

        DetailHero.txtrole.Text = rdasassin.Text

        rdmm.Enabled = False

        rdfighter.Enabled = False

        rdmage.Enabled = False

        rdsupport.Enabled = False

        rdtank.Enabled = False

        rdasassin.Enabled = True

    End Sub

Double Klik RadioButton lalu masukkan code di bawah ini :  

    Private Sub rdmage_CheckedChanged(sender As Object, e As EventArgs) Handles rdmage.CheckedChanged

        DetailHero.txtrole.Text = rdmage.Text

        rdasassin.Enabled = False

        rdfighter.Enabled = False

        rdmm.Enabled = False

        rdsupport.Enabled = False

        rdtank.Enabled = False

        rdmage.Enabled = True

    End Sub

Double Klik RadioButton lalu masukkan code di bawah ini :  

    Private Sub rdtank_CheckedChanged(sender As Object, e As EventArgs) Handles rdtank.CheckedChanged

        DetailHero.txtrole.Text = rdtank.Text

        rdasassin.Enabled = False

        rdfighter.Enabled = False

        rdmage.Enabled = False

        rdsupport.Enabled = False

        rdmm.Enabled = False

        rdtank.Enabled = True

    End Sub

Double Klik RadioButton lalu masukkan code di bawah ini :  

    Private Sub rdsupport_CheckedChanged(sender As Object, e As EventArgs) Handles rdsupport.CheckedChanged

        DetailHero.txtrole.Text = rdsupport.Text

        rdasassin.Enabled = False

        rdfighter.Enabled = False

        rdmage.Enabled = False

        rdmm.Enabled = False

        rdtank.Enabled = False

        rdsupport.Enabled = True

    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

    End Sub

End Class

 

Apabila anda belum memilih hero maka akan ada peringatan seperti berikut ini, dan proses tidak bisa di lanjutkan ke menu berikutnya.

 

gb 4

Setelah mengisi hero sesuai keinginan kita maka proses akan di lanjutkan ke menu berikut nya, di menu ini, rincian hero yang kita pilih akan muncul secara otomatis kecuali Skin. Untuk pilihan Skin/varian bisa kita pilih dari Normal s/d Legend dan harga nya pun berbeda beda tergantung dari Skin/varian yang kita pilih, setelah semuanya benar maka checkout pembelian pun akan keluar, kita bisa memilihnya di menu ini ada 2 pilihan yaitu Word dan Excel.

Jika kita memilih cetak Word maka akan ada tampilan seperti ini, tandanya sukses mencetak. Secara otomatisn Word akan terbuka sendiri, begitupun jika kita memilih cetak Excel hasilnya akan sama saja seperti pada cetak word, lihat gambar:

 

 

 

gb 5

cetak Word

 

gb 5.1

 cetak Excel

 

gb 5.2

-          4 Label = Mobel lejen, Nama Hero, Jenis Hero, Skin

-          1 GroupBox = Checkout >GroupBox1

-          4 TextBox =  txtnamahero, txtrole, TextBox1 dan TextBox2

-          2 CheckBox = Battle Point > cbbp dan Diamond > cbdiamon

-          3 Button = Word > Button1 , Excel > Button2 dan Batal > bbatal2

-          1 ComboBox = Pilih Skin > cmbskin

Source Code Form Pilih Hero

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

Public Class DetailHero

Double Klik Word lalu masukkan code di bawah ini :  

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

        Dim Aplikasi As New word.Application

        Dim filenya As New word.Document

        filenya = Aplikasi.Documents.Open("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\Word.docx")

        filenya.Bookmarks("Nama").Select()

        Aplikasi.Selection.TypeText(txtnamahero.Text)

        filenya.Bookmarks("Jenis").Select()

        Aplikasi.Selection.TypeText(txtrole.Text)

        filenya.Bookmarks("skin").Select()

        Aplikasi.Selection.TypeText(cmbskin.Text)

        filenya.Bookmarks("bp").Select()

        Aplikasi.Selection.TypeText(TextBox1.Text)

        filenya.Bookmarks("diamon").Select()

        Aplikasi.Selection.TypeText(TextBox2.Text)

        filenya.SaveAs2("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\Word1.docx")

        If cmbskin.SelectedItem = "" Then

            MsgBox("Anda harus memilih skin", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Warning")

        ElseIf cmbskin.SelectedItem = "Normal" Then

            Aplikasi.Visible = True

        ElseIf cmbskin.SelectedItem = "Regular" Then

            Aplikasi.Visible = True

        ElseIf cmbskin.SelectedItem = "Elite" Then

            Aplikasi.Visible = True

        ElseIf cmbskin.SelectedItem = "Epic" Then

            Aplikasi.Visible = True

        ElseIf cmbskin.SelectedItem = "Starlight Member" Then

            Aplikasi.Visible = True

        ElseIf cmbskin.SelectedItem = "Legend" Then

            Aplikasi.Visible = True

            MsgBox("SUCKSEEEDDDD BROOOOOWWW")

        End If

    End Sub

Double Klik TextBox nama hero lalu masukkan code di bawah ini :  

    Private Sub txtnamahero_TextChanged(sender As Object, e As EventArgs) Handles txtnamahero.TextChanged

    End Sub

 Double Klik TextBox Jenis lalu masukkan code di bawah ini : 

    Private Sub txtrole_TextChanged(sender As Object, e As EventArgs) Handles txtrole.TextChanged

    End Sub

Double Klik GroupBox lalu masukkan code di bawah ini :  

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

        txtnamahero.Enabled = False

        txtrole.Enabled = False

        cbbp.Enabled = False

        cbdiamon.Enabled = False

    End Sub

Double Klik pada Form nya lalu masukkan code di bawah ini :  

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

        cmbskin.Items.Add("Normal")

        cmbskin.Items.Add("Regular")

        cmbskin.Items.Add("Elite")

        cmbskin.Items.Add("Epic")

        cmbskin.Items.Add("Starlight Member")

        cmbskin.Items.Add("Legend")

    End Sub

    Private Sub cbbp_CheckedChanged(sender As Object, e As EventArgs) Handles cbbp.CheckedChanged

    End Sub

Double Klik ComboBox lalu masukkan code di bawah ini :  

    Private Sub cmbskin_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbskin.SelectedIndexChanged

        Select Case cmbskin.Text

            Case "Normal"

                cbbp.Checked = True

                TextBox1.Text = "32000"

                cbdiamon.Checked = False

                TextBox2.Text = ""

            Case "Regular"

                cbdiamon.Checked = True

                TextBox2.Text = "269"

                cbbp.Checked = False

                TextBox1.Text = ""

            Case "Elite"

                cbdiamon.Checked = True

                TextBox2.Text = "399"

                cbbp.Checked = False

                TextBox1.Text = ""

            Case "Epic"

                cbdiamon.Checked = True

                TextBox2.Text = "599"

                cbbp.Checked = False

                TextBox1.Text = ""

            Case "Starlight Member"

                cbdiamon.Checked = True

                TextBox2.Text = "1.000"

                cbbp.Checked = False

                TextBox1.Text = ""

            Case "Legend"

                cbdiamon.Checked = True

                TextBox2.Text = "11000"

                cbbp.Checked = False

                TextBox1.Text = ""

        End Select

    End Sub

    Private Sub cbdiamon_CheckedChanged(sender As Object, e As EventArgs) Handles cbdiamon.CheckedChanged

    End Sub

Double Klik Batal lalu masukkan code di bawah ini :  

    Private Sub bbatal2_Click(sender As Object, e As EventArgs) Handles bbatal2.Click

        MenuUtama.Visible = True

        Me.Hide()

    End Sub

Double Klik Excel lalu masukkan code di bawah ini :  

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

        Dim AppExcelnya As New excel.Application

        Dim exceliwb As excel.Workbook

        exceliwb = AppExcelnya.Workbooks.Open("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\uts.xlsx")

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

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

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

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

        AppExcelnya.Range("E2").Value = TextBox2.Text

        exceliwb.SaveAs("E:\STMIK ERESHA\SemesterIV\Pemrograman\tgsvisual\uts\uts1.xlsx")

      

        If cmbskin.SelectedItem = "" Then

            MsgBox("Anda harus memilih skin", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Warning")

        ElseIf cmbskin.SelectedItem = "Normal" Then

            AppExcelnya.Visible = True

        ElseIf cmbskin.SelectedItem = "Regular" Then

            AppExcelnya.Visible = True

        ElseIf cmbskin.SelectedItem = "Elite" Then

            AppExcelnya.Visible = True

        ElseIf cmbskin.SelectedItem = "Epic" Then

            AppExcelnya.Visible = True

        ElseIf cmbskin.SelectedItem = "Starlight Member" Then

            AppExcelnya.Visible = True

        ElseIf cmbskin.SelectedItem = "Legend" Then

            AppExcelnya.Visible = True

            MsgBox("Sukseesss meren")

        End If

    End Sub

 Double Klik TextBox Battle Point lalu masukkan code di bawah ini : 

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        TextBox1.Enabled = False

        TextBox2.Enabled = False

    End Sub

Double Klik Diamond lalu masukkan code di bawah ini :  

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

        TextBox2.Enabled = False

        TextBox1.Enabled = False

    End Sub

End Class

 

 

Nah, agar kita bisa cetak data dari project nya ke Word maupun ke Excel, yang perlu kita lakukan adalah men-add Microsoft Office dari VB.net nya, berikut caranya:

 

gb 6.1

 

 

 

gb 6.2

 

gb 6.3

Setelah semuanya di baca dan di ikuti secara dengan baik dan benar maka patutlah kita untuk mencoba project yang saya buat ini di VB.net kalian masing masing, 

“ ILMU AKAN BERGUNA DAN MENJADI BERKAH BILA KITA MENGAMALKANNYA”