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

@888krot888 · Регистрация: 14.05.2016

Студворк — интернет-сервис помощи студентам

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

@Pro_grammer · 08.05.2017, 14:35

Я же давал код, или даже не умеем Байты перевести в МБ?
Смысл тогда вообще программы писать, а?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
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

@888krot888 · 08.05.2017, 14:59 **[ТС]**

дипломную пишу, нужен программный продукт в VB, который выдает информацию о компьютере, а так я в нем не особо шарю, вот и ищу помощи. Спасибо тебе)

Добавлено через 4 минуты
скажи а почему выдаёт 2 значения: одно 2048 , а другое 4096?

@Pro_grammer · 08.05.2017, 17:41

Сообщение от 888krot888

почему выдаёт 2 значения: одно 2048 , а другое 4096

Значит стоят 2 планки памяти, одна на 2 Гига, другая на 4 Гига. Если надо общую память, то просто сложить вместе.

@888krot888 · 08.05.2017, 18:26 **[ТС]**

Спасибо) разобрался

Новые блоги и статьи Все статьи Все блоги /
Программный отбор значения справочника Maks 21.03.2026 Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:

@888krot888 0 / 0 / 0 Регистрация: 14.05.2016 Сообщений: 28

	Вывести на форму сведения о Оперативной Памяти 08.05.2017, 13:47. Показов 1065. Ответов 4 Метки нет (Все метки) Должна быть память оперативки в Мб 0

@888krot888 0 / 0 / 0 Регистрация: 14.05.2016 Сообщений: 28
	08.05.2017, 14:59 [ТС]
	дипломную пишу, нужен программный продукт в VB, который выдает информацию о компьютере, а так я в нем не особо шарю, вот и ищу помощи. Спасибо тебе) Добавлено через 4 минуты скажи а почему выдаёт 2 значения: одно 2048 , а другое 4096? 0

@888krot888 0 / 0 / 0 Регистрация: 14.05.2016 Сообщений: 28
	08.05.2017, 18:26 [ТС]
	Спасибо) разобрался 0

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

Решение