My Opinion About Sharing

Pengumuman

2011-04-12T19:46:00.000+07:00

Saya cuma mau memberi tahu, bahwa sekarang saya sudah mempunyai website dengan domain .com di http://ariartama.com jadi saya akan jarang sekali mengupdate artikel di blog saya ini. Saya mengkhusukan ariartama.com tersebut untuk artikel-artikel yang berhubungan dengan VB.NET sedangkan untuk yang lainnya akan saya posting di blog ini.. :D

Mockup Game Ane

2011-03-24T20:05:00.002+07:00

Udah lama gak update nih.. Kebetulan 2 Minggu ini saya sedang mengikuti workshop yang sedang di adakan di DigiGame Ultimate yang di laksanakan sama agate dan Nokia. :D… Workshop ini membahas tentang bagaimana cara membuat game berbasis mobile dengan bahasa J2ME. Nah ini Mockup atau tampilan game yang akan saya buat.. Moga aza menang.. kan lumayan tuh dapet NOKIA N8 katanya sih :D..
Kira-kira bakal menang gak yah ?? :D

Workshop di Agate Studio

2011-03-18T06:00:00.000+07:00

Nah Kemarin saya mengikuti workshop yang di adakan oleh Agate Studio, dengan dukungan dari Nokia Indonesia, workshop ini di adakan dari tanggal 17 Maret sampai dengan 30 Maret 2011.

Nah kegiatan ini adalah dalam rangka mencari bakat-bakat baru dalam dunia developer game katanya...heheheFasilitas yang didapatkan peserta adalah komputer High end, :D Pass saya coba-coba dxdiag.. ternyata Memori 4GB dan Prosecor Intel Core i5. Waw... Cepet banget.. dan lagi koneksi internetnya cepet banget brow.. Workshop ini diadakan di DIGIGAMES ULTIMATE di Primera Plaza. Katanya ini adalah pusat game terbesar di sana.Saya mengikuti kegiatan tersebut adalah dalam rangka upgrade diri ke teknologi baru yaitu Mobile. Langkah awal saya adalah mencoba untuk mempelajari dahulu J2ME.. hehehe Katanya paling mudah di banding dengan bahasa dan tools yang native lainnya.Workshop ini akan di adalakan kurang lebih selama 2 minggu dan mudah-mudahan saya kuat dan konsisten untuk mengikutinya. Amien.. :DDan mudah-mudahan juga saya dapat hadiahnya dan jadi juara. hehehe :DSekian dulu.. untuk sharing-sharing ilmunya.. tenang saja deh.. insyaalloh akan saya publish di http://java.ariartama.com/ Pertemuan pertama baru membuat persegi sama lingkarang kok :D

CRUD (Create, Read, Update, Delete)

2011-03-17T06:31:00.003+07:00

Nah sekarang kita akan mencoba membuat bagaimana project yang menambah data, mengubah data, menghapus data, dan menampilkan data kita satukan menjadi satu project. Nah ikuti langkah-langkahnya sebagai berikut : 1. Nah seperti biasa Buat database baru dengan nama bebas sesuai selera.. hehe … :D dan simpan lalu buat table baru dengan nama anggota dan atur fieldnya sebagai berikut :
Database untuk tutorial-tutorial ini dapat didownload disini

2. Setelah itu lalu buat project baru di Visual Studio 2008 dan beri nama Database5 lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas. 3. Buat tampilan sebagai berikut : 4. Selanjutnya silahkan coding code dibawah ini :

  1: Imports System.Data.OleDb  2: Public Class Form1  3:    4:     Private Conn As OleDbConnection = Nothing  5:     Private cmd As OleDbCommand = Nothing  6:     Private sql As String = Nothing  7:     Private reader As OleDbDataReader = Nothing  8:     Private da As OleDbDataAdapter = Nothing  9:     Function Connect() 10:         If Not Conn Is Nothing Then 11:             Conn.Close() 12:         End If 13:         Conn.Open() 14:         Return Conn 15:     End Function 16:     Function Closedd() 17:         Conn.Close() 18:         Return Conn 19:     End Function 20:   21:     Sub LoadData() 22:         Connect() 23:         sql = "select id_anggota from anggota" 24:         cmd = New OleDbCommand(sql, Conn) 25:         reader = cmd.ExecuteReader() 26:         Try 27:             CmbId.Items.Clear() 28:             While reader.Read 29:                 CmbId.Items.Add(reader.GetString(0)) 30:             End While 31:         Catch ex As Exception 32:             MessageBox.Show(ex.Message) 33:         End Try 34:         Closedd() 35:     End Sub 36:   37:     Sub Tampil() 38:         Connect() 39:         Try 40:             Dim dt As New DataTable 41:             da = New OleDbDataAdapter("select * from anggota", Conn) 42:             da.Fill(dt) 43:             DataGridView1.DataSource = dt 44:         Catch ex As Exception 45:             MessageBox.Show(ex.Message) 46:         End Try 47:         Closedd() 48:     End Sub 49:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 50:         If Not Conn Is Nothing Then Conn.Close() 51:   52:         Dim ConnString As String 53:   54:         ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb" 55:         Try 56:             Conn = New OleDbConnection(ConnString) 57:             Conn.Open() 58:             Me.Text = "Mengubah data Anggota [Connected]" 59:             LoadData() 60:             Tampil() 61:             Conn.Close() 62:         Catch ex As Exception 63:             MessageBox.Show("Koneksi Error : " + ex.Message) 64:         End Try 65:         CmbKelamin.Items.Add("Pria") 66:         CmbKelamin.Items.Add("Wanita") 67:     End Sub 68:   69:     Private Sub CmbId_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbId.SelectedIndexChanged 70:         Connect() 71:         Dim Kunci As String = CmbId.Text 72:         sql = "select * from anggota where id_anggota='" & Kunci & "'" 73:         cmd = New OleDbCommand(sql, Conn) 74:         reader = cmd.ExecuteReader 75:         Try 76:             reader.Read() 77:             TxtNama.Text = reader.GetString(1) 78:             TxtAlamat.Text = reader.GetString(2) 79:             CmbKelamin.Text = reader.GetString(3) 80:         Catch ex As Exception 81:             MessageBox.Show(ex.Message) 82:         End Try 83:         Closedd() 84:     End Sub 85:   86:     Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click 87:         Connect() 88:         Dim hasil As Integer 89:         sql = "Update anggota set nama='" & TxtNama.Text & "',alamat='" & TxtAlamat.Text & "', kelamin='" & CmbKelamin.Text & "' where id_anggota='" & CmbId.Text & "'" 90:         cmd = New OleDbCommand(sql, Conn) 91:         Try 92:             hasil = cmd.ExecuteNonQuery 93:             If (hasil > 0) Then 94:                 MessageBox.Show("Record Berhasil diubah", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information) 95:                 CmbId.Text = "" 96:                 TxtAlamat.Text = "" 97:                 TxtNama.Text = "" 98:                 Tampil() 99:                 LoadData()100:             End If101:         Catch ex As OleDbException102:             MessageBox.Show("Failed : " & ex.Message)103:         End Try104:         Closedd()105:     End Sub106:  107:     Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click108:         Connect()109:         Dim insertquery As String110:         Dim Kelamin As String111:         Dim Hasil As Integer112:         Dim cmd As OleDbCommand113:         insertquery = ("insert into anggota(id_anggota,nama,alamat,kelamin)Values('" & CmbId.Text & "','" & TxtNama.Text & "','" & TxtAlamat.Text & "','" & Kelamin & "')")114:         Try115:             cmd = New OleDbCommand(insertquery, Conn)116:             Hasil = cmd.ExecuteNonQuery117:             If Hasil > 0 Then118:                 MessageBox.Show("record Berhasil Dimasukan", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)119:                 CmbId.Text = ""120:                 TxtAlamat.Text = ""121:                 TxtNama.Text = ""122:                 Tampil()123:                 LoadData()124:             End If125:         Catch ex As OleDbException126:             MessageBox.Show("Failed : " & ex.Message, "Gagal", MessageBoxButtons.OK, MessageBoxIcon.Error)127:         End Try128:         Closedd()129:     End Sub130:  131:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click132:         Connect()133:         Dim index As Integer = CmbId.SelectedIndex134:         Dim hasil As Integer135:         Dim pesan As DialogResult136:         sql = "delete from anggota where id_anggota='" & CmbId.Text & "'"137:         pesan = MessageBox.Show("Yakin Menghapus Anngota " & Chr(10) & "dengan id" & CmbId.Text & "...?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)138:         cmd = New OleDbCommand(sql, Conn)139:         Try140:             If pesan = Windows.Forms.DialogResult.Yes = True Then141:                 hasil = cmd.ExecuteNonQuery142:                 CmbId.Text = ""143:                 TxtAlamat.Text = ""144:                 TxtNama.Text = ""145:                 Tampil()146:             End If147:         Catch ex As OleDbException148:             MsgBox("Failed : " & ex.Message)149:         End Try150:         Closedd()151:     End Sub152: End Class

