Pada kesempatan kali ini saya akan menjelaskan bagaimana membuat program aplikasi sederhana dengan menggunakan Fungsi If, Fungsi Messagebox, Fungsi String, Looping dalam 1 project 2 form yaitu menetukan NPM Mahasiswa dan juga membuat Verifikasi Password sebagai pembuka pada awal aplikasi dijalankan.
pertama Start > All Programs > Microsoft Visual Studio 2008 kemudian klik Create Project > Windows Form Application > Ok
1. Membuat form Verifikasi Password terlebih dahulu
Mari kita ubah tombol Label, TextBox dan Button di Properties
#np menggunakan tanda bintang (*) pada password? agar pas mengisi password pada textbox2 maka yang muncul bukan huruf ataupun angka melainkan tanda bintang
2
Nah tampilan akan seperti anda tinggal memasukan username dan password seperti contoh di atas
3.
Jika anda salah memasukan password maka akan ada konfirmasi password yang anda masukan salah
Berikut Source Code untuk membuat aplikasi Password
Public Class Form2
Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
Dim y As Integer
If Tpassword.Text = "cantik" Then
Me.Hide()
Form1.Show()
Else
y = MsgBox("Password yang Anda masukkan salah", MsgBoxStyle.OkOnly, "Konfirmasi")
TUsername.Text = ""
End If
End Sub
Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
TUsername.Text = ""
Tpassword.Text = ""
TUsername.Focus()
End Sub
End Class
**jika sudah memasukan password dengan benar klik masuk lalu akan tampil form yang telah anda buat sebelumnya seperti ini
4.
Lalu buatlah form seperti yang terlihat di bawah ini dengan menggunakan Label, ComboBox,dan Button
Ubah Label, TextBox, ComboBox dan Button di Properties
5.
Untuk membuat Tahun 2005 s/d 2011 anda bisa menggunakan perulangan seperti gambar yang ada di atas
6.
Dan apabila Jurusan S1 maka beri kode 11 dan apabila jurusan D3 maka beri kode 02
7.
Untuk No urut mulai dari 100 s/d250 dengan menggunakan perulangan maka hasilnya akan seperti gambar berikut yang ada di atas.
8.
NPM hasil dari penggabungan antara fungsi String dan If dengan ketentuan 2 string kanan dari tahun dan kode jurusan serta no.urut.
- * Apabila jurusan di klik untuk S1, maka akan tampil keluar items yang ada di npm sebanyak no.urut yang telah di tentukan tadi (100 – 250) seperti yang ada di bawah di atas untuk jurusan S1 angka depan NPM adalah 11.
9
Apabila memilih jurusan D3 maka nomer NPM akan keluar dengan angka depan 02
10
sebagai conton anda memilih tahun 2011 jurusan D3 dan no urut 106 maka secara otomatis nomer npm akan keluar mengikuti kode
11.
untuk kembali dan mengosongkan tinggal klik Hapus sepeti gambar di atas
12.
jika anda ingin keluar klik tombol keluar
#berikut adalah source code aplikasi pada form 1 di atas
FORM LOAD
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a, b As Integer
a = 2005
Do While a <= 2011
Tahun.Items.Add(a)
a = a + 1
Loop
Jurusan.Items.Add("S1")
Jurusan.Items.Add("D3")
b = 100
Do While b <= 250
NoUrut.Items.Add(b)
b = b + 1
Loop
End Sub
JURUSAN
Private Sub Jurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jurusan.SelectedIndexChanged
NPM.Items.Clear()
Dim k As Integer
Dim j, l As String
j = Microsoft.VisualBasic.Right(Tahun.Text, 2)
If Jurusan.Text = "S1" Then
l = "11"
Else
l = "02"
End If
k = 100
Do While k <= 250
NPM.Items.Add(j & l & k)
k = k + 1
Loop
End Sub
NO.URUT
Private Sub NoUrut_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoUrut.SelectedIndexChanged
NPM.Items.Clear()
Dim j, l As String
j = Microsoft.VisualBasic.Right(Tahun.Text, 2)
If Jurusan.Text = "S1" Then
l = "11"
Else
l = "02"
End If
NPM.Items.Add(j & l & NoUrut.Text)
End Sub
BUTTON HAPUS
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
Tahun.Text = " "
jurusan.Text = " "
NoUrut.Text = " "
NPM.Text = " "
End Sub
BUTTON EXIT
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
Dim y As Integer
y = MsgBox("Yakin Keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If y = vbYes Then
Me.Close()
End If
End Sub
End Class
SILAHKAN MENCOBA TERIMA KASIH :)
Tidak ada komentar:
Posting Komentar