|
9301
|
Programación / .NET (C#, VB.NET, ASP) / Re: Duda con timer
|
en: 24 Marzo 2013, 15:37 pm
|
Tengo mi codigo dentro de un timer, lo que hace es cada segundo mover un picturebox en linea recta como si fuera un coche....pero yo necesito que despues de X segundos vuelva a ejecutarse nuevamente el codigo para que movilize a otro picturebox Se me ocurre que podrías modificar el atributo "TAG" del timer para especificar (en modo de string) e identificar el control que quieres mover. Aquí tienes un ejemplo que acabo de hacer, por si te sirve, aunque en lugar de usar el tag para especificar el control, lo hago para especificar la dirección (me aburría xD), puedes ajustarlo a tus necesidades... Public Class Form1 ' Añade 1 button y 2 picturebox al form Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MoveControl(PictureBox1, Direction.Up, 1, 2000) While StartMove.Enabled : Application.DoEvents() : End While MoveControl(PictureBox2, Direction.Up, 200, 10000) End Sub #Region " Move controls " Dim ControlToMove As Control Dim StartMove As New Timer Dim EndMove As New Timer Public Enum Direction Up = 0 Down = 1 Left = 2 Right = 3 End Enum Public Sub MoveControl(ByVal Control As Control, _ ByVal Direction As Direction, _ ByVal Interval As Int16, _ ByVal TimeOut As Int16) ControlToMove = Control StartMove.Tag = Direction AddHandler StartMove.Tick, AddressOf StartMove_Tick AddHandler EndMove.Tick, AddressOf EndMove_Tick StartMove.Interval = Interval EndMove.Interval = TimeOut StartMove.Start() EndMove.Start() End Sub Private Sub StartMove_Tick(sender As Object, e As EventArgs) Select Case sender.tag Case 0 : ControlToMove.Location = New Point(ControlToMove.Location.X, ControlToMove.Location.Y - 1) Case 1 : ControlToMove.Location = New Point(ControlToMove.Location.X, ControlToMove.Location.Y + 1) Case 2 : ControlToMove.Location = New Point(ControlToMove.Location.X - 1, ControlToMove.Location.Y) Case 3 : ControlToMove.Location = New Point(ControlToMove.Location.X + 1, ControlToMove.Location.Y) End Select End Sub Private Sub EndMove_Tick(sender As Object, e As EventArgs) StartMove.Stop() EndMove.Stop() End Sub #End Region End Class
|
|
|
9304
|
Programación / Programación General / Intercambiar canales estéreo de los Headphones?
|
en: 24 Marzo 2013, 02:48 am
|
Hola Necesito intercambiar los canales estéreo (En Windows), es decir, que lo que se escuche por el canal izquierdo se escuche por el derecho, y viceversa, lo mismo que se consigue poniéndose unos auriculares al revés. No me importaría hacerlo en el lenguaje que séa necesario, porque no he encontrado absolutamente nada en Google sobre el tema así que si hace falta aprenderé lo básico de dicho lenguaje, pero empiezo a pensar que esto de intercambiar los canales no es algo posible... sáquenme de dudas porfavor. Yo sé utilizar la API de CoreAudioAPI para manejar el balance de cada canal, pero esto no es lo que necesito porque quiero cambiar el canal izquierdo por el derecho, es decir, quiero togglearlos, no andar ajustando el balance de cada canal... PD: También he mirado la API de DirectX y Directsound, y la interface MCI, no me ha parecido encontrar nada que se le asimile. Todo esto lo necesito para hacer una simple aplicación CLI con el único propósito de togglear los canales, tán "sencillo" como eso . Gracias por leer.
|
|
|
9305
|
Programación / Programación General / [SOLUCIONADO] Un ToolTip me está dando por...
|
en: 24 Marzo 2013, 00:55 am
|
Perdón, quería postear en .NET y me equivoqué, ¿Me lo mueven ?, sorry
Bueno pues en este sub manejo un numericupdown y un combobox Lo que intento es, que al escribir un número mayor de "X" en el numericupdown, mostrar una pequeña alerta para indicar que no se puede aumentar el valor. El problema es que, después de alertar una primera vez, el tooltip sigue mostrando las alertas aunque la condición no se cumpla: El code: ' NumericUpDown Time / ComboBox Time Measure Private Sub ComboBox_Measure_SelectedIndexChanged(sender As Object, e As EventArgs) Handles _ ComboBox_Measure.SelectedIndexChanged, _ NumericUpDown_Time.ValueChanged Select Case ComboBox_Measure.SelectedIndex Case 0 ' Seconds Time_Out = (Convert_Time(NumericUpDown_Time.Value, S, MS)) Time_Measure = S Case 1 ' Minutes If NumericUpDown_Time.Value >= 35793 Then NumericUpDown_Time.Value = 35792 : GoTo ToolTip Time_Out = (Convert_Time(NumericUpDown_Time.Value, M, MS)) Time_Measure = M Case 2 ' Hours If NumericUpDown_Time.Value >= 597 Then NumericUpDown_Time.Value = 596 : GoTo ToolTip Time_Out = (Convert_Time(NumericUpDown_Time.Value, H, MS)) Time_Measure = H Case 3 ' Days If NumericUpDown_Time.Value >= 25 Then NumericUpDown_Time.Value = 24 : GoTo ToolTip Time_Out = (Convert_Time(NumericUpDown_Time.Value, H, MS)) * 24 Time_Measure = H Case 4 ' Weeks If NumericUpDown_Time.Value >= 4 Then NumericUpDown_Time.Value = 3 : GoTo ToolTip Time_Out = (Convert_Time(NumericUpDown_Time.Value, H, MS)) * 168 Time_Measure = H End Select Exit Sub ToolTip: 'ToolTip1.Active = True 'ToolTip1.SetToolTip(Me.NumericUpDown_Time, "Max value") ToolTip1.Show("Max value", Me.NumericUpDown_Time, 1500) 'ToolTip1.Hide(Me.NumericUpDown_Time) 'ToolTip1.Active = False End Sub
|
|
|
9306
|
Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)
|
en: 23 Marzo 2013, 23:45 pm
|
Copiar un archivo con posibilidad de cancelar la operación y reemplazar: #Region " Copy File In Chunks " ' [ Copy File In Chunks Function ] ' ' // By Elektro H@cker ' ' Examples : ' Copy_File_In_Chunks("C:\BigFile.mkv", "C:\BigFile_copy.mkv") ' Copy_File_In_Chunks("C:\BigFile.mkv", "C:\BigFile_copy.mkv", 9999, True, True) Dim Cancel_Copy As Boolean = False Public Function Copy_File_In_Chunks(ByVal InputFile As String, ByVal OutputFile As String, _ Optional ByVal BufferSize As Int16 = 1024, _ Optional ByVal Overwrite As Boolean = False, _ Optional ByVal DeleteFileOnCancel As Boolean = False) As Boolean Dim InputStream As New IO.FileStream(InputFile, IO.FileMode.Open, IO.FileAccess.Read) Dim OutputStream As IO.FileStream If Overwrite Then OutputStream = New IO.FileStream(OutputFile, IO.FileMode.Create, IO.FileAccess.Write) Else OutputStream = New IO.FileStream(OutputFile, IO.FileMode.CreateNew, IO.FileAccess.Write) End If Dim Buffer = New Byte(BufferSize) {} Dim BytesRead As Integer = 0 Do : If Cancel_Copy Then : GoTo Close_Copy Else Application.DoEvents() ' Remove it if you don't like... BytesRead = InputStream.Read(Buffer, 0, Buffer.Length) If BytesRead > 0 Then OutputStream.Write(Buffer, 0, BytesRead) End If Loop While (BytesRead > 0) Close_Copy: OutputStream.Flush() : InputStream.Close() : OutputStream.Close() If DeleteFileOnCancel Then Try : IO. File. Delete(OutputFile ) : Catch : End Try Return False Else : Return True End If End Function #End Region
|
|
|
9308
|
Programación / Scripting / Re: Ayuda con mi batch
|
en: 23 Marzo 2013, 22:55 pm
|
Pues puedes hacerlo de la misma manera en que has especificado la ruta de los executables... Te véo muy liado con el tema, es mejor que hagas esto: adb wait-for-device adb reboot bootloader fastboot update root.zip fastboot reboot
Saludos.
|
|
|
9309
|
Programación / Scripting / Re: Enviar correo desde batch
|
en: 23 Marzo 2013, 22:51 pm
|
@Hackerneto
Tu crees que puedes preguntar diréctamente en un post de hace 3 años una pregunta que no está muy relacionada al autor del post que es un usuario inactivo con sólo 4 mensajes, ¿y esperar recibir alguna respuesta?
Léanse las normas sobre revivir temas antiguos porfavor.
Tema cerrado.
|
|
|
9310
|
Programación / Scripting / Re: Ayuda con mi batch
|
en: 23 Marzo 2013, 22:43 pm
|
No se entiende el problema y no creo que ninguno de los que te hemos leido dispongamos de dichas aplicaciones para entenderlo, explíca mejor la parte del zip... Si tienes problemas con una utilidad en particular, mírate la ayuda de dicha aplicación con el parámetro adecuado: FastBoot /? FastBoot -h FastBoot -help Saludos.
|
|
|
|
|
|
|