Hapus item Listbox

Kali ini saya akan menerangkan bagaimana cara menghapus item yang ada di listbox., baik menghapus salah satu atau pun semua item. Berikut ini kode program yang dapat teman-teman gunakan untuk menghapus item.

Menghapus item yang di pilih

ListBox1.Items.Remove(ListBox1.SelectedItem)

Menghapus semua item di listbox

ListBox1.Items.Clear()

Kalo belum mengerti silahkan di sedot saja..

Ubah urutan item listbox dengan Drag Drop

Aduuh , lagi males basa-basi nih. Langsung ke TKP saja iya ??
hhe

Kode program di bawah ini adalah untuk mengubah urutan item pada listbox dengan cara drag n drop .

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

ListBox1.AllowDrop = True
ListBox2.AllowDrop = True

End Sub

Private Sub listbox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown, ListBox2.MouseDown

Dim lst As ListBox = DirectCast(sender, ListBox)

If e.Button = Windows.Forms.MouseButtons.Left Then
Dim index As Integer = lst.IndexFromPoint(e.X, e.Y)
If index <> ListBox.NoMatches Then
Dim item As String = lst.Items(index)
Dim drop_effect As DragDropEffects = lst.DoDragDrop(lst.Items(index), DragDropEffects.Move Or DragDropEffects.Copy)

If drop_effect = DragDropEffects.Move Then
If lst.Items(index) = item Then
lst.Items.RemoveAt(index)
Else
lst.Items.RemoveAt(index + 1)
End If
End If
End If
End If

End Sub

Private Sub listbox1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragOver, ListBox2.DragOver

If Not (e.Data.GetDataPresent(GetType(System.String))) Then
e.Effect = DragDropEffects.None
ElseIf (e.AllowedEffect And DragDropEffects.Move) = DragDropEffects.Move Then
e.Effect = DragDropEffects.Move
End If

End Sub

Private Sub listbox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop, ListBox2.DragDrop

If e.Data.GetDataPresent(GetType(System.String)) Then
If (e.Effect = DragDropEffects.Copy) Or (e.Effect = DragDropEffects.Move) Then
Dim lst As ListBox = DirectCast(sender, ListBox)
Dim item As Object = CType(e.Data.GetData(GetType(System.String)), System.Object)
Dim pt As Point = lst.PointToClient(New Point(e.X, e.Y))
Dim index As Integer = lst.IndexFromPoint(pt.X, pt.Y)
If index = ListBox.NoMatches Then
lst.Items.Add(item)
Else
lst.Items.Insert(index, item)
End If
End If
End If

End Sub

Kurang lebih itulah kode nya. Selamat mencoba ...

Menampilkan menu pada form dengan klik kanan

Salah seorang teman saya bertanya "bagaimana cara menampilkan sebuah menu ketika klik kanan pada form ?? " .
VB.Net menyediakan banyak pilihan menu, salah satunya adalah Context MenuStrip dan menu inilah yang akan kita pakai pada program ini.

Karena kita memerlukan tool Context MenuStrip pada form , maka langkah pertama adalah memasukan tool ini pada project kita, lalu masukan menu dan sub menu yang akan di pakai.
Dan terakhir ketikan kode berikut pada form mousedown.

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If e.Button = Windows.Forms.MouseButtons.Right Then
ContextMenuStrip1.Show(Cursor.Position, ToolStripDropDownDirection.AboveRight)
End If

End Sub

Kata yang warna biru artinya posisi menu akan mengikuti posisi dari mouse dan Kata yang saya warnai merah adalah posisi menu dari mouse, pada script di atas saya menampilkan menu di kanan atas posisi kursor.
Jika temen-temen tidak suka dengan posisi tersebut , temen-temen bisa ganti kode tersebut dengan ToolStripDropDownDirection.AboveLeft (kiri atas), atau ToolStripDropDownDirection.BottomRight (bawah kanan) , dll.

Sekian dulu artikel ini , mudah-mudahan bermanfaat. Selamat Berkreasi ..

Menampilkan File Properties di VB.Net

