Identitas Mahasiswa

Masih Tahap belajar hehe , cuman mau ngeshare  apa yang udah dipelajari dan tugas tugas kuliah saja :)

>> Buat dulu desainnya , kira kira seperti ini

Public Class Form1

  

   
    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        txtid.Text = ""
        lblnpm.Text = ""
        lblnama.Text = ""
        lblprodi.Text = ""
        imgfoto.Image = Nothing
        btnclear.Focus()
        txtid.Focus()


    End Sub
    Private Sub isidata()
        Select Case txtid.Text
            Case "12338443"
                lblnpm.Text = "212.163.0014"
                lblnama.Text = "Meli Amelia"
                lblprodi.Text = "Manajement Informatika"
                imgfoto.Image = Image.FromFile(Application.StartupPath & " \meli.jpg ")
            Case "10740891"
                lblnpm.Text = "212.163.0016"
                lblnama.Text = "Aminatul Rosdah"
                lblprodi.Text = "Manajement Informatika"
                imgfoto.Image = Image.FromFile(Application.StartupPath & " \mimah.jpg ")
            Case "10740884"
                lblnpm.Text = "212.163.002"
                lblnama.Text = "Sari"
                lblprodi.Text = "Manajement Informatika"
                imgfoto.Image = Image.FromFile(Application.StartupPath & " \sari.jpg ")
            Case "10740924"
                lblnpm.Text = "212.163.003"
                lblnama.Text = "Miftahul Jannah"
                lblprodi.Text = "Manajement Informatika"
                imgfoto.Image = Image.FromFile(Application.StartupPath & " \ana.jpg ")
            Case "10740904"
                lblnpm.Text = "212.163.007"
                lblnama.Text = "Hastiani"
                lblprodi.Text = "Manajement Informatika"
                imgfoto.Image = Image.FromFile(Application.StartupPath & " \ani.jpg ")




        End Select
    End Sub

    Private Sub txtid_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtid.TextChanged
        isidata()
    End Sub
End Class


Ketika di jalannkan programnya , copy Id nya setlah di copy maka akan muncul NPM,Nama,Prodi dan Foto Mahasiswa nya .

Seperti ini


catatan : Untuk foto, simpan di dalam folder projeknya di dalan folder debug.