Вывести на форму сведения о Оперативной Памяти - VB

Формулировка задачи:

Должна быть память оперативки в Мб


textual

Код к задаче: «Вывести на форму сведения о Оперативной Памяти - VB»

Private Sub Command1_Click()
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    MsgBox Err.Number & ": " & Err.Description
    Exit Sub
End If
For Each objPhMem In objService.ExecQuery("SELECT * FROM Win32_PhysicalMemory")
        Print (objPhMem.Capacity / 1024) / 1024 & " МБ" 'размер физической памяти в МБ
   
Next
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.643 из 5

Источник
Похожие ответы