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
