En una consulta que hicieron en los foros del guille, preguntaban eso. ¿Se puede poner un gif mientras se hace un proceso muy largo?, sí si se puede! Y aquí esta el ejemplo de cómo se puede hacer.

Saludos Manu

Pues eso, para la clase de “programación de Sistemas” con el Dr. Nicolás Arrioja bajamos el ejemplo de cómo utilizando un objeto COM, podemos darle a nuestra aplicación la posibilidad de hablar.

Saludos Manu.

Actualizada la dll que permite enviar un correo desde .net, esta vez podemos enviar un adjunto, de momento solo se envía a una sola persona, por lo que si necesitas enviar un mensaje a mas de una persona tendrás que crear un objeto para cada persona, meterlo a un ciclo y liberar recursos cada vez. Espero poder adaptarlo a un envío masivo, si la quieren revisar aqui esta el link

[mdComments en tiempo de ejecución]

Resumen:

Hice este programa para una materia donde nos pedían trabajar en equipo y desarrollar entre todos un software para no me acuerdo que cosa, pero teníamos que documentar dicho software de forma unificada, es decir que todos lo hiciéramos de la misma manera y que cada porción de código desarrollado tuviera el nombre del responsable, para que si el soft se caía supieran a quien echarle la culpa. La primera versión creo que no soportaba lenguajes de “punto y coma”, a esta ultima le he ido metiendo más cosas porque creo que es funcional a pesar de ser una herramienta bastante simple.

[Ejemplo de una region sin compactar]

[region compactada]

Lo último que le metí fue la posibilidad de crear regiones. Eso quiere decir que todo lo que este dentro de Region y End Region se puede compactar para que no ocupe mucho espacio en el IDE (sólo funciona con VS), incorpora la posibilidad de  quedar por encima de todas las ventanas, si programamos siempre con VB no tendremos que seleccionar cada vez que inicie el programa el lenguaje; además de que el nombre será fijo, eso quiere decir que solo nos tenemos que preocupar por ingresar la descripción del método o porción de código que queremos documentar.

Descargar

Saludos Manu

Pues eso, que le detecte desde hace muchos días un error a este programa, así que ya lo he corregido, sucedía que cuando minimizabas y querías mostrar de nuevo la ventana se generaba el evento que cancelaba el reloj, así que para que eso no pase le agregue un menú junto al reloj, entonces solo podrás cancelar el programa desde el botón que esta en la pantalla, agregue una mejora (una mejora?) sii una mejora, le agregue un Check que permitirá o no almacenar el último tiempo especificado para el apagado, esto quiere decir: si siempre apagas la computadora en 45 minutos no tendrás que escribirlo cada vez que inicie el programa ya que almacenaremos ese dato en el registro de Windows.

Saludos Manu

Descargar

mdExpo es un programa que mide el tiempo de una exposición, ¿Porque?, Bueno, algunas veces te toca exponer algún tema y no eres el único, entonces, si te pasas de tiempo descompones el itinerario o en el peor de los casos a alguien le tocará decirte “ya córtale”.

Revisión al código: ahora tiene un menú para poder reiniciar el reloj y poder detenerlo desde el menu (junto al reloj de windows) y la imagen png esta incluida, en la versión anterior no estaba y generaba un error (utilizaba el path directamente, ahora es relativo)

Este programa te avisa cuando se te haya terminado el tiempo.

[Mostrando el tiempo que llevamos]

En esta ocasión utilizo un stopWacht (Es muy parecido al mdShutdown) que es un cronometro, entonces lo inicio al pulsar el botón y al mismo tiempo lanzo un timer que, cada segundo verifica que no llegue al tiempo asignado, un minuto antes me avisa con un globo junto al reloj que se me ha terminado el tiempo, utilizo la clase my para reproducir un sonido (por si no has visto el globo), cuando ya se haya terminado el tiempo (un minuto después) reproducimos otro sonido y nuevamente mostramos un mensaje junto al reloj.