Untuk lebih jelasnya silahkan download souce codenya disiniSalam Semoga BermanfaatProject di atas itu kita hanya berfokus kepada menyatukan dari project yang telah dibuat sebelumnya. Nantikan artikel selanjutnya tentang CRUD yang lebih efektif :D

Menampilkan data

2011-03-11T07:02:00.003+07:00

Nah sekarang kita belajar bagaimana menampilkan data.. Kemarin saya sudah membuat tutorial mengenai bagaimana cara menambahkan data, mengubah data, dan menghapus data . Sudah dicoba belum ?? Nah kalau belum silahkan untuk ke TKP :D :D
Lho kok data harus di tampilkan ?? Jawabannya Ya iya lah harus di tampilkan, supaya si User (Pengguna) mengetahui isi dari suatu aplikasi database nya, kalau gak di tampilkan bagaimana dia mengetahui isi dari suatu database ?? Masa dia harus membuka database dari engine database nya sih ?? hehehe….. Nah untuk menampilkan semua data yang ada didatabase kita bisa menggunakan Control DataGridView dan Control ListView. Berikut akan di terangkan bagaimana codingnya :D
1.
1. Buat database baru dengan nama bebas sesuai selera.. hehe … :D dan simpan lalu buat table baru dengan nama anggota dan atur fieldnya sebagai berikut :

Database untuk tutorial-tutorial ini dapat didownload disini

2. Setelah itu lalu buat project baru di Visual Studio 2008 dan beri nama Database2 lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :
4. Nah pertama kali kita akan menampilkan data yang ada di dalam database di DataGridView pada gambar diatas kita akan menampilkanya di yang atas warna coklat tuh… :D Codenya sangat mudah, kita hanya membutuhkan 2 buah variabel yaitu : DataAdapter dan DataTable

DataAdapter disini adalah OleDbDataAdapter Fungsinya yaitu merepresentasikan Data yang ada didalam database sesuai dengan query select yang di tentukan.
DataTable adalah adalah objek yang fungsinya merepresentasikan data yang ada dalam database dalam bentuk table atau Singkatnya adalah Array 2 Dimensi dimana table itu kan memiliki kolom dan baris, jadi di dataTabel ini di refresentasikan .

Nah ini code untuk menampilkan data ke dalam datagridview :

   1: Dim da As OleDbDataAdapter = Nothing   2: Dim dt As New DataTable   3: Sub DataGird()   4:     Try   5:         da = New OleDbDataAdapter("select * from anggota", conn)   6:         da.Fill(dt)   7:         DataGridView1.DataSource = dt   8:     Catch ex As Exception   9:         MessageBox.Show("Koneksi Erros: " + ex.Message)  10:     End Try  11: End Sub

5. Silahkan isi lengkap codenya sebagai berikut :

   1: Imports System.Data.OleDb   2: Public Class Form1   3:     Dim conn As OleDbConnection = Nothing   4:     Dim da As OleDbDataAdapter = Nothing   5:     Dim dt As New DataTable   6:     Sub DataGird()   7:         Try   8:             da = New OleDbDataAdapter("select * from anggota", conn)   9:             da.Fill(dt)  10:             DataGridView1.DataSource = dt  11:         Catch ex As Exception  12:             MessageBox.Show("Koneksi Erros: " + ex.Message)  13:         End Try  14:     End Sub  15:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  16:         Dim ConnString As String  17:         ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb"  18:         Try  19:             Conn = New OleDbConnection(ConnString)  20:             Conn.Open()  21:             Me.Text = "Menambah Anggota [Connected]"  22:             DataGird()  23:             conn.Close()  24:    25:         Catch ex As OleDbException  26:             MessageBox.Show("Koneksi Erros: " + ex.Message)  27:         End Try  28:     End Sub  29: End Class

Coba jalankan.. Running Maksudnya atau tekan F5.. hehehehe :D berhasil kan ?? :D