Ketika kita melihat properti suatu file melalui Windows, kita bisa mendapatkan informasi seperti tipe file, dapat dibuka dengan program apa, lokasi, ukuran, dibuat dan dimodifikasi tanggal berapa, serta atribut file.
Artikel kali ini menjelaskan bagaimana cara membuat suatu aplikasi yang dapat menampilkan informasi dari file itu sendiri.

langkah-langkah dalam pembuatan aplikasi ini :
1. Kita tambahkan Reference Microsoft scripting runtime

• pilih menu project - add reference - pilih tab com - lalu cari microsoft scripting runtime dan tambahkan ke dalam project

2. Ketikan kode berikut pada form load

Dim objFSO As New Scripting.FileSystemObject
Dim objFile As Scripting.File
objFSO = New Scripting.FileSystemObject
objFile = objFSO.GetFile("E:\†† kuliaa ††\VB.net Project\Alfa\Alfa.sln")
Label1.Text = objFile.Size & " bytes "
Label2.Text = objFile.Type
Label3.Text = objFile.Name
Label4.Text = objFile.DateCreated
Label5.Text = objFile.DateLastAccessed
Label6.Text = objFile.DateLastModified

Kata yang di cetak merah ganti dengan lokasi file yang akan di tampilkan informasi file nya ..

3. Selesai ...

ini hanyalah potongan program sederhana yang saya buat , temen-temen bisa kembangkan lagi lebih baik.

Label Gerak VB.Net

Untuk mempercantik aplikasi VB temen-temen mungkin bisa juga dengan menambahkan sebuah teks atau label yang bergerak. baik gerak dari kanan ke kiri ataupun dari bawah ke atas.

Silahkan di copas kodenya , tapi alangkah lebih baiknya jika tidak hanya menyalin saja. Temen-temen juga harus mempelajarinya

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'Gerak dari kanan ke kiri
Label1.Text = " .:: Teks anda disini ::. "
Label1.Left = Label1.Left - 2
If Label1.Left + Label1.Width < 0 Then
Label1.Left = Panel2.Width
End If

' Gerak dari bawah ke atas
Label2.Text = " .:: Teks anda disini ::. "
Label2.Top = Label2.Top - 2
If Label2.Top + Label2.Height < 0 Then
Label2.Top = Panel1.Height
End If

End Sub

End Class

temen-temen bisa merubah kecepatan dari geraknya di properti timer1 dan ubah timer1.interval. Semakin kecil nilainya akan semakin cepat geraknya.

Create Visualization VB.Net

Pada kesempatan ini saya akan membahas tentang bagaimana cara membuat visualization di VB.Net ..
visualization adalah grafik visual yang berubah-ubah (arti sempitnya saja) yang biasanya tersedia pada software-software media player.

Contoh gambarnya kurang lebih seperti di atas

bagaimana membuatnya di VB.Net ??

Public Class Form1

Dim g As Graphics
Dim p As New Pen(Color.DarkGreen, 5)
Dim r As Random = New Random()

Sub Change()
Dim x As Integer = 0
For x = 0 To 25
Select Case r.Next(0, 10)
Case x
p = New Pen(Color.DarkGreen, 5)
End Select
Next
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

g = PictureBox1.CreateGraphics()
Change()
Dim i, a, o As Integer
For x As Integer = 0 To 100
g.DrawLine(p, i, Me.Height, i, r.Next(o, Me.Height * a))
Change()
i = i + 5
a = a + 1
o = o * 3
Next

System.Threading.Thread.Sleep(200)
g.Clear(Color.Black)

End Sub

End Class

mudah-mudahan postingan ini dapat menjawab pertanyaan dari sahabat blogger dan berguna juga untuk yang lain..

selamat mencoba...

Matrix

Dalam matematika, sebuah matriks adalah array persegi panjang angka, misalnya

