tugas3. program 11

11

Private Sub CMDBATAL_Click()

TXTNAMA.SetFocus

TXTNAMA = ” ”

TXTNPM = ” ”

JURUSAN = ” ”

PRODI = ” ”

TAHUN = ” ”

NOURUT = ” ”

PENDIDIKAN = ” ”

TERBILANG.Text = ” ”

End Sub

Private Sub CMDKELUAR_Click()

End

End Sub

Private Sub CMDLAGI_Click()

TXTNAMA.SetFocus

TXTNAMA = ” ”

TXTNPM = ” ”

JURUSAN = ” ”

PRODI = ” ”

TAHUN = ” ”

NOURUT = ” ”

PENDIDIKAN = ” ”

TERBILANG.Text = ” ”

End Sub

Private Sub CMDPROSES_Click()

Dim S As String

TAHUN.Text = “20” & Left(TXTNPM.Text, 2)

S = Mid(TXTNPM.Text, 3, 1)

If S = “1” Then

JURUSAN.Text = “Sistem Informasi”

ElseIf S = “2” Then

JURUSAN.Text = “Tehnik informasi”

ElseIf S = “3” Then

JURUSAN.Text = “Manajemen Informatika”

ElseIf S = “4” Then

JURUSAN.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(TXTNPM.Text, 4, 2)

If S = “01” Then

PRODI.Text = “STRATA SATU”

PENDIDIKAN.Text = “1950000”

ElseIf S = “02” Then

PRODI.Text = “DIPLOMA EMPAT”

PENDIDIKAN.Text = “1750000”

ElseIf S = “03” Then

PRODI.Text = “DIPLOMA TIGA”

PENDIDIKAN.Text = “1650000”

ElseIf S = “04” Then

PRODI.Text = “DIPLOMA SATU”

PENDIDIKAN.Text = “1450000”

End If

NOURUT.Text = Right(TXTNPM.Text, 3)

End Sub

Private Sub txtnpm_keypress(keyascii As Integer)

If keyascii = 13 Then

TXTNAMA.SetFocus

Dim S As String

TAHUN.Text = “20” & Left(TXTNPM.Text, 2)

S = Mid(TXTNPM.Text, 3, 1)

If S = “1” Then

JURUSAN.Text = “Sistem Informasi”

ElseIf S = “2” Then

JURUSAN.Text = “Tehnik informasi”

ElseIf S = “3” Then

JURUSAN.Text = “Manajemen Informatika”

ElseIf S = “4” Then

JURUSAN.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(TXTNPM.Text, 4, 2)

If S = “01” Then

PRODI.Text = “STRATA SATU”

PENDIDIKAN.Text = “1950000”

ElseIf S = “02” Then

PRODI.Text = “DIPLOMA EMPAT”

PENDIDIKAN.Text = “1750000”

ElseIf S = “03” Then

PRODI.Text = “DIPLOMA TIGA”

PENDIDIKAN.Text = “1650000”

ElseIf S = “04” Then

PRODI.Text = “DIPLOMA SATU”

PENDIDIKAN.Text = “1450000”

End If

NOURUT.Text = Right(TXTNPM.Text, 3)

End If

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