Program Dasar Penjualan

Program Dasar Penjualan adalah pelajaran sederhana dalam pemogroman, karena disini lah awal dari kesempurnaan progam. Kami berharap Semoga program   Dasar Penjualanini dapat bermanfaat bagi para programer dasar.

Public Class latihan_penjualan


    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kd.Text, 2)
        If x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            merk.Text = "V-GEN"
        Else
            nama.Text = "V-GEN"
        End If

        x = Microsoft.VisualBasic.Right(kd.Text, 3)
        If x = "001" Then
            nama.Text = "Flasdisk 4GB"
        ElseIf x = "002" Then
            nama.Text = "Flasdisk 2GB"
        ElseIf x = "001" Then
            nama.Text = "Flasdisk 4GB"
        Else
            nama.Text = "Flasdisk 2GB"
        End If
    End Sub

    Private Sub latihan_penjualan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kd.Items.Add("TS001")
        kd.Items.Add("TS002")
        kd.Items.Add("VG001")
        kd.Items.Add("VG002")
    End Sub

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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        no.Text = ""
        kd.Text = ""
        merk.Text = ""
        nama.Text = ""
    End Sub
End Class

Semoga Progam Dasar Penjualan diatas dapat bermanfaat bagi para Programer Pemula.