DASAR PROGRAMER w

Cara Cegah/Cek/Validasi Duplicate/Data Ganda di ListView VBNET

Banyak cara untuk mencegah duplikasi data atau cara mencegah agar data yang sama tidak masuk dua kali (terutama PrimaryKey nya). Kali ini saya akan ambil contoh mencegah data ganda pada listview, karena biasanya form master detail akan menyimpan data inputan pada listview sebelum data tersebut disimpan ke table/database.
Lihatnya contoh data berikut ini :
Sebenarnya listview sudah menyediakan fungsi untuk mencari item, yaitu FindItemWithText(), contoh
penggunaannya seperti ini:

Dim hasil As ListViewItem = ListView1.FindItemWithText(TextBox2.Text)
If hasil IsNot Nothing Then
   MessageBox.Show("Data Ini Sudah Ada pada Baris Ke " + (hasil.Index + 1).ToString, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
   Exit Sub
End If
ListView1.Items.Add(TextBox2.Text).SubItems.Add(TextBox3.Text)

Hanya saja FindItemWithText() ini sifatnya seperti LIKE 'xx%' di sintak SQL, jadi dari contoh diatas jika kita ketik Da atau Dat atau Data, fungsi  tersebut akan menemukan/menganggap data sudah ada di listview (Da, Dat, Data = Data) padahal item di listview tidak ada data tersebut yang ada adalah Data1, Data2, ... dan seterusnya. Maka dari itu kita harus ciptakan fungsi buatan yang lebih flexsibl, contohnya seperti ini :

For Each item AsListViewItem In ListView1.Items
   If item.Text = TextBox2.Text Then
      MessageBox.Show("Data Ini Sudah Ada pada Baris Ke " + (hasil.Index + 1).ToString, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
      Exit Sub
   End If
Next
ListView1.Items.Add(TextBox2.Text).SubItems.Add(TextBox3.Text)

Jika anda ingin melakukan validasi ke subitem nya juga maka anda tinggal tambahkan/sebutkan subitem dengan index keberapa-nya, contohnya :

For Each item AsListViewItem In ListView1.Items
   If item.Text + item.SubItems(1).Text = TextBox2.Text + TextBox3.TextThen
      MessageBox.Show("Data Ini Sudah Ada pada Baris Ke " + (hasil.Index + 1).ToString, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
      Exit Sub
   End If
Next

Semoga tulisan saya ini dapat membantu anda, terimakasih.

Tags:
cara mencegah data ganda, validate duplicat item listview, cegah item ganda, vbnet contoh, fungsi cek duplikasi data listview

Cara Looping Dengan GoTo (Tanpa For..Next/Do..Loop) VB6/VBNET

Terkadang anda akan menemukan sebuah kasus yang mengharuskan looping secara logika bukan secara sintak, salah satu caranya adalah dengan mengunakan fungsi GoTo, Contoh :

        'Looping dengan menggunakan GoTo
        Dimnilai As Integer= 1
Looping_Lagi:
        Ifnilai <= 100 Then
            ListBox1.Items.Add(nilai)
            nilai = nilai + 1
            GoToLooping_Lagi
        End If

        'Sintak Diatas Sama Dengan Anda menulis For..Next/Do..Loop
        For i As Integer = 1 To 100
            ListBox1.Items.Add(nilai)
        Next

Contoh diatas hanya contoh kecil, sebenarnya fungsi GoTo ini nantinya dapat anda gunakan untuk mengatasi
kasus lain yang jauh lebih rumit dan besar yang tidak dapat ditangani lagi oleh looping biasa seperti
For..Next /Do..Loop atau bahkan mungkin mengharuskan anda menggunakan GoTo didalam For..Next/Do..Loop. Contoh dibawah ini adalah kasus yang cukup rumit dan mungkin terjadi :


Cek_Kondisi_Kagi:
        '.... sintak anda untuk cek kondisi 1

        If "...." ThenGoTo Langsung_Lolos 'Loncat Ke paling Bawah

        If "......" Then
            '......sintak anda
            GoToEksekusi_Kodisi 'Loncat Ke Bawah
        Else
            '.......sintak anda
            GoToCek_Kondisi_Kagi 'Loncat ke Atas / Looping lagi
        End If

Eksekusi_Kodisi:
        '......Sintak untuk Eksekusi Kodisi

Langsung_Lolos:
        '.....Sintak Jika Lolos Final

Contoh kondisi yang saya tulis diatas,  pernah saya alami waktu membuat sebuah aplikasi di kantor saya, semoga dapat bermanfaat untuk anda semua.

Tags:
cara menggunakan for next, cara menggunakan do loop, cara menggunakan do until, perulangan di vb, jenis2 looping di vb, for next atau do loop atau do until, cara menggunakan GoTo X Y vb, tutorial vbnet, cara loncat di vbnet, cara loncat kondisi vb,

Contoh Cara Penggunaan String.Format di VBNET

Terkadang kita malas menulis coding yang berhubungan dengan SQL Query, misalnya saat menulis sintak simpan data yang harus menggabungkan antara string dan object dengan tanda + atau & seperti contoh dibawah ini. Cukup sedikit membosankan bukan ? apalagi jika objectnya banyak.

'Cara Lama/Classic
Dim sql As String = ""
sql = "INSERT INTO TBL_TEST VALUES ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "','" + TextBox7.Text + "','" + TextBox8.Text + "','" + TextBox9.Text + "','" + TextBox10.Text + "')"

Tapi dengan menggunakan VBNET anda akan dipermudah dengan adanya fungsi String.Format, contoh penggunaannya sebagai berikut :
'Cara Baru Dengan Menggunakan Fungsi String.Format
Dim sql As String = ""
sql = String.Format("INSERT INTO TBL_TEST VALUES ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}')", _
TextBox1.Text, TextBox1.Text, TextBox1.Text, TextBox1.Text, TextBox1.Text, TextBox1.Text, TextBox1.Text, TextBox1.Text, TextBox1.Text, TextBox1.Text)
Artinya {0}{1} dan seterusnya akan diisi dengan ParamArray disampingnya yaitu TextBox1.Text, TextBox1.Text dan seterusnya sesuai dengan urutan. Bagaimana lebih teratur dan mudah bukan ? Tidak hanya sampai disitu, anda juga dapat menerapkan ini pada kasus yang lain seperti messagebox multi line, contoh :

'Cara Lama/Classic
Dim pesan As String = ""
pesan = "Nilai 1 =" + TextBox1.Text + " " + vbNewLine + "Nilai 2=" +  TextBox2.Text + " " + vbNewLine + "Nilai 3 = "+ TextBox3.Text
MessageBox.Show(pesan, "djiesoft Message", MessageBoxButtons.OK)

'Cara Baru Dengan Menggunakan Fungsi String.Format
Dim pesan As String = ""
pesan = String.Format("Nilai 1={0} {1} Nilai 2={2} {1} Nilai 3={3} {1}", _
        TextBox1.Text, vbNewLine, TextBox2.Text, TextBox3.Text)
MessageBox.Show(pesan, "djiesoft Message", MessageBoxButtons.OK)

Artinya {0}=TextBox1.Text, {1}=vbNewLine, {2}=TextBox2.Text,  {3}=TextBox3.Text
Karena {1} dipanggil 3x maka vbNewLine (garis baru) pun akan diterapkan 3x pula
sehingga hasilnya seperti ini :
Dengan seperti ini anda akan lebih menghemat waktu dan tenaga saat menulis sintak/coding, semoga bermanfaat apa yang saya tulis ini. Salam Programmer !

Tags:
cara menggunakan string format, format string vbnet, tutorial vbnet, dasar dasar vbnet, contoh sintak vbnet, cara menyingkat sintak sql

Contoh Cara Penggunaan ParamArray di VBNET

Salah satu keunggulan VB.NET adalah tersedianya fitur ParamArray untuk kebutuhan parsing parameter di sub/function. Dengan ParamArray ini anda dapat memberikan jumlah parameter tak terhingga (unlimited) sehingga anda TIDAK harus menyebutkan nama parameternya satu persatu.
Contoh Parameter Statis (Terbatas) :
Public Sub djie_param_statis(ByValnilai1 As Integer, ByVal nilai2 AsInteger)
        ListBox1.Items.Add(nilai1)
        ListBox1.Items.Add(nilai2)
End Sub
Contoh Pemangilannya seperti ini :
Calldjie_param_statis(100, 200)

Dari contoh diatas anda hanya dapat memparsing 2 parameter saja (terbatas), Coba bandingkan dengan ParamArray dibawah ini yang lebih Dinamis.
Contoh Parameter Dinamis (Tak Terbatas) :

Public Sub djie_param_array(ByValParamArray nilai_array() As Integer)
        For i As Integer = 0 To nilai_array.Length - 1
            ListBox1.Items.Add(nilai_array(i))
        Next
End Sub
Contoh Pemangilannya seperti ini :
 




Call djie_param_array(1,2,3,4,5,6,7,8,910,100,200,300,400,500,............)

Dengan ParamArray ini, anda dapat menuliskan sepuasnya parsing parameter, lebih mudah bukan ? semoga apa yang saya sampaikan ini dapat bermanfaat untuk anda.

Tags:
cara menggunakan param array, tutorial vbnet, contoh codink sintak vbnet, dasar berlajar vbnet 2010

Perbedaan Build, Rebuild, Clean, Publish Di Visual Studio

Apa itu Build, Rebuild, Clean, Publish Pada Visual Studio ? Saya akan jelaskan secara sederhana saja. Jika anda ingin membuat File.EXE di VB6 maka anda biasanya klik menu File>Make Project1.exe. Nah sedangkan di Visual Studio, anda bisa gunakan 4 tools tersebut.
1.Build dan Rebuild
    Artinya sama dengan Make Project1.exe di VB6, nanti output foldernya ke ..\bin\Release\
2.Clean
    Membersihkan/ menghapus semua file di folder ..\bin\Release\
3.Publish
    Jika anda membuat aplikasi website(asp/aspx) di visual studio, maka gunakan Publish untuk mem-package-nya yang nantinya akan anda simpan ke folder inetpub / wwwroot / htdoc saat anda akan menjalankan webserver seperti IIS / WAMP / XAMPP / Apache dan sebagainya
Sedangkan ada juga folder ..\bin\Debug\ itu isinya hampir sama dengan ..\bin\Release\, tapi perbedaannya adalah file.exe di folder ..\bin\Debug\ akan lebih refresh (file.exe terbaru) setiap anda megubah coding/sintak dan melakukan "Start Debuging".
Jadi File.exe di forder ..\bin\Debug\ ini akan selalu generate otomatis setiap kali anda "Start Debuging", Sedangkan File.exe ..\bin\Release\ akan muncul/generate jika anda menekan tombol Build/Rebuld (secara manual). Jadi pesan saya jangan sampai salah/tertukar ya.. sekian semoga bermanfaat.

Tags:
bedanya build sama publish vbnet, perbedaan build dan rebuild vbnet, apa bedanya build dan publish di vbnet 2008, bagaimana cara membuat file exe di vbnet, membuat exe di vbnet, c#, cara mudah membuat file exe di vb.net 2010

Cara Mendapatkan Hari Minggu/Weekend Dalam Satu Bulan VBNET

Terkadang kita mendapatkan kasus untuk menghitung dan mendapatkan ada berapa kali hari minggu muncul dalam satu bulan, contohnya seperti pada perhitungan gaji atau absensi dan sebagainya. Ini adalah contoh sintak/fungsi yang sederhana yang saya buat, anda dapat memodifikasinya sesuai kebutuhan.
Download Full Source Project
Tags:
contoh program vb, tutorial vb, vbnet , cara hitung jumlah minggu 1 bulan, cara dapatkan jumlah minggu daman sebulan, cara dapatkan tanggal merah dalam bulan, hitung tanggal libur dalam sebulan vbnet,

Get Motherboard And Hardisk Information VB6

Sebenarna ada sebagian pembuat motherboard maupun hardisk sengaja menyembunyikan ID/Serial number-nya agar tidak dapat diakses/dibaca demi keamanan/privacy. Dengan menggunakan Souce code berikut anda dapat mengakses beberapa informasi dari motherboard maupun hardisk tersebut termasuk ID/Serial number-nya. Semoga bermanfaat.
Download Full Source Project
All Links Updated on 2015-03-30 (yy-mm-dd) !
Tags:
contoh program vb, tutorial vb, cara mendapatkan info komputer, pc info using vb, vb6 get pc info, cara dapatkan prosessor id, dapatkan info processor serial number, cara dapatkan motherboard info, cara dapatkan id hardisk, cara dapatkan serial number hardisk, vb6 get komputer info