Mensajes

[EDITO:]

No sirve ninguno de los links

EDITO:

Código [Seleccionar] Expandir

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode.ToString = "F1" Then
            Me.KeyPreview = True
            System.Threading.Thread.Sleep(2000)
            TextBox1.Text = System.Windows.Forms.Cursor.Position.X
            TextBox2.Text = System.Windows.Forms.Cursor.Position.Y

        End If
    End Sub


Tecla F1 Captura la posicion actual del mouse y las anota en los Textbox

Miren esta manera mucho mas sencilla de usar el cronometro

Public Class Form1
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        tmrWatch.Start()
    End Sub
    Private Sub btnStop_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStop.Click
        tmrWatch.Stop()
    End Sub
    Private Sub tmrWatch_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrWatch.Tick
        txtTenths.Text -= 1
        If txtTenths.Text = -1 Then
            txtTenths.Text = 9
            txtSeconds.Text -= 1
            If txtSeconds.Text = -1 Then
                txtSeconds.Text = 59
                txtMinutes.Text -= 1
                If txtMinutes.Text = -1 Then
                    txtMinutes.Text = 59
                    txtHours.Text -= 1
                    If txtHours.Text = -1 Then
                        txtHours.Text = 23
                        txtDays.Text -= 1
                        If txtDays.Text = -1 Then
                            tmrWatch.Stop()
                            txtTenths.Text = "0"
                            txtSeconds.Text = "0"
                            txtMinutes.Text = "0"
                            txtHours.Text = "0"
                            txtDays.Text = "0"
                        End If
                    End If
                End If
            End If
        End If
    End Sub

Hola, estoy en la creacion de un auto mouse que de click en especificas coordenadas...

algo como esto







y para ver la coordenada especifica

Código [Seleccionar] Expandir

Public Class Form1
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.KeyPreview = True
   End Sub
   Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
       If e.KeyCode.ToString = "F1" Then
           Me.KeyPreview = True
           System.Threading.Thread.Sleep(1000)
           TextBox1.Text = System.Windows.Forms.Cursor.Position.X
           TextBox2.Text = System.Windows.Forms.Cursor.Position.Y
       End If
       If e.KeyCode.ToString = "F2" Then
           Clipboard.SetText(TextBox1.Text & " - " & TextBox2.Text)
           TextBox3.Text = Clipboard.GetText
       End If
   End Sub
End Class

Veo que el codigo es muy diferente, cabe mencionar que uso VB.NET 2008

Al ver tu codigo, vi cosas que no habia visto antes 

quede algo confundido, pues por lo que XresH me explico de otra manera.... siendo el mismo proceso pero con codigo diferente

pero se agradece tu intencion por ayudarme.. el codigo ahora si funciona, justo ahora mire tu ejemplo y a segun lo que entendi decidi crear uno nuevo y si funciono

En ningúna parte de tú código veo que hayas usado el código que te he mostrado, tampoco veo que hayas declarado las variables de mi ejemplo.

PD: Aunque tampoco voy a testear un código sin que me des detalles de porque "no funciona"

Saludos!

Detalles: cuando selecciona la funcion de "sonido o proceso" esta automaticamente se inicia sin nisiquiera transcurrir el tiempo




Si, lo se lo elimine.. pues no se la forma correcta de como insertarlo

Código [Seleccionar] Expandir

Public Class Form1
   Dim Hora As Integer
   Dim Segundo As Integer
   Dim Minutos As Integer
   Dim Mx As Integer
   Dim Run_Sound As Boolean = False
   Dim Run_Program As Boolean = False

   Private Sub CalcularyMostrar()
       TextBox1.Text = Hora.ToString.PadLeft(2, "0") 'para rellenar en caso que sea menor que dos digitos
       TextBox2.Text = Minutos.ToString.PadLeft(2, "0")
       TextBox3.Text = Segundo.ToString.PadLeft(2, "0")
   End Sub


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox3.Text = "" Then
           MsgBox("Indica el tiempo para Iniciar")
           Exit Sub
       End If
       Segundo = TextBox3.Text
       Minutos = TextBox2.Text
       Hora = TextBox1.Text
       Timer1.Enabled = True

   End Sub
   Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Mx = Mx - 1
       If Mx = 0 Or Mx = -1 Then
           Mx = 9
           Segundo = Segundo - 1
           If Segundo = -1 Then
               Segundo = 59
               Minutos = Minutos - 1
               If Minutos = 0 Then
                   Minutos = 59
                   Hora = Hora - 1
               End If
           End If
           If Hora = 0 Then
               If Minutos = 0 Then
                   If Segundo = 0 Then
                       TextBox3.Text = "00"
                       Timer1.Enabled = False

                      If Run_Sound Then
                           ' play wav
                       ElseIf Run_Program Then
                           ' process.start()
                       Else
                           Throw New Exception("Wrong option")
                       End If


                       Exit Sub
                   End If
               End If
           End If
           CalcularyMostrar()
       End If
   End Sub


   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Timer1.Enabled = False
       My.Computer.Audio.Stop()
   End Sub


   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       Label1.Text = Date.Now.ToLongTimeString
   End Sub

   Private Sub RadioButtons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click, RadioButton2.Click
       Select Case sender.tag.tolower
           Case "sound" : Run_Sound = True : Run_Program = False
           Case "program" : Run_Program = True : Run_Sound = False
           Case Else : Throw New Exception("Wrong tagname")
       End Select
   End Sub
