Input Gambar Ke PictureBox di VB.NET

Assalamu’alaikum Wr.Wb.

Artikel ini untuk menjawab pertanyaan dari penanya, yang ingin tau bagaimana cara input gambar di VB.NET. Memang ada perbedaan yang cukup besar antara VB6 dan VB.NET dalam cara untuk menginput gambar. Dimana pada VB6, anda hanya perlu perintah LoadPicture untuk menginput gambar, sedangkan pada VB.NET, ada satu perbedaan yang sangat besar. Anda harus menggunakan Library System.Drawing untuk bisa menampilkan gambar.

Contoh Tutorial PictureBox VBNET

Contoh Tutorial PictureBox VBNET

Berikut adalah langkah untuk membuat program berikut seperti di atas:

1. Buat Project baru, dan tambahkan komponen berikut ini

- OpenFileDialog1
- PictureBox1
- CheckBox1
- Button1
- Label1

untuk PictureBox1, ubahlah atribut BorderStyle menjadi Fixed3D, begitu juga dengan Label1, ubah atribut BorderStyle menjadi Fixed3D dan ubah juga atribut AutoSize menjadi false.

Sesuaikan dengan tampilan desain berikut ini:

picbox_vbnet_dsn

Tampilan Desain

2. Selanjutnya, anda masuk ke dalam jendela kode program. Anda harus mengimpor System.Drawing.Bitmap supaya bisa menggunakan function FromFile. Tambahkan pada bagian paling atas program anda:

Imports System.Drawing.Bitmap

3. Selanjutnya, tambahkan kode pada event Form1_Load, berikut kodenya:

 ' pengaturan OpenFileDialog1
 OpenFileDialog1.Title = "Masukkan foto anda"
 OpenFileDialog1.Filter = "JPEG File|*.jpg;*.jpeg"
 ' pengaturan PictureBox supaya tampilannya strecthimage
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

4. Lalu tambahkan event Button1_Click pada Button1, kodenya:

If OpenFileDialog1.ShowDialog Then
 PictureBox1.Image = FromFile(OpenFileDialog1.FileName)
 Call CheckBox1_CheckedChanged(sender, e)
 Label1.Text = "Nama file: " & OpenFileDialog1.FileName
End If

5. Tambahkan pula pada CheckBox1_CheckedChanged:

 If CheckBox1.CheckState = CheckState.Checked Then
   PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 Else
   PictureBox1.SizeMode = PictureBoxSizeMode.Normal
 End If

6. OK, simpan proyek anda dan tekan tombol F5 untuk mencoba program anda. Untuk jelasnya perhatikan kode program selengkapnya berikut ini:

Imports System.Drawing.Bitmap

Public Class Form1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 If OpenFileDialog1.ShowDialog Then
 PictureBox1.Image = FromFile(OpenFileDialog1.FileName)
 Call CheckBox1_CheckedChanged(sender, e)
 Label1.Text = "Nama file: " & OpenFileDialog1.FileName
 End If
 End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 ' pengaturan OpenFileDialog1
 OpenFileDialog1.Title = "Masukkan foto anda"
 OpenFileDialog1.Filter = "JPEG File|*.jpg;*.jpeg"
 ' pengaturan PictureBox supaya tampilannya strecthimage
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 End Sub

 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
 If CheckBox1.CheckState = CheckState.Checked Then
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 Else
 PictureBox1.SizeMode = PictureBoxSizeMode.Normal
 End If
 End Sub
End Class

Moga Bermanfaat, Wassalam.

Demo PictureBox, ListBox, dan FileIO

Assalamu’alaikum Wr.Wb.

Pada demo kali ini, kita akan mempelajari komponen: ListBox, PictureBox, dan sedikit mengenai FileIO. Berikut detail pengetahuan tentang komponen yang digunakan:

ListBox1

- Cara menghapus items

- Cara mengetahui item apa yang dipilih dalam string

- Cara mengetahui apakah Item terpilih atau indexnya berubah

PictureBox

- Cara menghapus gambar di PictureBox

- Cara mengubah gambar

- Cara menampilkan gambar dengan Stretch

FileIO

- Cara mencari file tertentu

- Cara menemukan lokasi MyPictures yang aktif sekarang

Caranya yaitu:

1. Buat project baru dengan menu File -> New Project

2. Pilih icon Windows Forms Application, dan ketikkan di kotak Name “DemoPict” dan klik OK

3. Tambahkan pada form komponen berikut ini: ListBox1, PictureBox1, dan Button1 (Name = “btnCari”)

4. Ketikkan program berikut ini:

Public Class Form1
    Private Sub btnCari_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnCari.Click
        ' menghapus items
        ListBox1.Items.Clear()
        ' menghapus gambar yang sudah di load
        PictureBox1.ImageLocation = ""

        ' mencari gambar jpg, gif dan bmp di folder MyPictures
        For Each Gambar As String In _
            My.Computer.FileSystem.GetFiles( _
            My.Computer.FileSystem.SpecialDirectories.MyPictures, _
            FileIO.SearchOption.SearchAllSubDirectories, _
            "*.jpg*", "*.gif", "*.bmp*")

            ' menambah path gambar yang ketemu di ListBox
            ListBox1.Items.Add(Gambar)
        Next

        ' Beritahu kalo tidak ada gambar di MyPictures
        If ListBox1.Items.Count < 1 Then
            MsgBox("Tidak ada gambar di fole MyPictures", _
            MsgBoxStyle.Information, "Hasil Pencarian")
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ' mengubah gambar PictureBox1 sesuai dengan item ListBox1
        PictureBox1.ImageLocation = ListBox1.SelectedItem
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        ' mengubah mode ukuran PictureBox menjadi StretchImage
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub
End Class

5. Tekan tombol F5. Selesai

Wassalamu’alaikum Wr.Wb

Penggunaan Variabel String

Assalamu’alaikum Wr.Wb.

String merupakan sebuah variabel untuk menampung kumpulan-kumpulan karakter. Berikut adalah contoh penggunaan string dalam VB.NET

1. Buat sebuah project baru dengan menu File -> New Project

2. Pilih icon Console Application, ketikkan dalam kotak name “DemoString” dan klik tombol OK

3. Ketikkan perintah di bawah ini:

Module Module1

    Sub Main()
        Dim Kalimat As String

        System.Console.WriteLine("Masukkan sembarang kalimat: ")
        Kalimat = System.Console.ReadLine()

        System.Console.WriteLine()
        System.Console.WriteLine("--------------------------------------")
        System.Console.WriteLine("Informasi Kalimat")
        System.Console.WriteLine("--------------------------------------")
        System.Console.WriteLine("Isi           : " & Kalimat)
        System.Console.WriteLine("Panjang       : " & Kalimat.Length)
        System.Console.WriteLine("Kapital       : " & Kalimat.ToUpper)
        System.Console.WriteLine("Kecil         : " & Kalimat.ToLower)
        ' mengetahui posisi suatu string di dalam string
        System.Console.WriteLine("VB.NET di     : " & InStr(Kalimat, "VB.NET"))
        System.Console.WriteLine()
        System.Console.WriteLine("Selesai [ENTER]")

        System.Console.ReadLine()
    End Sub

End Module

4. Tekan tombol F5 untuk menjalankan program ini.

5. Selesai

Wassalamu’alaikum Wr.Wb

Hello World Via Console With VB.NET

Untuk Pemula

Assalamu’alaikum Wr.Wb.

Pembuatan aplikasi Console HelloWorld dengan menggunakan VB.NET 2003 / 2005/ 2008, jika anda ingin mencoba, silakan coba contoh program berikut ini:

Langkah:

1. Pada IDE VB.NET pilih menu File -> New Project

2. Pilih icon Console Application, ketikkan kata “HelloWorld” pada kotak project name di bawahnya. Klik tombol OK

3. Sebelum menulis kode programnya, silakan anda simpan terlebih dahulu project anda sesuai dengan direktori yang anda inginkan.

4. Ketikkan kode berikut ini:

Module Module1

    Sub Main()
        ' Perintah untuk memberikan output pada layar
        System.Console.WriteLine("Microsoft Visual Basic 200 3/5/8 .NET")
        System.Console.WriteLine()
        System.Console.WriteLine("Hello World")
        System.Console.WriteLine()
        System.Console.WriteLine("Tekan [ENTER] untuk keluar")

        ' Tunggu tombol ENTER di tekan untuk selsai       
        System.Console.ReadLine()
    End Sub

End Module

5. Setelah selesai, tekan tombol F5.

6. Selesai.

Assalamu’alaikum Wr.Wb.

Visual Basic NET / 2005 – 01 – Hello World Application

Hello World – GUI

