Cara Membuat Aplikasi Total Harga Visual Basic 2005 Part3

Di dalam hal ini admint ingin berbagi tentang Microsoft Visual Basic 2005 Express  Edition di dalam pembahasan ini kita membuat pengenalan tentang penggunaan Microsoft Visual Basic 2005 (VB). Cara membuat Aplikasi Total Harga dengan menggunakan serta source kode yang digunakan VB , beberapa tahapan – tahapan sebagai berikut :

No.	Tahapan – Tahapan	Keteranagan
1.	Sediakan PC / Laptop	Sudah terinstall Sistem Operasi yang anda sukai seperti Windows 7, Windows 8 dll.
2.	Sediakan Softwere	Installkan  Microsoft Visual Basic 2005
3.	Operasikan Microsoft Visual Basic 2005	Seperti Langkah yang akan di jelaskan
4.	Runing Source code yang di buat	Pastikan telah benar semua
www.sulis04.blogspot.com

 Penjelasn :

Langsung saja buka program Microsoft Visual Basic 2005 Express  Edition yang telah dijelaskan pada artikel sebelumnya ( Cara Mebuat Aplikasi Total Harga ) kita akan membuat sebuat tampilan seperti dibawah ini :

setelah di aktifkan programnya

Komponen yang digunakan adalah label,textbox dan button seperti yang telah dijelaskan pada artikel sebelumnya ( Cara Mengganti backgroud dan Tulisan )  buat sama seperti gambar di atas.

Source code yang digunakan program diatas silakan samakan namanya pada gambar di atas :

Public Class Form1

Untukmengunci from agar saat di run terkunci :

   

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

        tbkodebarang.Enabled = False

        tbnamabarang.Enabled = False

        tbhargabarang.Enabled = False

        tbjumlahbeli.Enabled = False

        tbtotalharga.Enabled = False

        btntotalharga.Enabled = False

        btninputbaru.Enabled = False

        btnmatikanprogram.Enabled = False

        Label1.Enabled = False

        Label2.Enabled = False

        Label3.Enabled = False

        Label4.Enabled = False

        Label5.Enabled = False

        Label6.Enabled = False

    End Sub

Untukmengaktifkan program agar bisa di jalankan :

    Private Sub btnaktifkanprogram_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaktifkanprogram.Click

        MsgBox("===AKTIKAN PROGRAM INI===", MsgBoxStyle.Question)

        tbkodebarang.Enabled = True

        tbnamabarang.Enabled = True

        tbhargabarang.Enabled = True

        tbjumlahbeli.Enabled = True

        tbtotalharga.Enabled = True

        btntotalharga.Enabled = True

        btntotalharga.Enabled = True

        btninputbaru.Enabled = True

        btnmatikanprogram.Enabled = True

        Label1.Enabled = True

        Label2.Enabled = True

        Label3.Enabled = True

        Label4.Enabled = True

        Label5.Enabled = True

        Label6.Enabled = True

        Label1.ForeColor = Color.DarkBlue

        Label2.ForeColor = Color.DarkBlue

        Label3.ForeColor = Color.DarkBlue

        Label4.ForeColor = Color.DarkBlue

        Label5.ForeColor = Color.DarkBlue

        Label6.ForeColor = Color.Red

        Me.BackColor = Color.LimeGreen

        tbkodebarang.Focus()

    End Sub

Untuk tombol matikan program berfungsi mengkunci program,menghapus entrian data, mengganti warna seperti semula :

    Private Sub btnmatikanprogram_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmatikanprogram.Click

        MsgBox("===MATIKAN PROGRAM INI===", MsgBoxStyle.Question)

        tbkodebarang.Enabled = False

        tbnamabarang.Enabled = False

        tbhargabarang.Enabled = False

        tbjumlahbeli.Enabled = False

        tbtotalharga.Enabled = False

        btntotalharga.Enabled = False

        btntotalharga.Enabled = False

        btninputbaru.Enabled = False

        btnmatikanprogram.Enabled = False

        Label1.Enabled = False

        Label2.Enabled = False

        Label3.Enabled = False

        Label4.Enabled = False

        Label5.Enabled = False

        Label6.Enabled = False

        Label1.ForeColor = Color.Black

        Label2.ForeColor = Color.Black

        Label3.ForeColor = Color.Black

        Label4.ForeColor = Color.Black

        Label5.ForeColor = Color.Black

        Label6.ForeColor = Color.Black

        tbkodebarang.Text = ""

        tbnamabarang.Text = ""

        tbhargabarang.Text = ""

        tbjumlahbeli.Text = ""

        tbjumlahbeli.Text = ""

        tbtotalharga.Text = ""

        tbkodebarang.Focus()

        Me.BackColor = Color.Gainsboro

    End Sub

Untuk tombol total harga berfungsi memberikanperkalian agar menghasilkan total harga :

    Private Sub btntotalharga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntotalharga.Click

        Dim sulis As New Integer

        Dim edi As New Integer

        Dim hasil As New Integer

        sulis = Val(tbhargabarang.Text)

        edi = Val(tbjumlahbeli.Text)

        hasil = sulis * edi

        tbtotalharga.Text = hasil

    End Sub

Untuk tombol input baru berfungsi membersihkanantrian baru :

    Private Sub btninputbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninputbaru.Click

        tbkodebarang.Text = ""

        tbnamabarang.Text = ""

        tbhargabarang.Text = ""

        tbjumlahbeli.Text = ""

        tbjumlahbeli.Text = ""

        tbtotalharga.Text = ""

        tbkodebarang.Focus()

    End Sub

Untuk tombol keluar berfungsi untuk membuat validasi dan keluar dari program :

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

        MsgBox("KELUAR", MsgBoxStyle.Critical)

        Close()

    End Sub

TextBox berfungsi mengisikan kode barang yang memberikan entri data secara otomatis :

    Private Sub tbkodebarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbkodebarang.TextChanged

        If Me.tbkodebarang.Text = "S001" Then

            tbnamabarang.Text = "Sabun Lux"

            tbhargabarang.Text = "5000"

        ElseIf Me.tbkodebarang.Text = "S002" Then

            tbnamabarang.Text = "Sabun Lefboy"

            tbhargabarang.Text = "2500"

        ElseIf Me.tbkodebarang.Text = "S003" Then

            tbnamabarang.Text = "Sabun Citra"

            tbhargabarang.Text = "4500"

        End If

    End Sub

End Class

                                                                        setelah dijalankan 

Untuk mengetahui gimana cara kerja dari pemograman java dan lainnya caranya klik cara kerja pemograman java, cara menghitung luas persegi panjang vibi.net, Cara Mengganti backgroud vibi.net , cara mengecek java di CMD, CARA MEMBUAT Getinputfromkeyword,sekian dari admint semoga bermanfaat. dan klik ilmu pengetahuan yang admint miliki terima kasih.