Labels

Selasa, 26 April 2011

Binding Data Menampilkan Isi Database kedalam Textbox

 Sebelumnya kita telah membahas bagaimana menyimpan data ke dalam database pada artikel sebelumnya.Jika anda belum membacanya silahkan baca dahulu disini,jika sudah kita akan melanjutkan dari posting yang kemarin,jadi file yang anda unduh pada posting sebelumnya akan kita edit, agar tidak memperbanyak script.Berdasarkan judul posting, saya akan menjelaskan definisi Binding adalah  mengikat, menjilid. Proses pengaturan nilai nilai atribut dari suatu variabel, fungsi, prosedur, subroutine.
Suatu cara yang dilakukan dalam kode Microsoft Visual Basic yang menggunakan Automation untuk mengakses suatu object di aplikasi lainnya....Lihat di sini.

Nah sekarang kita sudah mengerti apa itu Binding sekarang buka project yang anda unduh pada posting sebelumnya jika belum ada silahkan donwload di sini.

Jika sudah dibuka projectnya sekarang ikuti langkah dibawah ini :
 
    1. Double click DataGridView1 ubah Eventnya menjadi CurrentCellChanged
    2. Jika sudah masukan script dibawah ini

        Private Sub DataGridView1_CurrentCellChanged(ByVal sender As Object, ByVal e As                 System.EventArgs) Handles DataGridView1.CurrentCellChanged
        Dim pos As Integer

        pos = BindingContext(objDataView).Position
        txtnama.Text = objDataset.Tables(0).Rows(pos).Item(0)
        txtalamat.Text = objDataset.Tables(0).Rows(pos).Item(1)
        DateTimePicker1.Value = objDataset.Tables(0).Rows(pos).Item(2)
        comboagama.Text = objDataset.Tables(0).Rows(pos).Item(3)
        TextBox5.Text = objDataset.Tables(0).Rows(pos).Item(4)
    End Sub


Jika sudah jalankan / debuglah program (Tekan F5)...
Maka hasilnya akan seperti gambar


Cukup sekian dulu posting kali ini semoga bermanfaat....jangan lupa tinggalkan komentarnya yaaaach.!!!

selamat mencoba.!!!
»»  READMORE...

Senin, 25 April 2011

Mengenal Kesalahan Aplikasi Yang Kita Buat

Tentunya anda telah atau akan mengalami errorndalam suatu program software,entah error ini ditampilkan
dalam bentuk pesan atau error tidak diketahui yang membuat software yang digunakan menjadi crash
sehingga hang dan harus keluar dari aplikasi tersebut
Tentunya hal ini menjengkekan bagi kita bukan?Oleh karena itu,anda sebaiknya memberikan kode pengamanan
untuk berbagai error yang kemungkina terjadi dalam aplikasi anda.

Visual Basic .Netmemlikipenangan error terstruktur yang istilah inggrisnya structured exception handling

Suatu error yang kita temukan pada saat proses pembuatn apliksiatau debugging, tentnya bukan menjadi masalah bagi user,karena sebagai developer. Anda akan memperbaiki kode sehingga tidak terjadi error
lagi pada program anda.Error semacam ini biasanya merupakan error yang disebabkan oleh programer atau developer itu sendiri.

Akan tetapi adakalanya terjadi error saat programdijalam\nkan karena kesalahan user atau faktor-faktor lain yang tidak diketahui.

maka sebaiknya kita menggunakan fasilitas exception handling dalam visual basic.Net.
»»  READMORE...

Minggu, 24 April 2011

Script Simpan Edit Hapus Vb.Net 2005

Pada dasarnya setiap bahasa pemprogram baik visual basic, delphi, c++ , pascal dan yang lainnya memiliki logika yang sama tinggal bagaimana setiap programer menuangkan logikanya  kedalam script pada setiap masing-masing bahasa pemprograman.Pada posting kali ini kita akan menuangkan logika simpan data,edit data dan hapus data pada bahasa pemprograman Microsoft Visual Basic 2005. Logika ini sangat sering kita jumpai pada aplikasi-aplikasi yang sudah ada, dikarekan proses manipulasi data sangat erat kaitannya dengan kegiatan user sehari-hari, baik itu di perkantoran, rumah sakit dan lain-lain.
tidak usah panjang lebar lagi kita mulai project yang akan kita buat