Matriks adalah alat kunci dalam aljabar linear. Salah satu penggunaan matriks adalah merupakan transformasi linier, yang analog lebih tinggi-dimensi fungsi linear dari bentuk f (x) = cx, di mana c adalah suatu konstanta; perkalian matriks sesuai dengan komposisi transformasi linear. Matriks juga dapat melacak koefisien dalam sistem persamaan linier. Untuk matriks persegi, determinan dan invers matriks (jika ada) mengatur perilaku solusi untuk sistem persamaan linier yang sesuai, dan nilai eigen dan vektor eigen memberikan wawasan tentang geometri transformasi linear yang terkait.


Pertanyaannya , bagaimana mengimplementasikan matrix pada console application vb.net.
Inilah jawabannya .

cekidot . !!!


Script di bawah ini merupakan operasi penjumlahan dalam matrix.
silahkan copy paste script berikut pada aplikasi console vb anda .

Module Module1

    Sub Main()
        Dim x, y, z, a(,), b(,), c(,), i, j As Integer

        Console.Write("Masukan Panjang Matrix: ")
        i = Console.ReadLine()
        Console.Write("Masukan Lebar Matrix: ")
        j = Console.ReadLine()
        ReDim a(i, j)
        ReDim b(i, j)
        ReDim c(i, j)
        For x = 1 To i
            For y = 1 To j
                Console.SetCursorPosition(3 * y, 5 + x)
                a(x, y) = Console.ReadLine()
            Next
        Next
        z = 3 * j
        Console.SetCursorPosition(z + 2, 5 + 1)
        Console.WriteLine("+")

        For x = 1 To i
            For y = 1 To j
                Console.SetCursorPosition(2 + z + 3 * y, 5 + x)
                b(x, y) = Console.ReadLine()
            Next
        Next
        z = 2 + z + 3 * j

        Console.SetCursorPosition(z + 2, 5 + 1)
        Console.WriteLine("=")

        For x = 1 To i
            For y = 1 To j
                Console.SetCursorPosition(2 + z + 3 * y, 5 + x)
                c(x, y) = a(x, y) + b(x, y)
                Console.WriteLine(c(x, y))
            Next
        Next
        Console.ReadKey()
    End Sub

End Module

mudah-mudahan postingan ini dapat menjawab pertanyaan dari sahabat blogger dan berguna juga untuk yang lain..

selamat mencoba...

Mengganti warna selected item listbox

Buat temen² yang ga suka liat warna birunya selected item list box di VB ?? Pengen ganti warnanya ?? ini saya berikan kode nya, biar temen² semua bebas berkreasi dengan VB .
pertama-tama ubah properti DrawMode Listbox menjadi : OwnerDrawFixed .
lalu copy kan kode berikut, dan lihat hasilnya .

Private Sub ListBox2_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox2.DrawItem

Dim Brush As New SolidBrush(Color.FromKnownColor(KnownColor.Control))
Brush.Color = Color.DarkGreen
e.DrawBackground()
e.Bounds.Y + ListBox2.ItemHeight)

If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
e.Graphics.FillRectangle(Brush, e.Bounds)
End If

Using b As New SolidBrush(e.ForeColor)
e.Graphics.DrawString(ListBox2.GetItemText(ListBox2.Items(e.Index)), e.Font, b, e.Bounds)
End Using

e.DrawFocusRectangle()

End Sub

Kata yang dicetak biru adalah warna yang akan di pakai , silahkan temen² ganti sesuai keinginan.
Selamat berkreasi

Sistem Tray VB.Net

Sebelumnya saya telah menulis artikel tentang sistem tray dengan menggunkan vb 6 sekarang saya akan mencoba membahasnya di VB.Net.
Bila d bandingkan antara vb.net dan vb 6 , vb.net lebihmudah dalam hal penulisan kodenya . ga percaya ?? coba bandingkanantara kode vb 6 dan vb.net , anda bisa lihat disini .
Gimana ?? perbedaannya jelas sekali kan ??


Dalam pembuatan program ini kita memerlukan sebuah tool yaitu notify icon , notify icon ini sudah disediakan di VB.Net , berbeda dengan VB6 yang tidak memiliki tool ini.

Di bawah ini adalah kode yang di tulis di notify icon.

Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click

        Me.WindowState = FormWindowState.Normal
        Me.ShowInTaskbar = True
        Me.NotifyIcon1.Visible = False

End Sub

