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

Bu dersimizde Visual Basic 2008 ile Görev Yöneticisi yapalım.

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 :)

  • Etiketler;
Ufuk Bağcı
<p>Bilgisayar hayatına ilk olarak bir oyunla başladım. Daha sonra Delphi 7 ile programlama dünyasına adım attı. Arkasından PHP öğrenmeye başladı. Şu anda kendini geliştirmekte ve öğrendiklerini burada paylaşmaktadır. <p>Şu an itibariyle PHP, MySQL, Microsoft Visual Basic 2008, Microsoft C# ve Asp.net ile ilgilenmeye devam ediyor.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Arkadaşlar yorumlarınızı Bekliyorum. Bir Hatam Kusurum Var İse Lütfen Belirtiniz.
görsel proğramlamadan ödev aldım çokda zor.yardım edecek biri varsa ltf mail yoluyla bana ulaşsın
bir resim olsa iyi olurdu ama iyi saol paylaşım için
Dim Process as new Process() demişsin başta boş yere eklemişsin gerek yok ona

Yukarı Git