Jumat, 11 Februari 2011

Cara membuat perhitungan gaji karyawan dengan vb.6.0


Langkah pertama :
1.Buatlah label sebanyak 8 objek dan ubahlah captionnya sesuai contoh diatas


2.Buatlah objek text sebanyak 5, 1 list box,dan 3 command button sesuakan dengan gambar diatas.
3.Pada command1(proses) masukan program dibawah ini:
Private Sub Command1_Click()
If Text1.Text = "" Then
Text1.SetFocus
ElseIf Text2.Text = "" Then
Text2.SetFocus
ElseIf Combo1.Text = "" Then
Combo1.SetFocus
Else
If Text2 > 40 Then
nilai(1) = Val(Text2.Text) - Val(40)
nilai(2) = nilai(1) * Val(25000)
Text4.Text = nilai(2)
Else
Text4.Text = "0"
End If
If Combo1.Text = "tidak" Then
angka(1) = Val(Text1.Text) * Val(10)
angka(2) = angka(1) / Val(100)
Text3.Text = angka(2)
Else
Text3.Text = "0"
End If
End If
Text5.Text = Val(Text1.Text) + Val(Text3.Text) + Val(Text4.Text)
End Sub
4.Pada command2(bersih) masukan program di bawah ini:
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Combo1.Text = ""
End Sub

5.Pada command3 (exit ) masukan program di bawah ini:
Private Sub Command3_Click()
MsgBox " anda ingin keluar...?", vbInformation

End
End Sub

selamat mencoba.......!!!!!!

0 komentar:

Poskan Komentar