ne um contador de tempo

[stirk 0]

ola esto fazendo um curso tecnico que temos inicialisasao em robotica.nao vimos vb ainda e soi irei ver no semestre que vem o professor pediu para fazer um contador que mostre a hora inicial que o programa foi executado o tempo de duraçao e o tempo de termino ele pediu em pascal ao qual ja fiz em c que fiz e nao sei se ta serto e em vb que nao tenho naçao nem uma ate tentei fazer vendo umas apostilas mas coloquei a label e uma relogio e estrevi label1=timer e nao sei oq fazer alguem pode me ajudar ????vou colocar os codigos que ja fiz para verem que nao e preguisa pois se nao sei fazer nao tenho vergonha de pedir ajuda e se alguem quizer ajuda por msn me fala que ai vou fazendo conforme for falando ok . obrigado a todos.codigo pascalprogram ExercRobotica;uses dos;var hora,minuto,segundos,msegundos:word;i:real;beginGettime(hora,minuto,segundos,msegundos);writeln('Programa iniciado as :',hora,':',minuto,':',segundos,':',msegundos);while i<50000000 dobegini:=i+1;end;Gettime(hora,minuto,segundos,msegundos);writeln('Programa terminado as :',hora,':',minuto,':',segundos,':',msegundos);end.codigo c++ (nao sei se ta serto mas rodando ta hehehe)#include <time.h>#include <stdio.h>int main(){ long int cont; char timeStr; _strtime (timestr); printf ("O programa comecou a contagem as: \n",timestr); while (cont < 963214789) { cont=cont 1; } _strtime (timeStr); printf ("O programa terminou a contagem as: \n",timestr); getchar();}

[Luizgrs 0]

Para pegar a hora do sistema em vb você faz assim:

 

Time

Daí o que você pode fazer para avisar o usuário é jogar isso para uma label:

label1 = Time

Ou pode mostrar uma Caixa de Mensagem:

Msgbox Time

E para juntar algum texto à hora você faz assim:

label1 = "Hora atual: " & TimeMsgbox "Hora Atual: " & Time

Partindo daí é só você colocar isso nos eventos load e unload do form, para quando ele abrir e fechar indicar o horário.