6. Nah sekarang kita akan belajar untuk menampilkan data di listview. ini codenya :

   1: Private Sub TampilListView()   2:     Dim str(4) As String   3:     Dim itm As ListViewItem   4:     da = New OleDbDataAdapter("select * from anggota", conn)   5:     dt.Clear()   6:     da.Fill(dt)   7:     8:     ListView1.Columns.Add("Kode", 50, HorizontalAlignment.Left)   9:     ListView1.Columns.Add("Nama", 150, HorizontalAlignment.Left)  10:     ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)  11:     ListView1.Columns.Add("Kelamin", 100, HorizontalAlignment.Left)  12:     ListView1.View = View.Details  13:     ListView1.GridLines = True  14:     ListView1.FullRowSelect = True  15:     For i As Integer = 0 To dt.Rows.Count - 1  16:         str(0) = dt.Rows(i).Item("id_anggota")  17:         str(1) = dt.Rows(i).Item("nama")  18:         str(2) = dt.Rows(i).Item("alamat")  19:         str(3) = dt.Rows(i).Item("kelamin")  20:         itm = New ListViewItem(str)  21:         ListView1.Items.Add(itm)  22:     Next  23: End Sub

7. Nah begitulah.. :D :D Nah ini code lengkapnya :

   1: Imports System.Data.OleDb   2: Public Class Form1   3:     Dim conn As OleDbConnection = Nothing   4:     Dim da As OleDbDataAdapter = Nothing   5:     Dim dt As New DataTable   6:     Sub DataGird()   7:         Try   8:             da = New OleDbDataAdapter("select * from anggota", conn)   9:             dt.Clear()  10:             da.Fill(dt)  11:             DataGridView1.DataSource = dt  12:         Catch ex As Exception  13:             MessageBox.Show("Koneksi Erros: " + ex.Message)  14:         End Try  15:     End Sub  16:     Private Sub TampilListView()  17:         Dim str(4) As String  18:         Dim itm As ListViewItem  19:         da = New OleDbDataAdapter("select * from anggota", conn)  20:         dt.Clear()  21:         da.Fill(dt)  22:    23:         ListView1.Columns.Add("Kode", 50, HorizontalAlignment.Left)  24:         ListView1.Columns.Add("Nama", 150, HorizontalAlignment.Left)  25:         ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)  26:         ListView1.Columns.Add("Kelamin", 100, HorizontalAlignment.Left)  27:         ListView1.View = View.Details  28:         ListView1.GridLines = True  29:         ListView1.FullRowSelect = True  30:         For i As Integer = 0 To dt.Rows.Count - 1  31:             str(0) = dt.Rows(i).Item("id_anggota")  32:             str(1) = dt.Rows(i).Item("nama")  33:             str(2) = dt.Rows(i).Item("alamat")  34:             str(3) = dt.Rows(i).Item("kelamin")  35:             itm = New ListViewItem(str)  36:             ListView1.Items.Add(itm)  37:         Next  38:     End Sub  39:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  40:         Dim ConnString As String  41:         ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb"  42:         Try  43:             Conn = New OleDbConnection(ConnString)  44:             Conn.Open()  45:             Me.Text = "Menambah Anggota [Connected]"  46:             DataGird()  47:             TampilListView()  48:             conn.Close()  49:    50:         Catch ex As OleDbException  51:             MessageBox.Show("Koneksi Erros: " + ex.Message)  52:         End Try  53:     End Sub  54:    55: End Class

8. Perhatikan dan coba running maka akan tampil sebagai berikut :

Nah untuk lebih jelasnya source codenya bisa di download disini

Salam SEMOGA MEMBANTU

Laporan Seminar di Unas PASIM

2011-03-07T14:22:00.002+07:00

Pada tanggal 26 Februari 2011 Kami dari MUGI Universitas Nasional PASIM telah membuat kegiatan Seminar dengan theme Security dan Technology Microsoft 2011. Acaranya berlangsung dari jam 13.00 sampai dengan 18.00. Terimakasih banyak kepada para pembicara-pembiacra yaitu :

Ariyo Jatmiko (Mugi Bandung Leader)
Aris Lesmana (MVP Office System)
M Reza Faisal (MVP ASP.NET)
Rully Yulian MF (MVP VB.NET)
Firstman (MVP Windows Phone).

Pak Firstman ikut hadir menggantikan bapak Luki ishwara yang tengah sakit.
Kami sangat terbantu sekali dengan seminar karena menjadi bahan untuk pembelajaran bagi kami mengenai teknologi khususnya dan juga mengenai pengelolaan sebuah event. Kami selaku panitia mohon maaf yang sebesar-besarnya jika dalam pengelolaan acara seminarnya banyak sekali kekurangan. :)
Terimakasih banyak dan ini beberapa dokumentasinya :

Nah itulah dokumentasinya :) :)
Sekian dan terimakasih :D

Mengubah dan Menghapus Foto

2011-03-06T10:34:00.003+07:00

Nah saya sudah membuat artikel untuk menambahkan foto ke database access melalui VB.NET disini. Belum lengkap dong jika belum bisa di ubah dan di hapus. Nah berikut saya akan menerangkan dan memberi source codenya yang ubah sama yang hapus. :D :D
1. Buka Database Access Lalu Buat Database baru beri nama db_gambar .. dan tambahkan New Table dan beri nama tbl_gambar dan atur fieldnya sebagai berikut :

2. Setelah itu lalu buat project baru di Visual Studio 2008 dan beri nama bebas saja deh.. :D lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :

Nah perbedaan dengan tampilan yang menambahkan foto ke database access disini, itu adalah adanya tambahan control yaitu ComboBox. kenapa di dalam proses pengubahan dan penghapusan harus ada combobox ?? Tidak harus ada seh. tapi kita lihat dari kebutuhan. Intinya adalah begini. Jika kita mau mengubah atau menghapus, algoritma nya adalah kita harus mencari terlebih dahulu data yang akan kita ubah atau hapus tersebut. Nah hal tersebut di VB.NET dapat di implementasikan dengan combobox, maksudnya adalah semua primary key di munculkan di combobox dan ketika kita mengganti value combobox tersebut maka langsung dilakukan proses pencarian dan hasilnya di binding ke textbox dll. Nah bisa juga kita menggunakan 1 textbox dan 1 button seperti gambar berikut :

