Artikel ini akan menjelaskan bagaimana menampilkan informasi komputer, dan proses program yang sedang berjalan atau aplikasi pada mesin. Hal ini juga mendeteksi jika mesin terhubung ke jaringan atau tidak. Anda bisa lihat juga penggunaan saat ini dari memori fisik komputer, memori virtual, sistem operasi yang digunakan, platform sistem operasi, Versi, Memantau Heigh dan monitor Lebar.Setelah menyelesaikan aplikasi ini, sepertinya seperti yang ditunjukkan di bawah ini:
Untuk mulai membangun program ini, buka visual basic di komputer anda dan membuat proyek baru. Kemudian tambahkan datagridview, groupbox sebuah, sebuah progressbar, dua belas label dan sebelas textbox dan timer. Kemudian menyesuaikan dan mengatur semua kontrol yang sama dengan susunan yang terlihat di atas dan mengubah nama semua label yang sama seperti yang ditunjukkan dalam desain akhir.
Kemudian klik ganda Timer1, dan tambahkan kode berikut:
Code :
1. Private Sub Timer1_Tick(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Timer1.Tick
2. 'this
three lines of code is responsible for providing data about memory
3. Dim
availphyMem As Integer = My.Computer.Info.AvailablePhysicalMemory / 1000000
4. Dim
totlPhyMem As Integer = My.Computer.Info.TotalPhysicalMemory / 1000000
5. Dim
totVirtMem As Integer = My.Computer.Info.TotalVirtualMemory / 1000000
6. 'this
line is for the name of computer
7. Dim
compname As String = My.Computer.Name
8. 'current
username used on the machine
9. Dim
compuser As String = SystemInformation.UserName
10. 'display
the Operating installedon this machine
11. Dim OS As
String = My.Computer.Info.OSFullName
12. 'show
the platform of the operating installed
13. Dim
OSplatform As String = My.Computer.Info.OSPlatform
14. 'it
display the Operating system version
15. Dim
osversion As String = My.Computer.Info.OSVersion
16. 'display the height and width of the
machine
17. Dim
HeighMon As Integer = SystemInformation.PrimaryMonitorSize.Height
18. Dim
WidthMon As Integer = SystemInformation.PrimaryMonitorSize.Width
19.
20. 'it
loops trough all the processes happening running in this machine
21. For Each
p As Process In Process.GetProcesses
22. 'it
display to the datagridview provided
23. DT.Rows.Add(p.ProcessName.ToString)
24. Next
25. 'it
check if the machine is connectd to the network or not
26. If My.Computer.Network.IsAvailable
Then
27.
txtnetavailable.Text = "Connected"
28. Else
29.
txtnetavailable.Text = "Not Connected"
30.
31. End If
32. 'it get
and set the maximum value of progressbar
33.
ProgressBar1.Maximum = availphyMem
34.
ProgressBar1.Value = availphyMem
35. 'this is
the formula to get the percentage
36. percent =
(ProgressBar1.Value / totlPhyMem) * 100
37. 'it display
the percentage in the label
38.
lblpercent.Text = percent & "%"
39.
40. 'it
assign and display all the data from the variable above
41. 'and
display the corresponding value into the textboxes provided
42.
txtcompname.Text = compname
43. txtusername.Text = compuser
44. txtos.Text
= OS
45.
txtosplatform.Text = OSplatform
46.
txtosversion.Text = osversion
47.
txtavailmem.Text = availphyMem & " MB"
48.
txtphymem.Text = totlPhyMem & " MB"
49.
txtvirmem.Text = totVirtMem & " MB"
50.
ProgressBar1.Maximum = totlPhyMem
51.
txtheigh.Text = HeighMon
52.
txtwidth.Text = WidthMon
53.
54. End Sub
Setelah Itu Klik Dua Kali Form Mainnya
Code :
1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2. 'it starts the timer
3. Timer1.Start()
4. 'create new column named "List of processes"
5. DT.Columns.Add("List of Processes")
6. 'set the datasource of the datagridview to DT
7. DataGridView1.DataSource = DT
8.
9. End Sub
10.
11.</vbent>
12.
13.And below Public class, add the following code:
14.<vbnet>
15.'declaration of variable
16. Dim processName As String
17. 'declaration of DT variable as Datatable
18. Dim DT As New DataTable
19. Dim percent As Integer
jika terdapat kesalahan, silahkan komentar
Comments
Post a Comment