HD Technology Studio

Pada hari ini saya akan share mengenai salah satu kontrol yang ada di vb.net, yaitu Print Dialog Control. Ada beberapa kontrol yang pernah saya share di blog ini diantaranya adalah SaveFileDialog Control dan OpenFileDialog Control. Dan pada kesempatan ini saya akan share kontrol yang ketiga yaitu Print Dialog Control.
Print Diaolg Control memungkinkan pengguna untuk mencetak dokumen dengan memilih bagian dari dokumen yang akan dicetak dari form windows.
Dalam tutorial berikut ini saya akan menggunakan Vb.Net 2008. Untuk anda yang menggunakan versi yang lebih baru kurang lebih caranya hampir sama dengan VB.Net 2008. Aplikasi yang akan kita buat nantinya terdapat 1 buah button dan 1 buah textbox. Button akan digunakan sebagai tombol untuk mencetak dokumen dari textbox. Sehingga ketika button di klik maka yang dicetak adalah text dari textbox.
Baiklah, mari kita mulai langkah – langkah nya :

PrintDialog1.ShowDialog

Memunculkan print dialog box.

DialogResult.OK

Mengonfirmasi untuk diteruskan ke print document.

PrintDocument1.Print()

Perintah untuk mencetak dokumen.

• Klik dua kali pada PrintDocument1 dan masukkan kode berikut :

penjelasan kode :
method yang digunakan untuk mencetak txtPrint dengan font ditentukan user dan dengan warna hitam dan berada diposisi koordinat x = 100, y = 100.

• Pada kode diatas terdapat kode txtPrint.Font dimana font ini ditentukan oleh user melalui font dialog control yang akan saya share nantinya. Bisa juga diganti langsung dengan font yang lain sebagai contoh saya akan mengatur font dengan jenis font Arial dan dengan ukuran 10 maka kodenya adalah New Font(“Arial”, 10). Dengan kode tersebut walaupun kita mengatur font dengan font dialog control maka yang akan tercetak tetap font Arial dengan ukuran 10.
• Jika selesai jalankan aplikasi dan cobalah untuk mencetak nya. Jika tidak terjadi masalah maka aplikasi sukses dibuat.

Sampai disini dulu tutorial ini, kalian bisa download source code nya disini. Untuk selanjutnya saya akan share mengenai Font Dialog Control dimana kita bisa mengubah jenis, ukuran, dan warna font pada dokumen sebelum di simpan atau dicetak. Jika terjadi masalah silahkan tinggalkan komentar dibawah ini.

HDTS Binary Converter merupakan sebuah software yang dapat digunakan untuk melakukan konversi dari bilangan biner, desimal, heksa desimal, dan oktal. HDTS Binary Converter mampu melakukan konversi hingga 12 macam konversi diantaranya :

System Requirentment :
Windows 10, 8, 7 (64 bit or 32 bit)
Ram 512 mb
Tested in Windows 10 64 bit and Windows 7 32 bit.

Cara instal :

Password Rar : hdtechnology-studio.blogspot.co.id
Screenshoot :

Setelah sebelumnya saya menulis cara membuat aplikasi CRUD dengan database acces part 1, part 2, part 3 dan part 4, kini sampailah tulisan saya yang terakhir dari part sebelumnya. Di part 5 ini saya akan membahas untuk memberi kan event pada tombol hapus. Apa fungsi dari tombol hapus ? tombol hapus ini digunakan untuk menghapus data yang ada didalam database melalui aplikasi yang akan kita buat. Skema nya adalah data yang akan di hapus terlebih dahulu di sorot kemudian klik hapus, maka data akan terhapus baik yang ada didalam aplikasi dan ada didalam database.

• Kemudian masukkan kode berikut :

Penjelasan kode :

Perintah untuk memanggil koneksi database

Kondisi pengecualian kondisi ini dijalankan apabila ada data yang dipilih oleh user. Jika tidak ada yang dipilih maka akan tampil messagebox. kondisi ini tidak berhubungan langsung dengan koneksi database.

Deklarasi variabel selectedItem sebagai integer yang digunakan untuk memilih id dari listview sebagai patokan untuk menghapus data.

