Archive for 2017

Download software HDTS MESSAGEBOX VB.Net EDITOR

Rabu, 06 Desember 2017
Posted by HD Technology Studio
Sering kali saya menemukan beberapa teman programmer atau developer vb.net yang sedang membangun sebuah software atau menulis program kesulitan dalam menentukan desain yang pas untuk messagebox selain itu terkadang membuang waktu untuk sekedar menulis koding hanya untuk membuat sebuah mesagebox. Kalau hanya satu jenis messagebox tentu tidak masalah karena kita bisa menggunakan copy paste. Tetapi bagaimana kalau ada 3 jenis messagebox berbeda atau tujuh messagebox berbeda atau puluhan messagebox berbeda. Daripada kita menggunakan waktu hanya untuk membuat messagebox alangkah lebih baiknya kita menggunakan waktu untuk menulis koding yang lainnya. Oleh karena itu, saya menghadirkan sebuah solusi untuk mengatasi itu semua yaitu dengan aplikasi HDTS MessageBox Vb.Net Editor yang dapat digunakan untuk mendesain sebuah messagebox sekaligus mendapatkan kode dari sebuah messagebox dan dapat diaplikasikan yang kalian sedang bangun. Selain itu ada fitur live preview sehingga dapat melihat messagebox sebelum digunakan. Kabar baiknya adalah HDTS MessageBox Vb.Net Editor ini free alias gratis. Jadi, kalian bebas menggunakan dan mendistribusikan nya secara bebas. Tunggu apalagi, silahkan download aplikasi HDTS MessageBox Vb.Net Editor.
Name : HDTS MessageBox Vb.Net Editor
Version : 1.0
Os : Windows 7/8/10 32/64 bit
Build Number : build171117-022502
Release date : 3-12-2017
Release Number : PUB171203-041321
Software type : Freeware
Download Link Google Drive.
Password RAR : hdtechnology-studio.blogspot.com
Screenshot




NB : Panduan instalasi dan penggunaan sudah terdapat bersama file setup.

Menggunakan Timer di Vb.net

Selasa, 28 November 2017
Posted by HD Technology Studio
Timer merupakan satu control pada visual basic yang dapat digunakan untuk menghitung waktu. Saat program dijalankan, kontrol timer tidak akan terlihat dilayar. Dalam penggunaanya, timer berhubungan dengan waktu. Dan dalam kesempatan kali ini saya akan membahas mengenai penggunaan timer secara sederhana. Kenapa sederhana ?. karena program yang akan kita buat kali ini hanya menampilkan angka berjalan dari 0 hingga user menekan tombol stop. Skenario yang saya buat adalah user menekan tombol start dan angka pada label akan menghitung setiap 1 detik dimulai dengan angka nol, ketika user menekan tombol stop, maka timer akan dihentikan. Dengan kontrol timer kita dapat membuat aplikasi yang berhubungan dengan waktu misalkan membuat jam digital, membuat stopwatch atau membuat aplikasi yang membutuhkan timer lainnya. Tutorial ini merupakan tutorial dasar jadi dapat dikembangkan sesuai ide yang kalian miliki. Mari kita mulai tutorial nya dan selamat belajar.
  • Pertama kita harus membuat project di vb.net untuk yang belum tahu silahkan baca tutorial mengenai cara membuat project baru di vb.net disini.
  • Desainlah seperti gambar berikut ini, tool yang dibutuhkan adalah 1 buah timer, 2 buah button dan 1 buah label.
  • Aturlah konfigurasi dari masing – masing tool seperti berikut ini :
Tool Properties Nilai
Label1 Name lblWaktu
Text 0
Font Style Bold
Font Size 72
Button1 Name btnStart
Text Start
Button2 Name btnStop
Text Stop
Timer1 Name Timer1
Interval 1000
Pada properti interval yang terdapat pada tool Timer1 saya memberikan nilai 1000, maksudnya adalah timer akan menghitung setiap 1000 milisecond atau 1 detik, itu berarti setiap 1 detik maka label akan berubah angka secara berurutan.
  • Selanjutnya kita akan memasukkan kode agar semua tool dapat berjalan. Pertama saya akan membuat event di tool button, ketika button dijalankan maka timer akan dijalankan. Klik dua kali pada button Start kemudian masukkan kode berikut :
Timer1.Start()
  • Untuk memberikan event pada button stop klik dua kali pada button Stop dan masukkan kode berikut :