Dan kode ini di tulis di button yang di gunakan untuk proses tray programnya .

Private Sub BtnMin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMin.Click

        Dim ico As Icon
        Me.WindowState = FormWindowState.Minimized
  
        Dim file_path As String = Application.StartupPath
        file_path = file_path.Substring(0, file_path.LastIndexOf("\") + 1)
        ico = New Icon(file_path & "AA.ico")
        Me.NotifyIcon1.Icon = ico
        Me.NotifyIcon1.Visible = True
        Me.ShowInTaskbar = False

End Sub

Selamat mencoba .

Browse Folder

Folder Browser Dialog yang telah disediakan VB.Net merupakan sebuah tool untuk membuka jendela dialog sehingga pengguna dapat browse ke folder tertentu.
dengan tool ini kita bisa memasukan data-data yang ada pada drive komputer kita dan memasukannya di program yang kita buat. dimasukannya dimana ya terserah temen² , mau di listbox , listview, ataupun text box terserah 
  Disini saya contohkan di list box.



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

If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

  Try
     Dim Files As String()
     Files = System.IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath)
     Dim File As String

  For Each File In Files
       ListBox1.Items.Add(File)
  Next
  Catch

  End Try
  
Else
     Exit Sub
End If

End Sub

Cek disk

Langkah pertama , siapkan 1 buah button dan 1 buah listbox dalam form project

dibagian general tuliskan "Imports System.IO" (tanpa tanda petik)
double click pada button1 , lalu copy kode di bawah ini ..

Dim allDrives() As IO.DriveInfo = IO.DriveInfo.GetDrives()
Dim d As IO.DriveInfo

For Each d In allDrives
   If d.IsReady = True AndAlso d.DriveType = IO.DriveType.Removable Then
      ListBox1.Items.Add(d.VolumeLabel).ToString()
    Else
      If d.IsReady = True And Not d.DriveType = DriveType.Removable Then
         ListBox1.Items.Add(d.RootDirectory).ToString()
      End If
   End If
Next

Selamat mencoba

Shutdown, Restart Dan Log off

Saya rasa semua orang sudah mengerti dan tahu apa itu arti shutdown. Yang akan kita bahas di artikel ini adalah bagaimana melakukan perintah shutdown dalam program yang kita buat.

Public Class formShutdown

Private Sub btnShutdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShutdown.Click
        System.Diagnostics.Process.Start("shutdown", "-s -t 00")
        'Shutdown Komputer
End Sub

Private Sub btnRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestart.Click
        System.Diagnostics.Process.Start("shutdown", "-r -t 00")
        'Restart Komputer
End Sub

Private Sub btnLogOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogOff.Click
         System.Diagnostics.Process.Start("shutdown", "-l -t 00")
         'Log Off Komputer
End Sub

End Class

Penjelasan program :
-s adalah perintah untuk melakukan shutdown
-r adalah perintah untuk melakukan restart
-l adalah perintah untuk melakukan logoff
-t adalah waktu yang diperlukan untuk melakukan eksekusi

Kode di atas adalah contoh sederhana untuk melakukan shutdown, reboot dan logoff menggunakan VB.Net, temen² bisa kembangkan lagi potongan kode program di atas,  misalnya temen² bisa gabungkan dengan timer, sehingga akan menjadi sebuah program auto shutdown , Contohnya bisa di lihat disini
selamat berkreasi .

Mencari Bilangan Genap dengan menggunakan Prosedur

Module Module1

Private Sub genap(ByVal a As Integer, ByVal i As Integer)

       Console.Write("bilangan : ")
        i = Console.ReadLine
        For a = 1 To i
            If a Mod 2 = 0 Then
                Console.WriteLine(a)

            End If
        Next
End Sub


Sub Main()
        Dim a, i As Integer
    
        genap(a, i)

        Console.ReadKey()

End Sub

End Module

mudah-mudahan postingan ini dapat menjawab pertanyaan dari sahabat blogger dan berguna juga untuk yang lain..

selamat mencoba...

Fungsi Terbilang Console Application

Module Module1

Public Function Terbilang(ByVal x As Integer) As String

 Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}

        Dim temp As String = ""

        If x < 12 Then

            temp = bilangan(x)

        ElseIf x < 20 Then

            temp = Terbilang(x - 10) + " belas "

        ElseIf x < 100 Then

            temp = Terbilang(x / 10) + " puluh " + Terbilang(x Mod 10)

        ElseIf x < 200 Then

            temp = " seratus" + Terbilang(x - 100)

        ElseIf x < 1000 Then

            temp = Terbilang(x / 100) + " ratus " + Terbilang(x Mod 100)

        ElseIf x < 2000 Then

            temp = " seribu " + Terbilang(x - 1000)

        ElseIf x < 1000000 Then

            temp = Terbilang(x / 1000) + " ribu " + Terbilang(x Mod 1000)

        ElseIf x < 1000000000 Then

            temp = Terbilang(x / 1000000) + " juta " + Terbilang(x Mod 1000000)

        End If

        Return temp

    End Function

    Sub main()
        Dim bilang As String
        Dim nilai As Long

        Console.Write("Masukan bilangan : ")
        nilai = Console.ReadLine
        bilang = Terbilang(nilai)
        Console.Write(bilang)
        Console.ReadKey()

    End Sub

