Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[TUT]Prosty CPU Memory Meter.


Rekomendowane odpowiedzi

Opublikowano

Witam, jest to mój pierwszy Tutorial a więc proszę o krytykę i wyrozumiałość :).

 

Tak więc przedstawię wam prosty program "CPU Memory Meter" w VB 2010 Express.

Jak wygląda program? :

 

 

SS1jpg_nrspxrp.jpg

 

 

Tak więc zaczynamy.

 

1.)Stwórz nowy projekt i nazwij go.

2.)Potrzebne nam będą

  • 3 ProgressBar.
  • 6 Label.
  • 3 PerformanceCounter -> Wstawiamy w Form.
  • 1 Timer -> Wstawiamy w Form.

Label1: CPU:

Label2: Pamięć:

Label3: 0

Label4: 0

Label5: Czas Dysku:

Label6: 0

 

3.) Klikamy na "PerformanceCounter", z prawej strony programu znajdziemy jego ustawienia. A więc wybieramy:

  • Category name: Wybieramy tutaj Procesor
  • Counter name: Czas Procesora (%)
  • Instance name: _Total

4.) Klikamy na "PerformanceCounter2".

  • Category name: Pamięć
  • Counter name: Zdeklarowane bajty w użyciu (%)

5.) Klikamy na "PerformanceCounter3".

  • Category name: Dysk Fizyczny
  • Counter name: Czas Dysku (%)
  • Instance name: _Total

 

 

Klikamy x2 razy na forme i wpisujemy:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

 

 

Następnie klikamy 2 razy na Timer1 i wpisujemy:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = PerformanceCounter1.NextValue
        ProgressBar2.Value = PerformanceCounter2.NextValue
        ProgressBar3.Value = PerformanceCounter3.NextValue
        Label3.Text = ProgressBar1.Value.ToString + "%"
        Label4.Text = ProgressBar2.Value.ToString + "%"
        Label6.Text = ProgressBar3.Value.ToString + "%"
    End Sub

 

Można w nim zastosować mnóstwo innych opcji, jak uruchomione procesy, przeglądarka, dysk, system i wiele innych. Ja wykorzystałem takie opcje.

signjpg_swwrens.jpg

Opublikowano

Zapomniałem o jednej rzeczy (wybaczcie). W PerformanceCounter3 -> w jego opcjach -> InstanceName wybierzcie _Total.

signjpg_swwrens.jpg

Opublikowano

to teraz mam błąd ze zbyt dużą wartością dla "czas dysku" bo wartość przekracza 100

 

Hmmm u mnie nie ma takiego problemu, komputer masz z tych nowszych czy starszych modeli?.

signjpg_swwrens.jpg

Opublikowano

z tych 13 letnich :D

 

Możliwe że spowodowane jest właśnie starszym sprzętem. Usuń albo po prostu zmień na inną opcje w (%) :).

signjpg_swwrens.jpg

Opublikowano

Wystąpił błąd podczas tworzenia formularza. Zobacz Exception.InnerException, aby uzyskać szczegółowe informacje. Błąd: Nie można zainicjować, ponieważ brakuje elementu CounterName.

unibag.png


Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...