vb6 vs. vb.net vs. ostali, testiranje, offtopic, etc :)

Code:

ASM 9766             5628
VC++ 8703            6309
VB 6672              3155
FB 11140             6719

Code:

Module Module1

    Sub Main()
        Dim no As Integer
        Dim lno As Integer
        Dim StartTime As DateTime
        Dim MyTime As TimeSpan
        no = 0
        MsgBox("merenje pocinje")
        StartTime = Now
        While no < 1000000000
            no += 1
            lno = 1000000000 - no
        End While
        MyTime = Now - StartTime
        MsgBox("trajalo je " & MyTime.TotalMilliseconds & "ms")
    End Sub

End Module

Code:

        MsgBox("merenje pocinje")
        StartTime = Now
        MyTime = Now - StartTime
        MsgBox("trajalo je " & MyTime.TotalMilliseconds & "ms")

Code:
#include "windows.h"

struct LCVOR{
                   char inf;
                   int kljuc;
                   LCVOR *sledeci;
};

void umetni(LCVOR *novi,LCVOR **lista)
{
    if(*lista==NULL){
        novi->sledeci=NULL;
        *lista=novi;}
    else 
        umetni(novi,&(*lista)->sledeci);
}

void brisi_listu(LCVOR **lista){
    if(*lista!=NULL){
        brisi_listu(&(*lista)->sledeci);
        delete *lista;
        *lista=NULL;
    }
}

LCVOR *lista;

void UciniNestoZaSvojuSavjest(int n){
     LCVOR *tekuci = new LCVOR;
     tekuci->inf = n;
     umetni(tekuci, &lista);     
     
}

int APIENTRY WinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPSTR     lpCmdLine,
                     int       nCmdShow)
{
     long count1 ,count2, count;
    char* res = new char[256];

    MessageBox(GetActiveWindow(),"Merenje pocinje","VCTest",MB_OK);

    count1=GetTickCount(); //pocetak 
    long no = 0;
    long lno = 0;

        while( no<10000){
            no++;
            lno = 10000 - no;
            UciniNestoZaSvojuSavjest(no);
        }

    count2 = GetTickCount(); //kraj
    count=count2-count1;

    wsprintf(res,"%lu",count);

    char* txt = new char[256];
    lstrcpy(txt,"Izvrsavanje je trajalo " );
    lstrcat(txt,res);
    lstrcat(txt," milisekundi");
    MessageBox(GetActiveWindow(), txt ,"VCTest",MB_OK);
    brisi_listu(&lista);
    return 0;
}