End Module

Searching Listbox

Bagaimana jika kita memiliki banyak data dalam sebuah listbox dan kita akan melakukan eksekusi pada salah satu data dalam listbox tersebut ?
Sungguh tidak mungkin jika kita akan mencari satu per satu dari data tersebut ..

lalu bagaimana pencarian data dalam listbox ???
chekidot . !!! 














' Deklarasi

Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const LB_SELECTSTRING = &H18C

Private Sub Command1_Click()
     Text1.Text = List1.Text
     MsgBox "You selected " & vbCrLf _
     & Text1.Text
     Text1.SetFocus

End Sub

' ini bagian terpenting untuk pencarian data di listbox

Private Sub Text1_Change()

     Dim lngEntryNum     As Long
     Dim strTextToFind   As String
     strTextToFind = Text1.Text
     lngEntryNum = SendMessageByString(List1.hwnd, LB_SELECTSTRING,0,strTextToFind)

End Sub

Contoh Program ..

Kalkulator VB.NET

Public Class form1
    Dim temp1, temp2 As Double
    Dim Xoperator As String
    Private inputStatus As Boolean

' Input Angka 0 - 9
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Buttonx.Click, Buttonxx.Click, Buttonkoma.Click
  
 If inputStatus = False Then
            TextBox1.Text += sender.text
        Else
            TextBox1.Text = sender.text
            inputStatus = False
        End If
    End Sub


Private Sub hitung()
        temp2 = Val(TextBox1.Text)
        Select Case (Xoperator)
        Case "+"
                temp1 = temp1 + temp2
         Case "-"
                temp1 = temp1 - temp2
         Case "/"
                temp1 = temp1 / temp2
         Case "*"
                temp1 = temp1 * temp2
        End Select
        TextBox1.Text = CStr(temp1)
        inputStatus = True
End Sub

Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click, bagi.Click, kurang.Click, kali.Click
        If TextBox1.Text.Length <> 0 Then
            If Xoperator = String.Empty Then
                temp1 = Val(TextBox1.Text)
                TextBox1.Text = String.Empty
            Else
                hitung()
            End If
            Xoperator = sender.text
        End If
    End Sub


Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        If TextBox1.Text.Length <> 0 AndAlso temp1 <> 0 Then
            hitung()
            Xoperator = ""
        End If
End Sub


Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        TextBox1.Text = ""
        temp1 = 0
        temp2 = 0
End Sub

Private Sub BtnBackSpace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackSpace.Click
        Dim xx As Integer
        xx = TextBox1.Text.Length
        If xx > 0 Then
            TextBox1.Text = TextBox1.Text.Remove(xx - 1, 1)
        End If
End Sub

End Class

. Download Program .

 

Data & Variabel

Ketika seoranguser (pengguna) menggunakan sebuah program komputer, seringkalikomputer memintanya untuk memberikan informasi. Informasi ini kemudiandisimpan atau diolah oleh komputer. Informasi inilah yang disebutdengan DATA

