# Keterangan
:
1) Form 1
(Form Login)
2) Form 2
(Form Menu)
3) Form 3
(Form Pengolahan Citra)
Baiklah Sobat Saya Sekalian
Langsung Saja Kita Membuat Form Login
Dengan Mendisain Form Seperti Gambar Di Bawah Ini :
# Listing Program :
1). Klik Double Bebas
Pada Form Dan Isikan Printah
Public Class Form1
Private Sub
Form2_Load(Byval Sender As System.Object, Byval E As System.Eventargs) Handles
Mybase.Load
Password.Passwordchar = "*"
End Sub
2)
Klik Double Pada Button Ok Dan Isikan Printah
Private Sub Button2_Click(Byval Sender As
System.Object, Byval E As
System.Eventargs) Handles Button2.Click
If User.Text = ""
Or Password.Text = ""
Then
Msgbox("Maaf, Username Dan Password Belum Di Input!!")
User.Focus()
Elseif User.Text = "irwan"
And Password.Text = "12345"
Then
Msgbox("Welcome To Menu Utama :-)")
Form2.Show()
Me.Hide()
Else
Msgbox("Maaf, Username Dan Password Salah!")
User.Text =
""
Password.Text = ""
User.Focus()
End If
End Sub
3)Klik Double
Pada Textbox Password Untuk Menggunakan Keypress
Caranya Dengan
Mengubah Textchanged Menjadi Keypress,Dan Isikan Printah
Private Sub Password_Keypress(Byval Sender As Object, Byval E As System.Windows.Forms.Keypresseventargs) Handles Password.Keypress
If Asc(E.Keychar) = 13 Then
If User.Text = "irwan"
And Password.Text = "12345"
Then
Msgbox("Welcome :-)")
Form3.Show()
Me.Hide()
Else
Msgbox("Sorry :-( Password And Username No Valid
Tryagain!!")
User.Text = ""
Password.Text = ""
End If
End If
End Sub
1)
Klik Double Pada Button
Keluar Isikan Printah
Private Sub Button1_Click(Byval Sender As
System.Object, Byval E As
System.Eventargs) Handles Button1.Click
Me.Close()
End Sub
End Class
Selanjutnya Sobat Membuat Form Menu
Dengan Gambar Di Bawah Ini :
# Listing Program :
1). Membuat Menu File Kita Harus
Menambahkan Menustrip Pada Kotak
Toolbox
Dan Isikan Kolom
1) File
2) Pegolahan
Citra
3) Keluar
Lebih Jelas Lihat Gambar Di Bawah Ini :
2) Selanjutnya Klik Double Menu Pencitraan Dan Isikan Printah
Public Class Form2
Private Sub Pencitraantoolstripmenuitem_Click(Byval Sender As
System.Object, Byval E As
System.Eventargs) Handles
Pencitraantoolstripmenuitem.Click
Form3.Mdiparent
= Me
Form3.Show()
End Sub
1) Selanjutnya
Klik Double Menu Keluar Dan Isikan Printah
Private Sub
Keluartoolstripmenuitem_Click(Byval Sender As System.Object, Byval
E As System.Eventargs) Handles
Keluartoolstripmenuitem.Click
End
End Sub
End Class
Setelah
Selesai Mendisain Kedua Form Tersebut Dan Yang Terahir Kita Membuat Form
Pengolahan Citra Seperti Gambar Di Bawah Ini :
Tidak ada komentar:
Posting Komentar