Penggunaan Case Box

Form Running

Design Form 

 Ketentuan Soal :

• Golongan 1A Gapok = 3.500.000, Uang Transport = 350.000, Uang Makan = 400.000
• Golongan 1B Gapok = 2.250.000, Uang Transport = 350.000, Uang Makan = 400.000
• Golongan 2A Gapok = 2.500.000, Uang Transport = 250.000, Uang makan = 300.000
• Golongan 2B Gapok = 2.255.000, Uang Transport = 250.000, Uang Makan = 300.000
• Golongan 3A Gapok = 1.850.000, Uang Transport = 200.000, Uang Makan = 250.000
• Golongan 3B Gapok = 1.500.000, Uang Transport = 200.000, Uang Makan = 250.000

Listing Program :

Private Sub Check1_Click()
If Check1.Value = True Then
Me.Check2.Enabled = False
Else
Me.Check1.Enabled = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = True Then
Me.Check1.Enabled = False
Else
Me.Check2.Enabled = False
End If
End Sub

Private Sub cmbgol_Click()
Select Case Me.cmbgol.ListIndex
Case "0"
Me.txtgapok.Text = 3500000
Me.txttrans.Text = 350000
Me.txtmakan.Text = 400000

Case "1"
Me.txtgapok.Text = 3250000
Me.txttrans.Text = 350000
Me.txtmakan.Text = 400000

Case "2"
Me.txtgapok.Text = 2500000
Me.txttrans.Text = 250000
Me.txtmakan.Text = 300000

Case "3"
Me.txtgapok.Text = 2255000
Me.txttrans.Text = 250000
Me.txtmakan.Text = 300000

Case "4"
Me.txtgapok.Text = 1850000
Me.txttrans.Text = 200000
Me.txtmakan.Text = 250000

Case "5"
Me.txtgapok.Text = 1500000
Me.txttrans.Text = 200000
Me.txtmakan.Text = 250000
End Select

Me.txtgapok.Enabled = False
Me.txtmakan.Enabled = False
Me.txttrans.Enabled = False
Me.txttotga.Enabled = False
End Sub

Private Sub cmdkeluar_Click()
pesan = MsgBox("Yakin Anda Ingin Keluar ???.....", vbOKCancel, "PT. Cahaya Baru Permai")
If pesan = vbOK Then
Unload Me
End If
End Sub

Private Sub cmdlagi_Click()
Me.txtnip.Text = ""
Me.txtnama.Text = ""
Me.txtgapok.Text = ""
Me.txttrans.Text = ""
Me.txtmakan.Text = ""
Me.txttunj.Text = ""
Me.txttotga.Text = ""
Me.cmbgol.Text = "Silahkan Pilih"
Me.Check1.Value = False
Me.Check1.Enabled = True
Me.Check2.Value = False
Me.Check2.Enabled = True
Me.txtnip.SetFocus
End Sub

Private Sub Form_Activate()
'Membuat Tampilan Jam & Tanggal pada FormMe.LblJam.Caption = Time
Me.lbltgl.Caption = Date
End Sub
 
Private Sub Form_Load()'Membuat Pilihan pada Combobox
Me.cmbgol.AddItem "Gol 1A"
Me.cmbgol.AddItem "Gol 1B"
Me.cmbgol.AddItem "Gol 2A"
Me.cmbgol.AddItem "Gol 2B"
Me.cmbgol.AddItem "Gol 3A"
Me.cmbgol.AddItem "Gol 3B"

'Membuat Pilihan pada Listbox
Me.List1.AddItem "1"
Me.List1.AddItem "2"
Me.List1.AddItem "3"
Me.List1.AddItem "4"
Me.List1.AddItem "5"
End Sub

Private Sub List1_Click()
Select Case List1.Text
Case "1"
Me.txttunj.Text = 1500000
Case "2"
Me.txttunj.Text = 1000000
Case "3"
Me.txttunj.Text = 750000
Case "4"
Me.txttunj.Text = 500000
Case Else
Me.txttunj.Text = 0
End Select

Me.txttotga.Text = Val(Me.txtgapok.Text) + Val(Me.txtmakan.Text) + Val(Me.txttrans.Text) + Val(Me.txttunj.Text)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.cmbgol.SetFocus
End If
End Sub

Private Sub txtnip_KeyPress(KeyAscii As Integer)
 'Membuat perintah enter dan kursor aktif di text terpilih
If KeyAscii = 13 Then
Me.txtnama.SetFocus
End If
End Sub