1. Buat lah Database mhs.mdb dengan nama tabel "TBLMAHASISWA" ( tanpa tanda petik )
    fieldsnya =>    NAMA, ALAMAT, TGL_LAHIR, AGAMA, TELPON
2. Buat project aplikasi baru pada Vb.net anda
2. Designlah project Fom1 seperti gambar dibawah ini


Jika sudah Copas deh script dibawah ini  ke project anda:

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim objCommand As New OleDbCommand
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conect = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB.NET_project\database\coba\db\mhs.mdb")

        objCommand.Connection = conect
        conect.Open()
        objDataset = New DataSet
        objDataAdapter = New OleDbDataAdapter("select * from TBLMAHASISWA", conect)
        objDataAdapter.Fill(objDataset, "TBLMAHASISWA")
        objDataView = New DataView(objDataset.Tables("TBLMAHASISWA"))
        DataGridView1.DataSource = objDataView
        conect.Close()

        With comboagama
            .Items.Add("Islam")
            .Items.Add("Kristen")
            .Items.Add("Katolik")
            .Items.Add("Hindu")
            .Items.Add("Budha")
        End With


    End Sub
    Private Sub bersih()
        Dim x As Control
        For Each x In Me.Controls
            If TypeOf x Is TextBox Then x.Text = ""
        Next
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        objCommand.Connection = conect
        conect.Open()
        strSQL = "insert into TBLMAHASISWA values('" & txtnama.Text & "','" & txtalamat.Text & "','" & _
        DateTimePicker1.Value & "','" & comboagama.Text & "','" & TextBox5.Text & "')"
        objCommand.CommandText = strSQL
        objCommand.ExecuteNonQuery()
        conect.Close()
    End Sub      


Silahkan running project ( Tekan F5 )
Kemudian isi data pada textbox lalu simpan,,lihat perubahan yang terjadi.

Jika anda malas membuatnya silahkan download sourcecode lengkapnya  di sini




»»  READMORE...

Sabtu, 23 April 2011

Bilangan Prima Visual Basic 2005 Dot Net

Mengulas kembali tentang artikel sebelumnya mengenai membuat tabel menggunakan ListView kali ini aplikasi yang akan kita buat adalah aplikasi bilangan prima.Jadi Aplikasi ini akan menentukan apakah angka berupa bilngan prima atau bukan.Aplikasi ini juga akan disertai dengan pamambahan komponen ProgressBar dan komponen SideBar sebagai pengembangan dari posting sebelumnya.

Silahkan download source projectnya di sini
Interface nya seperti ini .


Sekian dulu postingan kali ini semoga bermanfaat bagi kita semua..( The-Khan Community )
»»  READMORE...

Membuat Form MDI ( Multi Document Interface )

Sebernarnya, selama ini aplikasi Windows yang kita buat merupakan tipe aplikasi Windows Single Ducument Interface ( SDI ).Tipe ini menampilkan hanya satu Window utama dan tidak dapat menamilkan window lain didalam window tersebut, Selain SDI sebenarnya terdapat tipe aplikasi Multi Document Unterface (MDI).Tipe MDI memilki window utama yang dapat menampilkan banyak child window didalamnya.Form utama disebut juga container.Contoh aplikasi MDI yang sudah diterapkan pada Microsoft Word.
Saat ini kita akan membuat project aplikasi MDI sederhana pada Visual Basic 2005

1. Buat project aplikasi winwow form baru
2. Atur properti Form baru seperti berikut
        * Name : MDIPrent
        * IsMdiContainer : True
        * Text : Mdi Parent
3 Tambahkan form lagi dengan nama ChildForm1.vb dan aturpropertinama Child1
4 Tambahkan form lagi dengan nama ChildForm2.vb dan aturpropertinama Child2

untuk lebih jelasnya silahkan download projectnya di sini

Selamat mencoba semoga bermafaat.!!!!

»»  READMORE...

Jumat, 22 April 2011

Membuat Tabel Menggunakan ListView

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

Properties ListView1
GridLines True -
Views Details -
Colums ColumsHeader1

ColumsHeader2

ColumsHeader3
Pangkat-1

Pangkat-2

Pangkat-3

Tambahka 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.


»»  READMORE...

Aplikasi Menghitung Total Warnet