Timer1.Stop()
Kode diatas berfungsi untuk menghentikan timer.
  • Agar kita dapat melihat timer yang dijalankan, kita perlu mengkonfigurasi pada Timer1, klik dua kali pada Timer1 dan kita akan dibawa ke Timer1_Tick untuk memberikan event, masukkan kode berikut ini :
lblWaktu.Text += 1
kode diatas digunakan untuk menampilkan angka pada lblWaktu. Setiap 1 detik lblWaktu akan menambah angka dengan 1. Dengan demikian label akan tetap menambah angka dengan 1 sampai dengan user menekan tombol stop.

  • Sehingga kode lengkapnya seperti ini :


  • Jika selesai jalankan aplikasi nya jika tidak ada masalah maka aplikasi selesai dibuat.
Sampai disini dulu tutorial mengenai penggunaan timer di vb.net, nantikan tutorial selanjutnya. Untuk source code dapat di download melalui link berikut ini.

Menggunakan ProgressBar di vb.Net

Jumat, 17 November 2017
Posted by HD Technology Studio
Progress Bar merupakan bar yang digunakan untuk menginformasikan kepada user jika ada proses yang sedang berlangsung. Progress bar dapat digunakan untuk menampilkan indikator perkembangan proses agar user tidak menganggap aplikasi komputer tersebut berhenti ditengah jalan. Untuk menghindari kebingungan user saat menggunakan software yang kita buat, diharapkan menggunakan progress bar saat ada proses yang sedang dijalankan atau sedang diproses. Kali ini saya akan membahas bagaimana membuat sebuah progress bar sederhana yang dapat digunakan untuk membuat loading dalam suatu aplikasi. Seperti tutorial sebelumnya, disini saya akan menggunakan software vb express 2008. Saya harapkan anda telah membuat project baru di vb.net, untuk yang belum tahu bisa dilihat di postingan saya berikut ini.
  • Desainlah sebuah form seperti berikut ini, tool yang dibutuhkan adalah 1 ProgressBar dan 1 buah Timer.


  • Klik dua kali pada Form1 untuk memasukkan kode berikut :
Timer1.Start()
Kode tersebut digunakan untuk menjalankan Timer1 saat aplikasi dijalankan.

  • Klik dua kali pada Timer1 dan masukkan kode berikut ;
If ProgressBar1.Value < 100 Then
ProgressBar1.Value += 2
ElseIf ProgressBar1.Value = 100 Then
Timer1.Stop()
MessageBox.Show("Progress bar selesai")
If vbOK = MsgBoxResult.Ok Then
Me.Close()
End If
End If
Penjelasan kode :
ProgressBar diberi nilai 100 dengan kecepatan 2 dan interval 100 milisecond. Jadi progress bar akan menjalankan sampai mendapatkan nilai 100 dan setiap 100 milisecond akan menjalankan nilai 2, jika nilai progressbar sampai pada 100 maka timer akan dihentikan dan akan menampilkan messagebox, jika user klik Ok pada messagebox, form akan di tutup.
  • Jika selesai jalankan aplikasinya dengan klik Run.


Sampai disini tutorial ini, jika ada pertanyaan silahkan tinggalkan komentar dibawah. Untuk source code dapat di download disini. Selanjutnya akan dibahas mengenai Timer di vb.net.

Menggunakan Color Dialog Control di Vb.Net

Jumat, 10 November 2017
Posted by HD Technology Studio

Tutorial yang akan saya bahas kali ini masih mengenai kegunaan dan cara menggunakan salah satu tool di vb.net. Adalah Color Dialog Control. Tool Color Dialog dapat digunakan untuk memberikan warna pada Teks didalam TextBox. Jika kalian pernah menggunakan tool font color di dalam ms word, kurang lebih hasilnya adalah seperti itu. Tutorial ini merupakan lanjutan dari tutorial sebelumnya mengenai Font Dialog Control. Dan saya akan melanjutkan menggunakan project Font Dialog Control. Untuk kalian yang belum mempunyai project nya dapat didownload disini atau anda bisa juga dengan membuat project baru disini. Masih dengan software yang sama, saya akan menggunakan software vb express 2008. Dan marilah kita mulai tutorial nya :
  • Tambahkan tool Color Dialog pada project melalui menu ToolBox, seperti berikut ini.
  • Sehingga hasilnya dapat dilihat disini.
  • Tambahkan satu buah button yang akan digunakan untuk menampilkan jendela color yang digunakan untuk memilih warna yang akan diaplikasikan.
  • Ubah properties pada button menjadi :
