script vb

[strafigo17]

mi serve uno script in vb che all'inizio del programma faccio partire un timer a 00.00 sec esegue delle azioni che ho già fatto e poi ad un certo punto del programma lo inserisco e lui appena arriva li controlla che il tempo trascorso arrivi a 15.00 sec spaccati e poi continua le azioni! Insomma vojo un timer....diviso in 2 script, il 1° è quello che fa partire il tempo a 00.00 sec e il 2° è quello che metto a metà programma che controlla l'arrivo dei 15.00 sec per continuare il prog! vi prego aiutatemi....mi serve assolutamente! grazie 1000 a tutti!

[iguana13]

1° script:

public Prima as integer
Sub Main()
prima=timer
end sub

2° script:

Sub Main()
'Aspetta 15 secondi
dim Ora as integer
Prima = timer
do until ora - prima=15
   doevents
   ora=timer
loop
end sub

Spero ke funzioni (gli script sono un'altra cosa)

[strafigo17]

xfetto!!! era quello che cercavo! grazie, però il tempo non si può mettere in millisecondi???? i secondi sono troppo imprecisi x quello che devo fare se qualcuno sa come si fa me lo dica grazie

[strafigo17]

ho trovato questo....



Type Cronom
Inizio As Long
Fine As Long
End Type

Dim Cronometro as Cronom
Declare Function GetTickCount Lib "User" () As Long

Function Tempo () As Long
Tempo = Cronometro.Fine - Cronometro.Inizio
End Function

Sub Inizia ()
Cronometro.Inizio = GetTickCount()
End Sub

Sub Termina ()
Cronometro.Fine = GetTickCount()
End Sub



come faccio a farlo partire da 0 sec e fermarlo quando arriva a 15.00 sec spaccati? dovrebbe andare col dll di windows! aiuto!!! questo è un cronometro!!!