Performans Ölçer Uygulaması Yapmak

Merhabalar, Bu dersimizde kendi hazırladığım küçük boyutlu bir performans ölçer uygulamasının yapılışını anlatıyorum. Ben Windows Sidebar'ı saat ve performans ölçer için kullanıyordum. Sidebar pc açılışını yavaşlattığı için ben de notify icon'da değerleri gösteren bir uygulama yapmak istedim. Ve şuan hala bu uygulamayı kullanıyorum. Notify çok kalabalık olduğu için CPU ısısını eklemedim. İsterseniz bir notify icon daha ekleyip sıcaklığı da gösterebilirsiniz. 

CPU Sıcaklığını Öğrenme. 
Tıklayın.. 

Programın hazır versiyonu kullanmak için. 
Tıklayın.. (50 KB) 

Visual Studio Taslağı (incelemek için): 
Tıklayın.. (148 KB) 

Notify Görünümü: 

 

Arayüz görünümü:
 


Registry Değer:
 

Registry için: 

Imports System.Win32

Temel değişkenler: 

Dim dgn As New System.Diagnostics.PerformanceCounter("Processor", "% Processor Time", "_total") Dim showram As Boolean = True Dim firstopen As Boolean = True Dim cmp As New Devices.ComputerInfo

Timer (değer güncelleme): 

Private Sub T1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1.Tick Dim value As Single = Val(dgn.NextValue()) If value >= 0 And value <= 100 Then Degistir(N1, value) If value > Val(L_CPUMAX.Text) Then L_CPUMAX.Text = CInt(value) & " %" End If If showram Then Dim rm As Integer = ((cmp.TotalPhysicalMemory - cmp.AvailablePhysicalMemory) / cmp.TotalPhysicalMemory) * 100 If rm >= 0 And rm <= 100 Then Degistir(N2, rm) If rm > Val(L_RAMMAX.Text) Then L_RAMMAX.Text = rm & " %" End If End If End Sub

Load fonksiyonu: 

Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CM.Text = "3" Dim rkey As RegistryKey rkey = Registry.CurrentUser.CreateSubKey("SoftwareYunus Applications") rkey = rkey.CreateSubKey("Performance") Dim vl As Object = rkey.GetValue("ShowRAM") If vl <> Nothing Then If vl = 1 Then showram = True Else showram = False Else rkey.SetValue("ShowRAM", 1) End If vl = rkey.GetValue("Refresh") If vl <> Nothing Then vl = Val(vl) If vl >= 1000 And vl <= 10000 Then T1.Enabled = vl End If Else rkey.SetValue("Refresh", 3000) End If rkey = Registry.CurrentUser.CreateSubKey("SoftwareMicrosoftWindowsCurrentVersionRun") If rkey.GetValue("Performans Ölçer") <> Nothing Then C2.Checked = True End If If showram Then N2.Visible = True T1_Tick(Nothing, Nothing) L_PROCESSORS.Text = Environment.ProcessorCount R_PH.Text = CInt(cmp.TotalPhysicalMemory / (1024 ^ 2)) & " mb" R_VR.Text = CInt(cmp.TotalVirtualMemory / (1024 ^ 2)) & " mb" End Sub

Notify Fonksiyonu: 

Private Sub NotifyIcon_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles N1.MouseDoubleClick, N2.MouseDoubleClick Visible = Not (Visible) If Visible Then WindowState = FormWindowState.Normal End Sub

Otomatik pc başlatıldığında aç (arayüzü gösterme) 

Private Sub Main_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint If firstopen Then If Command() = "/AutoRun" Then Visible = False : firstopen = False End Sub

Kaynak Dosyayı İndirmek İçin Buraya Tıklayın..