Catatan Programmer Coeloen

Membuat Tabel Menggunakan ListView

by dokter komputer under

Untuk keperluan tertentu ListView juga dapat digunakan sebagai tabel, misalkan untuk menanpilkan hasil perpangkatan dan lain-lain.Sebagai contoh dalam posting ini kita akan menghitung nilai perpangkatan dan menampilkannya kedalam ListViewl yang telah di design menjadi tabel.

Untuk membuat tabel gunakan komponen ListView

Atur Properties ListView

tambahkan 4 Textbot, 1 Label dan 1 Buttons

Setelah itu masukan listing kode dibawah ini.

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        Dim baris As Integer, batas As Integer, tot1 As Integer, tot2 As Integer, tot3 As Integer
        batas = txtbatas.Text

        'melakukan perhitungan pangkat'
        For baris = 1 To batas Step 1
            lsttable.Items.Add(baris)
            lsttable.Items(baris - 1).SubItems.Add(baris * baris)
            lsttable.Items(baris - 1).SubItems.Add(baris * baris * baris)

            'melakukan perhitungan total'
            tot1 = tot1 + baris
            tot2 = tot2 + baris * baris
            tot3 = tot3 + baris * baris * baris
        Next
        txtp1.Text = tot1
        txtp2.Text = tot2
        txtp3.Text = tot3
    End Sub

Kemudian jalankan progra ( tekan F5 )
Jika berhasil hasil/output akan sesuai dengan inputan tang kita masukan..sekian postingan kali ini semoga bermanfaat untuk kita semua..Amiiin.

Membuat Login Multiple User di VB.Net (bag. 2)

by dokter komputer under

Beberapa minggu yang lalu saya menulis artikel tentang Membuat Login Multiple User di VB.Net (bag.1). Namun saya rasa artikel tersebut belum selesai sepenuhnya, karena masih da sedikit masalah yaitu setelah login bagaimana mengatur menu-menu yang ditampilkan di form utama agar sesuai dengan hak akses ketika user/admin masuk.

Untuk mengatasi masalah tersebut maka dalam kesempatan kali ini saya akan mencoba membuat artikel mengenai pengaturan menu yang di tampilkan di menu utama berdasarkan hak aksesnya. Misalnya ketika admin masuk maka semua menu akan ditampilkan, tapi ketika user masuk maka ada menu-menu tertentu yang dihilangkan.
Langkah-langkah dalam membuatnya adalah sebagai berikut.

Baca dulu artikel sebelumnya (Membuat Login Multiple User di VB.Net(bag. 1)) dan buat / download programnya.
di Form2 ubah Properti Text menjadi Form Utama.
Tambahkan Tool MenuStrip ke form2, lalu buat Menu dan submenu sebagai berikut.

Sehingga tampilan form2 menjadi seperti berikut

4.Misalnya admin bisa mengakses semua menu, sedangkan user hanya bisa mengakses sub menu data mata
kuliah saja, sehingga kode lengkap untuk tombol Login (btnLogin) di Form 1 adalah sebagai berikut.

