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

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.

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

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 Data

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

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

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.

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

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 .

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

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.

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.

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 .

SETTING CLIENT SERVER PADA WINDOWS SERVER 2003)

SETTING COMPUTER SERVER

• Setting IP
• Disini kita menggunakan IP : computer server : 192.168.10.1 computer client : 192.168.10.2

• Langkah ke 2 kita ping salah satu IP tersebut (ex : ping 192.168.10.1)

          Lihat pada gambar :

• Masuk ke computer yang akan di jadikan server lalu ketikan perintah dcpromo pada run

          Lihat pada gambar :

• Setelah kita mengetikan dcpromo akan muncul kotak dialog seperti di bawah ini :

• Click next

• Lalu akan muncul 2 options :
• Domain controler for a domain ( Untuk membuat domain baru )
• Additional domain controller for an existing domain ( Untuk menambah domain baru )

•  Next ( Maka Akan tampil jendela baru )

 

• Untuk membuat domain baru di dalam sebuah forest pilih options yang pertama (domain in a new forest)

•  Selanjutnya Kita pilih ”No, just install and configure DNS on this computer

 

• Lalu kita beri nama domain pada computer server

• Lalu akan muncul jendela Domain netBios.
• Nama domain netBios akan terisi otomatis sesuai dengan nama domain yang kita isi tadi

• Lalu kita pilih di drive mana kita akan simpan database dan Log Folder pada domain yang telah kita buat.

 

•  pilih drive dimana SYSVOL akan di simpan

 

• lalu akan muncul 2 options
•  permissions compatible with pre –Windows 2000 server operating systems, artinya computer server hanya mengizinkan computer client untuk mengakses domain yang telah kita buat yang system operasinya sebelum versi windows 2000
• permissions compatible only with Windows 2000 or windows server2003 operating systems, artinya computer server hanya mengizinkan computer client untuk mengakses domain yang telah kita buat yang system operasinya sebelum versi windows 2000

• Disini kita akan memilih option yang kedua .

• Setelah itu kita akan diminta mengisi password untuk server

•  Klik next
• Lalu akan muncul kotak dialog review semua data yang kita isi tadi

• Klik next dan tunggu hingga proses instalasi selesai

• Setelah selesai proses instalasi klik finish dan restart komputer

• setelah di restart

• click kanan pada my computer
• lalu properties
• lihat pada tab computer Name
• lihat nama domain sudah berubah

• Lalu kita buat sebuah user di admin
• Start
• All program
• Administrative tool
• Component services

• Klik Kanan dan pilih New User
• Isi kolom-kolom yang berada di New Object - User

• Lalu Set password untuk username tersebut dan pilih User cannot change password

• Next

• User yang kita buat tadi telah berhasil

SETTING COMPUTER CLIENT

• Click kanan pada my computer
• Pilih properties
• Pilih computer name
• Sebelum di setting default computer client tersebut adalah workgroup, untuk merubah agar computer client bisa mengakses computer server click change

• Pilih change lalu Rubah nama computer client, beri nama sesuai dengan nama domain server, lalu pilih options domain seperti pada gambar

• Setelah nama computer di rubah , isikan pasword sesuai dengan pasword domain server 

• Bila kita berhasil mengakses domain pada server akan muncul gambar seperti di bawah ini.

• Restart Komputer

• Lalu coba Login komputer client dengan menggunakan user name pada domain server , jika bisa maka usaha yang tadi kita lakukan berhasil