Mengisi DataGrid dengan Gambar

Kontrol DataGrid digunakan untuk menampilkan data dari sebuah database pada VB.NET. Karena ini merupakan satu-satunya komponen grid yang dipunyai Microsoft, umumnya programmer tidak mempunyai banyak pilihan selain memanfaatkan kontrol DataGrid ini untuk menampilkan data atau query pada aplikasi database yang dibuatnya.

Ketika harus menampilkan data, tentunya tidak semua data berupa teks. Bisa jadi data adalah berupa gambar. Apakah DataGrid dapat digunakan untuk menampilkan gambar? Tip berikut adalah salah satu cara untuk menampilkan gambar pada kontrol DataGrid.

Langkah-langkah untuk membuatnya adalah:

1. Buat New Project (Windows Application) dengan sebuah form baru yang didalamnya terdapat sebuah command button yang bernama btnRefresh dan sebuah DataGrid yang bernama DataGrid1.

2. Deklarasi awal dari aplikasi ini adalah sebagai berikut:

Imports System.IO
imports System.Data.OleDb
Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim ItemPicture As System.Windows.Forms.PictureBox
    Dim dgCell As DataGridCell
    Dim colStyle As GridColumnStylesCollection
    Dim dgStyle As New DataGridTableStyle
    Dim dgTable As DataGridTextBoxColumn
    Dim blnNew As Boolean = False
    Dim intRow As Integer, intCol As Integer

3. Event-event yang perlu dicegat