Dim Sql, user, pass, hak As String
        Dim cmd As SqlCommand
        Dim rdr As SqlDataReader

        user = txtUser.Text     'Variabel user diisi nilai yang diinputkan txtUser
        pass = txtPass.Text     'Variabel user diisi nilai yang diinputkan txtPass
        hak = cbHak.SelectedItem 'Variabel user diisi item yang dipilih cbHak

        'Cek apakah user, password dan hak akses yang telah dipilih/dimasukan ada di database
        Sql = "SELECT * FROM tbl_login WHERE Username='" + user + "'

       _AND Password='" + pass + "' AND Hak_akses='" + hak + "'"
        cmd = New SqlCommand(Sql, koneksi)

        rdr = cmd.ExecuteReader()

        If rdr.HasRows = True Then      'Jika data ditemukan

            If hak = "Admin" Then                                           
                Form2.Show()                                                
                Me.Hide()                                                   
            Else                                                            
                Form2.DataMahasiswaToolStripMenuItem.Enabled = False        
                Form2.DataDosenToolStripMenuItem.Enabled = False            
                Form2.Show()                                               
                Me.Hide()                                                   
            End If
        Else
            'Munculkan messagebox pesan salah
            MessageBox.Show("Kombinasi Username ,Password dan Hak Akses Salah",

            _ "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtUser.Focus()
        End If

        rdr.Close()
        cmd.Dispose()

 5. RUN !!!! (maksudne coba programnya hehe..  ).

 6.Setelah dijalankan kita bisa melihat kan untuk user

   submenu data mahasiswa dan data dosen tidak bisa diakses (disable)

7. Anda juga bisa mengubah/menambah sendiri menu dan mengatur menu mana

  saja yang kan ditampilkan untuk admin dan user

Selamat Mencoba ya..

Untuk Source Code Bisa di download disini..

Membuat Login Multiple User di VB.Net(bag. 1)

by dokter komputer under

Pada artikel sebelumnya saya menulis artikel tentang membuat login sederhana di vb.net. Untuk hari ini saya ingin memberikan contoh membuat login multiple user (menggunakan lebih dari 1 user) di VB.Net

Berikut ini adalah step-step dalam membuat login multiple user.

1. Buat Database di sql server dengan cara klik kanan Database lalu pilih New Database…lalu isikan nama database sesuai keinginan anda (misalnya : dblogin).

2. Buat Tabel dengan nama sesuai keinginan anda (misalnya : tbl_login) dengan spesifikasi sebagai berikut.

Lalu tambahkan data pada tabel tersebut.
3. Buat Project VB.Net baru dengan cara buka Visual Studio 2008 -> New Project -> Pilih Bahasa
    Pemrograman VB.Net -> Windows Form Application -> masukan nama project (misalnya:
    contoh_login).
4. Tambahkan beberapa control yang digunakan di Form . Contohnya bisa dilihat pada gambar di bawah
    ini.

Spesifikasi Control yang digunakan :

Saatnya Coding !!! (Klik F7 untuk masuk ke tampilan sesi coding)

Tambahkan Kode berikut di baris coding paling atas

Imports System.Data.Sql
Imports System.Data.SqlClient

Tambahkan Kode berikut dibawah kode ini : Public Class Form1

Dim koneksi As SqlConnection

Koneksi ke Database (Ditaruh di Form Load )

Tombol Login (btnLogin)

Tombol Exit (btnExit)

Untuk Source Code bisa di download disini

Memasukan data dari database ke ComboBox di VB.Net

by dokter komputer under

Berikut ini adalah step-step dalam membuatnya. Cekidot !!!

Buat Database di SQL Server dengan nama dbBarang. Jika belum tau cara membuat database di SQL Server.
Lalu buat tabel dengan nama Barang dan spesifikasinya sebagai berikut.

tambahkan record/data ke dalam tabel tersebut.
3. Buka Microsoft Visual Studio caranya start -> run -> ketikkan devenv. Lalu buat project baru dengan nama : DbtoComboBox seperti gambar berikut ini

4. Ubah properti Form 1 seperti berikut ini.

Untuk VB.Net :
kode di Form_Load :
cara akses event ini cukup klik 2x formnya. Lalu akan muncul kode seperti berikut.

Public Class Form1
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

_ Handles MyBase.Load

 End Sub
End Class

Nah, udah itu tambah kode lagi hingga kode di form1 menjadi seperti berikut ini.

Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
 Dim conn As SqlConnection
 Dim cmd As SqlCommand
 Dim rdr As SqlDataReader
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

_Handles MyBase.Load
 conn = New SqlConnection("Data Source=ORION\SQLEXPRESS;Initial Catalog=dbBarang;

_Integrated Security=True")

Try
 conn.Open()
 cmd = New SqlCommand("SELECT NamaBarang FROM msBarang", conn)
 rdr = cmd.ExecuteReader()

While rdr.Read()
 cbBox1.Items.Add(rdr("NamaBarang"))
 End While

Catch ex As Exception
 MessageBox.Show("Koneksi Gagal !!!, karena " & ex.Message)
 End Try

cbBox1.SelectedIndex = 0
 End Sub
End Class

Untuk Source Codenya bisa di download disini

Memformat harga di Textbox

by dokter komputer under

Memformat harga di Textbox Maksudnya adalah membuat tampilan angka misal 50000 menjadi 50,000 secara otomatis di textboz ketika kita mengetiknya di textbox, ini ilmu yang saya peroleh dari hasil memonitoring di sebuah forum para develover disini tepatnya : http://i-bego.com/ Nah sekarang mari kita coba ikuti langkah-langkahnya :

coba buat new preject di Visual Studio
New Windows Application di Visual Basic nya
Tambahkan satu textbox pada form dan beri nama txtHarga
Double klik textboxnya atau beri event TextChange coding ini di dalam event textchage nya :

If txtHarga.Text.Length > 0 Then
    If txtHarga.Text.Substring(0, 1) = "." Then txtHarga.Text = txtHarga.Text.Replace(".", "")

    Dim x As Double = CDbl(txtHarga.Text.Replace(",", ""))
    Dim s As String = Strings.FormatNumber(x, 0)

    If txtHarga.Text <> s Then
        Dim pos As Integer = txtHarga.Text.Length - txtHarga.SelectionStart

        txtHarga.Text = s

        If ((txtHarga.Text.Length - pos) < 0) Then
            txtHarga.SelectionStart = 0
        Else
            txtHarga.SelectionStart = txtHarga.Text.Length - pos
        End If
    End If
End if

Tambahkan event Keypress juga pada txtHarga dan coding ini di dalam event textKeyPress nya :
```
   1: e.Handled = ValidAngka(e)
```
lalu kita buat Function ValidAngka :

Private Function ValidAngka(ByVal e As System.Windows.Forms.KeyPressEventArgs) As Boolean
        Dim strValid As String = "0123456789"

        If Strings.InStr(strValid, e.KeyChar) = 0 And Not (e.KeyChar = Strings.Chr(Keys.Back)) Then
            Return True
        Else
            Return False
        End If
End Function

Maka sekarang kita dapat membuat tampilan harga secara otomatis berubah saat diinputkan seperti gambar berikut :

Nah itulah yang dapat di share pada kesempatan ini, [:D]

Ramalan Bintang

by dokter komputer under

Ini aplikasi ramalan bintang yang pernah saya buat kapan yah ?? Lupa lagi,,hehe.. saking lamanya.. ini screenshootnya.. :D

Download source code nya disini

Membuat Captcha di VB.NET

by dokter komputer under

Siapa bilang capthca hanya ada di Web Appliaction ? Neh saya dapat tutorial di http://www.webicy.com/programming/6149-tutorial-create-captcha-vbulletin-net.html. Saya coba implementasikan deh dan alhamdulilah jadi,,hehehe.. Ini screenshoot aplikasinya :D :

Source codenya bisa didownload disini

CheckBox Array di VB.Net

by dokter komputer under

VB.Net Sudah mensuport OOP 100%, jadi dalam hal penanganan Control di Visual Basic.Net pun kita dapat memanfaatkan array, penggunaannya sih mungkin lebih effesien dalam hal codingnya. Implementasi dari CheckBox Array ini dapat dilakukan seperti berikut ini, maka dari itu ikuti langkah-langkah nya sebagai berikut :
1. Buka Visual Studio dan Create New Project Beri Nama CheckBoxArray
2. Design Form sebagai berikut :

3. Lalu coding code berikut :

Public Class Form1
    Dim checkBoxes As CheckBox()
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        checkBoxes = New CheckBox() {CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5}
    End Sub
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        checkBoxes(4).Checked = False
        checkBoxes(0).Checked = True
        checkBoxes(2).Checked = True
        checkBoxes(3).Checked = True
    End Sub
    
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        checkBoxes(0).Checked = False
        checkBoxes(2).Checked = False
        checkBoxes(3).Checked = False
        checkBoxes(4).Checked = True
    End Sub
End Class

Sedikit penjelasan variabel checkBoxes di dekalarasikan sebagai array bertipe objek dari class control checkBox, dia diinisialisasi oleh 5 buah control checkbox yaitu
CheckBox1,
CheckBox2,
CheckBox3,
CheckBox4,
CheckBox5
sehingga kita bisa melakukan control terhadap CheckBox1 dengan pemanggilan syntak
checkBoxes(0) dan seterusnya sbb :
Checkbox1 = checkBoxes(0)
Checkbox2 = checkBoxes(1)
Checkbox3 = checkBoxes(2)
Checkbox4 = checkBoxes(3)
Checkbox5 = checkBoxes(4)

Source Code nya bias didownload disini

Validasi

by dokter komputer under

Validasi How To ?? haha.. ini menindaklanjuti dari komentar salah seorang pengunjung web ini. dia menanyakan tentang validasi ini komentar lengkapnya : bos, mau nanya am yg senior neh saya punya form fill in yang misalnya textbox nama tidak diisi maka akan tampil msgbox yg bilang bahwa txtbox nama harus diisi… nah yg pusingx, ada banyak txtbox dan di button submit itu ada searching smua txtbox yg belum keisi… nah cara buat nampilin di msgbox txtbox mana yang belum keisi itu formatx gmn??? apa pake try catch?? thx b4
Keren kan ane di panggil bos dan lagi senior ?? :D tapi sebenarnya ane cuma pesen aza jangan nilai orang dari apa yang bisa di lihat atau dirasakan saja, ada hal yang sangat penting dibalik itu. oke ? :D
Sejauh ini yang pernah saya lakukan untuk project-project yang saya kerjakan mengenai validasi saya bisa melakukan dengan menambakan objek ErrorProvider dengan cara manambahkannya dari toolbox seperti ini gambarnya :

ika sudah misal kita punya textbox1 dan didalam textbox1 tersebut beri event validating ingat validating yah.. ? :) seperti gambar berikut ini :

Jika sudah tambahkan kode berikut pada event validating tadi :

Private Sub texbox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles texbox1.Validating
    If texbox1.Text.Length = 0 Then
        ErrorProvider1.SetError(texbox1, "TextBox Satu Harus Diisi !!")
    Else
        ErrorProvider1.Clear()
    End If
End Sub

maka hasilnya adalah ketika user mengosongkan TextBoxnya maka akan muncul Tampilan icon merah si ujung textboxnya... misal seperti gambar berikut :

Hal ini dapat diterapkan dalam pembuatan aplikasi sehingga user (client) mudah menggunakannya sehingga dia dapat melihat icon berwarna merah jika belum mengisi textbox1 misalnya.. Untuk masalah mengecek jika suatu textbox itu gak ada isinya lantas muncul suatu message box yang memberitahukan bahwa textbox tersebut belum diisi itu memang harus dilakukan satu2,, di vb.net pun yah begitu sama harus satu2,, di javascript untuk client side juga sama harus satu, satu mengecek nya, bukan ?? Nah namun pengecekan ini di VB.NET bisa dibuat mudah dengan menerapkan konsep Function / Prosedur (* Pelajaran Algoritma nh, hahaha.. :D) misal saya punya form seperti diatas maka yang saya lakukan selain menambahakan error provider saya pun menambahkan kode ini untuk mengecek suatu textbox itu kosong :

Imports System.Xml
Public Class frmTambahSiswa
    Shared Function Validasi(ByVal obj() As TextBox) As Boolean
        Dim i As Integer
        Dim cek AS Boolean
        For i = 0 To obj.Length - 1
            If (obj(i).Text.Length = 0) Then
                MessageBox.Show(obj(i).Name.ToString & " masih belum diisi !", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Information)
                obj(i).Focus()
                cek = False
                Exit For
            Else
                cek = True
            End If
        Next
        If cek Then
            Return True
        Else
            Return False
        End If
    End Function
 
    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Dim t() As TextBox = {texbox1, txtNIS, txtNama, txtAlamat, txtDesa, txtTempatLahir, txtKecamatan, txtKota _
       , txtKodePos, txtNoTelepon, txtJumlah, TxtKeterangan}
        If Validasi(t) Then
            MessageBox.Show("Anda telah menulis data dengan benar")
        End If
    End Sub
End Class

Nah untuk error provider juga bisa menggunakan function saja.. Yang pasti saran saya bagaimanapun coding anda yang penting adalah tujuan tercapai, hasil karena algoritma berfokus pada hasil, dan jika kita berbicara proses maka struktur data lah yang berbicara,, hehehe.. gapapa prosesnya panjang tetapi jika hasil yang dicapai adalah benar so.. tak masalah,, sekian kalau ada yang ditanyakan bisa koment dibawah eh sourcecode diatas bisa di download disini Ada lanjutannya nih kalau di lanjutkan di komentar kurang enak jadi saya lanjutkan disini..hehe.. source code diatas menampilkan messagebox satu2 bukan ?? artinya messagebox muncul satu2 untuk setiap textbox yang kosong, nah lantas bagaimana caranya jika ingin messageboxnya menampilkan semua nama textbox yang kosongnya bersamaan,, Alurnya sederahana aza kok cuma kita siapkan satu variable string untuk menampung nama textboxnya dan kita melakukan perulangan deh untuk mengeceknya, jika suatu textbox itu kosong maka nama textboxnya di masukan ke dalam variable string itu.. begitulah kira-kira intinamah atos dicoba ku abi janten kiyeu : he.. :)

