UAS Lab Pemograman Bisnis

PENJELASAN PROGRAM

program ini bermanfaat bagi perusahaan kecil untuk mengestimasi keuntungan/kerugian per barang berdasarkan harga beli di database yang telah dibuat.

pengaplikasianya:
1. ketik estimasi harga jual
2. pilih jenis barang, maka akan mucul harga beli sebelom pajak (berdasarkan database) dan harga beli setelah pajak
3. klik proses, maka anda akan mengetahui apakah untung atau rugi

SCREENSHOOT

screenshoot design

screenshoot contoh hasil

SOURCE CODING

Public Class Form1
    Dim x As String
    Dim vgol As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim var4 As Object
        Dim var3 As Object
        Dim var2 As Object
        Dim var1 As Object

        Dim nofile As Short
        nofile = FreeFile()
        FileOpen(nofile, "F:\kuliah (akun tsi)\sm2\pemograman bisnis\uas\Book1.CSV", OpenMode.Input)

        Do While Not EOF(nofile)

            Input(1, var2)
            Input(1, var3)
            Input(1, var4)

            ListBox1.Items.Add(" kode " & var2 & " : " & var3 & " harga beli " & var4)
        Loop
        FileClose(nofile)

    End Sub

   
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        vgol = ComboBox1.Text
        Select Case vgol
            Case "polo"
                TextBox1.Text = "80000"
            Case "oblong"
                TextBox1.Text = "50000"
            Case "kemeja"
                TextBox1.Text = "100000"
            Case "jaket"
                TextBox1.Text = "150000"
        End Select

        vgol = ComboBox1.Text
        Select Case vgol
            Case "polo"
                TextBox4.Text = (TextBox1.Text * 10 / 100) + TextBox1.Text
            Case "oblong"
                TextBox4.Text = (TextBox1.Text * 10 / 100) + TextBox1.Text
            Case "kemeja"
                TextBox4.Text = (TextBox1.Text * 10 / 100) + TextBox1.Text
            Case "jaket"
                TextBox4.Text = (TextBox1.Text * 10 / 100) + TextBox1.Text
        End Select
    End Sub

   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Text = TextBox2.Text - TextBox4.Text
    End Sub
End Class