tugas 10 program pembayaran mahasiswa

PPROSES E PROSES R

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

S = Left(Txtnpm, 1)

If S = “E” Then

Txtkelas.Text = “Eksekutif”

Txtub.Text = “1250000”

ElseIf S = “R” Then

Txtkelas.Text = “Reguler”

Txtub.Text = “1000000”

End If

S = Mid(Txtnpm, 6, 2)

If S = “01” Then

Txtprodi.Text = “Strata Satu”

If Txtkelas.Text = “Reguler” Then

Txtbps.Text = “1500000”

Else

Txtbps.Text = “1900000”

End If

ElseIf S = “02” Then

Txtprodi.Text = “Diploma Tiga”

If Txtkelas.Text = “Reguler” Then

Txtbps.Text = “1250000”

Else

Txtbps.Text = “1650000”

End If

ElseIf S = “03” Then

Txtprodi.Text = “Diploma Satu”

If Txtkelas.Text = “Reguler” Then

Txtbps.Text = “1250000”

Else

Txtbps.Text = “1350000”

End If

End If

S = Mid(Txtnpm, 5, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Manajemendan Komp. Akuntansi”

End If

 

Txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)

Txtnu.Text = Right(Txtnpm, 3)

If Txtprodi.Text = “Strata Satu” Then

Txtup.Text = “200000”

Txtbpa.Text = “600000”

Else

If Txtprodi.Text = “Diploma Tiga” Then

Txtup.Text = “150000”

Txtbpa.Text = “600000”

Else

If Txtprodi.Text = “Diploma Satu” Then

Txtup.Text = “150000”

Txtbpa.Text = “600000”

End If

End If

End If

Txttb.Text = Val(Txtup.Text) + Val(Txtbps.Text) + Val(Txtub.Text) + Val(Txtbpa.Text)

End Sub

 

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtkelas.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txttm.Text = “”

Txtnu.Text = “”

Txtup.Text = “”

Txtbps.Text = “”

Txtub.Text = “”

Txtbpa.Text = “”

Txttb.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtkelas.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txttm.Text = “”

Txtnu.Text = “”

Txtup.Text = “”

Txtbps.Text = “”

Txtub.Text = “”

Txtbpa.Text = “”

Txttb.Text = “”

End Sub

 

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

w

Connecting to %s