Imports System.Xml
Public Class frmTambahSiswa
    Shared Function Validasi(ByVal obj() As TextBox) As Boolean
        Dim i, j As Integer
        Dim cek As Boolean = True
        Dim objNameTemp As String = ""
  
        For j = 0 To obj.Length - 1
            If obj(j).Text.Length = 0 Then
                objNameTemp &= " " & obj(j).Name
            End If
        Next
  
        For i = 0 To obj.Length - 1
            If obj(i).Text.Length = 0 And cek Then
                cek = False
                Exit For
            End If
        Next
  
        If cek Then
            Return True
        Else
            MessageBox.Show(objNameTemp & " masih belum diisi !", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return False
        End If
    End Function
    Private Sub texbox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles texbox1.Validating
        If texbox1.Text.Length = 0 Then
            ErrorProvider1.SetError(texbox1, "TextBox Satu Harus Diisi !!")
        Else
            ErrorProvider1.Clear()
        End If
    End Sub
  
    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Dim t() As TextBox = {texbox1, txtNIS, txtNama, txtAlamat, txtDesa, txtTempatLahir, txtKecamatan, txtKota _
       , txtKodePos, txtNoTelepon, txtJumlah, TxtKeterangan}
        If Validasi(t) Then
            MessageBox.Show("Anda telah menulis data dengan benar")
        End If
    End Sub
End Class

Nah untuk source code yang ini bisa didownload disini

Catatan Programmer Coeloen

Pages

Membuat Tabel Menggunakan ListView

Membuat Login Multiple User di VB.Net (bag. 2)

Membuat Login Multiple User di VB.Net(bag. 1)

Memasukan data dari database ke ComboBox di VB.Net

Memformat harga di Textbox

Ramalan Bintang

Membuat Captcha di VB.NET

CheckBox Array di VB.Net

Validasi

Blog Archive