Biasanya, jika seseorang baru pertama kali mempelajari suatu bahasa, akan diberikan aplikasi pertama kali sebagai perkenalan sekaligus aplikasi paling sederhana. Yang berfungsi untuk menampilkan pesan “Hello World” pada pemrogram. Berikut ini adalah langkah awal untuk membuat aplikasi “HelloWorld”:

  1. Buka aplikasi Microsoft Visual Studio 2005 (Bisa yang versi Professional / Express)
    00. Main
    01. Tampilan IDE Visual Studio 2005
  2. Setelah selesai dibuka, silakan pilih menu File -> New Project. Lalu tampil jendela New Project, kemudian pilih akar Visual Basic -> Windows. Dalam kotak Templates pilih icon Windows Application. Ketikkan nama “HelloWorld” pada kotak isian Name. Tekan tombol OK. Lihat gambar di bawah ini:
    New Windows Applications
    02. New Windows Applications
  3. Setelah anda menekan tombol OK, maka anda akan melihat sebuah tampilan form pada layar Design di IDE VB2005. Nah, inilah media di mana anda meletakkan komponen visual yang akan anda gunakan pada aplikasi anda nanti. Lihat tampilan berikut:
    Form1
    03. Form
  4. Klik sembarang pada Form1, kemudian pada jendela Properties, ubah atribut Text menjadi “Hello World Application“.
  5. Setelah itu anda akan melihat perubahan pada Tittle Bar Form1 menjadi “Hello World Application“. Hal ini berarti anda sukses mengubah judul pada Form1.
  6. Beralih pada jendela Toolbox, lebarkan tanda plus ( + ) pada sub Common Controls. Kliklah icon Button, sampai tersorot tulisan dan icon Button.
    Toolbox
    04. Button
  7. Kemudian letakkan komponen Button1 pada Form1 dengan cara mengklik pada media kosong di Form1. Maka anda akan melihat pada Form1 sebuah tombol Button1 pada posisi di mana anda mengklik form tersebut.
  8. Sorotlah Button1, kemudian pada kotak Properties, ubah atribut Text menjadi “Klik”. Lihat gambar ini:
    Button Klik
    05. Komponen Button1 bertuliskan “Klik”
  9. Klik ganda pada Button1, kemudian akan tampil jendela editor kode program Form1.vb, ketikkan pada bagian di mana kursor berada program berikut ini:
    MsgBox("Hello World", MsgBoxStyle.Information, "Tutorial")
  10. Perhatikan kode program selengkapnya berikut ini, kode program yang anda ketik berwarna biru. Selebihnya hasil dari VB2005 secara otomatis.
    Public Class Form1
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Hello World", MsgBoxStyle.Information, "Tutorial")
      End Sub
    End Class
  11. OK, sampai di sini program anda sudah selesai. Sekarang kita akan menjalankan program ini. Caranya tekan tombol F5 pada keyboard atau pilih menu Debug -> Start Debugging.
  12. Dan, anda akan melihat tampilan seperti di bawah ini. Untuk melihat hasilnya, tekan tombol OK, maka anda akan melihat sebuah pesan Hello World.
    Run01
    06. Aplikasi Hello World
  13. Selamat. Ini adalah program pertama anda.
  14. Continue ke Tutorial Berikutnya >>

Tutorial Pemrograman Microsoft Visual Basic 2005

Apa itu Microsoft Visual Basic 2005 ?

Microsoft Visual Basic 2005 (saya singkat menjadi VB2005) adalah sebuah pengembangan dari bahasa Visual Basic, yang digunakan untuk membuat aplikasi yang aman dan berorientasi objek atau lebih dikenal dengan VB.NET 2005. VB2005 bisa digunakan untuk membuat aplikasi berbasis window, web, dan bahkan bisa juga digunakan untuk membuat aplikasi mobile (misalnya ponsel, pda dan perangkat mobile lainnya). Tetapi pada versi VB2005 (jika anda pernah menggunakan Visual Basic 6 / VB6), menggunakan teknologi .NET Framework. Sudah berbeda sekali dengan VB6 yang masih menggunakan teknologi Win32 (berorientasi pada komponen OCX). Tingkat keamanan dan model bahasa VB2005 yang menyerupai teknik bahasa C++, dan sudah menggunakan Pemrograman Berorientasi Objek /OOP.Nah, dari keterangan di atas, kita tentunya tahu manfaat dari mempelajari bahasa pemrograman VB2005. Banyak hal yang bisa kita lakukan dengan VB2005 ini. Mulai dari anda yang ingin mempelajarinya karena matakuliah (terpaksa jadinya.. hehe :D), tuntutan dari perusahaan di mana anda sekarang bekerja, self education, menambah perbendaharaan pengetahuan, atau juga bagi anda yang sekedar hobi.

Karena di sini saya hanya membahas masalah teknis saja, maka untuk keterangan lebih lanjut, silakan para netter sekalian mengunjungi situs www.microsoft.com.

Apa Yang Bisa Anda Dapat Di Sini ?

Hmm, mungkin subtittle ini terlalu berlebih bukan? Tapi, baiklah. Mungkin tidak banyak yang bisa netter dapat di sini. Tetapi jika anda seorang newbie dalam pemrograman VB2005, mungkin akan cukup membantu dalam memahami cara atau dasar membuat program menggunakan VB2005. Topik yang akan saya berikan, sekitar penggunaan Common Control, Database, dan beberapa hal yang penting lainnya.

Selanjutnya : Tutorial 01 – Hello World Application >>

Ikuti

Get every new post delivered to your Inbox.