Tugas 11 Biaya Pendidikan

Untitled

Private Sub form_activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtbp.Text = “”
End Sub
Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtbp.Text = “”
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtbp.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim S As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtjurusan.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjurusan.Text = “Teknik Informatika”
ElseIf S = “3” Then
txtjurusan.Text = “Manajemen Informatika”
ElseIf S = “4” Then
txtjurusan.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “00” Then
txtps.Text = “Strata Satu”
txtbp.Text = “Rp 1950000”
ElseIf S = “01” Then
txtps.Text = “Diploma Empat”
txtbp.Text = “Rp 1750000”
ElseIf S = “02” Then
txtps.Text = “Diploma Tiga”
txtbp.Text = “Rp 1650000”
ElseIf S = “03” Then
txtps.Text = “Diploma Dua”
txtbp.Text = “Rp 1450000”
End If
txtnu.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub txtnama_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub
Private Sub cmdkeluar_Click()
End
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 )

Connecting to %s