Name : btnColor
Text : Color
  • klik dua kali pada button color dan tambahkan kode berikut ini :
ColorDialog1.ShowDialog()
txtEdit.ForeColor = ColorDialog1.Color
  • Sehingga hasilnya lengkapnya adalah seperti berikut :

Penjelasan kode :

ColorDialog1.ShowDialog()
Digunakan untuk menampilkan jendela color.

txtEdit.ForeColor = ColorDialog1.Color
Digunakan untuk memberi warna pada teks sesuai dengan jendela warna.
  • Jalankan aplikasi nya dan cobalah untuk menjalankannya. Kalian dapat langsung mengganti warna teks tanpa harus menyorot teksnya.

Sampai disini dulu tutorial yang saya berikan. Apabila ada masalah atau hal yang ingin ditanyakan, dapat langsung meninggalkan komentar dibawah. Untuk source code projectnya dapat kalian download disini.

NB : untuk source code mengenai Color Dialog Control hanya ada fungsi Color Dialog saja. Jika kalian ingin mendownload mengenai source code Font Dialog Control dapat langsung menuju kesini.

Menggunakan Font Dialog Control di VB.Net

Kamis, 09 November 2017
Posted by HD Technology Studio

Hai sobat semua, pada kesempatan kali ini saya akan share mengenai cara menggunakan font dialog control di vb.net. Dengan menggunakan font dialog control kita dapat mengatur jenis font, ukuran font, dan gaya font didalam TextBox. Baiklah, saya asumsikan anda telah menginstal vb 2008 atau yang lebih baru. Untuk tutorialnya silahkan ikuti tutorial berikut :
  • Buatlah project baru di vb.net 2008, jika belum mengerti caranya, silahkan ikuti tutorial berikut ini.
  • Desainlah tampilan seperti gambar berikut ini, adapun tool yang digunakan adalah 1 buah TextBox, 1 buah Button, dan 1 buah font dialog.
  • Aturlah tool yang digunakan seperti berikut ini :
Tool Properties Nilai
TextBox1 Name txtEdit
Multiline True
Button1 Name btnFont
Text Font
FontDialog1 Name FontDialog1
  • Klik dua kali pada Button font dan masukkan kode berikut :
FontDialog1.ShowDialog()
txtEdit.Font = FontDialog1.Font

Sehingga hasil lengkapnya menjadi seperti ini :


Penjelasan kode :

FontDialog1.ShowDialog()
Digunakan untuk menampilkan jendela font yang dapat digunakan untuk memilih jenis font, ukuran font, gaya font, dan lain – lainnya.

txtEdit.Font = FontDialog1.Font
Digunakan untuk mengapilkasikan font yang dipilih melalui jendela font ke teks atau font yang berada di dalam font.
  • Jika selesai jalankan aplikasi nya dengan klik Run. 



Sekian  dulu tutorial mengenai penggunaan font dialog control ini, selanjutnya saya akan share mengenai color dialog control yang dapat digunakan untuk memberi warna pada teks didalam TextBox. Untuk source code mengenai FontDialog Control bisa di download melalui Link berikut ini. See you.

Cara menggunakan Print Dialog control di Vb.Net

