Görev Yöneticisi VB 6.0

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 Applicationoluş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:

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

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


Buyrun Buda Kaynak Link;

İNDİR