Nedtælling

Find sådan et script på
www.script.dk
eller viewsource.dk

nu har jeg kigget rundt derinde et stykke tid men jeg kan ikke finde noget kunne du ligge sourckoden herind??

/RazersEdge

Lav en Form med en Textbox, en Timer og en Command knap. Skriv tiden der skal tælles ned fra i Text1 og Click på Command1.

Private Sub Command1_Click()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Text1 = Text1 - 1
    If Text1 = 0 Then Timer1.Enabled = False
End Sub

OK, det virker men hvor skal jeg så skrive ind og hvad hvis jeg f.eks vil have den til at starte \"1.wav\"

brug kommandoen Shell.

Dette vil starte regnemaskinen.

If Text1 = o Then
    Dummy = Shell(\"C:\\windows\\calc.exe\")
EndIf

Sorry! Du skal selvfølgelig første starte en .exe fil for at køre en .wav

Jeg har windows me.
Her er et eksempel.

X = Shell(\"C:\\Programmer\\Windows Media Player\\WMPLAYER.EXE C:\\musik\\record1.wav\")

Igen tak.... det virker alt sammen :O)

Du behøver ikke at starte et program til at afspille wav filer du kan lade dit program gør det

\'i et module
Public Declare Function mciSendString Lib \"winmm.dll\" Alias \"mciSendStringA\" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

\'Dette spiller en lyd ved start af programmet
Private Sub Form_Load()
  Dim lRet As Long
  lRet = mciSendString(\"play c:\\startup.wav\", 0, 0&, 0& )


End Sub