Assalamualaikum
Pada kesempatan kali ini saya akan menjelaskan tutorial bagaimana membuat pengkodingan sebuah program pada Visual Basic. Berikut ini adalah langkag - langkah nya:
Pertama - tama buka aplikasi Visual Basic
Kemuadian pilih menu Create Project dan masukkan nama program yang akan kita buat. kemudian klik visual basic lalu pilih windows forms application dan klik Ok seperti ini
Ketika kita menekan tombol Ok, maka akan muncul tampilan form application visual basic seperti dibawah ini
Kemudian drag beberapa komponen yang dibutuhkan dari toolbox seperti TextBox, ComboBox, Label dan Button pada Form yang sudah ada
Lalu kita bisa mengubah nama label, button, textbox dan combobox nya sesuai dengan yang kita inginkan pada option properties dan ketika dirubah akan seperti ini
Lalu setelah melakukan lagkah-langkaah diatas maka kita akan mulai mencoba melakukan pengkodingannya dengan klik 2 kali button mulai, button tutup, combobox golongan, combobox jenis kelamin, button proses dan pada daerah form nya itu sendiri. Lalu masukkan pengkodingan di bawah ini
Agar lebih jelas ini merupakan koding diatas :
Public Class Form1
Private Sub btnmulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmulai.Click
TextBox1.Text = ""
TextBox2.Text = ""
txtjabatan.Text = ""
txtgajibersih.Text = ""
txtgajipokok.Text = ""
txtpph.Text = ""
txtTistri.Text = ""
txtTjabatan.Text = ""
txttotal.Text = ""
cnbgolongan.Text = ""
cnbjeniskelamin.Text = ""
cnbstatus.Text = ""
TextBox1.Focus()
End Sub
Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click
Me.Close()
End Sub
Private Sub cnbgolongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cnbgolongan.SelectedIndexChanged
Select Case cnbgolongan.Text
Case "1"
txtjabatan.Text = "MANAGER"
txtgajipokok.Text = "2000000"
Case "2"
txtjabatan.Text = "SUPERVISOR"
txtgajipokok.Text = "1500000"
Case "3"
txtjabatan.Text = "STAFF"
txtgajipokok.Text = "1000000"
Case "4"
txtjabatan.Text = "ASS.STAFF"
txtgajipokok.Text = "750000"
Case "5"
txtjabatan.Text = "JUNIOR STAFF"
txtgajipokok.Text = "500000"
End Select
Select Case cnbgolongan.Text
Case 1, 2
txtTjabatan.Text = (15 / 100 * txtgajipokok.Text)
Case 3, 4
txtTjabatan.Text = (5 / 100 * txtgajipokok.Text)
Case Else
txtTjabatan.Text = "0"
End Select
End Sub
Private Sub cnbjeniskelamin_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cnbjeniskelamin.SelectedIndexChanged
If cnbstatus.Text = "Menikah" And cnbjeniskelamin.Text = "Laki-laki" Then
txtTistri.Text = (10 / 100 * txtgajipokok.Text)
Else
txtTistri.Text = "0"
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
txttotal.Text = Val(txtgajipokok.Text) + Val(txtTistri.Text) + Val(txtTjabatan.Text)
If txttotal.Text >= 1000000 Then
txtpph.Text = (3 / 100 * txttotal.Text)
Else
txtpph.Text = "0"
End If
txtgajibersih.Text = txttotal.Text - txtpph.Text
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tanggal As Integer
Dim bulan As Integer
Dim tahun As Integer
For tanggal = 1 To 31
Cmbtanggal.Items.Add(tanggal)
Next
For bulan = 1 To 12
CmbBulan.Items.Add(bulan)
Next
For tahun = 2000 To 1990 Step -1
Cmbtahun.Items.Add(tahun)
Next
End Sub
End Class