Private Sub Form1_Load(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles MyBase.Load
        intRow = 0

        ItemPicture = New PictureBox
        ItemPicture.Width = 148
        ItemPicture.Height = 124
        ItemPicture.Cursor = System.Windows.Forms.Cursors.Arrow
        ItemPicture.Dock = DockStyle.Fill

        ItemPicture.SizeMode = PictureBoxSizeMode.StretchImage

        AddHandler ItemPicture.Click, AddressOf ClickCBO
        RefereshRec()

End Sub

Private Sub ClickCBO(ByVal sender As System.Object, ByVal e As System.EventArgs)
  ItemPicture.ContextMenu = (ImageMenu)
End Sub

Private Sub btnReferesh_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles btnReferesh.Click
        RefereshRec()
End Sub

Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
        RetreiveImages()
End Sub

4. Subrutin untuk menampilkan gambarnya adalah:

Private Sub RetreiveImages()
  Try
    Dim MyData As Byte() = Nothing
    Dim crPosition As Integer

    crPosition = Me.BindingContext(dt).Position

    If blnNew = True Then ItemPicture.Image.Dispose()
    blnNew = True
    MyData = CType(ds.Tables(0).Rows(crPosition)("ItemPicture"), Byte())

    Dim intData As New Integer
    intData = MyData.GetUpperBound(0)
    Dim fs As New FileStream("c:\tempimage.jpg", _
              FileMode.OpenOrCreate, FileAccess.Write)
    fs.Write(MyData, 0, intData)
    fs.Close()
    MyData = Nothing
    ItemPicture.Image = Image.FromFile("c:\tempimage.jpg")

  Catch ex As Exception
    '  MessageBox.Show(ex.Message.ToString)
    Finally
        cn.Close()
    End Try

End Sub

Private Sub RefereshRec()
  cmd.CommandText = "SELECT ItemsID, Item as Item, _
      ItemPicture FROM tblPicture ORDER BY ItemsID"
        cmd.CommandType = CommandType.Text
     cmd.Connection = cn
     da.SelectCommand = cmd
     ds.Clear()
     da.Fill(ds, "tblPicture")
     dt = ds.Tables("tblPicture")

     dgStyle.MappingName = dt.TableName
     DataGrid1.TableStyles.Add(dgStyle)
     dgStyle.PreferredRowHeight = 135
     dgStyle.PreferredColumnWidth = 205

     colStyle = DataGrid1.TableStyles(0).GridColumnStyles
     DataGrid1.DataSource = dt
     colStyle(0).Width = 150
     colStyle(1).Width = 150
     colStyle(2).Width = 150

     dgTable = CType(DataGrid1.TableStyles(0).GridColumnStyles(2), _
                      DataGridTextBoxColumn)
     ItemPicture.Visible = True
     ItemPicture.Focus()
     dgTable.TextBox.Controls.Add(ItemPicture)

     Dim dgCell As DataGridCell
     dgCell = New DataGridCell(intRow, 2)
     DataGrid1.CurrentCell = dgCell
End Sub

5. Tampilan yang didapatkan untuk aplikasi di atas adalah:

Read More

Perhitungan Sederhana

         Halo Guys, Mari Kita Belajar Program Step by Step, Sekarang kita mulai dengan Perhitungan Sementara Menggunakan bahasa pemrograman Visual Basic.Net (Vb.net 2008),
-->> Pertama Buat Project --> New Project
-->> Beri Nama Perhitungan Sementara
-->> Kemudian Buat Tampilan Form Seperti di bawah :

-->> Kemudian Klik Kanan Pada Button +, Lalu Ketikkan Souce Code Program berikut :

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

        ' Dim angka1, angka2, hasil As long Integer

        'angka1 = Val(TextBox1.Text)

        'angka2 = Val(TextBox2.Text)

        'hasil = angka1 * angka2

        'TextBox3.Text = hasil

        'source code tanpa menggunakan variabel

             TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

    End Sub

-->> Lanjutkan pada Button yang lain, Hanya Mengganti apakah Pengurangan, Perkalian, Pembagian, dll.

-->> Untuk C (Clear), Ketikkan Source Code di bawah :

        'Membersihkan TextBox

        TextBox1.Clear

        TextBox2.Clear

        TextBox3.Clear

        TextBox1.Focus

--> Jika Semuanya sudah dilakukan, Tekan F5 atau Running, Isikan Angka pada Bilangan 1 dan Bilangan 2, Kemudian Klik Salah Satu Button yang ada.

     Ok Mungkin Sampai Sini Dulu Pembahasan tentang Perhitungan Sederhana, tinggal teman-teman Kembangkan dengan rumus-rumus matematika yang ada, Semoga Bermanfaat. Wassalam..

Read More

Koneksi vb.net ke database microsoft access 2003/2007

'Koneksi vb.net ke database microsoft access 2003/2007 Copy Syntac ini dan paste kan didalam modul1 project anda

 Imports System.Data.OleDb
' -------------------------
 Module Module1
        Public Function Koneksi() As OleDbConnection
               'koneksi database 2003 tanpa password

               'Dim kon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\pegawai.mdb;persist security info=false;"

              'koneksi database 2003 pake password

              'Dim kon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\pegawai.accdb;Jet OLEDB:Database Password=123" 

              'koneksi database 2007 pake password 
              Dim kon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\pegawai.accdb;Persist Security Info=True;Jet OLEDB:Database Password=123;"
               Dim konek As New OleDbConnection(kon)
               konek.Open()
               Return konek
     End Function

End Module

' -------------------------
'  Setelah itu tambahkan perintah ini ke dalam prosedure form_load pd form anda, jangan lupa untuk meletakan 1 buah component OleDbConnection1
Dim Adapter As New OleDbDataAdapter("select * from tbgaji order by kode asc", Module1.Koneksi)
      Dim dt As New DataTable("tbgaji")
      Adapter.Fill(dt)
      DataGridView1.DataSource = dt 'Menampilkan Data Ke dalam DataGridView1
-->> Semoga Bermanfaat
-->> Lanjut Ke Koneksi Mysql

Read More

Pengenalan Visual Studio 2008

Pemrograman dengan Visual Basic2008

Ada beberapa terminologi yang sebaiknya diketahui dengan jelas.

• Visual Basic

merupakan bahasa dan aturanpemrograman yang harus ditaati dalam menuliskanperintah-perintah agar program dapat dikompilasi.

•Visual Studio 2008

merupakan aplikasi IDE(Integrated Development Environment) yang digunakanuntuk mengembangkan software. Di dalam aplikasi IDEinilah tersedia berbagai fitur yang memudahkanpemrograman, seperti kompilasi, debugging, pengaturanprojek, mengedit antarmuka secara visual, dll.Selain dengan Visual Studio 2008, Anda juga dapatmenggunakan aplikasi IDE yang gratis tanpa biaya, yaitudengan Visual Basic 2008 Express Edition. Aplikasi inidapat diunduh (download) di internet melalui situshttp://www.microsoft.com/exPress/download/.Bahasa untuk Visual Basic terus berkembang bersamaanyang dirilisnya aplikasi IDE terbaru. Aplikasi IDE untukVisual Basic terus dikembangkan mulai dari versi 2002,2003, 2005, dan 2008. Versi yang lebih baru dari VisualBasic hadir dengan perbaikan, serta aplikasi IDE yanglebih mudah dan lengkap

NET Framework 

merupakan library dan virtualmachineyang terus berkembang mengikuti teknologiterbaru. Versi .NET Framework dimulai dari versi 1.0, 1.1,2.0, 3.0, dan 3.5. Versi .NET yang terbaru biasanya dirilisdengan perbaikan serta dukungan terhadap teknologi barusehingga semakin memudahkan pengembangan software

Visual Studio 2008

Visual Studio 2008 hadir dengan beberapa versi, yaitu:

• Team System

didesain untuk pemrograman dilingkungan korporasi dengan jumlah programmer yangbesar.

•Professional Edition

didesain untuk pemrogramanyang melibatkan sedikit programmer

•Standard Edition

didesain untuk pemrogramanstandar yang bukan enterprise

•Express Edition

didesain untuk pemula yang barubelajar dan hobi dengan fasilitas yang sangat terbatas.Visual Studio tidak hanya mendukung bahasa Visual Basicsaja, namun juga bahasa lain. Terutama C++ dan C#.

Membuat Program dengan VisualBasic .NET

Pemrograman dengan Visual Basic dibuat dengan beberapatahap berikut:

1.Menuliskan kode program dengan bantuan aplikasi IDE.Artinya, Anda menuliskan program menggunakan aplikasiMicrosoft Visual Studio 2008 atau Visual Basic 2008Express Edition.

2.Mengompilasi kode program tersebut menjadi programyang dapat dijalankan/dieksekusi. Hasil kompilasi adalahinstruksi CIL (Common Intermediate Language) atau MSIL(Microsoft Intermediate Language) yang hanya dimengerti oleh kompiler JIT (Just In Time) dan tidak dapat dieksekusilangsung pada komputer.

3.Penyebaran (distribusi) program di komputer dengan .NETFramework.

 

Tahapan dari penulisan kode program, kompilasi, lalueksekusi hasil kompilasi dengan JIT

MSIL atau sekarang disebut dengan CIL merupakan bahasayang bersifat netral (tidak tergantung sistem operasi dan

hardwarekomputer).Kompilasi JIT dilakukan olehCommon Language Runtime(CLR)untuk mengubah bahasa CIL yang bersifat netral (platformindependent ), menjadi kode yang dapat dibaca oleh perangkat keras (hardware) dan sistem operasi yangdigunakan (platform sekarang).

Read More