Selasa, 08 Januari 2013
Mengubah JPG atau PNG menjadi ICO atau icon
Jumat, 28 Desember 2012
Membuat Form Login VB.net dengan Database Access (Koneksi VB.net dengan Database Access)
Langkah-langkah membuat Membuat Form Login VB.net dengan Database Access .
100% work
pendahauluan
banyak form login tapi rata" tidak bisa setelah saya coba" dan saya menemukan cara mudah serta
penjelasan logic aplikasinya . =)
penjelasan logic aplikasinya . =)
- Membuat Form (Menggunakan VB.net / visual basic 2010)
- Membuat Database (Access 2003/2007)
- Mengkoneksikan VB.net/ visual basic 2010 ke Access
- Membuat syntax .
1.Membuat Form (Menggunakan VB.net / visual basic 2010)
- Buka Visual Basic 2010
- Save dengan Nama LOGIN
- Tentukan Lokasi Penyimpanan (contoh D:\)
- Buat form 2 form (Form Login dan Form Kosong)
ini adalah contoh form login buatan saya :D
sebenernya ga musti harus seperti itu .
anda cukup membuatnya sederhana
1 buah groupbox ~> beri nama pada text (Masukan Nama Dan Password)
di dalam groupbox anda beri :
2 buah Label = Nama dan Password
2 buah textbox = textbox1 dan textbox2
2 buah button = Login dan Batal
Atur Propertis seperti contoh di atas .
sehingga mengubah form seperti
setelah selesai membuat form di atas . kita akan membuat database :D
GO GO GO !! FIRE IN THE HOLE !!
question : Fariz setiawan
https://twitter.com/fariz_setiawan
sebenernya ga musti harus seperti itu .
anda cukup membuatnya sederhana
1 buah groupbox ~> beri nama pada text (Masukan Nama Dan Password)
di dalam groupbox anda beri :
2 buah Label = Nama dan Password
2 buah textbox = textbox1 dan textbox2
2 buah button = Login dan Batal
| Nama control | Propertis | Nilai |
| Groupbox1 | Name | Masukan Nama Dan Password |
| Textbox1 | Name | TxtNama |
| TextBox2 | Name | TxtPassword |
| Label1 | Text | Nama |
| Label2 | Text | Password |
| button1 | Name | CmdLogin |
| Text | Login | |
| button2 | Name | CmdBatal |
| Text | Batal |
Atur Propertis seperti contoh di atas .
sehingga mengubah form seperti
setelah selesai membuat form di atas . kita akan membuat database :D
GO GO GO !! FIRE IN THE HOLE !!
question : Fariz setiawan
https://twitter.com/fariz_setiawan
2. Membuat Database (Access 2003/2007)
- buka ms.access
- pilih penyimpanan di lokasi folder anda membuat program form di dalam folder
(D:\LOGIN\Bin \Debug) - buat table dengan nama TUSER
- buat 2 Field (Nama [tetx] dan Password [text] )
- isi Field Nama sesuka anda
- isi Field Password sesuka anda
- save
3. Mengkoneksikan VB.net/ visual basic 2010 ke Access
Sudah saya jelaskan pada blog saya sebelumnya klik untuk anda mempelajari cara melihat link koneksi database
Nb: apabila anda merasa sulit anda bisa mengetik manual . apabila anda menggunakan access 2003 dan database anda berada di (D:\LOGIN\Bin \Debug) Link anda adalah
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEST.mdb;Persist Security Info=False
apabila anda menggunakan access 2007 dengan lokasi penyimpanan Database anda berada di (D:\LOGIN\Bin \Debug) Link anda adalah
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LOGIN\bin\Debug\TEST.accdb;Persist Security Info=False
(di PASTE di Connection syntax lihat contoh syntax di bawah ~> Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEXT.mdb;Persist Security Info=False" )
4. Membuat syntax
untuk tahap ini anda tidak perlu menggunakan Modul atau Class (untuk para pemula)
anda hanya perlu memahami logic nya
anda hanya perlu memahami logic nya
dan anda jg bisa membuat Modul / Class setelah memahami Logic dari syntax tersebut
Tulis Syntax berikut :
Imports System.Data.OleDb
Public Class LOGIN
Dim Con As New OleDbConnection
Sub clear()
TxtNama.Text = ""
TxtPassword.Text = ""
End Sub
Private Sub LOGIN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
----------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------
'***PASTE LINK KONEKSI DATABASE DI BAWAH ( DI DALAM TANDA " " )***
----------------------------------------------------------------------------------------------------------------------------------------'
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEXT.mdb;Persist Security Info=False"
End Sub
Private Sub CmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBatal.Click
Call clear()
End Sub
Public Function ask()
Dim dt As New DataTable
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(" select * from TEXT", Con)
ds.Tables.Add(dt)
Con.Open()
da.Fill(dt)
For Each datarow In dt.Rows
If TxtNama.Text = datarow.item(0) And TxtPassword.Text = datarow(1) Then
Con.Close()
Return True
End If
Next
Con.Close()
Return False
End Function
Sub Proses()
If ask() = True Then
Me.Hide()
----------------------------------------------------------------------------------------------------------------------------------------
'form2 adalah form kosong yang anda buat guna apabila berhasil login akan tampil form 2'
----------------------------------------------------------------------------------------------------------------------------------------
Form2.ShowDialog()
Else
MessageBox.Show("Username atau password salah. periksa kembali", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call clear()
End If
End Sub
Private Sub CmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLogin.Click
TxtNama.Focus()
Proses()
End Sub
------------------------------------------------------------------------------------------------------------
'di bawah ini adalah untuk enter = CmdLogin'
atau
'apabila enter di keyboard = login '
------------------------------------------------------------------------------------------------------------
Private Sub TxtPassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtPassword.KeyDown
If e.KeyCode = Keys.Enter Then
Proses()
e.SuppressKeyPress = True
End If
End Sub
Private Sub TxtNama_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtNama.KeyDown
If e.KeyCode = Keys.Enter Then
Proses()
e.SuppressKeyPress = True
End If
End Sub
End Class
MUdahh Kan ?! (yaiyalah copyPaste) :D
Rabu, 26 Desember 2012
koneksi vb.net dengan database access 2007 dan membuat password database .
cara melihat / mencari link database .
;)
good luck
- buka notepad (kosong)
- pilih menu file klik save as
- tentukan lokasi save .(contoh : lokasi save di D:\fariz\test )
- save as type all file
- beri nama file (conn.udl)
- apabila sudah di save dengan nama seperti diatas .
- masuk ke lokasi (contoh : lokasi save di D:\fariz\test ) save buka file doubleclick
- pilih provider klik ( apabila menggunakan datebase access 2007) pilh "Microsoft.ACE.OLEDB.12.0"
- apabila menggunakan access 2003 pilih microsoft jet 4.0 OLE DB Provider
- masukan data source (conn.udl)
- klik test koneksi apabila sukses klik OK
- klik kanan file pilih notepad++ (untuk membuka file dengan notepad++)
- dan anda sudah bisa melihat link database anda .
contoh ;
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database1.accdb;Persist Security Info=False;
In addition, if you are using passwords to access your database, you can include it in your connection string like below;
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database1.accdb;Jet OLEDB:Database Password=MyDbPassword;
In addition, if you are using passwords to access your database, you can include it in your connection string like below;
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database1.accdb;Jet OLEDB:Database Password=MyDbPassword;
;)
good luck
Rabu, 19 Desember 2012
Keypress Enter Keyboard Syntax VB.NET 2010
Keypress Enter VB.net 2010 Syntax Code penggunaan Enter Pada Keyboard .
NB : logic dari keydown adalah tergantung pada focus kursor
contoh : cursor pada textbox1 (apabila di klik enter maka akan berproses)
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
WebBrowser1.Navigate(TextBox1.Text)
e.SuppressKeyPress = True
End If
If e.KeyCode = Keys.F5 Then
WebBrowser1.Refresh()
e.SuppressKeyPress = True
End If
End Sub
KeyPress Enter VB.net 2010 dalam syntax code press enter keyboard Adalah penggunaan Keypress Enter Keyboard Dalam VB.net 2010 dalam bentuk syntax code .
penjelasan logica Keypress Enter Keyboard Syntax VB.NET 2010.
penjelasan logica Keypress Enter Keyboard Syntax VB.NET 2010.
========================================================================
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
WebBrowser1.Navigate(TextBox1.Text)
e.SuppressKeyPress = True
End If
End Sub
========================================================================
RUMUS :
If e.KeyCode = Keys.(KeyBoard Press) Then (prosesnya)
e.SuppressKeyPress =True
end If
========================================================================
Mudah Bukan :D
Semoga Sukses :))
^_~
Twitter ; @fariz_setiawan
Semoga Sukses :))
^_~
Twitter ; @fariz_setiawan
Selasa, 18 Desember 2012
Membuat WebBrowser Mu Sendiri Menggunakan VB.net 2010
WebBrowser adalah Penjelajah web, Penjelajah (Inggris: web browser) disebut juga penjelajah web, adalah perangkat lunak yang berfungsi menampilkan dan melakukan interaksi dengan dokumen-dokumen yang disediakan oleh server web . Penjelajah web yang populer adalah Microsoft Internet Explorer dan Mozilla Firefox. Penjelajah web adalah jenis perantara pengguna yang paling sering digunakan. sekarang kita bisa membuat applikasi sederhana menggunakan visual basic 2010 atau vb.net .
caranya sangat mudah dan menarik untuk di coba untuk latihan para ortodidak atau pemula belajar vb.net .
mari kita buat mozila firefox kita sendiri . :D
instal program dan buka program.
tulis syntax code berikut :
caranya sangat mudah dan menarik untuk di coba untuk latihan para ortodidak atau pemula belajar vb.net .
mari kita buat mozila firefox kita sendiri . :D
download visual basic 2010
instal program dan buka program.
pilih new project . untuk membuat projek baru .
setelah sudah membuka project baru akan keluar tampilan sebagai berikut :
Pilih windows Form Application
Beri Nama dan "Klik Browse Untuk penyimpanan aplikasi "
Beri Nama dan "Klik Browse Untuk penyimpanan aplikasi "
Buat Form Seperti Berikut ini :
yang di butuhkan adalah
- 4 Button (di paling atas untuk icon refresh, stop browser, back dan Go urL )
- 1 textbox (di atas untuk UrL / Alamat Website )
- 1 WebBrowser ( di bawah dan buat dengan ukuran besar , untuk tampilan web )
setelah seperti tampilan di atas . kita atur propertisnya sehingga menjadi seperti ini :
| Nama control | Propertis | Nilai |
| button1 | Name | BtnBack |
| Backgroundimage | (Beri icon) | |
| Backgroundimagelayout | Stretch | |
| Text | (kosong) | |
| button2 | Name | BtnStop |
| Backgroundimage | (Beri icon) | |
| Backgroundimagelayout | Stretch | |
| Text | (kosong) | |
| button3 | Name | BtnRefresh |
| Backgroundimage | (Beri icon) | |
| Backgroundimagelayout | Stretch | |
| Text | (kosong) | |
| button4 | Name | BtnGo |
| Text | Go UrL | |
| textbox1 | Name | TextBox1 |
| webbrowser1 | Name | WebBrowser1 |
setelah sudah terbuat tampilan seperti gambar di atas dengan propertis demikian , kita akan ke proses syntax .
caranya :
caranya :
klik kanan pada form1 pilih view code atau doubleclick form .
tulis syntax code berikut :
=================================================================================
Public Class Form1
Private Sub
BtnGO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtnGo.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub
WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompleted
TextBox1.Text = WebBrowser1.Url.ToString
End Sub
Private Sub
TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles
TextBox1.KeyDown
If e.KeyCode = Keys.Enter
Then
WebBrowser1.Navigate(TextBox1.Text)
e.SuppressKeyPress = True
End If
If e.KeyCode = Keys.F5
Then
WebBrowser1.Refresh()
e.SuppressKeyPress = True
End If
End Sub
Private Sub
BtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtnBack.Click
WebBrowser1.GoBack()
End Sub
Private Sub BtnRefresh_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
BtnRefresh.Click
WebBrowser1.Refresh()
End Sub
Private Sub
BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
BtnStop.Click
WebBrowser1.Stop()
End Sub
End Class
=================================================================================
penjelasan logika syntax :
- apabila di klik BtnGO , navigasi control webbrowser1 di dasari dari textbox1 (Terkoneksi antara webbrowser dan textbox) tergatung alamat website di textbox1
- textbox1 adalah UrL atau alamat WebSite .
- keypress enter pada keyboard sama dengan kita mengklik Go UrL .
- keypress f5 pada keyboard sama dengan kita mengklik BtnRefresh
- apabila di klik BtnBack maka akan kembali ke web sebelumnya
- apabila di klik BtnRefresh maka akan refresh page (f5)
- apabila di klik BtnStop maka koneksi akan berhenti
setelah sudah simpan klik gambar discket grub save .
klik submenu , build pilih dan build file tersebut
klik submenu , build pilih dan build file tersebut
klik icon paste di bawah submenu Debug
F5 untuk debug program .
masukan UrL apa saja , untuk check working program .
contoh : facebok.com
masukan UrL apa saja , untuk check working program .
contoh : facebok.com
sekarang anda sudah membuat Mozila Firefox buatan anda sendiri :D
Mudah buKan ;)
Selamat Mencoba ^,^ teman-teman .
Selamat Mencoba ^,^ teman-teman .
jangan lupa post command dan share ilmu untuk teman2 yang lain juga .
:D
:D
Twitter ; @fariz_setiawan
Langganan:
Postingan (Atom)










