Visual Basic : Program Gaji

Listing Program

Private Sub Form_Load()

Dim i As Byte

For i = 1 To 3

Combo1.AddItem CStr(i)

Next

For i = 1 To 4

List1.AddItem CStr(i)

Next

End Sub

Private Sub Combo1_Click()

Select Case Combo1.ListIndex

Case 0

Text2 = 100000

Text3 = 50000

Case 1

Text2 = 150000

Text3 = 75000

Case 2

Text2 = 200000

Text3 = 100000

End Select

End Sub

Private Sub Command1_Click()

Kosong

Text1.SetFocus

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub List1_Click()

If List1.ListIndex = 0 Then

Text4 = 100000

ElseIf List1.ListIndex = 1 Then

Text4 = 200000

ElseIf List1.ListIndex = 2 Then

Text4 = 300000

ElseIf List1.ListIndex = 3 Then

Text4 = 400000

End If

End Sub

Private Sub Text5_Click()

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

End Sub

Sub Kosong()

Dim CTL As Control

For Each CTL In Me

If TypeName(CTL) = "TextBox" Or TypeName(CTL) = "ComboBox" Or

TypeName(CTL) = "ListBox" Then

CTL.Text = ""

End If

Next

End Sub