Syntax sql yang berfungsi untuk menghapus data didatabase. Syntax disimpan didalam variabel SQLInsert.

Kondisi pengecualian yang berada didalam kondisi pengecualian. Kode ini berfungsi untuk verifikasi data yang akan dihapus oleh user melalui messagebox. jika berhasil maka kode akan dihapus jika gagal maka kondisi dua yang dijalankan. Berbeda dengan kondisi pengecualian yang pertama, kondisi pengecualian ini berhubungan dengan koneksi database. Sehingga jika terjadi error atau masalah, maka hampir bisa dipastikan kesalahan ada didatabase atau koneksi database.

• Jalankan aplikasi nya melalui Debug (Start debugging atau melalui Shortcut F5.

• Sehingga hasilnya berikut ini

Sekian tutorial tentang cara membuat aplikasi CRUD dengan database acces dan vb.net untuk source code project nya bisa kalian download disini. Jika terjadi masalah atau error silahkan tinggalkan komentar.

Setelah sebelumnya membahas mengenai event yang terdapat didalam tombol tambah, kali ini saya akan membahas mengenai event di tombol edit. Untuk tutorial sebelumnya bisa dilihat disini. Ditutorial ini kita akan  menampilkan data dari listview kedalam object textbox dengan cara klik dua kali pada listview, kemudian didalam textbox kita bisa mengedit nilainya dan jika selesai klik edit dan data akan diperbarui. Untuk itu, silahkan ikuti tutorial berikut:

txtID.Text = lvGrid.SelectedItems(0).SubItems(0).Text
DTP.Value = lvGrid.SelectedItems(0).SubItems(1).Text
txtAlamat.Text = lvGrid.SelectedItems(0).SubItems(2).Text
txtAgama.Text = lvGrid.SelectedItems(0).SubItems(3).Text
cboJenis.Text = lvGrid.SelectedItems(0).SubItems(4).Text

• Sehingga hasilnya sebagai berikut :

• Cobalah untuk menjalankannya dan double klik pada item listview.

• Sampai tahap ini kita hanya bisa menampilkan data dari listview kedalam textbox saja namun belum bisa menggunakan tombol edit. Oleh karena itu kita perlu menambahkan kode pada tombol edit.
• Klik dua kali pada tombol edit. Dan masukkan kode berikut :

Sambung()
TTL = DTP.Value.Date
If txtID.Text = "" Or txtAlamat.Text = "" Or txtAgama.Text = "" Or cboJenis.Text = "--Pilih Jenis Kelamin--" Then
MsgBox("Semua Harus Di isi !", MsgBoxStyle.Information, "Perhatian")

Else
Try
SQLInsert = "UPDATE karyawan SET Tanggal_Lahir = '" & TTL & "', Alamat = '" & txtAlamat.Text & "', Agama = '" & txtAgama.Text & "', Jenis_Kelamin = '" & cboJenis.Text & "' Where ID = '" & txtID.Text & "'"

CmdCommand = New OleDbCommand(SQLInsert, Connt)
CmdCommand.ExecuteNonQuery() 'Mengeksekusi command
MsgBox("Data Berhasil DiPerbarui", vbInformation, "Sukses")
tambahdata()
bersih()
Catch ex As Exception
MsgBox("Unknown Error : " & ex.Message & "", vbCritical, "Peringatan")
End Try
End If

Penjelasan kode :

Memanggil method sambung yang berada didalam modul koneksi, modul ini untuk menghubungkan aplikasi dengan database.

Menyimpan tanggal didalam variabel TTL.

Membuat kondisi jika object textbox kosong maka akan ditampilkan kotak pesan.

Kondisi pengecualian, jika benar maka kondisi 1 yang dijalankan, jika salah maka kondisi 2 yang dijalankan.

• Cobalah untuk menjalankan programnya yang telah dibuat, klik dua kali pada item listview yang akan diedit, kemudian edit datanya, klik tombol edit, dan lihat apa yang terjadi.

Jika tidak ada masalah maka tombol edit telah selesai dibuat, selanjutnya tinggal memberikan event tombol hapus yang akan digunakan untuk menghapus data didalam database dan akan dibahas di tutorial selanjutnya. Jika terjadi masalah pada program atau kode silahkan tinggalkan komentar dibawah.