Código

   1:  Imports System.Windows.Forms

   2:  Public Class frmExpo

   3:      'Heredamos de una ventana transparente

   4:      Inherits frmTransparente

   5:      '

   6:      Dim reloj As New Stopwatch

   7:      Dim strTiempo As String

   8:      Dim limiteTiempo As TimeSpan

   9:      Dim tiempoRestante As Double

  10:      Dim Minutos As Integer

  11:      Dim avisado As Boolean = False

  12:      ''' <summary>

  13:      ''' Este boton inicia el cronometro y pone un mensaje junto al reloj

  14:      ''' </summary>

  15:      Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

  16:          Me.Hide()

  17:          Me.tmr.Enabled = True

  18:          reloj.Start()

  19:          limiteTiempo = New TimeSpan(0, CInt(Me.numMins.Value), 0)

  20:          Me.ntyExpo.ShowBalloonTip(2, "mdExpo", "Se inició el cronometro, tienes " & Me.numMins.Value.ToString & " Minutos", ToolTipIcon.Info)

  21:      End Sub

  22:      ''' <summary>

  23:      ''' El timer una vez iniciado se encarga de verificar cada segundo

  24:      ''' que el tiempo transcurrido sea menor o igual al tiempo asignado

  25:      ''' cuando falta un minuto reproducimos un sonido en forma de alerta

  26:      ''' utilizando la clase my y mostramos un mensaje junto al reloj

  27:      ''' 

  28:      ''' </summary>

  29:  

  30:      Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.Tick

  31:          strTiempo = reloj.Elapsed.Hours.ToString & ":" & reloj.Elapsed.Minutes.ToString & ":" & reloj.Elapsed.Duration.Seconds.ToString

  32:          Me.lblInfo.Text = "Tiempo transcurrido: " & strTiempo

  33:          Minutos = Math.Abs(reloj.Elapsed.Duration.Minutes - CInt(Me.numMins.Value))

  34:          If Minutos <= 1 And avisado = False Then

  35:  

  36:              My.Computer.Audio.Play(Application.StartupPath & "alerta.wav")

  37:              Me.ntyExpo.ShowBalloonTip(1, "mdExpo", "Te queda un Minuto para terminar.", ToolTipIcon.Warning)

  38:              avisado = True

  39:          End If

  40:          If reloj.Elapsed >= limiteTiempo Then

  41:  

  42:              My.Computer.Audio.Play(Application.StartupPath & "sonido.wav")

  43:              Me.ntyExpo.ShowBalloonTip(1, "mdExpo", "Se ha terminado el tiempo asignado", ToolTipIcon.Info)

  44:              reloj.Stop()

  45:              tmr.Enabled = False

  46:          End If

  47:      End Sub

  48:      ''' <summary>

  49:      ''' Creamos una hora apartir de la fecha actual

  50:      ''' </summary>

  51:      ''' <param name="horas"></param>

  52:      ''' <param name="minutos"></param>

  53:      ''' <returns></returns>

  54:      ''' <remarks></remarks>

  55:      Private Shared Function newHora(ByVal horas As Integer, ByVal minutos As Integer) As Date

  56:          Dim hora As Date = New Date(Date.Now.Year, Date.Now.Month, Date.Now.Day, horas, minutos, 0)

  57:          Return hora

  58:      End Function

  59:      ''' <summary>

  60:      ''' Mostramos el Form cuando el usuario de clic en el icono junto al reloj

  61:      ''' </summary>

  62:      Private Sub ntyExpo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ntyExpo.Click

  63:          Show()

  64:          WindowState = FormWindowState.Normal

  65:          Activate()

  66:      End Sub

  67:  

  68:      Private Sub frmExpo_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick

  69:          Me.Hide()

  70:      End Sub

  71:  

  72:      Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

  73:          Me.tmr.Enabled = False

  74:          Application.Exit()

  75:  

  76:      End Sub

  77:  End Class

Descargar