Aplikasi Penerimaan Pegawai(dengan vb)

FINISH !!!

Buka Aplikasi Microsoft Visual Basic  2008

Buat Project Baru Dengan Nama Penerimaan Pegawai

Klik Kanan Pada Form Pilih Properties

Ubah Value Textnya Menjadi Penerimaan Pegawai

MaximumBoxnya = False

Buat Formx seperti gambar di bawah :

sesuaikan propertiesnya seperti di bawah ini :

Insert Panel Terletak Pada Tool Container

Lalu Ubah Properties Visiblenya Menjadi “False” 

Masukkan Beberapa Label Sesuai Dengan Gambar Ke dalam Panel yang Di Buat tadi

Ubah Propertiesnya

Lalu Kita Masuk Pada Codenya

Klik 2 Kali Pada Button “Proses”

Masukkan Kode di Bawah ini :

Try             Dim total As Integer             Dim average As Double             Dim akademis, attitude, manajerial As Double             Dim Ket As String = UCase(Label7.Text)             akademis = TextBox1.Text             attitude = TextBox2.Text             manajerial = TextBox3.Text             total = akademis + attitude + manajerial             average = total / 3             Panel1.Visible = True             Label8.Text = total             Label9.Text = average             If akademis >= 75 And attitude >= 75 And manajerial >= 75 Then                 Ket = "Diterima"             ElseIf akademis >= 80 And attitude >= 55 And manajerial >= 55 Then                 Ket = "Diterima"             ElseIf akademis >= 60 And attitude >= 60 And manajerial >= 80 Then                 Ket = "Diterima"             Else                 Ket = "Tidak Diterima"             End If             Label7.Text = Ket         Catch ex As Exception             MsgBox("Inputan Salah !!!", MsgBoxStyle.Critical, "Error !!!")         End Try

Lalu Kembali Ke Desain Form Klik 2 kali pada button “Reset”

Lalu Masukkan Code di Bawah ini :

TextBox1.Text = ""         TextBox2.Text = ""         TextBox3.Text = ""         Panel1.Visible = False

Kembali Ke desain form klik 2 kali pada button “Keluar”

Lalu isikan Code :

Me.Close()

kalo mau file yang udah jadi buat jadi contoh download aja di bawah ini :

Aplikasi Penerimaan Pegawai