Nah maksudnya adalah kita menuliskan sebuah kata kunci dan kita disuruh mengklik button maka proses pencarian akan dilakukan. Pokoknya mah banyak lah tergantung selera. ada juga yang memunculkan sebuat form baru yang menampilkan daftar-daftarnya.. hehehe…. Kira-kira begitu… :D
4. Lalu Coding Code dibawah ini :

   1: Imports System.Data.OleDb   2: Imports System.Drawing   3: Imports System.Drawing.Imaging   4: Imports System.IO   5:     6: Public Class Form1   7:     Dim conn As New OleDbConnection   8:     Dim cmd As OleDbCommand = Nothing   9:     Dim rd As OleDbDataReader = Nothing  10:     Sub combo()  11:         Try  12:             opens()  13:             cmd = New OleDbCommand("select kode_gb from tbl_gambar", conn)  14:             rd = cmd.ExecuteReader  15:             cmbKode.Items.Clear()  16:             While rd.Read  17:                 cmbKode.Items.Add(rd.Item("kode_gb"))  18:             End While  19:             closes()  20:         Catch ex As Exception  21:             MessageBox.Show(ex.Message)  22:         End Try  23:     End Sub  24:     Sub opens()  25:         If Not conn Is Nothing Then  26:             conn.Close()  27:         End If  28:         conn.Open()  29:     End Sub  30:     Sub closes()  31:         conn.Close()  32:     End Sub  33:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  34:         conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\db_gambar.accdb"  35:         combo()  36:     End Sub  37:    38:     Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click  39:         Try  40:             opens()  41:             Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)  42:             Dim MyData(fs.Length) As Byte  43:             fs.Read(MyData, 0, CInt(fs.Length))  44:             fs.Close()  45:             cmd = New OleDbCommand("UPDATE tbl_gambar set nama_gb=@nama,gb=@Image where kode_gb=" & cmbKode.Text & "", conn)  46:             cmd.Parameters.AddWithValue("@nama", txtNama.Text)  47:             cmd.Parameters.AddWithValue("@Image", MyData)  48:             If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then  49:                 MessageBox.Show("Foto berhasil di ubah", "Photo Album SQL", MessageBoxButtons.OK, MessageBoxIcon.Information)  50:                 combo()  51:                 txtNama.Clear()  52:                 txtFileName.Clear()  53:                 PicGambar.Image = Nothing  54:             End If  55:             closes()  56:         Catch ex As Exception  57:             MessageBox.Show(ex.Message)  58:         End Try  59:     End Sub  60:    61:     Private Sub btnTelusuri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTelusuri.Click  62:         Try  63:             OFD.Filter = "Image Files (*.jpg, *.bmp, *.gif, *.png)|*.jpg; *.bmp; *.gif; *.png"  64:             OFD.ShowDialog()  65:             txtFileName.Text = OFD.FileName  66:             txtFileName.SelectionStart = txtFileName.Text.Length  67:             If Trim(txtFileName.Text) <> "" Then  68:                 PicGambar.Image = Image.FromFile(txtFileName.Text)  69:             End If  70:         Catch ex As Exception  71:             MessageBox.Show(ex.Message)  72:         End Try  73:     End Sub  74:    75:     Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click  76:         Me.Close()  77:     End Sub  78:    79:     Private Sub txtNama_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtNama.Validating  80:         If txtNama.Text.Length = 0 Then  81:             ErrorProvider1.SetError(txtNama, "Nama Harus Diisi")  82:         End If  83:     End Sub  84:    85:     Private Sub cmbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKode.SelectedIndexChanged  86:         Try  87:             opens()  88:             Dim arr() As Byte  89:             cmd = New OleDbCommand("select nama_gb,gb from tbl_gambar where kode_gb=" & cmbKode.Text & "", conn)  90:             rd = cmd.ExecuteReader  91:             rd.Read()  92:             txtNama.Text = rd.Item("nama_gb")  93:             arr = rd.Item("gb")  94:             PicGambar.Image = Image.FromStream(New IO.MemoryStream(arr))  95:             closes()  96:         Catch ex As Exception  97:             MessageBox.Show(ex.Message)  98:         End Try  99:     End Sub 100:   101:     Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click 102:         Try 103:             opens() 104:             cmd = New OleDbCommand("DELETE FROM tbl_gambar where kode_gb=" & cmbKode.Text & "", conn) 105:             If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then 106:                 MessageBox.Show("Foto berhasil di hapus", "Photo Album SQL", MessageBoxButtons.OK, MessageBoxIcon.Information) 107:                 combo() 108:                 txtNama.Clear() 109:                 txtFileName.Clear() 110:                 PicGambar.Image = Nothing 111:             End If 112:             closes() 113:         Catch ex As Exception 114:             MessageBox.Show(ex.Message) 115:         End Try 116:     End Sub 117: End Class

5. Nah sudah jadi deh.. :D

Penjelasan sedikit.codingannya hampir sama dengan yang insert, bedanya cuma di querynya saja. disini nih bedanya :

   1: 'untuk ubah   2: cmd = New OleDbCommand("UPDATE tbl_gambar set nama_gb=@nama,gb=@Image where kode_gb=" & cmbKode.Text & "", conn)   3: 'untuk hapus   4: cmd = New OleDbCommand("DELETE FROM tbl_gambar where kode_gb=" & cmbKode.Text & "", conn)

Untuk lebih jelasnya silahkan download souce codenya disini
Salam SEMOGA BERMANFAAT :D

Memasukan Foto Ke Database Access

2011-03-06T10:13:00.003+07:00

Nah kali ini kita akan mencoba membuat sebuah aplikasi yang dapat memasukan sebuah image atau photo kedalam database. Database yang di pakai adalah database access 2007. Yuk mari ikuti langkah-langkahnya sebagai berikut. Eh lupa… hehehehe… saya memakai bahasa VB.NET dengan Visual Studio 2008.
1. Buka Database Access Lalu Buat Database baru beri nama db_gambar .. dan tambahkan New Table dan beri nama tbl_gambar dan atur fieldnya sebagai berikut :

2. Setelah itu lalu buat project baru di Visual Studio 2008 dan beri nama bebas saja deh.. :D lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :

4. Lalu coding code di bawah ini :

   1: Imports System.Data.OleDb   2: Imports System.Drawing   3: Imports System.Drawing.Imaging   4: Imports System.IO   5:     6: Public Class Form1   7:     Dim conn As New OleDbConnection   8:     Dim cmd As OleDbCommand = Nothing   9:     Dim rd As OleDbDataReader = Nothing  10:     Sub opens()  11:         If Not conn Is Nothing Then  12:             conn.Close()  13:         End If  14:         conn.Open()  15:     End Sub  16:     Sub closes()  17:         conn.Close()  18:     End Sub  19:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  20:         conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\db_gambar.accdb"  21:     End Sub  22:    23:     Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click  24:         Try  25:             opens()  26:             Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)  27:             Dim MyData(fs.Length) As Byte  28:             fs.Read(MyData, 0, CInt(fs.Length))  29:             fs.Close()  30:             cmd = New OleDbCommand("INSERT INTO tbl_gambar(nama_gb,gb) VALUES (@nama,@Image)", conn)  31:             cmd.Parameters.AddWithValue("@nama", txtNama.Text)  32:             cmd.Parameters.AddWithValue("@Image", MyData)  33:             If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then  34:                 MessageBox.Show("Foto berhasil di tambahkan", "Photo Album SQL", MessageBoxButtons.OK, MessageBoxIcon.Information)  35:                 txtNama.Clear()  36:                 txtNama.Focus()  37:                 txtFileName.Clear()  38:                 PicGambar.Image = Nothing  39:             End If  40:             closes()  41:         Catch ex As Exception  42:             MessageBox.Show(ex.Message)  43:         End Try  44:     End Sub  45:    46:     Private Sub btnTelusuri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTelusuri.Click  47:         Try  48:             OFD.Filter = "Image Files (*.jpg, *.bmp, *.gif, *.png)|*.jpg; *.bmp; *.gif; *.png"  49:             OFD.ShowDialog()  50:             txtFileName.Text = OFD.FileName  51:             txtFileName.SelectionStart = txtFileName.Text.Length  52:             If Trim(txtFileName.Text) <> "" Then  53:                 PicGambar.Image = Image.FromFile(txtFileName.Text)  54:             End If  55:         Catch ex As Exception  56:             MessageBox.Show(ex.Message)  57:         End Try  58:     End Sub  59:    60:     Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click  61:         Me.Close()  62:     End Sub  63:    64:     Private Sub txtNama_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtNama.Validating  65:         If txtNama.Text.Length = 0 Then  66:             ErrorProvider1.SetError(txtNama, "Nama Harus Diisi")  67:         End If  68:     End Sub  69: End Class

5. Nah sudah jadi tuh.. ternyata mudah yah ?? :D :D

Sedikit penjelasan,, perhatikan potongan kode ini :

   1: Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)   2: Dim MyData(fs.Length) As Byte   3: fs.Read(MyData, 0, CInt(fs.Length))

Nah kode tersebut adalah mengubah image yang kita browse tadi kedalam variabel bertipe byte. Sebenarnya pada prinsipnya insert data kedalam database itu sama saja kita menggunakan OledbCommand dan Method Execute Non Query namun jika image yang kita input maka image ini harus di konversi dulu ke byte.. Mungkin begitu maksudnya ?? hehehe :D CMIIW

Untuk lebih jelasnya silahkan download souce codenya disini

Salam SEMOGA BERMANFAAT :D

Menghapus Data (Delete)

2011-03-05T10:17:00.003+07:00

Koneksi sudah disini, Menambah data sudah disini, mengubah pun juga sudah disini. Nah selanjutnya kita akan membuat aplikasi untuk menghapus data di database. Seperi biasa database yang di pakai adalah database access. Ikuti langkah-langkahnya sebagai berikut.
1. Buat database baru dengan nama bebas sesuai selera.. hehe … dan simpan lalu buat table baru dengan nama anggota dan atur fieldnya sebagai berikut :

Database untuk tutorial-tutorial ini dapat didownload disini

2. Setelah itu lalu buat project baru di Visual Studio 2008 dan beri nama Database2 lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :
4. Setelah itu silahkan coding ini :

   1: Imports System.Data.OleDb   2: Public Class Form1   3:     Inherits System.Windows.Forms.Form   4:     5:     Private conn As OleDbConnection = Nothing   6:     Private cmd As OleDbCommand = Nothing   7:     Private sql As String = Nothing   8:     Sub loaddata()   9:         Dim reader As OleDbDataReader  10:         sql = "select id_anggota from anggota"  11:         cmd = New OleDbCommand(sql, conn)  12:         reader = cmd.ExecuteReader()  13:         Try  14:             While (reader.Read)  15:                 ComboBox1.Items.Add(reader.GetString(0))  16:             End While  17:             ComboBox1.SelectedIndex = 0  18:         Finally  19:             reader.Close()  20:             cmd = Nothing  21:         End Try  22:     End Sub  23:    24:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  25:         If Not conn Is Nothing Then conn.Close()  26:         Dim ConnString As String  27:         ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb"  28:         Try  29:             conn = New OleDbConnection(ConnString)  30:             conn.Open()  31:             loaddata()  32:         Catch ex As OleDbException  33:             MessageBox.Show("Koneksi Errors : " + ex.Message)  34:         End Try  35:     End Sub  36:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  37:         Dim index As Integer = ComboBox1.SelectedIndex  38:         Dim hasil As Integer  39:         Dim pesan As DialogResult  40:         sql = "delete from anggota where id_anggota='" & ComboBox1.Text & "'"  41:         pesan = MessageBox.Show("Yakin Menghapus Anngota " & Chr(10) & "dengan id" & ComboBox1.Text & "...?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)  42:         cmd = New OleDbCommand(sql, conn)  43:         Try  44:             If pesan = Windows.Forms.DialogResult.Yes = True Then  45:                 hasil = cmd.ExecuteNonQuery  46:                 If hasil > 0 Then  47:                     ComboBox1.Items.RemoveAt(index)  48:                 End If  49:             End If  50:         Catch ex As OleDbException  51:             MsgBox("Failed : " & ex.Message)  52:         End Try  53:         cmd.Dispose()  54:     End Sub  55:    56:     Private Sub Form1_closed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed  57:         conn.Close()  58:         conn.Dispose()  59:         conn = Nothing  60:     End Sub  61: End Class

Nah jadi deh.. :D :D

Pada prinsipnya mau insert, update maupun delete sama-sama menggunakan OledbCommand untuk mengirim query dan menggunakan method ExecuteNonQuery untuk mengeksekusinya.

Nah untuk lebih jelas dan lengkapnya dapat mendownload source codenya disini
Salam SEMOGA BERMANFAAT

Mengubah Data (Update)

2011-03-05T09:54:00.003+07:00

Nah kemarin-kemarin kita sudah bisa koneksi, menambah data ?? yang belum tahu tentang koneksi bisa dibaca disini atau kalau ingin tahu tentang menambah data bisa kesini. Yuk mari kita buat aplikasi untuk mengubah data di database. Seperi biasa database yang di pakai adalah database access. Ikuti langkah-langkahnya sebagai berikut.
1. Buat database baru dengan nama bebas sesuai selera.. hehe :D… dan simpan lalu buat table baru dengan nama anggota dan atur fieldnya sebagai berikut :

Database untuk tutorial-tutorial ini dapat didownload disini

2. Setelah itu lalu buat project baru di Visual Studio 2008 dan beri nama Database2 lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :

4. Lalu code coding di bawah ini :

   1: Imports System.Data.OleDb   2: Public Class Form1   3:        4:     Private Conn As OleDbConnection = Nothing   5:     Private cmd As OleDbCommand = Nothing   6:     Private sql As String = Nothing   7:     Private reader As OleDbDataReader = Nothing   8:     Sub LoadData()   9:         sql = "select id_anggota from anggota"  10:         cmd = New OleDbCommand(sql, Conn)  11:         reader = cmd.ExecuteReader()  12:         Try  13:             While reader.Read  14:                 CmbId.Items.Add(reader.GetString(0))  15:             End While  16:         Finally  17:             reader.Close()  18:         End Try  19:     End Sub  20:    21:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  22:         If Not Conn Is Nothing Then Conn.Close()  23:    24:         Dim ConnString As String  25:    26:         ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb"  27:         Try  28:             Conn = New OleDbConnection(ConnString)  29:             Conn.Open()  30:             Me.Text = "Mengubah data Anggota [Connected]"  31:             LoadData()  32:         Catch ex As Exception  33:             MessageBox.Show("Koneksi Error : " + ex.Message)  34:         End Try  35:         CmbKelamin.Items.Add("Pria")  36:         CmbKelamin.Items.Add("Wanita")  37:     End Sub  38:    39:     Private Sub CmbId_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbId.SelectedIndexChanged  40:         Dim Kunci As String = CmbId.Text  41:         sql = "select * from anggota where id_anggota='" & Kunci & "'"  42:         cmd = New OleDbCommand(sql, Conn)  43:         reader = cmd.ExecuteReader  44:         Try  45:             reader.Read()  46:             TxtNama.Text = reader.GetString(1)  47:             TxtAlamat.Text = reader.GetString(2)  48:             CmbKelamin.Text = reader.GetString(3)  49:         Finally  50:             reader.Close()  51:         End Try  52:     End Sub  53:    54:     Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click  55:         Dim hasil As Integer  56:         sql = "Update anggota set nama='" & TxtNama.Text & "',alamat='" & TxtAlamat.Text & "', kelamin='" & CmbKelamin.Text & "' where id_anggota='" & CmbId.Text & "'"  57:         cmd = New OleDbCommand(sql, Conn)  58:         Try  59:             hasil = cmd.ExecuteNonQuery  60:             If (hasil > 0) Then  61:                 MessageBox.Show("Record Berhasil diubah", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)  62:             End If  63:         Catch ex As OleDbException  64:             MessageBox.Show("Failed : " & ex.Message)  65:         End Try  66:         cmd.Dispose()  67:     End Sub  68: End Class

Nah sudah jadi tuh.. sekarang sudah bisa di running dan kita lihat ada variabel baru namanya OledbDataReader itu berfungsi untuk menampung nilai dari hasil query. Perhatikan code ini :

   1: Sub LoadData()   2:         sql = "select id_anggota from anggota"   3:         cmd = New OleDbCommand(sql, Conn)   4:         reader = cmd.ExecuteReader()   5:         Try   6:             While reader.Read   7:                 CmbId.Items.Add(reader.GetString(0))   8:             End While   9:         Finally  10:             reader.Close()  11:         End Try  12:     End Sub

Nah code tersebut maksudnya adalah kita mengirim query kedatabase menggunakan variable instan dari oledbCommand dan kemudian di koneksikan dan di ekseskusi denganExecuteReader serta hasil eksekusinya adalah dimasukan kedalam variabel reader yang bertipe OledbDatareader. Lalu dilakukan perulangan sebanyak jumlah data yang terseleksi.

Nah untuk lebih jelas dan lengkapnya dapat mendownload source codenya disini

Salam SEMOGA BERMANFAAT

Menambah data (Insert)

2011-03-05T08:48:00.004+07:00

Nah kemarin kita sudah bisa koneksi kan ?? Kalau belum silahkan baca tutorial saya tentang koneksi ke database disini Yuk mari kita buat aplikasi untuk menambah data di database. Seperi biasa database yang di pakai adalah database access. Ikuti langkah-langkahnya sebagai berikut.
1. Buat database baru dengan nama bebas sesuai selera.. hehe :D… dan simpan lalu buat table baru dengan nama anggota dan atur fieldnya sebagai berikut :

Database untuk tutorial-tutorial ini dapat didownload disini

2. Setelah itu lalu buat project baru di Visual Studio 2008 dan beri nama Database2 lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :
4. Lalu coding code dibawah ini :

   1: Imports System.Data.OleDb   2: Public Class Form1   3:     Private Conn As OleDbConnection = Nothing   4:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   5:         Dim ConnString As String   6:         ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb"   7:         Try   8:             Conn = New OleDbConnection(ConnString)   9:             Conn.Open()  10:             Me.Text = "Menambah Anggota [Connected]"  11:             Conn.Close()  12:         Catch ex As OleDbException  13:             MessageBox.Show("Koneksi Erros: " + ex.Message)  14:         End Try  15:     End Sub  16:    17:     Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click  18:         Dim insertquery As String  19:         Dim Kelamin As String  20:         Dim Hasil As Integer  21:         Dim cmd As OleDbCommand  22:         If RdbPria.Checked = True Then  23:             Kelamin = RdbPria.Text  24:         Else  25:             Kelamin = RdbWanita.Text  26:         End If  27:         insertquery = ("insert into anggota(id_anggota,nama,alamat,kelamin)Values('" & TxtID.Text & "','" & TxtNama.Text & "','" & TxtAlamat.Text & "','" & Kelamin & "')")  28:         Try  29:             cmd = New OleDbCommand(insertquery, Conn)  30:             cmd.Connection.Open()  31:             Hasil = cmd.ExecuteNonQuery  32:             If Hasil > 0 Then  33:                 MessageBox.Show("record Berhasil Dimasukan", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)  34:                 TxtID.Text = ""  35:                 TxtAlamat.Text = ""  36:                 TxtNama.Text = ""  37:             End If  38:         Catch ex As OleDbException  39:             MessageBox.Show("Failed : " & ex.Message, "Gagal", MessageBoxButtons.OK, MessageBoxIcon.Error)  40:         End Try  41:         cmd.Dispose()  42:     End Sub  43: End Class

Nah sekarang coba running deh.. silahkan jika sudah di running masukan data-data anggota baru dan lihat hasilnya maka jika tidak ada kesalahan akan muncul message box sukses “Record berhasil dimasukan”

Source codenya dapat di download disini
Salam SEMOGA BERMANFAAT

Aplikasi Pertama Menggunakan Database

2011-03-05T07:52:00.004+07:00

