Merhabalar Arkadaşlar,
Bu Visual Basic 2008'e yeni başladığım zaman ilk yaptığım proje ve bunu sizlerle paylaşmak istedim.
Hemen yapımına geçelim:
Şimdi şöyle düşünelim: Bir yemek yapıyoruz ve malzemeleri sayalım.
Yemeğimiz İçin Öncelikle ;
[*] Microsoft Visual Basic 2008
[*] 2 Adet ToolStrip
[*] 1 Adet ListView
[*] 1 Adet Timer
[*]
Geçelim Yapımına.
Öncelikle Visual Basic 2008 programını açıp yeni bir Windows Forms Application oluşturuyoruz.
Daha Sonra formumuza 2 adet ToolStrip Yerleştirip 1 tanesini üste (Dock = Top ) yapıyoruz, diğerini alta (Dock = Bottom) yapıyoruz.
Gerçi ben yine de bu özellikleri kod olarak projeye yazdım. Bir sorun olursa kod düzelticektir.
Hemen kodları vereyim:
[*]
Yukarıdaki kodu açtığınız projenin kod satırına kopyalayıp yapıştırabilirsiniz, ya da kaynak dosyadan alarak çalışabilirsiniz.
Imports System yapmayı unutmayın sakın.
Hepinize iyi çalışmalar...
Yemeğimizin yapımı burada sona ermiştir .
Bu Visual Basic 2008'e yeni başladığım zaman ilk yaptığım proje ve bunu sizlerle paylaşmak istedim.
Hemen yapımına geçelim:
Şimdi şöyle düşünelim: Bir yemek yapıyoruz ve malzemeleri sayalım.
Yemeğimiz İçin Öncelikle ;
[*] Microsoft Visual Basic 2008
[*] 2 Adet ToolStrip
[*] 1 Adet ListView
[*] 1 Adet Timer
[*]
Geçelim Yapımına.
Öncelikle Visual Basic 2008 programını açıp yeni bir Windows Forms Application oluşturuyoruz.
Daha Sonra formumuza 2 adet ToolStrip Yerleştirip 1 tanesini üste (Dock = Top ) yapıyoruz, diğerini alta (Dock = Bottom) yapıyoruz.
Gerçi ben yine de bu özellikleri kod olarak projeye yazdım. Bir sorun olursa kod düzelticektir.
Hemen kodları vereyim:
Kod:
[color=#333333][SIZE=2][font=Menlo, Monaco, Consolas,][color=#000000]
Imports System
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Computer Name : " & Environment.MachineName ' Form un başlıgı bilgisayarımızın Adıdır
ListView1.View = View.Details ' Listwiev Özelliği
ListView1.GridLines = True ' Listwiev Özelliği GridLines Acık.
ListView1.Dock = DockStyle.Fill ' ' Listwiev Özelliği Full Olarak gösterme.
Me.Height = 400 ' Form Boyutları
Me.Width = 300 ' Form Boyutları
ToolStrip1.Dock = DockStyle.Top
ToolStrip2.Dock = DockStyle.Bottom
Dim durum As String
Dim durumson As String
Dim i As Integer = 0
Dim Process As New Process() ' Process Adında Değişken. Çalışan programları tutan değişken.
ListView1.Items.Clear() ' İtemleri temizledik her bir yenilemede eklenmesin diye.
For Each p In Process.GetProcesses(My.Computer.Name)
ListView1.Items.Add(p.ProcessName)
ListView1.Items(i).SubItems.Add(p.Id)
ListView1.Items(i).SubItems.Add(FormatNumber(Math.Round(p.PrivateMemorySize64 / 1024), 0) + "KB")
durum = p.Responding
durumson = Replace(durum, "True", "Çalışıyor")
ListView1.Items(i).SubItems.Add(durumson)
i += 1
Next
ToolStripLabel1.Text = "Çalışan : " & ListView1.Items.Count 'Çalışan Toplam Program Sayısı
ToolStripLabel2.Text = "işlemci Sayısı : " & Environment.ProcessorCount ' işlemci Sayısı
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Try
For Each Process As ListViewItem In ListView1.SelectedItems
System.Diagnostics.Process.GetProcessById(Process.SubItems(1).Text).Kill()
Next
MsgBox("Kapatıldı")
Catch ex As Exception
MsgBox("Hata : " + ErrorToString())
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Form1_Load(Nothing, Nothing)
End Sub
End Class[/color][/FONT][/SIZE][/color]Yukarıdaki kodu açtığınız projenin kod satırına kopyalayıp yapıştırabilirsiniz, ya da kaynak dosyadan alarak çalışabilirsiniz.
Imports System yapmayı unutmayın sakın.
Hepinize iyi çalışmalar...
Yemeğimizin yapımı burada sona ermiştir .