Tugas Visual Basic

Terima kasih telah menyempatkan diri singgah sejenak di Blog saya ini,
kemarin saya dapa tugas visual basic dari dosen , akhirnya setelah lama berpusing-pusing ria jadi juga program tersebut, begini nie hasilnya :

 

caranya silahkan buat form yang berisi label, textbox, listbox, dan sebagainya seperti gambar diatas.

 lalu masukkan masing-masing privat sub'nya,

dan ini contoh coding / private sub'nya

Private Sub Check1_Click()
If Check1 = 1 Then
txtistri = 0.15 * Val(txtgajipokok)
End If
End Sub

Private Sub Check2_Click()
If Check1 = 1 Then
txtjabatan = 0.1 * Val(txtgajipokok)
End If
End Sub

Private Sub cmdbersih_Click()
List1.Refresh
Option1 = False
Option2 = False
Option3 = False
txtgajipokok = ""
txtistri = ""
txtjabatan = ""
txtgajibersih = ""
Check1 = 0
Check2 = 0
End Sub

Private Sub cmdexit_Click()
p = MsgBox("Anda Yakin akan keluar dari Program ?", vbQuestion + vbOKCancel, "Perhatian")
If p = vbOK Then
End
End If
End Sub

Private Sub cmdhitung_Click()
txtgajibersih = Val(txtgajipokok) + Val(txtistri) + Val(txtjabatan)
End Sub

Private Sub Form_Load()
List1.AddItem ("12110050")
List1.AddItem ("12110055")
List1.AddItem ("12110060")
List1.AddItem ("12110065")
List1.AddItem ("12110070")
End Sub

Private Sub List1_Click()
Select Case List1
Case "12110050"
txtnama = "Aris Saryanto"
Case "12110055"
txtnama = "Arai Imanuel"
Case "12110060"
txtnama = "Aradian Vegeta"
Case "12110065"
txtnama = "Ayama Yudhistira"
Case Else
txtnama = "Afreddian Surahmann"
End Select
End Sub

Private Sub Option1_Click()
txtgajipokok.Text = 3500000
End Sub

Private Sub Option2_Click()
txtgajipokok.Text = 2500000
End Sub

Private Sub Option3_Click()
txtgajipokok.Text = 1500000
End Sub

Private Sub txtgajibersih_Change()
txtgajibersih = Val(txtgajipokok) + Val(txtistri) + Val(txtjabatan)
End Sub

artikel ini  saya buat agar saya tidak lupa, dan gampang mempelajari kembali tugas yang diberikan oleh Dosen, bagi yang punya kritik dan saran silahkan ,,,:)