Assalamualaikum Wr. Wb.
Wah sudah lama gak update-update nih.. :D Kebetulan kemarin-kemarin saya teh lagi tidak enak badan alias sakit,, hehehe.. :D
Yuk mari sekarang kita mencoba aplikasi-aplikasi menggunakan database. Sedikit review dahulu apa database itu ?? Database bisa dikatakan sebagai suatu kumpulan dari data yang tersimpan dan diatur atau diorganisasikan sehingga data tersebut bisa diambil atau dicari dengan mudah dan efisien. Sebagai contoh sederhana dari database adalah buku telepon yang mungkin sering Anda lihat. Nah kok buku telepon ?? Lalu bagaiama database yang ada di sistem komputer ?? Tentunya database di sisem komputer ada yang namanya software untuk mengolah database di sistem komputer dan sering kita istilahkan dengan DBMS (Database Management System). Nah DBMS tersebut dibagi menjadi 3, ada yang stand allon, multi user, dan client Server.
Yang akan kita aplikasi kan di tutorial ini adalah menggunkan DBMS Ms. Access yang berbasis stand allone dan Multi User. Kenapa memilih access ?? tentunya access lebih mudah untuk dipahami deng… heheh… Pada prinsipnya semua database adalah sama yaitu menggunaka bahasa SQL (Stucure Query Language). Nah kita akan bahas dan kupas semua tentang Database dan cara membuat aplikasinya di VB.NET tentunya..heheheheh… :D
Nah sebelum itu untuk teknologi yang kita gunakan adalah ADO.NET,, apa itu ADO.NET ?? ADO.NET adalah……… Cara saja dah di mbah google.. :D Selain ADO.NET ada juga LINQ :D :D
Nah Langsung saja kita membuat aplikasi yang pertama menggunakan database. Kita akan membuat koneksi terlebih dahulu di aplikasi kita yang pertama. Nah saya menggunakan Visual Studio 2008 dan Ms. Access 2007 dan ikuti langkah-langkahnya sebagai berikut :
1. Buka Microsoft Access Start –> All Program –> Microsoft Office –> Microsoft Office Access.
2. Buat database baru berinama latihan1 dan simpan di suatu folder misal F:/VB.NET/Database/
3. Buka Visual Studionya dan new project lalu beri nama latihan1 dan simpan di folder yang sama.
4. Tambahkan control button ke form1 dan Buat Tampilan seperti di bawah ini di Project yang baru kita buat.

5. Lalu ketik kode di bawah ini :

   1: Imports System.Data.OleDb   2: Public Class Form1   3:     Dim conn As OleDbConnection = Nothing   4:     5:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   6:         Try   7:             Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\VB.NET\Database\Database1.accdb"   8:             conn = New OleDbConnection()   9:             conn.ConnectionString = connString  10:             MessageBox.Show("Koneksi Sukses")  11:         Catch  12:             MessageBox.Show("Koneksi Gagal")  13:         End Try  14:     End Sub  15: End Class

Disana ada dua istilah yaitu OledbConnection dan ConnectionString. OledbConnection adalah sebuah class untuk melakukan koneksi kesuatu database. ConnectionString adalah suatu Method dari oleDbConnection untuk mengeset Connection Stringnya. Karena suatu database dia pasti mempunyai connection string.

6. Lalu jalankan program nya, jika terkoneksi maka akan muncul message box dengan tulisan “koneksi sukses”, jika tidak maka ”koneksi gagal”

Nah demikian aplikasi pertama yang kita buat menggunakan database nantikan tutorial selanjutnya… :D :D
source code nya bisa didownload disini
Salam SEMOGA BERMANFAAT

Membuat Aplikasi Stopwatch

2011-03-01T07:43:00.003+07:00

Oke sekarang kita akan membuat aplikasi stopwatch biasa di VB.NET, ikuti langkah-langkahnya sebagai berikut :
1. Buat Design form kurang lebih sebagai berikut :

2. Coding ini di jendela code nya :

   1: Public Class Form1   2:     Dim milseconds, seconds, minutes, hours As Integer   3:     4:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   5:         Timer1.Interval = 10   6:         Timer1.Start()   7:     End Sub   8:     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)   9:         Me.Close()  10:     End Sub  11:    12:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  13:         Timer1.Enabled = False  14:     End Sub  15:    16:    17:     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  18:         Timer1.Stop()  19:     End Sub  20:    21:     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  22:         If milseconds = 60 Then  23:             milseconds = 0  24:             seconds = seconds + 1  25:         End If  26:         If seconds = 60 Then  27:             If milseconds = 60 Then  28:                 milseconds = 0  29:                 seconds = 0  30:                 minutes = minutes + 1  31:             End If  32:         End If  33:         If minutes = 60 Then  34:             If seconds = 60 Then  35:                 If milseconds = 60 Then  36:                     milseconds = 0  37:                     seconds = 0  38:                     minutes = 0  39:                     hours = hours + 1  40:                 End If  41:             End If  42:         End If  43:         milseconds = milseconds + 1  44:         TextBox1.Text = Format(hours, "00") & ":" & Format(minutes, "00") & ":" & Format(seconds, "00") & ":" & Format(milseconds, "00")  45:     End Sub  46:    47:     Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  48:         Timer1.Stop()  49:         TextBox1.Clear()  50:     End Sub  51: End Class

3. Maka sudah berhasil deh.. enak yah kalau tinggal copas mah.. hehehe….tampilannya sebagai berikut :

Source codenya bisa di download disini

Membuat Setup Installer

2011-03-01T01:04:00.004+07:00

Nah mari kita membuat setup installer yang sederhana dengan menggunakan setup deployment bawaan Visual Studio nya. Sebelumnya kenapa seh kita harus membuat Setup Installer dari aplikasi kita ?? Nah pengertian setup Installer itu apa ?? Mungkin ini pertanyaan yang mungkin dilontarkan oleh pemula yang belum mengenal sama sekali dunia programming tapi mari kita mencoba belajar, sama saya juga menulis ini pun sama-sama untuk belajar.
Setup Installer itu adalah suatu cara yang dilakukan oleh programmer untuk mempackage / membungkus aplikasi dan semua perangkat / file yang terkait kedalam aplikasinya. Aplikasi yang di package ini biasanya adalah adalah aplikasi yang sudah jadi 100% ataupun aplikasi yang sudah dirasa yakin selesai dan siap untuk di testing. Nah apakah setup installer itu penting ?? Tentunya jawabannya adalah sangat penting karena masa si konsumen software kita mau menjalankan aplikasi harus membuka dahulu Visual Studionya ?? Gak lucu kan ?? Syukur kalau di kompi nya Dia sudah terinstal Visual Studio kalau belum ?? :D :D
Nah langsung saja mari kita buat contoh setup installer yang sederhana dan kayaknya tidak lebih dari 5 menit saja sudah jadi :D .. Oke mari kita simak tutorialnya berikut :
1. Pastikan bahwa anda sudah mempunyai aplikasi yang sudah jadi dan siap untuk di package dan dibuat setup installernya.
2. Pada contoh kali ini saya mempunyai aplikasi menghitung LUAS PERSEGI yang sudah jadi dan siap untuk di buat setup installernya. Tampilan aplikasi saya adalah sebagai berikut : (BTW sederhana sekali yah ?? hahahaha ini kan hanya buat contoh saja :D)