Visual Basic 6 mengenal beberapa type data, antara lain :

1. String adalah type data untuk teks (huruf, angka dan tanda baca). 
2. Integer adalah type data untuk angka bulat. 
3. Single adalah type data untuk angka pecahan. 
4. Currency adalah type data untuk angka mata uang.
5. Date adalah type data untuk tanggal dan jam. 
6. Boolean adalah type data yang bernilai TRUE atau FALSE. 

Data yang disimpan di dalam memory komputer membutuhkan sebuah wadah. Wadah inilah yang disebut dengan VARIABEL. Setiap variabel untuk menyimpan data dengan type tertentu membutuhkan alokasi jumlah memory (byte) yang berbeda. 

Variabel dibuat melalui penulisan deklarasi variabel di dalam kode program :  

Dim As

Contoh : Dim nama_user As String  

Aturan di dalam penamaan variabel :  

1. Harus diawali dengan huruf.
2. Tidak boleh menggunakan spasi. Spasi bisa diganti dengan karakter underscore (_)
3. Tidak boleh menggunakan karakter-karakter khusus (seperti : +, -, *, /, <, >, dll). 
4. Tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh Visual Basic 6 (seperti : dim, as,
   string, integer, dll).

 Sebuahvariabel hanya dapat menyimpan satu nilai data sesuai dengan typedatanya. Cara mengisi nilai data ke dalam sebuah variabel :

=  

Contoh : nama_user = “krisna”  

Untuk typedata tertentu nilai_data harus diapit tanda pembatas. Type data stringdibatasi tanda petikganda : “nilai_data”. Type data date dibatasi tandapagar : #nilai_data#. Type data lainnya tidak perlu tanda pembatas.  

Sebuah variabel mempunyai ruang-lingkup (scope) dan waktu-hidup (lifetime) :

•  Variabel globaladalah variabel yang dapat dikenali oleh seluruh bagian program. Nilaidata yangtersimpan didalamnya akan hidup terus selama program berjalan.

• Variabel lokaladalah variabel yang hanya dikenali oleh satu bagian program saja.Nilai data yang tersimpan didalamnya hanya hidup selama bagian programtersebut dijalankan.

 Variabelyang nilai datanya bersifat tetap dan tidak bisa diubah disebutKONSTANTA. Penulisan deklarasi konstanta di dalam kode program :

Const As =   < Nama Konstanta > As < Tipe_data > = < nilai data >

Contoh : Const tgl_gajian As Date = #25/09/2003#

Array

1.1 Apa itu Array ? 

Arraymerupakan sekumpulan nilai data yang “dikelompokkan” dalam sebuahvariabel. Array digunakan bila ada beberapa nilai data yang tipedatanya sama dan akan mendapat perlakuan yang sama pula. Misalnya, ada10 nilai data dengan tipe string dan akan diolah dengan cara yang sama,maka akan lebih mudah jika menggunakan sebuah array dibandingkan bilamenggunakan 10 variabel yang berbeda. Setiap nilai data di dalam sebuaharray disebut elemen array dan masing-masing dibedakan dengan nomerindeksnya.

1.2 Menggunakan Array

Sebuah array dideklarasikan dengan cara yang sama dengan variabel, yaitu menggunakan perintah Dim,
kemudian diikuti dengan tanda kurung dan jumlah elemen arraynya dikurangi 1 :

Dim nama_array(jumlah_elemen - 1) As tipe_data

Contoh : 

Dim NamaSiswa(99) As String  (array NamaSiswa akan mempunyai elemen sebanyak 100 dengan nomer indeks mulai dari 0 s/d 99).

Selanjutnya untuk mengisi nilai data ke dalam array :

nama_array(no_indeks) = nilai_data

Contoh :

NamaSiswa(0) = “umar” 

Namasiswa(1) = “fatimah” 

…

Untuk “mengosongkan” nilai data, bisa menggunakan struktur kontrol For…Next :

For i = 0 To 99

       NamaSiswa(i) = “”

Next i 

