Judul : Source Code Aplikasi Data Mahasiswa Dengan Visual Basic
Source Code Aplikasi Data Mahasiswa Dengan Visual Basic
Buat tampilan seperti dibawah ini
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub
Private Sub CmdProses_Click()
Dim Kode, KodeJurusan, KodePrody, Jurusan, Prody, TahunMasuk, NomorUrut As Variant
Kode = TxtNpm
TahunMasuk = "20" & Left(Kode, 2)
TxtTahunMasuk = TahunMasuk
KodeJurusan = Mid(Kode, 3, 1)
Select Case KodeJurusan
Case "1"
Jurusan = "Sistem Informasi"
Case "2"
Jurusan = "Teknik Informatika"
Case "3"
Jurusan = "Manajemen Informatika"
Case "4"
Jurusan = "Komputer Akuntansi"
End Select
TxtJurusan = Jurusan
KodePrody = Mid(Kode, 4, 2)
Select Case KodePrody
Case "01"
Prody = "Strata Satu"
Case "02"
Prody = "Diplomat Empat"
Case "03"
Prody = "Diplomat Tiga"
Case "04"
Prody = "Diplomat Dua"
End Select
TxtPrody = Prody
NomorUrut = Right(Kode, 3)
TxtNomorUrut = NomorUrut
End Sub
Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama.Text = ""
TxtNpm.Text = ""
TxtJurusan.Text = ""
TxtPrody.Text = ""
TxtTahunMasuk.Text = ""
TxtNomorUrut.Text = ""
End Sub
Private Sub CmdProses_Click()
Dim Kode, KodeJurusan, KodePrody, Jurusan, Prody, TahunMasuk, NomorUrut As Variant
Kode = TxtNpm
TahunMasuk = "20" & Left(Kode, 2)
TxtTahunMasuk = TahunMasuk
KodeJurusan = Mid(Kode, 3, 1)
Select Case KodeJurusan
Case "1"
Jurusan = "Sistem Informasi"
Case "2"
Jurusan = "Teknik Informatika"
Case "3"
Jurusan = "Manajemen Informatika"
Case "4"
Jurusan = "Komputer Akuntansi"
End Select
TxtJurusan = Jurusan
KodePrody = Mid(Kode, 4, 2)
Select Case KodePrody
Case "01"
Prody = "Strata Satu"
Case "02"
Prody = "Diplomat Empat"
Case "03"
Prody = "Diplomat Tiga"
Case "04"
Prody = "Diplomat Dua"
End Select
TxtPrody = Prody
NomorUrut = Right(Kode, 3)
TxtNomorUrut = NomorUrut
End Sub
Demikianlah Artikel Source Code Aplikasi Data Mahasiswa Dengan Visual Basic
Sekian Tutorial Source Code Aplikasi Data Mahasiswa Dengan Visual Basic, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sekian postingan Tutorial kali ini.
Anda sedang membaca artikel Source Code Aplikasi Data Mahasiswa Dengan Visual Basic dan artikel ini url permalinknya adalah https://tutoria-satu.blogspot.com/2015/12/source-code-aplikasi-data-mahasiswa.html Semoga artikel ini bisa bermanfaat.
0 Response to "Source Code Aplikasi Data Mahasiswa Dengan Visual Basic"
Post a Comment