PROGRAM PENJUALAN TV

PROGRAM PENJUALAN TV

Oke ini Ane Kasih Bagaimana Cara Pembuata program Penjualan TV di Visual Basic 2008 ataupun 2010 itu... sama aje..........

bagi anda yang ingin mencobanya ini ane kasih tau caranya cuy.............

coba anda desain dulu seperti gambar ane....

oke kalau sudah anda desain seprti punya ane.... langsung aja ke TKP...........

Anda bisa copas Coding punya ane................ bebas,.......

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call TampilNamaBarang()
    End Sub
    Sub TampilNamaBarang()
        NBarang.Items.Add("TOSHIBA")
        NBarang.Items.Add("DIGITEC")
        NBarang.Items.Add("POLYTRON")
    End Sub

    Private Sub NBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NBarang.SelectedIndexChanged
        Select Case NBarang.Text
            Case "TOSHIBA"
                harga.Text = "2000000"
            Case "DIGITEC"
                harga.Text = "1500000"
            Case "POLYTRON"
                harga.Text = "1000000"
        End Select
    End Sub

    Private Sub JJual_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JJual.KeyPress
        If Asc(e.KeyChar) = 13 Then
            THarga.Text = harga.Text * JJual.Text : Call buatDiscount()
        End If
       
    End Sub
    Sub buatDiscount()
        If THarga.Text >= 2500000 Then
            Discount.Text = 0.1 * THarga.Text
        Else
            Discount.Text = 0
        End If
    End Sub
    Private Sub JJual_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JJual.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TPembayaran.Text = Val(THarga.Text) - Val(Discount.Text)
    End Sub
    Sub bersih()
        NBarang.Text = ""
        harga.Text = ""
        JJual.Text = ""
        THarga.Text = ""
        Discount.Text = ""
        TPembayaran.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Call bersih()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

end..... tara.......... anda bisa liahat hasilnya dengan menekan tombol F5 oke........

dan ini adalah gambar dari hasil kerjaan ane.......

Oke Selamat Mencoba yaaa broo............ jangan takut salah.... kalu salah Bantingkan aja Leptopnya..... kalau mau Beli baru lagi........... hahahahaha........... cuma bercanda bro..........