3. Setelah siap aplikasi yang akan di buat setup installernya, silahkan tambahkan project baru, ingat bukan new project namun add new project yaitu dengan cara sebagai berikut :
atau :

4. Maka akan muncul kotak dialog new project lalu pilih other project dan pilih setup and deployment lihat gambar berikut :
Silahkan beri nama bebas atau biarkan saja default nya Setup1
5. Maka trala.. di solution muncul lagi satu project yang berbeda yaitu Setup1,, hehehe… jangan kaget :D Mari lanjutkan… :D
6. Lalu di project Setup1 tersebut klik kanan dan Add –> Primary Output lalu akan muncul kotak dialog di OK saja,lihat gambar berikut :

7. Nah di project Setup1 tersebut ada 3 folder yaitu : perhatikan gambar :
Nah ketiga folder tersebut adalah :
       a. Application folder yaitu adalah folder yang isinya akan muncul di tempat dimana kita nanti menginstalnya.. Misal di Program Files
       b. User’s Desktop yaitu folder yang isinya akan muncul di Desktop si User yang menginstal aplikasi kita.
       c. User’s Program Menu yaitu folder yang isinya akan muncul di Star Menu si User yang menginstal aplikasi kita.
8. Nah sekarang tinggal di build saja di klik kanan di Setup1 dan build deh.. :D
9. Anda dapat menambahkan icon, shortcut dll. serta menambahkan informasi-informasi lainnya di pengaturan propertiesnya.

Source codenya bisa didownload disini
Salam MOGA BERMANFAAT :D

Animasi Gambar Pada VB.NET

2011-02-28T20:08:00.001+07:00

Nah iseng-iseng jalan-jalan ke http://codeproject.com dan saya menemukan bagaimana caranya membuat animasi gambar pada VB.NET,, project yang bagus silahkan saya sedikit mereview saja, ini tampilan nya sebagai berikut :

Nah source codenya bisa didownload disini

Seminar di Universitas Nasional PASIM

2011-02-15T23:15:00.004+07:00

Kami selaku pengurus dari MUGI PASIM akan mengadakan sebuah acara seminar di Universitas Nasional PASIM Jln. Dr. Djunjunan No. 167 Bandung, acara ini sangat special karena dihadiri oleh 3 MVP dan 2 Komuniti Reader sebagai pembicara. Acara in iakan diselenggarakan pada tanggal 26 Februari 2011, ini brosur selengkapnya :

Untuk yang berminat hadir dapat menghubungi contact personnya :) (* Tempat terbatas

Membuat Jam Analog pada VB.NET

2011-02-15T13:00:00.003+07:00

Jam analog apa itu jam analog ?? :)
Jam analog merupakan jam .. Namun dia mempunyai jarum, Nah kira-kira gambarnya seperti ini kurang lebih seperti gambar disamping, Nah pada kesempatan kali ini mari kita membuatnya di VB.NET, seperti biasa, siapkan terlebih dahulu project baru dengan cara File –> New –> New Project dan pilih Windows Application dan beri nama bebas saja :D
Lalu buat design form sebagai berikut :

dan tambahkan Control timer dari toolbox, lalu propertiesya atur sebagai berikut :
Lalu tambahkan code ini di jendela codenya :

   1: Imports System.Math   2: Public Class Form1   3:     Dim l As Label   4:     Const sete = 150   5:     Const panjangDetik = 100   6:     Const panjangMenit = 80   7:     Const panjangJam = 60   8:     9:     Dim Pen As New Drawing.Pen(System.Drawing.Color.Red, 2)  10:     Dim detik, menit, jam As Integer  11:     Dim x1, y1, x2, y2 As Integer  12:     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  13:         Refresh()  14:    15:         detik = Microsoft.VisualBasic.DateAndTime.Second(Now)  16:         menit = Microsoft.VisualBasic.DateAndTime.Minute(Now)  17:         jam = Microsoft.VisualBasic.DateAndTime.Hour(Now)  18:    19:         Pen = New Drawing.Pen(System.Drawing.Color.RoyalBlue, 6)  20:         x1 = Sin(((jam Mod 12) * 30 + menit / 2) * PI / 180 + PI) * panjangJam / 5 + sete 'Tail x  21:         y1 = Cos(((jam Mod 12) * 30 + menit / 2) * PI / 180) * panjangJam / 5 + sete 'Tail y  22:         x2 = Sin(((jam Mod 12) * 30 + menit / 2) * PI / 180) * panjangJam + sete 'Head x  23:         y2 = Cos(((jam Mod 12) * 30 + menit / 2) * PI / 180 + PI) * panjangJam + sete 'Head y  24:         Me.CreateGraphics.DrawLine(Pen, x1, y1, x2, y2)  25:    26:         Pen = New Drawing.Pen(System.Drawing.Color.Purple, 4)  27:         x1 = Sin(menit * PI / 30 + detik * PI / 1800 + PI) * panjangMenit / 5 + sete  28:         y1 = Cos(menit * PI / 30 + detik * PI / 1800) * panjangMenit / 5 + sete  29:         x2 = Sin(menit * PI / 30 + detik * PI / 1800) * panjangMenit + sete  30:         y2 = Cos(menit * PI / 30 + detik * PI / 1800 + PI) * panjangMenit + sete  31:         Me.CreateGraphics.DrawLine(Pen, x1, y1, x2, y2)  32:    33:         Pen = New Drawing.Pen(System.Drawing.Color.Orange, 2)  34:         x1 = Sin(detik * PI / 30 + PI) * panjangDetik / 5 + sete  35:         y1 = Cos(detik * PI / 30) * panjangDetik / 5 + sete  36:         x2 = Sin(detik * PI / 30) * panjangDetik + sete  37:         y2 = Cos(detik * PI / 30 + PI) * panjangDetik + sete  38:         Me.CreateGraphics.DrawLine(Pen, x1, y1, x2, y2)  39:    40:     End Sub  41:    42:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  43:         Dim Angle As Double  44:         Dim i As Integer  45:    46:         Height = sete * 2.3  47:         Width = sete * 2  48:    49:         For i = 0 To 11  50:             Angle = i * PI / 6  51:             x1 = Sin(Angle) * (panjangDetik + 20) + sete  52:             y1 = Cos(Angle + PI) * (panjangDetik + 20) + sete  53:             l = CallByName(Me, "lblDigit" & i, CallType.Get)  54:             l.Left = x1 - l.Width / 2  55:             l.Top = y1 - l.Height / 2  56:         Next  57:     End Sub  58: End Class

Project lengkapnya bisa di download disini