Kondisi sepertin ini sering kita jumpai dalam setiap pmemograman yang kita buat, yaitu menghitung umur/usia secara otomatis agar tidak terjadi kekeliruan. kasus seperti ini harus di tangani oleh sistem agar hasil pencarian usia didapatkan dengan akurat tanpa ada selisih.
Menghitung umur pada kasus ini kita akan menggunakan satu buah datetimepicker dan satu buah textbox, sedangkan kondisi yang digunakan diletakkan pada datetimepicker_valuechanged (doubel klik pada datetimepicker).
Artinya ketika datetimepicker dirubah maka textbox akan menghasilkan usia pada saat ini. Dengan cara ini kita dapat dengan mudah mendapatkan nilai usia pada saat ini tanpa menghitung secara menual. Banyak kasus yang memungkinkan cara ini dapat digunakan dalam pemograman sobat, contohnya seperti.
Menghitung usia secara otomatis
Notifikasi ualng tahun otomatis
Pengingat usia atau kegiatan
Membuat kondisi pada usia
dan masih banyak kegunaan lainnya
Mari kita praktekkan cara sederhana ini pada visual studio sobat, buka form visual studio sobat dan tambahkan satu buah textbox dan satu buah datatimepicker yang ada pada toolbox visual studio sobat. Pada kali ini saya menggunakan Visual Studio .Net 2008.
Untuk lebih detile sobat bisa lihat gamabar diatas, doubel klik gambar diatas agar sobat bisa memperbesar tampilan detile form tersebut. Saya menggunakan satu buah textbox dan satu buah datetimepicker sebagai variabel yang akan di proses.
Setelah sobat selesai membuat form diatas, sobat doubel klik pada datetimepicker,dan masukkan script berikut ini
Setelah selesai memasukkan code diatas, maka sobat telah selesai membuat latihan kita pada kali ini, sobat tinggal menjalankan program sobat saja. Silahkan jalankan dan masukkan tanggal lahir shobat untuk menghitungnya.
Demikian artikel ini kami buat seputar Menghitung Umur Dengan datetimepicker vb.net semoga bermanfaat untuk kita semua. jangan lupa berikan masukkan pada artikel ini, dan silahkan tuliskan pertanyaan di kolom komentar dibawah ini.
Terkadang kita menggunakan Combobox sebagai logika atau kondisi pada sebuah aksi pemoggramman, dan mengharuskan sebuah combobox tidak bisa dirubah agar tidak menggangu sistem.
Ternyata cara ini sangat mudah dan sederhana, kita tinggal mengganti propertis pada combobox pada bagian DropDownStyle manjadi DropDownList. Maka setelah diganti combobox sobat tidak bisa tulis atau di isi dengan text ketika run. untuk lebih jelas perhatikan gambar berikut ini.
Demikian artikel Cara Agar Combobox Tidak Bisa di Edit, semoga bermanfaat dan bisa diterapkan dalam bahasa pemograman sobat semua, Heppy Coding. Jika ada pertanyaan silahkan tulis dikolom komentar.
Untuk menjalakan program lain dengan aplikasi vb.net kita bisa menggunakan fungsi yang disebut dengan “Process” dan "start methode"/
Dalam pemanggilan sebuah aplikasi terdapat dua cara, yaitu :
1. Ditulis secara jelas dimana suatu file exe itu berada, contoh : “C:\Program Files\Secure Time Attendance\SecureAttendanceRetrieve.exe”, atau
2. Memanggil process /XYZ.exe tersebut yang sudah terdapat dalam applikasi windows seperti halnya notepad, contoh : “notepad.exe”
Memulai Process
Dibawah ini adalah contoh dari cara menjalankan file .exe / process menggunakan Vb.net:
Contoh Pertama Menjalankan Program Lain Dalam Aplikasi vb.net:
Dim myProcess As New Process()
myProcess.StartInfo.FileName = “C:\Program Files\Secure Time Attendance\SecureAttendanceRetrieve.exe”
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Maximized myProcess.Start()
Contoh Kedua Menjalankan Program Lain Dalam Aplikasi vb.net:
Dim myProcess As New Process()
myProcess.StartInfo.FileName = “Notepad.exe”
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Maximized myProcess.Start()
Contoh Ketiga Menjalankan Program Lain Dalam Aplikasi vb.net:
dalam contoh ketiga ini adalah pemanggilan windows explorer dan default dari folder yang tertuju adalah sesuai dengan kriteria kita dan tampilan dari windows explorer sesuai dengan keinginan kita juga.
Dim myProcess As New Process() myProcess.Start(“explorer.exe”, “/n, e/, C:\Documents and Settings\sysghaisan\My Documents\”)
keterangan : “e/,” adalah agar ketika windows dibuka tampilan menjadi “tampilan folder”, coba saja hilangkan “e/,” maka tampilan windows explorer adalah “tampilan open file”
Stop Process Program Lain Dalam Aplikasi vb.net:
Untuk membunuh atau mematikan program .EXE yang telah kita buat sebelumya adalah dengan scource berikut ini :
myProcess.Kill()
Demikian penjelasan seputar menjalankan program lain dengan aplikasi Vb.Net, semoga bermanfaat, dan jangan lupa berikan komentar untuk meninggalkan jejak pengunjung. :) selanjutnya jika ada yang ingin ditanyakan silahkan tulis komentar dibawah
Sebagaimana artikel sebelumyam Membuat Key Otomatis 1 Jenis Saja. Kali ini kita akan menambahkan variasi, misalkan nama-nama buah. Sebagai mana gambar diatas. Jika anda belum faham dengan artikel sebelumnya silakhan dibuka terlebih dahulu :
Fungsi ini digunakan untuk memvariasikan jenis-jenis yang tersedia, misalkan
Buah dengan Kode "B"
Daging dengan Kode "D"
Sayur Dengan Kode "S"
Ikan Dengan Kode "I"
Lain-Lain Dengan Kode "L"
Form Combo Jenis :
Source Code project Premery Key Otomatis pada VB.Net Banyak Jenis
Dim DR As DataRow Dim Kode, s As String Select Case cmbJenis.Text 'menentukan kode Case "Buah" : Kode = "B" Case "Daging" : Kode = "D" Case "Sayur" : Kode = "S" Case "Ikan" : Kode = "I" Case "Lain-lain" : Kode = "L" End Select 'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max) 'kemudian hasilnya d tampung d field buatan dgn nama Nomor DR = SQLTable("select max(right(ID,4)) as Nomor from tblPenjualan2 where Jenis='" & cmbJenis.Text & "'").Rows(0) 'jika berisi null atau tdk ditemukan If DR.IsNull("Nomor") Then s = Kode & "-0001" 'member nilai awal Else s = Kode & "-" & Format(DR("Nomor") + 1, "0000") End If txtID.Text = s
Button Tambah :
If ExecSQL("insert into tblPenjualan2 (ID, Pelanggan, Jenis) values ('" & txtID.Text & "', '" & txtPelanggan.Text & "', '" & cmbJenis.Text & "')") = True Then MsgBox("Sukses !!!") Close() End If
Langsung saja silahkan download Scoure Code untuk dikembangkan. dan Jangan lupa kalo hubungi kami jika ada proyek dan link download rusak. :) he he . . .
Download project Premery Key Otomatis pada VB.Net Banyak Jenis
Dalam beberapa kasus kita sering harus menggunakan teknik ini seagai jalan penyelesaiannya, yaitu dengan membuat Premery Key Otomatis menggunakan VB.Net 2008. Penggunaan fungsi ini dimungkinkan kita tidak perlu lagi membuat Kode Unik atau Premery Key. Kode Unik yang dibuat telah otomatis diambil dari nilai lanjutan dari nilai sebelumnya.
Misalkan Nilai yang ada didatabase saat ini adalah :
S-0002 Dan Kita menginginkan nilai seterusnya adalah S-0003, maka kita akan menggunakan fungsi berikut ini :
Source code Membuat Premery Key Otomatis pada VB.Net
Form Load :
Dim DR As DataRow Dim s As String
'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max) 'kemudian hasilnya d tampung d field buatan dgn nama Nomor DR = SQLTable("select max(right(ID,4)) as Nomor from tblPenjualan").Rows(0) 'jika berisi null atau tdk ditemukan If DR.IsNull("Nomor") Then s = "S-0001" 'member nilai awal Else s = "S-" & Format(DR("Nomor") + 1, "0000") End If txtID.Text = s
Button Tambah :
If ExecSQL("insert into tblPenjualan (ID, Pelanggan) values ('" & txtID.Text & "', '" & txtPelanggan.Text & "')") = True Then MsgBox("Sukses !!!") Me.Dispose() End If
Membuat listview berwarna pada vb.net, tentu kita ingin membuat tampilan jadi lebih menarik dan lebih baik dari pada hanya satu warna saja. Pengalaman saya setiap membuat project, saya selalu mengutamakan tampilan agar menarik juga, listview termasuk sararan utama yang harus dipercantik.
Kali ini yang akan kita bahas yaitu membuat list view pada vb.net memiliki warna sesuai dengan yang kita inginkan, project pada tutorial ini saya menggunakan vb.net 2008.
Langkah pertama membuat listview berwarna pada vb.net
Buatlah satu buah listview, misalkan namanya adalah “LV1”, kemudian isi dengan data sesuai dengan cara anda masing-masing. Jika belum bisa mengisi data pada listview, silahkan baca artikel saya sebelumnya:
Setelah anda selesai membuat listview yang berisi data, langkah selanjutnya adalah menambahkan source code pada project anda
Langkah pertama membuat listview berwarna pada vb.net
Tambahkan source code berikut ini kedalam form anda, dengan membuat sub baru, perhatikan source code berikut ini :
Yang perlu diperhatikan dalam membuat listview berwarna pada vb.net
Color.Thistle : merupakan warna kombinasi pertama yang kita gunakan, anda dapat menggantinya dengan warna kesukaan anda
Color.White :merupakan warna kombinasi kedua yang bisa diterapkan pada listview
Terakhir kita jalankan program listview berwarna pada vb.net
tahap akhir adalah, Masukkan source berikut ini pada form load. ingat, pastikan anda meletakkannya pada form load (atau doubel click pada form project anda)
Perhatikan tulisan dalam kurung (LV1) diatas, LV1 merupakan nama dari listview yang kita buat sebelumnya, jika berbeda maka dapat dipastikan, fungsi warna yang kita buat tidak akan berfungsi.
tunggu apa lagi, silahkan jalankan project anada. Bagaimana hasilnya...? mudah bukan membuat listview berwarna pada VB.Net, jika ada pertanyaan silahkan tulis dikolom komentar. Heppy coding…
Untuk Kombinasi warna pada listview, bisa banyak sekali metode dan kondisi yang bisa diterapkan, cara diatas hanya digunakan untuk membuat kombinasi 2 warna saja, jika sobat punya usulan silahkan tulis dikolom komentar.
CRUD( Create, Read, Update, Delete) - Merupakan pelajaran dasar setiap bahasa pemoggraman yang harus di pelajari setelah kita memahami basisdata dan database.
Berikut ini tutorial CRUD dengan menggunakan Visal Basic .net 2008, yang bisa kamu ikuti step by step.
Sebelum kita mulai, anda harus mempersiapkan tool sebagai berikut, Aplikasi VB.NET 2008, Xampp, MySQL Conector.
Baik langsung saja kita mulai, dengan langgah pertama yaitu membuat database.
Video Tutorial Belajar VB NET:
1. Belajar VB Net - Membuat Database
Buatlah Databe dengan nama db_crud pada SQL Database, bisa melalui PHP MyAdmin.
Lalu buatlah tabel t_mahasiswa, dengan nama file nim, nama, alamat. Kamu bisa menggunakan Code Berikut ini.
CREATE TABLE IF NOT EXISTS `t_mahasiswa` (
`nim` varchar(10) NOT NULL,
`nama` varchar(50) NOT NULL,
`alamat` varchar(100) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;
2. Belajar VB NET - Membuat Modul Koneksi
Buka Aplikasi Visual Studio, lalu langkah pertama buatlah modul koneksi terlebih dahulu.
Imports MySql.Data.MySqlClient
Imports System.Data.OleDb
Module Module1
Public Cmd As MySqlCommand
Public Rd As MySqlDataReader
Public Conn As MySqlConnection
Public Sub Koneksi()
Conn = New MySqlConnection("server=localhost;user=root;password ='';database=db_crud")
Try
If Conn.State = ConnectionState.Closed Then
Conn.Open()
'MsgBox("Terkoneksi", MsgBoxStyle.Information, "konfirmasi")
End If
Catch Pesan As MySql.Data.MySqlClient.MySqlException
MsgBox("Mencoba menghubungi server... " + vbCrLf + _
"Pastikan Database Server Telah Aktif", MsgBoxStyle.Exclamation, "Perhatian")
End Try
End Sub
End Module
3. Belajar VB Net - Membuat Form
Buatlah Form seperti gambar dibawah ini, menggunakan 4 Textbox, 4 Button, dan 1 List View seperti contoh berikut.
Form Belajar VB Net
4. Belajar VB Net - Membuat fungsi Simpan
Berikut ini adalah code pada Button Simpan, Doubel click button simpan dan Paste Code berikut.
Try
Cmd = New MySqlCommand("insert into t_mahasiswa(nim,nama,alamat)values " & _
"('" & TxtNim.Text & "','" & TxtNama.Text & "','" & TxtAlamat.Text & "')", Conn)
Cmd.ExecuteNonQuery()
MsgBox("Data " & TxtNama.Text & " Berhasil Disimpan...", MsgBoxStyle.Information, "Konfirmasi")
Call isi_tabel()
Call batal()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
5. Belajar VB Net - Mengisi Data ke List View
Fungsi berikut ini digunakan untuk mengisi data pada List View, setiap data yang kita simpan maka akan masuk ke dalam List View di samping. Guanakan pada sub tersendiri.
Sub isi_tabel()
Try
LV1.Items.Clear()
Cmd = New MySqlCommand("select * from t_mahasiswa", Conn)
Rd = Cmd.ExecuteReader
While Rd.Read
Dim Li As New ListViewItem
Li.Text = Rd!nim
Li.SubItems.Add(Rd!nama)
Li.SubItems.Add(Rd!alamat)
LV1.Items.Add(Li)
End While
Rd.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
End Sub
6. Belajar VB Net - Memanggil data dari List View
Memanggil data dari ListView dengan cara click pada record yang tampil. Fungsi ini bertujuan untuk memperbarui data atau menghapus data.
Try
TxtNim.Enabled = False
TxtNama.Enabled = True
BtnSimpan.Enabled = False
BtnBatal.Enabled = True
BtnHapus.Enabled = True
BtnBatal.Enabled = True
TxtNim.Text = LV1.SelectedItems(0).Text
Cmd = New MySqlCommand("select * from t_mahasiswa where nim='" & TxtNim.Text & "'", Conn)
Rd = Cmd.ExecuteReader
Rd.Read()
If Rd.HasRows Then
TxtNim.Text = Rd!nim
TxtNama.Text = Rd!nama
TxtAlamat.Text = Rd!alamat
Rd.Close()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
7. TutorialVb Net - Memanggil data dari NIM
Memanggil data berdasarkan NIM, dibuat agar kita mengetahui setiap NIM yang telah di input sebelumnya, atau dapat berfungsi sama dengan poin 6 diatas.
If e.KeyChar = Chr(13) Then
TxtNama.Enabled = True
TxtNama.Focus()
BtnSimpan.Enabled = True
Try
Cmd = New MySqlCommand("select * from t_mahasiswa where nim='" & TxtNim.Text & "'", Conn)
Rd = Cmd.ExecuteReader
Rd.Read()
If Rd.HasRows Then
TxtNama.Text = Rd!nama
TxtAlamat.Text = Rd!alamat
BtnHapus.Enabled = True
BtnBatal.Enabled = True
BtnSimpan.Enabled = False
End If
Rd.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
End If
8. TutorialVB Net - Membuat Fungsi Batal
Fungsi batal digunakan untuk membersihkan form saja, bisa jadi di gunakan pada setiap Event yang ada, jadi sebaiknya menggunakan SUB Sendiri.
Fungsi ini digunakan untuk memperbarui data apabila ada kesalahan pada setiap record yang di simpan, dapat juga di sebut untuk fungsi UPDATE.
Try
Cmd = New MySqlCommand("update t_mahasiswa set nama='" & TxtNama.Text & "',alamat='" & TxtAlamat.Text & "' where nim ='" & TxtNim.Text & "'", Conn)
Cmd.ExecuteNonQuery()
MsgBox("Data " & TxtNama.Text & " Berhasil Diubah...", MsgBoxStyle.Information, "Konfirmasi")
Call isi_tabel()
Call batal()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
10. TutorialVb Net - Fungsi Hapus
Fungsi ini di gunakan untuk menghapus data pada tabel. Langsung saja doubel click pada butoon hapus dan paste code berikut.
Try
Cmd = New MySqlCommand("delete from t_mahasiswa where nim='" & TxtNim.Text & "'", Conn)
Cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Berhasil Dihapus", MsgBoxStyle.Information, "Konfirmasi")
Call batal()
Call isi_tabel()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
11. Tutorial VB Net - Membuat Fungsi Pencarian
Fungsi ini bertujuan untuk memfilter atau mencari data yang ada pada record atau database. Gunakan fungsi ini pada event change.
Try
LV1.Items.Clear()
Cmd = New MySqlCommand("select * from t_mahasiswa where nama like '%" & TxtCari.Text & "%'", Conn)
Rd = Cmd.ExecuteReader
While Rd.Read
Dim Li As New ListViewItem
Li.Text = Rd!nim
Li.SubItems.Add(Rd!nama)
Li.SubItems.Add(Rd!alamat)
LV1.Items.Add(Li)
End While
Rd.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Terjadi Kesalahan...")
End Try
Kondisi sepertin ini sering kita jumpai dalam setiap pmemograman yang kita buat, yaitu menghitung umur/usia secara otomatis agar tidak terjadi kekeliruan. kasus seperti ini harus di tangani oleh sistem agar hasil pencarian usia didapatkan dengan akurat tanpa ada selisih.