Minggu, 22 Oktober 2017
Posted by 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 :
  • Buatlah project baru di vb.net, silahkan lihat disini untuk yang belum tahu caranya.
  • Desainlah aplikasi seperti berikut ini tool yang dibutuhkan adalah 1 buah TextBox, 1 buah Button, 1 buah PrintDialog, 1 buah PrintDocument:
  • Atur properties seperti berikut ini :
    Tool Properties Nilai
    TextBox1 Name txtPrint
    Multiline True
    Button1 Name btnprint
    Text Print
    • Klik dua kali pada button print untuk membuka editor kode untuk membuat fungsi pada button Print.
    • Masukkan kode berikut ini :
    If PrintDialog1.ShowDialog = DialogResult.OK Then
    PrintDocument1.Print()
    End If

    Penjelasan kode :
    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 :
    e.Graphics.DrawString(txtPrint.Text, txtPrint.Font, Brushes.Black, 100, 100)
    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

    Jumat, 20 Oktober 2017
    Posted by HD Technology Studio

    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 :
    1. Biner ke Desimal
    2. Biner ke Heksa desimal
    3. Biner ke Oktal
    4. Desimal ke Biner
    5. Desimal ke Heksa desimal
    6. Desimal ke Oktal
    7. Heksa desimal ke Biner
    8. Heksa desimal ke Desimal
    9. Heksa desimal ke Oktal
    10. Oktal ke Biner
    11. Oktal ke Desimal
    12. Oktal ke Heksa desimal
    Selain itu untuk fitur - fitur dari HDTS Binary Converter adalah :
    • Mampu melakukan konversi hingga 32 bit.
    • Melakukan konversi dari file berformat .txt.
    • Menyimpan file input dan output kedalam file text (.txt)
    • Mencetak file input dan output.
    • Merubah bentuk dan warna font

    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 :
    • Jalankan file Setup.exe dan ikuti sampai selesai.
    • Buka HDTS Binary Converter dari shortcut desktop.
    Download Software HDTS Binary Converter melalui link berikut ini :
    Google Drive | Mega

    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.
    Berikut merupakan langkah –  langkah membuat event tombol hapus.

      • Klik dua kali pada tombol hapus.

      • Kemudian masukkan kode berikut :
      Sambung()
      Try
      Dim pesan As String
      Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
      SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
      Try
      pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
      If pesan = MsgBoxResult.Yes Then
      CmdCommand = New OleDbCommand(SQLInsert, Connt)
      CmdCommand.ExecuteNonQuery()
      MsgBox("Berhasil di hapus")
      tambahdata()
      End If
      Catch ex As Exception
      MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
      End Try
      Catch ex As Exception
      MsgBox("Silahkan pilih data yang akan di Hapus")
      End Try

      Penjelasan kode :
      Sambung()

      Perintah untuk memanggil koneksi database

      Try
      Dim pesan As String
      Dim selectedItem As Integer = lvGrid.SelectedIndices(0)
      SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"
      Try
      pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
      If pesan = MsgBoxResult.Yes Then
      CmdCommand = New OleDbCommand(SQLInsert, Connt)
      CmdCommand.ExecuteNonQuery()
      MsgBox("Berhasil di hapus")
      tambahdata()
      End If
      Catch ex As Exception
      MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
      End Try
      Catch ex As Exception
      MsgBox("Silahkan pilih data yang akan di Hapus")
      End Try

      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.

      Dim selectedItem As Integer = lvGrid.SelectedIndices(0)

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

      SQLInsert = "DELETE * From karyawan WHERE ID = '" & lvGrid.Items(selectedItem).SubItems(0).Text & "'"

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


      Try
      pesan = MsgBox("Apakah yakin akan dihapus ?", MsgBoxStyle.YesNo, "Yakin ?")
      If pesan = MsgBoxResult.Yes Then
      CmdCommand = New OleDbCommand(SQLInsert, Connt)
      CmdCommand.ExecuteNonQuery()
      MsgBox("Berhasil di hapus")
      tambahdata()
      End If
      Catch ex As Exception
      MsgBox("Gagal : " & ex.Message, "Gagal", MessageBoxButtons.OK)
      End Try

      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.

      Membuat aplikasi CRUD dengan database acces part 4

      Jumat, 06 Oktober 2017
      Posted by HD Technology Studio
      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:
      • Buka jendela kode dengan cara klik View --> Code atau melalui Shortcut F7.
      • Buat event DoubleClick  pada object lvgrid. Event ini digunakan untuk membuat fungsi jika listview atau item listview di klik dua kali.
      • Masukkan kode untuk menampilkan nilai dari item listview ke dalam textbox.
      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 :
      Sambung()
      Memanggil method sambung yang berada didalam modul koneksi, modul ini untuk menghubungkan aplikasi dengan database.
      TTL = DTP.Value.Date
      Menyimpan tanggal didalam variabel TTL.
      If txtID.Text = "" Or txtAlamat.Text = "" Or txtAgama.Text = "" Or cboJenis.Text = "--Pilih Jenis Kelamin--" Then
      MsgBox("Semua Harus Di isi !", MsgBoxStyle.Information, "Perhatian")
      Membuat kondisi jika object textbox kosong maka akan ditampilkan kotak pesan.
      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()
      MsgBox("Data Berhasil DiPerbarui", vbInformation, "Sukses")
      tambahdata()
      bersih()
      Catch ex As Exception
      MsgBox("Unknown Error : " & ex.Message & "", vbCritical, "Peringatan")
      End Try
      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.

      Membuat aplikasi CRUD dengan database acces part 3

      Selasa, 26 September 2017
      Posted by HD Technology Studio
      Setelah tutorial sebelumnya dibahas mengenai sinkronisasi tabel di aplikasi dan didalam database, selanjutnya pada tutorial berikut akan di jelaskan mengenai cara memasukkan data kedalam database melalui aplikasi yang telah kita buat. Logikanya adalah kita memasukkan data kedalam textbox yang telah disediakan, selanjutnya dengan klik tombol Tambah, maka data akan tersimpan didalam database dan akan ditampilkan di listview. Saya asumsikan anda telah membaca Part 1 dan Part 2.

      • Klik dua kali pada Button Tambah untuk memberikan event tambah.

      Masukan Script dibawah ini :
      Imports System.Data.OleDb
      Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
      Sambung()
      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
      TTL = DTP.Value.Date
      SQLInsert = ("INSERT Into karyawan(ID,Tanggal_Lahir,Alamat,Agama,Jenis_Kelamin)Values('" & txtID.Text & "','" & TTL & "','" & txtAlamat.Text & "','" & txtAgama.Text & "','" & cboJenis.Text & "')")
      CmdCommand = New OleDbCommand(SQLInsert, Connt)
      CmdCommand.ExecuteNonQuery()
      MsgBox("Data Berhasil Disimpan", vbInformation, "Sukses")
      tambahdata()
      bersih()
      Catch ex As Exception
      MsgBox("Unknown Error : " & ex.Message, vbCritical, "Error")
      End Try
      End If
      End Sub

      Penjelasan Kode :
      Sambung()

      Memanggil koneksi sambung yang berada didalam modul koneksi.digunakan untuk menghubungkan database.
      If txtID.Text = "" Or txtAlamat.Text = "" Or txtAgama.Text = "" Or cboJenis.Text = "--Pilih Jenis Kelamin--" Then
      MsgBox("Semua Harus Di isi !", MsgBoxStyle.Information, "Perhatian")

      Kode ini digunakan untuk kondisi jika textbox tidak ada isinya atau kosong. Jika ada isinya maka yang diproses adalah kode berikutnya.
      Try
      TTL = DTP.Value.Date
      SQLInsert = ("INSERT Into karyawan(ID,Tanggal_Lahir,Alamat,Agama,Jenis_Kelamin)Values('" & txtID.Text & "','" & TTL & "','" & txtAlamat.Text & "','" & txtAgama.Text & "','" & cboJenis.Text & "')")
      CmdCommand = New OleDbCommand(SQLInsert, Connt)
      CmdCommand.ExecuteNonQuery()
      MsgBox("Data Berhasil Disimpan", vbInformation, "Sukses")
      tambahdata()
      bersih()
      Catch ex As Exception
      MsgBox("Unknown Error : " & ex.Message, vbCritical, "Error")
      End Try

      Kode diatas merupakan kondisi pengecualian, jika textbox terdapat isinya maka kode diatas yang akan diproses. Jika proses dijalankan benar maka akan disimpan dengan menampilkan message Box data berhasil disimpan, kemudian tabel akan direfresh, dan textbox akan dibersihkan, jika penyimpanan gagal,maka akan menampilkan pesan kesalahan.

      • Buat variabel TTL dan SQLInsert di Form1 dimana variabel TTL sebagai Date dan SQLInsert sebagai String.
      Dim TTL As Date
      Dim SQLInsert As String

      • Buat sebuah method baru dengan nama bersih yang akan digunakan untuk membersihkan textbox.
      Sub bersih()
      txtID.Clear()
      txtAlamat.Clear()
      txtAgama.Clear()
      DTP.Value = Now
      cboJenis.Text = "--Pilih Jenis Kelamin--"
      End Sub

      • Klik dua kali Button Batal dari jendela Design dan panggil method bersih() untuk mengembalikan nilai object seperti semula.
      Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
      bersih()
      End Sub

      • Jika selesai jalankan aplikasinya,dan cobalah mengisikan data kemudian klik Tambah. Jika tidak ada error maka program selesai dibuat.




      Sekian tutorial ini, untuk selanjutnya saya akan share mengenai membuat event di tombol Edit. Jika ada pertanyaan silahkan komentar dibawah.

      Membuat aplikasi CRUD dengan database acces part 2

      Jumat, 22 September 2017
      Posted by HD Technology Studio

      Tutorial ini merupakan lanjutan tutorial sebelumnya yang membahas tentang membuat aplikasi CRUD (Create, Read, Update, Delete) dengan VB.Net dan Microsoft acces. Untuk melihat tutorial sebelumnya, bisa dilihat disini. Di tutorial sebelumnya telah dibahas bagaimana membuat deasain interface. Dan pada tutorial berikut akan membahas mengenai kode yang digunakan untuk menghubungkan aplikasi dengan database, dan menyinkronkan tabel yang berada didatabase dengan tabel yang berada di aplikasi yang dalam hal ini kita menggunakan Listview sebagai tabel nya. Kita akan menggunakan modul sebagai koneksi ke database acces. Yang belum tahu bagaimana menambahkan modul, bisa lihat disini
      Saya asumsikan bahwa anda telah menambahkan modul  dengan nama koneksi.
      • Selanjutnya kita akan bisa menuliskan kode di dalam module koneksi tersebut.Tuliskan kode berikut :
      Imports System.Data.OleDb
      Module koneksi
      Public Connt As New OleDbConnection
      Public CmdCommand As New OleDbCommand
      Public DaData As New OleDbDataAdapter
      Public DrData As OleDbDataReader
      Public DsData As DataSet

      Sub Sambung()
      Connt = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=karyawan.accdb")
      Connt.Open()
      End Sub

      End Module

      Penjelasan kode :
      Imports System.Data.OleDb
      Kode ini digunakan untuk mengimport data oledb sebagai jenis koneksi yang akan digunakan untuk menghubungkan database.

      Public Connt As New OleDbConnection
      Public CmdCommand As New OleDbCommand
      Public DaData As New OleDbDataAdapter
      Public DrData As OleDbDataReader
      Public DsData As DataSet
      Kode ini digunakan untuk mendekalarasikan variabel

      Sub Sambung()
      Connt = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=karyawan.accdb")
      Connt.Open()
          End Sub
      Method sambung berisikan kode koneksi untuk membuka dan menghubungkan database. Method ini yang nanti akan digunakan sebagai penghubung database.
      • Buka tab Code pada Form1 dengan cara klik View ( Code atau melalui shortcut F7).

      • Import data oledb dengan kode :

      Imports System.Data.OleDb

      • Buat method baru untuk menyinkronkan tabel database dengan tabel didalam aplikasi.

      Sub tambahdata()
      Dim tbl As New DataTable
      Dim DsData As New DataSet
      Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
      DaData.Fill(DsData)
      tbl = DsData.Tables(0)
      lvGrid.Items.Clear()
      For j As Integer = 0 To tbl.Rows.Count - 1
      With lvGrid
      .Items.Add(tbl.Rows(j)("ID"))
      With .Items(.Items.Count - 1).SubItems()
      .Add(tbl.Rows(j)("Tanggal_Lahir"))
      .Add(tbl.Rows(j)("Alamat"))
      .Add(tbl.Rows(j)("Agama"))
      .Add(tbl.Rows(j)("Jenis_Kelamin"))
      End With
      End With
      Next
      Connt.Close()
      End Sub

      • Tambahkan kode didalam form1_Load untuk memanggil method tambahdata() dan method Sambung().

      • Sehingga kode secara keseluruhan adalah sebagai berikut :

      Sub tambahdata()
      Dim tbl As New DataTable
      Dim DsData As New DataSet
      Dim DaData As New OleDbDataAdapter("SELECT * From karyawan", Connt)
      DaData.Fill(DsData)
      tbl = DsData.Tables(0)
      lvGrid.Items.Clear()
      For j As Integer = 0 To tbl.Rows.Count - 1
      With lvGrid
      .Items.Add(tbl.Rows(j)("ID"))
      With .Items(.Items.Count - 1).SubItems()
      .Add(tbl.Rows(j)("Tanggal_Lahir"))
      .Add(tbl.Rows(j)("Alamat"))
      .Add(tbl.Rows(j)("Agama"))
      .Add(tbl.Rows(j)("Jenis_Kelamin"))
      End With
      End With
      Next
      Connt.Close()
      End Sub

      • Jalankan program dengan menekan tombol F5. Untuk mengetes apakah tabel database sudah terhubung, cobalah isikan data di dalam database acces, dan jalankan kembali.

      Sekian tutorial ini, selanjutnya akan dibahas mengenai memasukkan data dari aplikasi kedalam database.
      Welcome to My Blog

      Translate

      Popular Post

      Flag Counter

      - Copyright © HD Technology Studio -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -