Вывести на форму время работы компьютера - VB

  1. После нажатия на форме появляется время работы компьютера


textual

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

Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private Sub Command1_Click()
ret& = GetTickCount&
s = ret& / 1000
m = s \ 60
 h = m \ 60
 m = m Mod 60
 s = s Mod 60
 
 Print Right("00" & h, 2) & ":" & Right("00" & m, 2) & ":" & Right("00" & s, 2) & vbCrLf
  
End Sub

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

11   голосов, оценка 3.909 из 5



Похожие ответы
  1. Дана матрица размером MxN . Найти количество его столбцов, элементы которых упорядочены по убыванию.

  1. Добрый день. Есть тестовое приложение, оно содержит один элемент меню, на котором висит shortcut(Ctrl+L) и командную кнопку. Если я нажимаю комбинацию клавиш Ctrl+L с клавиатуры, то появляется окно сообщения, что нажат пункт меню. Как сделать так, чтобы при нажатии на командную кнопку эмулировалось нажатие Ctrl+L для меню. Эту задачу удается решить с помощью keybd_event, но необходимо в дальнейшем отправлять комбинацию в функцию окна, использую хэндл окна. Соответственно keybd_event по этой причине не подходит, как не подходит и отправка сообщения wm_command. По идее, должен работать вариант с отправкой сообщений wm_keydown для каждой клавиши. Например: PostMessage хэндл окна, номер сообщения, vkkeycode(vk_control), lParam(содержит repeatcount и scancode) PostMessage хэндл окна, номер сообщения, vkkeycode(vk_L), lParam(содержит repeatcount и scancode) Но при этом ноль реакции. Через spy++ смотрел сообщения клавиатуры. При физическом нажатии так же генерируются два keydown-а, как и при эмуляции через postmessage. Содержимое сообщений идентичны. Но, в обоих случаях так же появляется сообщение wm_char, они отличаются по содержимому wParam, lParam. wm_char я не отправляю, оно генерируется, как я понимаю defwindowproc. Буду признателен и благодарен за решение или направление в нужную сторону, т.к. ситуация тупиковая, на данный момент.

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

  1. Должно работать после нажатия command)Добавлено через 5 часов 49 минут Неужели никто не может этого в VB?(

  1. Все элементы главной диагонали заменить наибольшим элементом всего массива! не пойму как делать

  1. Есть ли возможность как то выводить в лог-файл все действия программы? Но так чтоб это было не так трудоёмко добавлять в уже готовую программу

  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!