Lebih mudah bukan ?

Catatan :

• Agar nomer indeks array dimulai dari 1 (bukan 0), bisa menggunakan perintah Option Base 1sebelum perintah Dim-nya, contoh : 

          Option Base 1

          Dim NamaSiswa(100) As String

•  Atau bisa juga menggunakan kata To di dalam penentuan jumlah elemen array, contoh :

          Dim NamaSiswa(1 To 100) As String

• Untuk mengetahui berapa jumlah elemen di dalam sebuah array, bisa menggunakan perintah Ubound(nama_array), contoh : 

          Dim NamaSiswa(1 To 100) As String 

          Dim JmlElemen As Integer 
 

          JmlElemen = Ubound(NamaSiswa)      >>  hasilnya 100

• Bilajumlah elemen array yang dibutuhkan tidak diketahui atau ingin bisadiubah-ubah, maka bagian jumlah_elemen pada perintah Dim tidak perludiisi, contoh :

          Dim NamaSiswa() As String 

• Untuk mengubah jumlah elemen array digunakan perintah Redim :

           Redim [Preserve] nama_array(jumlah_elemen) 

          

          Contoh :

          Redim NamaSiswa(1 To 150)

          (jumlah elemen array NamaSiswa menjadi 150 dengan nomer indeks dari 1 s/d 150)

Mp3 Player

1 bulan yang lalu , terpikir di benak saya untuk membuat sebuah aplikasi pemutar mp3 dengan vb 6. setelah beberapa kali mengalami kegagalan , akhirnya selesai jg Mp3 player ini , walaupun Mp3 player ini masih jauh dari sempurna. Oleh karena itu kritikan dan saran dari kalian sangatlah saya harapkan.
mudah²an Mp3 player ini dapat membantu serta menambah wawasan sobat mengenai pemrograman Visual basic.

List View tutorial

Public Class frmListView
    Dim blnAdd As Boolean

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        If btnAdd.Text.ToLower() = "add" Then
            txtFirstName.Enabled = True
            txtLastName.Enabled = True
            btnAdd.Text = "Save"
            btnEdit.Text = "Cancel"
            btnDelete.Enabled = False
            txtFirstName.Text = ""
            txtLastName.Text = ""
            blnAdd = True

        Else
            txtFirstName.Enabled = False
            txtLastName.Enabled = False
            btnAdd.Text = "Add"
            btnEdit.Text = "Edit"
            btnDelete.Enabled = True
            If blnAdd Then
                AddItemToListView()
            Else
                EditItemInListView()
            End If

        End If
    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        If txtFirstName.Text.Length > 0 Then
            If btnEdit.Text.ToLower() = "edit" Then
                txtFirstName.Enabled = True
                txtLastName.Enabled = True
                btnAdd.Text = "Save"
                btnEdit.Text = "Cancel"
                btnDelete.Enabled = False
                blnAdd = False
            Else
                txtFirstName.Enabled = False
                txtLastName.Enabled = False
                btnAdd.Text = "Add"
                btnEdit.Text = "Edit"
                btnDelete.Enabled = True
            End If
        Else
            MessageBox.Show("select record to edit")
        End If

    End Sub

    Private Sub AddItemToListView()

        Dim lv As ListViewItem = ListView1.Items.Add(txtFirstName.Text)

        lv.SubItems.Add(txtLastName.Text)
    End Sub
  
    Private Sub EditItemInListView()
        If ListView1.SelectedItems.Count > 0 Then
            ListView1.SelectedItems(0).Text = txtFirstName.Text
            ListView1.SelectedItems(0).SubItems(1).Text = txtLastName.Text
        End If
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If ListView1.SelectedItems.Count > 0 AndAlso MessageBox.Show("Do you want to delete this item?", "Confirm", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then 'make sure there is a selected item to delete
            ListView1.SelectedItems(0).Remove()
        End If
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        If ListView1.SelectedItems.Count > 0 Then
            txtFirstName.Text = ListView1.SelectedItems(0).Text
            txtLastName.Text = ListView1.SelectedItems(0).SubItems(1).Text
        End If
    End Sub

  End Class