Senin, 20 Februari 2012
Selasa, 28 Desember 2010
Add Item Combobox
Combo box di gunakan untuk menampilkan daftar-daftar item yang akan digunakan, dan di pilih salah satu secara drop-down. Sebuah Combo Box merupakan suatu cara untuk membatasi pilihan pengguna. Untuk menambahkan Combo Box pada project, klik dua kali ikon Combo Box atau Drag ke dalam form project anda.
Untuk menambahkan data pada combobox, tuliskan kode di bawah ini pada form_load.
With Combobox1
.Items.Add(”US”)
.Items.Add(”India″)
.Items.Add(”japan″)
.Items.Add(”london″)
End With
.Items.Add(”US”)
.Items.Add(”India″)
.Items.Add(”japan″)
.Items.Add(”london″)
End With
Rabu, 22 Desember 2010
Cara mendapatkan dolar dari easy cash di facebook
FACEBOOK selain menjadi salah satu situs JEJARING SOSIAL yang paling digemari juga memiliki banyak APLIKASI sumber uang. Salah satunya Aplikasi tersebut adalah EASY CASH. Situs ini berbasis : PAY PER LEAD (dibayar hanya untuk mengundang orang untuk bergabung). Cara kerjanya sebagai berikut :
1.JOIN saja (GRATIS), klik link disini
Anda harus punya account Facebook dan Izinkan Aplikasi tersebut di Account FaceBook anda
2. Ajak orang untuk bergabung melalui URL anda :
– URL bisa anda dapatkan dengan mengklik menu : “Refer Friends” (Cari URL dengan pola seperti point : 1 diatas)– ada juga bisa klik menu “PUBLISH TO WALL ”
3. Jumlah KOMISI :Saat Mendaftar anda langsung Dapat $.1 dan bila mengajak orang untuk mendaftar secara gratis anda dapat $.0.01 + 10% penghasilan orang yang anda ajak(4). PEMBAYARAN :Anda akan dibayar setiap tanggal 1 dan 16 setiap bulannya setelah komisi anda mencapai minimal $.5 , pembayaran melalui account paypal.
1.JOIN saja (GRATIS), klik link disini
Anda harus punya account Facebook dan Izinkan Aplikasi tersebut di Account FaceBook anda
2. Ajak orang untuk bergabung melalui URL anda :
– URL bisa anda dapatkan dengan mengklik menu : “Refer Friends” (Cari URL dengan pola seperti point : 1 diatas)– ada juga bisa klik menu “PUBLISH TO WALL ”
3. Jumlah KOMISI :Saat Mendaftar anda langsung Dapat $.1 dan bila mengajak orang untuk mendaftar secara gratis anda dapat $.0.01 + 10% penghasilan orang yang anda ajak(4). PEMBAYARAN :Anda akan dibayar setiap tanggal 1 dan 16 setiap bulannya setelah komisi anda mencapai minimal $.5 , pembayaran melalui account paypal.
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
Menghapus semua item di listbox
Kalo belum mengerti silahkan di sedot saja..
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 .
Kurang lebih itulah kode nya. Selamat mencoba ...
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
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
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
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
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 ..
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
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.
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
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
temen-temen bisa merubah kecepatan dari geraknya di properti timer1 dan ubah timer1.interval. Semakin kecil nilainya akan semakin cepat geraknya.
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
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
visualization adalah grafik visual yang berubah-ubah (arti sempitnya saja) yang biasanya tersedia pada software-software media player.
Contoh gambarnya kurang lebih seperti di atasbagaimana 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...
Selasa, 21 Desember 2010
Cara mendapatkan uang dari Facebook
Saat ini bukan saja Blog yang bisa kita jadikan lahan Rupiah, namun ada cara baru untuk mendapatkan Uang dari Facebook. Fasilitas Facebook ini tentu saja adalah kabar menarik bagi pencari uang dari dunia online dan internet. Cara mendapatkan uang dari Facebook ini terbilang cukup mudah. Ada beberapa langkah yang harus anda lakukan untuk mendapatkan uang dari Facebook. Sebelum ke langkah-langkahnya , Saya akan jelaskan dulu aturan mainnya.
Aturan mainnya adalah sebagai berikut :
1. Setiap jawaban yang benar kamu akan mendapatkan Rp. 150,-
2. Setiap jawaban yang benar yang dijawab teman yang mendaftar lewat kamu (downline 1), kamu akan mendapat Rp. 60,-
3. Setiap jawaban yang benar yang dijawab teman yang mendaftar lewat downline 1 kamu (downline 2), kamu akan mendapat Rp. 50,-
4. Setiap jawaban yang benar yang dijawab teman yang mendaftar lewat downline 2 kamu (downline 3), kamu akan mendapat Rp. 40,-
Untuk melakukan Payout pada rekening yang anda miliki, anda harus mencapai angka Rp 10.000 terlebih dahulu. Jadi segeralah ikuti permainan ini dan agar anda mulai mengerti cara mendapatkan uang dari Facebook.
1. Pertama dan yang terpenting, anda tentunya harus sudah mempunyai akun di Facebook.
2. Lakukan langkah login pada Facebook anda
3.Klik Disini untuk masuk ke aplikasi ini (pastikan terlebih dahulu bahwa anda sudah login pada akun Facebook anda sebelum membuka halaman tersebut )
4. Lalu jawablah setiap pertanyaan yang ada satu persatu, kunci jawaban terdapat pada link yang disediakan. Jumlah pertanyaan yang tersedia bergantung pada jumlah pengiklan, sehingga kita harus rajin tiap hari mengunjung halaman applikasi ini.
Agar uang pendapatan anda bisa bertambah dengan cepat, maka ajaklah semua teman anda yang ada di Facebook untuk turut bermain dalam permainan ini, tentunya lewat link referal anda sendiri.
Semoga sukses ..
Meningkatkan Alexa Rank
Alexa Rank kini digunakan sebagai pengukur seberapa besar trafik web/blog kita, dan alexa rank adalah tolak ukur yang sangat di pertimbangkan oleh pemasang iklan atau layanan-layanan yang membutuhkan trafik web/blog kita seperti ppcindo yang berpacu dengan alexa rank untuk memesang iklan, juga layanan-layanan Top List Blogger yang kini banyak kita temui. Mereka mengukur trafik website kita tidak hanya dari Google PageRank saja tapi Alexa Rank..
Mungkin banyak para blogger yang ingin Alexaranknya cepat naik. Karena semakin sedikit angka yang tertera pada Alexa widget semakin baik ranking yang didapat. Tidak ada trik khusus yang harus dilakukan , mungkin sudah banyak yang membicarakan tentang hal ini. Naik atau turunnya juga tergantung dari niat kita Aktif atau tidaknya kita diblog. Berbeda dengan Pagerank karena semakin tinggi ngka yang didapat semain baik posisi blog tersebut di Google.
1. Pasang Widget Alexa
Alexa widget ini bisa anda peroleh dari situs Alexa.com , tentu saja anda harus melakukan proses pendaftaran terlebih dahulu. Hal ini penting dilakukan karena Alexa widget ini berfungsi agar traffic blog kita tercatat olex alexa.
2. Install Alexa Toolbar
Dengan memasang addon alexa toolbar ini akan meningkatkan alexa rank , setiap anda berkunjung keblog kalian. Bukankah selama ini anda sering berkunjung ke blog kalian setiap hari ??? Tentu pemasangan alexa toolbar pada blog akan membantu meningkatkan alexa rank blog kalian.
3. Pasang Logo Buttons
Untuk mendapatkan gambar pilih Tab Logo Buttons dan copy imagenya. Anda juga bisa memberikan keterangan pada gambar tsb atau bisa melink image tsb kesitus resmi alexa.
4. Verifikasi Situs DataDengan mengisi data ini diharap akan membantu meningkatkan alexa rank blog kalian. Pilih tab For site owner klik Self Service Tools , isikan semua data yang diminta lalu verifikasi.
Senin, 20 Desember 2010
Auto Shutdown VB.Net
Auto ShutDown adalah aplikasi sederhana yang saya buat menggunakan VB.NET,
aplikasi ini saya buat karena saya sering ketiduran pada malam hari dan lupa mematikan laptop.
Pada awalnya ga ada ide sama sekali untuk buat aplikasi auto shutdown ini, tapi pernah suatu hari saya lupa mematikan laptop karena kelelahan setalah duduk berjam-jam di depan laptop , sibuk ngerjain tugas akhir mata kuliah VB.
Pas bangun yang pertama saya liat adalah laptop dengan program VB yang masih running.
Untuk mengatasi masalah itu akhirnya terbentuk lah ide untuk buat program ini.
Aplikasi ini terdiri dari DateTimePicker , timer dan button . Pada dasarnya logika dari program ini adalah seperti ini , jika value dari DateTimePicker = format jam sekarang maka shutdown komputer.
untuk proses shutdownnya temen² bisa baca disini .
buat temen² yang merasa membutuhkan aplikasi ini silahkan di sedot saja dan silahkan di kembangkan sendiri ..
aplikasi ini saya buat karena saya sering ketiduran pada malam hari dan lupa mematikan laptop.
Pada awalnya ga ada ide sama sekali untuk buat aplikasi auto shutdown ini, tapi pernah suatu hari saya lupa mematikan laptop karena kelelahan setalah duduk berjam-jam di depan laptop , sibuk ngerjain tugas akhir mata kuliah VB.
Pas bangun yang pertama saya liat adalah laptop dengan program VB yang masih running.
Untuk mengatasi masalah itu akhirnya terbentuk lah ide untuk buat program ini.
Aplikasi ini terdiri dari DateTimePicker , timer dan button . Pada dasarnya logika dari program ini adalah seperti ini , jika value dari DateTimePicker = format jam sekarang maka shutdown komputer.
untuk proses shutdownnya temen² bisa baca disini .
buat temen² yang merasa membutuhkan aplikasi ini silahkan di sedot saja dan silahkan di kembangkan sendiri ..
Kamis, 16 Desember 2010
Searching Listbox
Sebelumnya saya telah menulis artikel tentang pencarian data di list box di vb 6, bisa temen² liat disini . Kali ini saya akan bahas bagaimana pencarian data di VB.Net ..
Simak baik-baik iya . !!!
Dalam ilmu komputer, sebuah algoritma pencarian dijelaskan secara luas adalah sebuah algoritma yang menerima masukan berupa sebuah masalah dan menghasilkan sebuah solusi untuk masalah tersebut, yang biasanya didapat dari evaluasi beberapa kemungkinan solusi. Sebagian besar algoritma yang dipelajari oleh ilmuwan komputer adalah algoritma pencarian.
Algoritma pencarian string adalah algoritma untuk melakukan pencarian semua kemunculan string pendek pattern[0..n − 1] yang disebut pattern di string yang lebih panjang teks[0..m − 1] yang disebut teks.
Pencocokkan string merupakan permasalahan paling sederhana dari semua permasalahan string lainnya, dan dianggap sebagai bagian dari pemrosesan data, pengkompresian data,analisis leksikal, dan temu balik informasi. Teknik untuk menyelesaikan permasalahan pencocokkan string biasanya akan menghasilkan implikasi langsung ke aplikasi string lainnya.
Dan di bawah ini adalah kode dari program pencarian data di list box dengan textbox sebagai pembandingnya.
setiap karakter dari listbox pertama yang di tulis di textbox akan dimunculkan di listbox kedua.
Contoh Program
Simak baik-baik iya . !!!
Dalam ilmu komputer, sebuah algoritma pencarian dijelaskan secara luas adalah sebuah algoritma yang menerima masukan berupa sebuah masalah dan menghasilkan sebuah solusi untuk masalah tersebut, yang biasanya didapat dari evaluasi beberapa kemungkinan solusi. Sebagian besar algoritma yang dipelajari oleh ilmuwan komputer adalah algoritma pencarian.
Algoritma pencarian string adalah algoritma untuk melakukan pencarian semua kemunculan string pendek pattern[0..n − 1] yang disebut pattern di string yang lebih panjang teks[0..m − 1] yang disebut teks.
Pencocokkan string merupakan permasalahan paling sederhana dari semua permasalahan string lainnya, dan dianggap sebagai bagian dari pemrosesan data, pengkompresian data,analisis leksikal, dan temu balik informasi. Teknik untuk menyelesaikan permasalahan pencocokkan string biasanya akan menghasilkan implikasi langsung ke aplikasi string lainnya.
Dan di bawah ini adalah kode dari program pencarian data di list box dengan textbox sebagai pembandingnya.
setiap karakter dari listbox pertama yang di tulis di textbox akan dimunculkan di listbox kedua.
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
ListBox2.Items.Clear()
Dim listLength As Integer = (ListBox1.Items.Count - 1)
Dim i, j As Integer
Dim listString, newString As String
Dim spaceCharCounter As Integer = 0
For i = 0 To listLength
listString = ListBox1.Items.Item(i)
For j = 0 To listString.Length - 1
If spaceCharCounter >= 2 Then
newString += listString.Substring(j, 1)
ElseIf listString.Substring(j, 1) = Chr(32) Then
spaceCharCounter += 1
End If
Next
If InStr(newString.ToLower, TextBox1.Text.ToLower) Then
ListBox2.Items.Add(ListBox1.Items.Item(i))
End If
listString = Nothing
spaceCharCounter = 0
newString = Nothing
Next
End Sub
ListBox2.Items.Clear()
Dim listLength As Integer = (ListBox1.Items.Count - 1)
Dim i, j As Integer
Dim listString, newString As String
Dim spaceCharCounter As Integer = 0
For i = 0 To listLength
listString = ListBox1.Items.Item(i)
For j = 0 To listString.Length - 1
If spaceCharCounter >= 2 Then
newString += listString.Substring(j, 1)
ElseIf listString.Substring(j, 1) = Chr(32) Then
spaceCharCounter += 1
End If
Next
If InStr(newString.ToLower, TextBox1.Text.ToLower) Then
ListBox2.Items.Add(ListBox1.Items.Item(i))
End If
listString = Nothing
spaceCharCounter = 0
newString = Nothing
Next
End Sub
Contoh Program
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 .
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
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...
Selasa, 14 Desember 2010
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
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
Jumat, 10 Desember 2010
OSI Layer
Model referensi jaringan terbuka OSI atau OSI Reference Model for open networking adalah sebuah model arsitektural jaringan yang dikembangkan oleh badan International Organization for Standardization (ISO) di Eropa pada tahun 1977.
OSI sendiri merupakan singkatan dari Open System Interconnection. Model ini disebut juga dengan model "Model tujuh lapis OSI" (OSI seven layer model).Sebelum munculnya model referensi OSI, sistem jaringan komputer sangat tergantung kepada pemasok (vendor). OSI berupaya membentuk standar umum jaringan komputer untuk menunjang interoperatibilitas antar pemasok yang berbeda.
Dalam suatu jaringan yang besar biasanya terdapat banyak protokol jaringan yang berbeda. Tidak adanya suatu protokol yang sama, membuat banyak perangkat tidak bisa saling berkomunikasi.Model referensi ini pada awalnya ditujukan sebagai basis untuk mengembangkan protokol-protokol jaringan, meski pada kenyataannya inisatif ini mengalami kegagalan. Kegagalan itu disebabkan oleh beberapa faktor berikut: * Standar model referensi ini, jika dibandingkan dengan model referensi DARPA (Model Internet) yang dikembangkan oleh Internet Engineering Task Force (IETF), sangat berdekatan. Model DARPA adalah model basis protokol TCP/IP yang populer digunakan.
Model referensi ini dianggap sangat kompleks. Beberapa fungsi (seperti halnya metode komunikasi connectionless) dianggap kurang bagus, sementara fungsi lainnya (seperti flow control dan koreksi kesalahan) diulang-ulang pada beberapa lapisan.
Tujuan utama penggunaan model OSI adalah untuk membantu desainer jaringan memahami fungsi dari tiap-tiap layer yang berhubungan dengan aliran komunikasi data. Termasuk jenis-jenis protoklol jaringan dan metode transmisi.
Model dibagi menjadi 7 layer, dengan karakteristik dan fungsinya masing-masing. Tiap layer harus dapat berkomunikasi dengan layer di atasnya maupun dibawahnya secara langsung melalui serentetan protokol dan standard.
OSI sendiri merupakan singkatan dari Open System Interconnection. Model ini disebut juga dengan model "Model tujuh lapis OSI" (OSI seven layer model).Sebelum munculnya model referensi OSI, sistem jaringan komputer sangat tergantung kepada pemasok (vendor). OSI berupaya membentuk standar umum jaringan komputer untuk menunjang interoperatibilitas antar pemasok yang berbeda.
Dalam suatu jaringan yang besar biasanya terdapat banyak protokol jaringan yang berbeda. Tidak adanya suatu protokol yang sama, membuat banyak perangkat tidak bisa saling berkomunikasi.Model referensi ini pada awalnya ditujukan sebagai basis untuk mengembangkan protokol-protokol jaringan, meski pada kenyataannya inisatif ini mengalami kegagalan. Kegagalan itu disebabkan oleh beberapa faktor berikut: * Standar model referensi ini, jika dibandingkan dengan model referensi DARPA (Model Internet) yang dikembangkan oleh Internet Engineering Task Force (IETF), sangat berdekatan. Model DARPA adalah model basis protokol TCP/IP yang populer digunakan.
Model referensi ini dianggap sangat kompleks. Beberapa fungsi (seperti halnya metode komunikasi connectionless) dianggap kurang bagus, sementara fungsi lainnya (seperti flow control dan koreksi kesalahan) diulang-ulang pada beberapa lapisan.
Tujuan utama penggunaan model OSI adalah untuk membantu desainer jaringan memahami fungsi dari tiap-tiap layer yang berhubungan dengan aliran komunikasi data. Termasuk jenis-jenis protoklol jaringan dan metode transmisi.
Model dibagi menjadi 7 layer, dengan karakteristik dan fungsinya masing-masing. Tiap layer harus dapat berkomunikasi dengan layer di atasnya maupun dibawahnya secara langsung melalui serentetan protokol dan standard.
Keterangan
Application Layer: Menyediakan jasa untuk aplikasi pengguna. Layer ini bertanggungjawab atas pertukaran informasi antara program komputer, seperti program e-mail, dan service lain yang jalan di jaringan, seperti server printer atau aplikasi komputer lainnya.
Presentation Layer: Bertanggung jawab bagaimana data dikonversi dan diformat untuk transfer data. Contoh konversi format text ASCII untuk dokumen, .gif dan JPG untuk gambar. Layer ini membentuk kode konversi, translasi data, enkripsi dan konversi.
Session Layer: Menentukan bagaimana dua terminal menjaga, memelihara dan mengatur koneksi,- bagaimana mereka saling berhubungan satu sama lain. Koneksi di layer ini disebut “session”.
Transport Layer: Bertanggung jawab membagi data menjadi segmen, menjaga koneksi logika “end-to-end” antar terminal, dan menyediakan penanganan error (error handling).
Network Layer: Bertanggung jawab menentukan alamat jaringan, menentukan rute yang harus diambil selama perjalanan, dan menjaga antrian trafik di jaringan. Data pada layer ini berbentuk paket.
Data Link Layer: Menyediakan link untuk data, memaketkannya menjadi frame yang berhubungan dengan “hardware” kemudian diangkut melalui media. komunikasinya dengan kartu jaringan, mengatur komunikasi layer physical antara sistem koneksi dan penanganan error.
Physical Layer: Bertanggung jawab atas proses data menjadi bit dan mentransfernya melalui media, seperti kabel, dan menjaga koneksi fisik antar sistem.
Kamis, 09 Desember 2010
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 .
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
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
Kamis, 02 Desember 2010
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 .
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 .
Langganan:
Postingan (Atom)