menbuat harga barang dak stok barang harian

Stok barang dan harga per pc

klik tool cari label dan teksbox lalu klik sembrang pd form
Copy dari kedua td lalu 2 kali

Lalu isikan nama label d

Klik tool box
Cari label dan textbox lalu kedua nya klik satu per Satu per satu pindah ke form
Copi keduanya buat hingga 2 kali
Lalu namai lalui properties
Namakan golongan  : barang, jumlah barang, status barang
 Dan nama teksbox : txtsb, txtjb, txt gol
Lalu cari botton kemudian susun
Klik button lalu coding
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim GOL = TXTGOL.Text

        If GOL = "001" Then
            TXTSB.Text = "ROLLEGG"
            TXTJB.Text = "100"
        ElseIf GOL = 2 Then
            TXTSB.Text = "NGPEDAS"
            TXTJB.Text = "250"
        ElseIf GOL = "003" Then
            TXTSB.Text = "NGSMI"
            TXTJB.Text = "300"
        ElseIf GOL = "004" Then
            TXTSB.Text = "NGKANA"
            TXTJB.Text = "400"
        Else : GOL = "005"
            TXTSB.Text = "NGSPA"
            TXTJB.Text = "80"
        End If
    End Sub
Cari groupbox lalu pindahkan dan susun disebelah sisi yang tadi
Cari label dan textbox lalu kedua nya klik satu per Satu per satu pindah ke form
Copi keduanya
Lalu namai teksbox dan label lalui properties
Namakan golongan  : kode,  masukan
 Dan nama teksbox : txtkd, txtmasuk
Lalu cari botton kemudian susun
Klik button lalu coding
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim gol = txtkd.Text

        If GOL = "001" Then
            txtkd.Text = ""
            txtmasuk.Text = "25000"
        ElseIf gol = "002" Then
            txtkd.Text = ""
            txtmasuk.Text = "27000"
        ElseIf gol = "003" Then
            txtkd.Text = ""
            txtmasuk.Text = "30000"
        ElseIf gol = "004" Then
            txtkd.Text = ""
            txtmasuk.Text = "18000"
        ElseIf gol = "005" Then
            txtkd.Text = ""
            txtmasuk.Text = "35000"
        End If
    End Sub