Hola,
Todo eso está muy bien, pero... ¿y si comentas en que lenguaje lo estás haciendo?...
Como iniciar un proceso externo: http://msdn.microsoft.com/en-us/library/system.diagnostics.process.start%28v=vs.100%29.aspx
Para lo del lapsus de tiempo usa un Timer si no tienes la necesidad de mostrar la cuenta regresiva: http://msdn.microsoft.com/en-us/library/system.timers.timer%28v=vs.90%29.aspx
...De lo contrario usa un TimeSpan junsto a un StopWatch si quieres ir mostrando la cuenta atrás hasta llegar a "00" "00" "00" en los TextBoxes: http://msdn.microsoft.com/en-us/library/system.diagnostics.stopwatch%28v=vs.90%29.aspx http://msdn.microsoft.com/en-us/library/system.timespan%28v=vs.90%29.aspx
EDITO: Como reproducir un archivo que no séa WAV:
O usando APIs: http://stackoverflow.com/questions/10244068/playing-a-wav-mp3-file-at-the-start-of-a-vb2010-windows-form
PD: Acerca de la interfaz yo modificaría "Ejecutar sonido" por "Reproducir sonido" y "Ejecutar programa" por "Iniciar proceso".
Saludos.
Todo eso está muy bien, pero... ¿y si comentas en que lenguaje lo estás haciendo?...
Como iniciar un proceso externo: http://msdn.microsoft.com/en-us/library/system.diagnostics.process.start%28v=vs.100%29.aspx
Código [Seleccionar]
process.start(".\AutoIt3.exe", "Argumentos si quieres")Para lo del lapsus de tiempo usa un Timer si no tienes la necesidad de mostrar la cuenta regresiva: http://msdn.microsoft.com/en-us/library/system.timers.timer%28v=vs.90%29.aspx
Código [Seleccionar]
timer1.interval = 5000 ' ms...De lo contrario usa un TimeSpan junsto a un StopWatch si quieres ir mostrando la cuenta atrás hasta llegar a "00" "00" "00" en los TextBoxes: http://msdn.microsoft.com/en-us/library/system.diagnostics.stopwatch%28v=vs.90%29.aspx http://msdn.microsoft.com/en-us/library/system.timespan%28v=vs.90%29.aspx
Código (vbnet) [Seleccionar]
#Region " Time Remaining "
' [ Time Remaining ]
'
' // By Elektro H@cker
'
' Examples :
' CountDown_Start()
Dim TotalTime As Long = 10000 ' ms
Dim Time_Elapsed_Watch As New Stopwatch
Dim Time_Remaining_Span As New TimeSpan()
Dim WithEvents CountDown_Timer As New Timer
Private Sub CountDown_Start()
Time_Remaining_Span = TimeSpan.FromMilliseconds(TotalTime + 1000)
Time_Elapsed_Watch.Start()
CountDown_Timer.Start()
End Sub
Private Sub CountDown_Timer_Tick(sender As Object, e As EventArgs) Handles CountDown_Timer.Tick
Dim TimeRemaining As TimeSpan = Time_Remaining_Span - Time_Elapsed_Watch.Elapsed
Label1.Text = "Elapsed : " & _
String.Format("{0:00}:{1:00}:{2:00}", _
Time_Elapsed_Watch.Elapsed.Hours, _
Time_Elapsed_Watch.Elapsed.Minutes, _
Time_Elapsed_Watch.Elapsed.Seconds)
Label2.Text = "TimeLeft: " & _
String.Format("{0:00}:{1:00}:{2:00}", _
CLng(Math.Floor(TimeRemaining.TotalHours)) Mod 999999999999999999, _
CLng(Math.Floor(TimeRemaining.TotalMinutes)) Mod 60, _
CLng(Math.Floor(TimeRemaining.TotalSeconds)) Mod 60)
If TimeRemaining.TotalSeconds <= 0 OrElse Time_Elapsed_Watch.ElapsedMilliseconds > TotalTime Then
Time_Elapsed_Watch.Reset()
CountDown_Timer.Stop()
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CountDown_Start()
End Sub
#End RegionEDITO: Como reproducir un archivo que no séa WAV:
Cita de: http://www.daniweb.com/software-development/vbnet/threads/119460/playing-mp3-file-with-vb.netCódigo (vbnet) [Seleccionar]On Error GoTo ErrMsg
AxMMControl1.Wait = True
AxMMControl1.FileName = OpenFileDialog1.FileName
AxMMControl1.Command = "Open"
AxMMControl1.Command = "Play"
Exit Sub
ErrMsg:
MsgBox(Err.Description)
End Sub
O usando APIs: http://stackoverflow.com/questions/10244068/playing-a-wav-mp3-file-at-the-start-of-a-vb2010-windows-form
PD: Acerca de la interfaz yo modificaría "Ejecutar sonido" por "Reproducir sonido" y "Ejecutar programa" por "Iniciar proceso".
Saludos.