End Class

Humm, gracias el codigo que me das Electro.. tal parece no funciona... cuando selecciona la funcion de "sonido o proceso" esta automaticamente se inicia sin nisiquiera transcurrir el tiempo

mira te paso todo el codigo que llevo hasta ahora

Código [Seleccionar] Expandir

Public Class Form1
   Dim Hora As Integer
   Dim Segundo As Integer
   Dim Minutos As Integer
   Dim Mx As Integer

   Private Sub CalcularyMostrar()
       TextBox1.Text = Hora.ToString.PadLeft(2, "0") 'para rellenar en caso que sea menor que dos digitos
       TextBox2.Text = Minutos.ToString.PadLeft(2, "0")
       TextBox3.Text = Segundo.ToString.PadLeft(2, "0")
   End Sub

   
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox3.Text = "" Then
           MsgBox("Indica el tiempo para Iniciar")
           Exit Sub
       End If
       Segundo = TextBox3.Text
       Minutos = TextBox2.Text
       Hora = TextBox1.Text
       Timer1.Enabled = True
 
   End Sub
   Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Mx = Mx - 1
       If Mx = 0 Or Mx = -1 Then
           Mx = 9
           Segundo = Segundo - 1
           If Segundo = -1 Then
               Segundo = 59
               Minutos = Minutos - 1
               If Minutos = 0 Then
                   Minutos = 59
                   Hora = Hora - 1
               End If
           End If
           If Hora = 0 Then
               If Minutos = 0 Then
                   If Segundo = 0 Then
                       TextBox3.Text = "00"
                       Timer1.Enabled = False

                       'Aqui es donde termina el tiempo, y es donde tiene que
                       'inicar alguna de las variables "sonido o proceso"

                       Exit Sub
                   End If
               End If
           End If
           CalcularyMostrar()
       End If
   End Sub


   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Timer1.Enabled = False
       My.Computer.Audio.Stop()
   End Sub


   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       Label1.Text = Date.Now.ToLongTimeString
   End Sub

End Class


no se que es lo que no comprendo, pero no funciona :/

Gracias al usuario XresH, por explicarme...

logre esto...



Cuando llega a 00:00:00 reproduce un sonido.wav usando este codigo

Código [Seleccionar] Expandir

Try
                           Dim ruta As String
                           ruta = My.Application.Info.DirectoryPath & "\Sonido.wav"
                           My.Computer.Audio.Play(ruta, AudioPlayMode.BackgroundLoop)
                           My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
                       Catch ex As Exception
                       End Try
hasta ahora todo funciona....




ahora quiero crear dos variables

"Reproducir sonido" y "Ejecutar proceso"



elemplo, selecciono el RadioButton1 y se activa la funcion de "Reproducir sonido"









cuando selecciono el RadioButton2 se ejecuta un "proceso/archivo"

y todo esto ocurre al llegar a 00:00:00

es programacion en visual basic 2008...


voy a probar tu codigo y miro que tal funciona

gracias por ayudar a un novaton en esto del mundo de la programacion

Hola foreros, me preguntaba si podian ayudar en la programacion de un cronometro regresivo

miren este seria el diseño basico y simple



Perdon, si les pido mucho...

en el RadioButton1 "Ejecutar Programa" quiero que abra un programa, pero este programa estara en la misma ruta de la carpeta, ejemplo..
Al termina el tiempo se ejecutara el AutoIt3

y en el RadioButton2 "Ejecutar Sonido" igual que reproduzca el sonido




en los Botones "Iniciar y Detener" pues es obvio iniciar el timer o detenerlo


y en los TextBox "Horas, Minutos y Segundos" yo pueda aplicar el tiempo que quiero poner en regresiva y al finalizar el tiempo se ejecute alguna de las dos acciones. el sonido o el programa

que en una hora con cinco minutos se ejecute el sonido


que en 24 horas ejecute el sonido etc



Espero y no ser molesto, lo se soy un novato pregunton

Veran, me he guiado por un ejemplo en .Bat de un sincronizador de carpetas simple

Código [Seleccionar] Expandir

xcopy C:\Users\*****\Music\Musica D:\Musica /d /y /e
pause

Pero ahora ya quiero pasar a otro nivel Visual Basic, algo simple para los que apenas estamos empezando



Igual esto fue lo que trate de hacer

Código [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("cmd /c xcopy /h/v/s/e/r/y/c/k/m/d " & Chr(34) & "ComboBox1.text" & Chr(34) & " " & Chr(34) & "ComboBox2.text" & Chr(34), vbNormalFocus)
    End Sub

Pero no dio resultado, se que funciona Si, y solo si quito los "ComboBox.text" y pongo la ruta directa..
Creo que me faltara aprender mucho 

> Quiero seleccionar que carpetas sincronizar (En el ComboBox)
> Seleccionar la Ruta a donde sincronizarlas