Interface program gaji karyawan

Flowchart Gaji Karyawan

Listing Program Gaji Karyawan

Private Sub Combo1_Click()

If Combo1.Text = "NIKAH" Then

Text5.Text = 0.1 * Val(Text4.Text)

Else

Text5.Text = o

End If

End Sub

Private Sub Command1_Click() //tombol hitung

Text6.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text4.Text)

End Sub

Private Sub Command2_Click()// tombol ulangi

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

End Sub

Private Sub Command3_Click()// tombol keluar

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "NIKAH"

Combo1.AddItem "Belum NIKAH"

Combo1.ListIndex = 0

End Sub

Private Sub Text2_Change()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

(http://avrilblue.blogspot.com/2011/12/program-sederhana-menghitung-gaji.html)