Bagi temen-temen yang baru belajar Microsoft Visual Basic 2005  posting kali ini akan sedikit memberi pencaerahan bagaimana menggunakan komponen-komponen yang ada pada Visual Basic 2005.yaah lumayan untuk menambah wawasan dari pada nontonin Briptu Norman muluu..hehehe

Aplikasi yang akan kita buat adalah aplikasi sederhana untuk menghitung jumalah Total pembayaran pada sebuah warnet, kita ilustrasikan saja warnetnya XXX.


Mulailah design form seperti pada gambar dibawah ini

Jika sudah mulai proses pengkodean.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim baris As Integer
        Dim awal As Integer
        Dim ahir As Integer
        Dim tot1 As Integer
        Dim tot2 As Integer
        Dim tot3 As Integer
        Dim tot4 As Integer
        Dim warnet As Integer
        Dim game As Integer
        Dim rental As Integer

        warnet = 3000
        game = 2500
        rental = 1000

        awal = txtawal.Text
        ahir = txtahir.Text

        ListView1.Items.Clear()
        For baris = awal To ahir Step 1
            ListView1.Items.Add(baris)
            ListView1.Items(baris - awal).SubItems.Add(baris * warnet)
            ListView1.Items(baris - awal).SubItems.Add(baris * game)
            ListView1.Items(baris - awal).SubItems.Add(baris * rental)

            tot1 = tot1 + baris
            tot2 = tot2 + baris * warnet
            tot3 = tot3 + baris * game
            tot4 = tot4 + baris * rental
        Next
        txtjam.Text = tot1
        txtwarnet.Text = tot2
        txtgame.Text = tot3
        txtrental.Text = tot4
    End Sub

Nah kira-kira scriptnya seperti itu.
Berhubung kopi + rokoknya sudah abis jadi sekian dulu postingan kali ini semoga bermnfaat bagi kita semua
selamat mencoba.!!!!!!

 

Untuk script lengkapnya silahkan download di sini

»»  READMORE...

Membuat Form Login Dengan Vb.Net

Form Login sangat dibutuhkan dalam pembuatan aplikasi berbasis desktop.Form ini berfungsi untuk pembatasan akses bagi user/pengguna.Baiklah langsung aja kita buka Microsoft Visual Basic 2005 jika belum di instal silahkan download dulu Aplikasinya,ukurannya lumayan besar sekitar 2.66 Gb.

Buat form seperti gambar dibawah


Label1 Username
Label2 Password
Text1 Text1
Text2 Text2
Button1 Login
Button2 Batal

Sekarang masukan script dibawah ini dengan cara klik kanan pada Form1 pilih view code..

Public Class Form1
    Dim F_Utama As New Form2
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("Username Kosong")
        ElseIf TextBox2.Text = "" Then
            MsgBox("Password Kosong")
        Else
            If TextBox1.Text = "joko" And TextBox2.Text = "123" Then
                MsgBox("Berhasil Login")
                F_Utama.Show()
            Else
                MsgBox("Data Tidak Ditemukan")
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub

Jika sudah Running program ( Tekan F5 )
Silahkan anda kembangkan dengan kreativitas anda..

Selamat mencoba......
»»  READMORE...

Rabu, 20 April 2011

Membuat Koneksi VB.Net 2005

Untuk membuat koneksi pada visual basic 2005 cukup mudah,yang pertama buat lah data basenya misalkan kita beri nama database "COBA.mdb".Jika sudah kita mulai dengan membuka visual basic 2005 perhatikan langkah dibawah.
- Buka menu File
- New Project atau Ctrl + N kemudian Ok
- Buka menu Tools pilih Connect To Databases...
 

- Pilih Data source yang kita gunakan dalam ksus ini saya menggunakan Microsoft Access Database File
- Browser Database Anda



- Klik Ok
- Jika Sudah Mulai dengan memasukan sintak
- Buat Prosedure Baru

imports System.Data
imports System.Data.OleDb

Private Sub Koneksi()
Public conn as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\VB.NET\Lat1\DB\COBA.mdb")
Msgbox"Berhasil Konek"
End Sub

- Buatlah Button 1 buah lalu masukan Script
   Call Koneksi

maka scriptnya akan seperti ini


Jika berhasil maka hasilnya akan seperti dibawah


Selesai sudah koneksi yang kita buat..Selamat mencoba dan silahkan kembangkan lagi

»»  READMORE...
Related Posts Plugin for WordPress, Blogger...