Archive for September 2017
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
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")
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
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
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
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
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.
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
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
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
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.
Pada hari ini saya akan share mengenai cara membuat aplikasi CRUD atau Create, Read, Update, Delete. Tool yang saya gunakan dalam tutorial berikut adalah microsoft acces 2007 dan microsoft visual basic 2008. Untuk yang belum menginstal kedua program diatas silahkan di instal terlebih dahulu. Dalam tutorial ini kita akan menggunakan database microsoft acces yang telah dibuat sebelumnya disini. Pada tutorial part 1 berikut ini kita akan mendesain dari aplikasi yang akan digunakan sebagai user interface. Baiklah mari kita mulai tutorial kali ini.
- Yang pertama kali dilakukan sebelum membuat aplikasi adalah menyiapkan database. Oleh karena itu, silahkan buat database terlebih dahulu. Dalam tutorial ini saya menggunakan database acces yang telah saya buat sebelumnya. Lihat disini.untuk membuat database acces.
- Buat project baru di vb.net, untuk yang belum tahu caranya silahkan lihat disini.
- Pindahkan database acces ke dalam direktori debug.
- Langkah selanjutnya adalah membuat desain aplikasi yang akan digunakan sebagai antarmuka pengguna. Buatlah desain seperti berikut ini.
- Tool yang dibuutuhkan adalah 6 buah Label, 2 buah TextBox, 1 buah DateTimePicker, 1 buah RichTextBox, 1 buah ListView, 1 buah ComboBox, 4 buah Button.
- Atur properties untuk masing – masing tool atau object yang digunakan sebagai berikut ini :
- Selanjutnya kita akan membuat kolom didalam listview, kolom ini nantinya akan digunakan untuk menampilkan data dari dalam database microsoft acces. Kolom ini nantinya juga akan disinkronkan dengan database microsoft acces. Untuk itu klik pada ListView kemudian pada properties lihat pada Columns, klik tombol di samping (Collections).
- Selanjutnya kita akan dibawa ke jendela ColumnHeader Collection Editor.
- Untuk menambahkan kolom baru klik tombol Add dan pada ColumnHeader properties ubah Text menjadi ID dan klik Ok.
- lakukan hal yang sama untuk membuat kolom yang lainnya. Sesuaikan kolom yang ada di ListView dengan kolom yang ada di database microsoft acces. Seperti berikut :
Sampai disini kita telah selesai membuat aplikasi CRUD APP yang akan kita gunakan sebagai user interface, untuk tutorial selanjutnya akan dibahas mengenai kode yang digunakan untuk menghubungkan aplikasi dengan database dan memasukkan data dari aplikasi ke database.
Setelah kemarin menulis mengenai game simulator kereta api OpenBVE, kali ini saya akan share mengenai cara menggunakan dari openBVE itu sendiri. Saya asumsikan anda telah mendownload main OpenBVE nya, jika belum bisa download disini. Dan juga telah mendownload add ons OpenBve, download disini. Anggap saja saya ingin memainkan rute chasinai.
- Pertama ekstrak file main OpenBve dan file add ons dari rute dan train train yang telah di download.
- Copy folder Object, Route, Sound yang berada di dalam folder Railway dan paste di openBVE-Stable_Win\BVE\Stable\Userdata\LegacyContent\Railway.
- Copy folder Chasinai dan paste di openBVE-Stable_Win\BVE\Stable\Userdata\LegacyContent\Train.
- Jika sudah, jalankan file OpenBve yang terdapat di dalam openBVE-Stable_Win\BVE\Stable.
- Pilih rute dan kereta yang akan digunakan. Seperti gambar dibawah ini.
Keterangan :
- Tab Route digunakan untuk memilih rute.
- Ruote details digunakan untuk melihat informasi yang terdapat didalam Route.
- Tab Train digunakan untuk memilih Kereta yang akan digunakan.
- Train details digunakan untuk melihat informasi yang terdapat didalam kereta.
- Mode of driving digunakan untuk memilih mode simulasi arcade untuk mode mudah, Normal untuk mode normal, Expert untuk mode sulit atau profesional.
- Tombol Start digunakan untuk memulai game simulasi. Klik tombol Start jika telah selesai memilih Rute dan kereta.
- Sebagai tambahan biasanya kereta akan terpilih otomatis ketika memilih rute. Pilih kereta secara manual jika kereta tidak terpilih otomatis saat memilih rute.
- Tunggu beberapa saat dan siap dimainkan.
Tambahan :
Untuk mengganti bahasa yang terdapat main program OpenBVE. Klik options dan pilih bahasa indonesia. Lihat gambar untuk lebih jelasnya.
Sekian artikel mengenai konfigurasi OpenBVE. Untuk selanjutnya saya akan share mengenai kontrol OpenBVE. Jika ada pertanyaan atau masalah yang terdapat didalam openBve silahkan tinggalkan komentar.
Rute Chasinai
Screenshoot :
Rute yang terdapat di dalam chasinai :
- Minaminaka Line
- Ishinden Line
- Uchika Line
Train :
Kereta yang tersedia :
- Ch1000
- Ch1000-4
- Ch1000-6
- Ch2000
- Ch2000-3
- Ch2000-4
- Ch9000
- Ch9000-4
- Ch9000-6
- Ch9000-8
Sebelumnya saya telah membuat artikel tentang menyimpan file dengan SaveFileDialog Control. Silahkan baca disini
Seperti biasanya saya asumsikan anda telah menginstal vb.net atau visual studio. Dan telah membuat project baru, silahkan lihat artikel berikut untuk cara membuat project baru. Kontrol OpenFileDialog meminta pengguna untuk membuka file dan memmungkinkan pengguna untuk memilih file yang akan dibuka. Pengguna dapat memeriksa apakah file itu ada dan kemudian membukanya. Didalam tutorial ini saya juga menggunakan StreamReader untuk membaca file. StreamReader terdapat dalam paket System.IO.
- Pertama desainlah sebuah form seperti gambar berikut ini. Disini saya menggunakan 1 buah RichTextBox, 1 buah Button, dan 1 buah OpenFileDialog
- Atur properties pada masing – masing object seperti berikut ini :
| Tool | Properti | Nilai |
| RichTextBox1 | Name | txtTeks |
| Button1 | Name | btnopen |
| Text | Open File |
- Double klik pada btnopen kemudian tulis kode berikut ini. Karena disini menggunakan paket System.IO, maka import paket System.IO dengan cara tambahkan kode Imports.System.IO pada bagian paling atas sendiri.
- Kemudian tulis kode berikut pada event btnopen_click. Buat sebuah variabel bernama oReader.
Dim oReader As StreamReader
- Dan tulis kode berikut untuk mengosongkan File Name dan untuk memberi informasi atau menentukan jenis file yang dapat dibuka
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
- Tulis pula kode berikut untuk membuka file yang telah dipilih.
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
oReader = New StreamReader(OpenFileDialog1.FileName, True)
txtTeks.Text = oReader.ReadToEnd
End If
- Sehingga kode lengkapnya seperti gambar berikut ini.
Jika selesai jalankan programnya jika tidak terjadi error maka telah berhasil
Demikian tutorial, nantikan tutorial selanjutnya. Download source code nya disini
Demikian tutorial, nantikan tutorial selanjutnya. Download source code nya disini
file dengan format .txt. Disini saya akan menggunakan Tool SaveFileDialog untuk menyimpan file ke komputer. Logika program yang akan dibuat adalah dengan mengetikkan teks ke sebuah textbox kemudian menekan tombol save untuk menyimpan, memberi nama file tersebut dan menentukan lokasi penyimpanan. IDE yang digunakan adalah visual basic 2008, untuk lebih jelasnya silahkan ikuti tutorial berikut ini.
- Buatlah sebuah project baru di visual basic 2008, untuk yang belum tahu bisa lihat disini. Saya akan memberi nama project SaveAs.
- Desain lah seperti gambar berikut ini. Toool yang digunakan adalah 1 buah RichTextBox, 1 buah Button, dan 1 buah SaveFileDialog.
- Ubah properties pada masing – masing objek yang digunakan.
| Tool | Properti | Nilai |
| RichTextBox1 | Name | txtTeks |
| Button1 | Name | btnSave |
| Text | Save File |
- Klik dua kali pada button Save File (btnSave). Dan masukkan kode seperti berikut :
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, txtTeks.Text, True)
End If
Penjelasan :
- Kode SaveFileDialog1.Filter = "TXT Files (*.txt)|*.txt" digunakan untuk menentukan format yang akan disimpan. Teks TXT Files (*.txt) ditampilkan pada Save as type pada jendela Save As ini digunakan untuk memberitahu bahwa file yang akan disimpan berformat .txt.
- Kode If SaveFileDialog1.ShowDialog = DialogResult.OK Then My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, txtTeks.Text, True) End If digunakan apabila kita melakukan klik pada button Save. Ketika button save di klik maka komputer akan menyimpan file dengan nama yang terdapat di File name. Adapun isi teks adalah yang terdapat di dalam txtTeks. File akan disimpan dengan format seperti yang ada pada Save as type.
- Berikut kode keseluruhan
- Langkah terakhir adalah dengan menjalankan aplikasi tersebut, klik Run, jika tidak terjadi error maka proses pembuatan program telah selesai.
Demikian tutorial membuat program menyimpan file di vb.net, nantikan tutorial yang lainnya. Download source code nya Disini
Pada tutorial yang sederhana ini saya akan memberitahu anda bagaimana cara membuat project baru di netbeans. Saya asumsikan anda telah mengenal netbeans dan anda telah menginstal netbeans pada komputer kalian masing – masing. Saya tidak akan menjelaskan apa itu netbeans dan bagaimana menginstalnya. Saya juga berharap anda mengerti bahasa java, karena saya menggunakan netbeans untuk editor java. Baik, kita mulai saja.
- Langkah pertama, buka terlebih dahulu netbeans anda, kemudian klik File – New Project atau bisa juga menggunakan shortcut Ctrl + Shift + N.
- Kemudian anda akan dibawa ke jendela New Project, pilih Java Application pada tab project, kemudian klik Next.
- Anda akan di bawa ke jendela New Java Application. Di dalam jendela ini kita bisa mengganti nama project, menentukan lokasi penyimpanan project, membuat nama class dan lain sebagainya. Perhatikan gambar didalam kotak merah berikut. Ganti nama project pada Project Name, jika ingin mengganti lokasi penyimpanan project klik Browse pada Project Location. Jika telah selesai klik Finish dan tunggu beberapa saat sampai project baru berhasil dibuat.
- Anda bisa menuliskan kode java di “//TODO code application logic here”.
- Sebagai contoh saya ingin membuat tulisan Hello World, maka kodenya cukup System.out.println("Hello World");
- Untuk menjalankan klik Run pada Toolbars atau melalui Run – Run Project atau melalui Shortcut F6.
- Tunggu beberapa saat jika tidak terjadi error maka akan menjadi seperti berikut.
Sampai disini tutorial mengenai membuat project baru di java, nantikan tutorial java yang lain.
