Visual Basic: Måle millisekunder.

xXgmzorXx (1) skrev:

Jeg har prøvet at sætte interval ned på 10 og indtaste "1045", men tiden bliver ikke rigtig fordi at den tæller ca. 3sek for langsomt?

Stopwatch Class
Provides a set of methods and properties that you can use to accurately measure elapsed time.

Windcape (6) skrev:

#5

Du glemte linket: http://msdn.microsoft.com/en-us/library/system.dia...

Imports System.Threading

Public Class Form1

Shared Sub Main(ByVal args() As String)
Dim Timer As New Stopwatch()
Timer.Start()
Thread.Sleep(10000)
Timer.Stop()
' Get the elapsed time as a TimeSpan value.
Dim ts As TimeSpan = Timer.Elapsed
' Format and display the TimeSpan value.
Dim elapsedTime As String = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
Console.WriteLine(elapsedTime, "AAA")
End Sub 'Main
Private Sub Label1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.TextChanged
Label1.Text = Console.ReadLine.StartsWith("AAA")
End Sub
End Class

Windcape (13) skrev:

Derudover forstår jeg stadigvæk ikke at han (spilder?) bruger sin tid på at lære VB.NET i stedet for C# !

using System;
using System.Windows.Forms;
using System.Diagnostics;
using System.Threading;

namespace TimerFun
{
public partial class MainForm : Form
{
private Stopwatch stopWatch = new Stopwatch();
private TimeSpan total = new TimeSpan(0, 0, 0, 10, 45);

public MainForm()
{
InitializeComponent();
}

private void GoButton_Click(object sender, EventArgs e)
{
stopWatch.Start();

new Thread(new ThreadStart(ShowElapsedTime)).Start();
}

private void ShowElapsedTime()
{
while (stopWatch.IsRunning)
{
TimeSpan ts = total - stopWatch.Elapsed;

if ((stopWatch.Elapsed.Seconds == 10)
&& (stopWatch.Elapsed.Milliseconds == 45))
{
stopWatch.Stop();
}

var elapsed = String.Format("{0:00}:{1:00}:{2:00}.{3:00}",
ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds
);

Invoke((Action)(
() => timerTextBox.Text = elapsed
));
}
}
}
}

Windcape (25) skrev:

Hvis du skal arbejde med GUI vil jeg fraråde C++. Specielt hvis du skal arbejde med GUI *og* threading! (som i eksemplet fra #19).

Du burde nok bruge noget tid på at læse op hvad de forskellige teknologier bruges til.

// TimerFun.cpp : Defines the entry point for the application.
//

#include "stdafx.h"
#include "TimerFun.h"

#define MAX_LOADSTRING 100

// Global Variables:
HINSTANCE hInst;								// current instance
TCHAR szTitle[MAX_LOADSTRING];					// The title bar text
TCHAR szWindowClass[MAX_LOADSTRING];			// the main window class name

// Forward declarations of functions included in this code module:
ATOM				MyRegisterClass(HINSTANCE hInstance);
BOOL				InitInstance(HINSTANCE, int);
LRESULT CALLBACK	WndProc(HWND, UINT, WPARAM, LPARAM);

int APIENTRY _tWinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPTSTR    lpCmdLine,
int       nCmdShow)
{
UNREFERENCED_PARAMETER(hPrevInstance);
UNREFERENCED_PARAMETER(lpCmdLine);

// TODO: Place code here.
MSG msg;
HACCEL hAccelTable;

// Initialize global strings
LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);
LoadString(hInstance, IDC_TIMERFUN, szWindowClass, MAX_LOADSTRING);
MyRegisterClass(hInstance);

// Perform application initialization:
if (!InitInstance (hInstance, nCmdShow))
{
return FALSE;
}

hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_TIMERFUN));

// Main message loop:
while (GetMessage(&msg, NULL, 0, 0))
{
if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}

return (int) msg.wParam;
}

//
//  FUNCTION: MyRegisterClass()
//
//  PURPOSE: Registers the window class.
//
//  COMMENTS:
//
//    This function and its usage are only necessary if you want this code
//    to be compatible with Win32 systems prior to the 'RegisterClassEx'
//    function that was added to Windows 95. It is important to call this function
//    so that the application will get 'well formed' small icons associated
//    with it.
//
ATOM MyRegisterClass(HINSTANCE hInstance)
{
WNDCLASSEX wcex;

wcex.cbSize = sizeof(WNDCLASSEX);

wcex.style			= CS_HREDRAW | CS_VREDRAW;
wcex.lpfnWndProc	= WndProc;
wcex.cbClsExtra		= 0;
wcex.cbWndExtra		= 0;
wcex.hInstance		= hInstance;
wcex.hIcon			= LoadIcon(hInstance, MAKEINTRESOURCE(IDI_TIMERFUN));
wcex.hCursor		= LoadCursor(NULL, IDC_ARROW);
wcex.hbrBackground	= (HBRUSH)(COLOR_WINDOW+1);
wcex.lpszMenuName	= MAKEINTRESOURCE(IDC_TIMERFUN);
wcex.lpszClassName	= szWindowClass;
wcex.hIconSm		= LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_SMALL));

return RegisterClassEx(&wcex);
}

//
//   FUNCTION: InitInstance(HINSTANCE, int)
//
//   PURPOSE: Saves instance handle and creates main window
//
//   COMMENTS:
//
//        In this function, we save the instance handle in a global variable and
//        create and display the main program window.
//
BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
{
HWND hWnd;

hInst = hInstance; // Store instance handle in our global variable

hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, 0, 228, 83, NULL, NULL, hInstance, NULL);

if (!hWnd)
{
return FALSE;
}

ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);

return TRUE;
}

//
//  FUNCTION: WndProc(HWND, UINT, WPARAM, LPARAM)
//
//  PURPOSE:  Processes messages for the main window.
//
//  WM_COMMAND	- process the application menu
//  WM_PAINT	- Paint the main window
//  WM_DESTROY	- post a quit message and return
//
//
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
int wmId, wmEvent;
PAINTSTRUCT ps;
HDC hdc;

switch (message)
{
case WM_COMMAND:
wmId    = LOWORD(wParam);
wmEvent = HIWORD(wParam);

break;
case WM_PAINT:
hdc = BeginPaint(hWnd, &ps);
EndPaint(hWnd, &ps);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return DefWindowProc(hWnd, message, wParam, lParam);
}

return 0;
}

reefermadness (29) skrev:

sjovt at code tags kun tæller linjer op til 100 hvorefter den starter fra 1

Windcape (28) skrev:

Og i WINAPI programmering med C++ er inline dokumentation en nødvendighed for at huske hvad man selv har gang i!

Windcape (27) skrev:

rå WINAPI der opretter et vindue uden knapper, textbox eller funktionalitet. Altså svarende til en tom form i C#/VB.NET: