Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Performans Ölçer Uygulaması Yapmak

 Bu Ders Hakkında Sorularınız Varsa Lütfen Buraya Tıklayarak Forum Sayfamızda Bu Konunun Başlığı Hakkında Sorunlarınızı Yazınız.   

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..
Bugün 8 ziyaretçikişi burdaydı!
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol