Visual Basic 2008 İle Görev Yöneticisi Yapımı

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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:

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

Yemeğimizin yapımı burada sona ermiştir .

Hadi Afiyet Olsun sizlere

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[kaptanmikro1]

Paylaşım için teşekkürler.