Jump to content

ouji_sama

Warianos
 View Profile  See their activity

  • Posts

    51

  • Joined

  • Last visited

 Content Type 

Posts posted by ouji_sama

  3. calcular días y fechas entre rangos con DateTimePicker?

    in Aplicaciones de Escritorio & Scripts PHP

    Posted · Edited by ouji_sama

    Este código hace algo parecido a lo que necesitas, así que no deberías tener problemas para modificarlo:

     

    Public Class Form1
Private dias() As String = {"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado"}

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
	Dim fecha As Date
	Dim cont As Integer = 0

	If DateTimePicker1.Value < DateTimePicker2.Value Then
		fecha = DateTimePicker1.Value
		While fecha < DateTimePicker2.Value
			ListBox1.Items.Add(fecha.ToShortDateString())
			fecha = fecha.AddDays(7)
			cont = cont + 1
		End While
		MessageBox.Show(String.Format("Hay {0} días que caen {1}", cont, dias(fecha.DayOfWeek)))
	End If
End Sub
End Class

     

    El ejemplo toma la fecha inicial y le va sumando una semana hasta llegar a la fecha más próxima a la final.

     

    xRacapt1Ylu.png

     

    Amigo es exactamente lo que necesito!!

     

    apenas llegue a mi casa lo probare!!

     

    te pasaste!!! :salto: :salto: :salto: :salto: :salto: :salto: :salto: :salto:

     

     

    EDITO:

     

    muchas gracias funciona perfecto!! con esto puedo modificarlo a lo que necesito!

     

    te pasaste!!!! :cartita:

  5. calcular días y fechas entre rangos con DateTimePicker?

    in Aplicaciones de Escritorio & Scripts PHP

    Posted

    Estimados!

     

    He probado varias maneras pero hasta el momento no he podido lograr lo siguiente.

     

    Estoy programando en Visual Basic 2005

     

    Tengo dos DataTimePicker(fecha desde y fecha hasta)

     

    necesito que al seleccionar esas dos fechas me devuelva cuantos lunes, martes, miercoles, jueves, viernes, sabados y domingos hay entre esas dos fechas. Además necesito que me de las fechas(en numeros) de esos dias por ejemplo

     

    desde: 01 de junio de 2012

    hasta: 30 de junio de 2012

     

    4 lunes (lunes 4, lunes 11, lunes 18 y lunes 25)

     

    alguien sabría como lograr esto??? seria de enorme ayuda para lo que estoy desarrollando

     

    de antemano muchas gracias por la ayuda!

  6. consulta sql, combobox y label vb.net

    in Aplicaciones de Escritorio & Scripts PHP

    Posted

    si se puede, te dejo un ejemplo

     

    ' ESTE LLENA EL COMBOBOX

     

    Private Sub llenaclientes()

    Try

    base.conectar()

    comando = New SqlClient.SqlCommand("SELECT cli_nombre FROM clientes ORDER BY cli_nombre", base.conn)

    base.datar = comando.ExecuteReader

    datatable.Load(base.datar)

    comando.Dispose()

    base.datar.Close()

    Me.ComboBox1.DataSource = datatable

    Me.ComboBox1.DisplayMember = "cli_nombre"

    base.desconectar()

    Catch ex As Exception

    'MsgBox(ex.Message)

    End Try

    End Sub

     

    'EVENTO CAMBIA INDICE SELECCIONADO DEL COMBOBOX (HACER CLICK EN UN VALOR DE LA COMBOBOX)

     

     

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    Try

    cliente = Me.ComboBox1.Text

    base.conectar()

    comando = New SqlClient.SqlCommand("SELECT cli_id,cli_email,cli_tipo " _

    & "FROM clientes WHERE cli_nombre='" + cliente + "'", base.conn)

    base.datar = comando.ExecuteReader

    base.datar.Read()

    id = base.datar("cli_id")

    Me.Label1.text = base.datar("cli_email")

    base.datar.Close()

    base.desconectar()

    Catch ex As Exception

    'MsgBox(ex.Message)

    End Try

    End Sub

  8. Enviar correo con archivo adjunto desde Visual Basic 2005

    in Aplicaciones de Escritorio & Scripts PHP

    Posted · Edited by ouji_sama

    Buenas!!

     

    tengo la siguiente consulta si alguien me puede ayudar.

     

    Estoy trabajando con Visual Studio 2005, en una aplicación escritorio

     

    Cree un reporte con crystalreport y lo exporte a pdf en una carpeta del equipo.

     

    ahora necesito enviar ese pdf por correo pero mediante el código.

     

    tengo un boton que debería enviar el correo con el archivo adjunto.

     

    He probado un monton de códigos, pero ninguno funciona o siempre hay errores porque son para asp.

     

    el correo del cual se debe enviar el archivo es un correo @vtr.net

     

    ojala alguno de uds sepa como resolver esto a mi me quedo grande xD

     

    gracias se pasaron!

     

    Editado:

     

    aquí esta la solución para todo aquel que lo necesite.

     

    [hide]

     

    #Region "ENVIAR CORREO ELECTRONICO"

    Public Sub enviamail()

     

    Dim email As New System.Net.Mail.MailMessage()

    Dim smtp As New System.Net.Mail.SmtpClient

     

    'CONFIGURACIÓN DEL STMP

     

    smtp.Credentials = New System.Net.NetworkCredential("correo del que envio", "contraseña")

    smtp.Host = "smtp.gmail.com"

    smtp.Port = 587

    smtp.EnableSsl = True

     

    ' CONFIGURACION DEL MENSAJE

     

    email.[To].Add("correo al que envio") 'Cuenta de Correo al que se le quiere enviar el e-mail

    email.From = New System.Net.Mail.MailAddress("correo del que envio", "Nombre", System.Text.Encoding.UTF8) 'Quien lo envía

    email.Subject = "prueba" 'Sujeto del e-mail

    email.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion

    email.Body = "mensaje de prueba" 'contenido del mail

    email.BodyEncoding = System.Text.Encoding.UTF8

    email.Priority = System.Net.Mail.MailPriority.Normal

    email.IsBodyHtml = False

     

    ' ADICION DE DATOS ADJUNTOS

    Dim ruta As String = "C:\CLIENTE 3_ 2012-1_03-05-2012.pdf" 'archivo que se quiere adjuntar

    Dim adjunto As New System.Net.Mail.Attachment(ruta, System.Net.Mime.MediaTypeNames.Application.Octet)

    email.Attachments.Add(adjunto)

     

    'ENVIO

    Try

    smtp.Send(email)

    Catch ex As System.Net.Mail.SmtpException

    MessageBox.Show(ex.ToString)

    End Try

    End Sub

    #End Region[/hide]

  10. Conectar SW Cliente con SQLServer 2005 (VB 2005)

    in Aplicaciones de Escritorio & Scripts PHP

    Posted

    Estimados, necesito de su ayuda!

     

    Necesito conectar un software cliente a sql server 2005 pero con autenficación de Windows.

     

    Aquí van los detalles de la historia.

     

    El computador que será servidor tiene ya instalado sql server 2005 express. No tenemos la clave del usuario SA, sólo esta conectado por Autentificación de Windows.

     

    Los demás equipos están en red y ven al servidor por el nombre del equipo (ejemplo Mi-pc\usuario)

     

    Este sql tiene las bases de datos de uns sistema SAP que esta funcionando actualmente.

     

    Ahora se necesita agregar un software que desarrollé en Visual Basic 2005.

     

    para el servidor puse este connection string

     

    conn.ConnectionString = "Data Source='" + servidor + "'; " & "Initial Catalog='" + bd + "'; Integrated Security=True"

     

    y funciona perfecto, conecta bien a la base de datos y realiza todas sus funciones.

     

    AHORA el problema es en los equipos cliente.

     

    Considerando la situación del SQL Server, cual sería el string para conectar a los equipos clientes?

    Hay que configurar algo en el Sistema Operativo? (el servidor tiene windows 7 y los clientes windows xp)

     

    Les agradezco el tiempo amigos, ojala alguien conozca la respuesta u.u

  11. Internet solo abre Google

    in Casos Resueltos

    Posted · Edited by ouji_sama

    les cuento me paso en dos computadores

     

    los formatie, instale los drivers, le di la ip para la red a los que estan conectados y resulta que al abrir internet google carga super bien, realiza las busquedas, pero no muestra ninguna otra pagina desde ahi.

     

    Intento entrar al windows update y tampoco conecta la pagina

     

    pasa lo mimos con cualquier programa que requiera conexion a internet

     

     

    alguien sabe que puede ser?? o.o es primera vez que me pasa o.o ya que estan todos los drivers instalados e incluso los computadores pequeños al lado del reloj estan funcionando

     

     

     

    gracias!!

     

     

     

    NOTA: SOLUCIONADO!!

     

    se debe deshabilitar el servicio de Cliente DNS

     

     

    n_n

  18. liberar Iphone/Ipod Touch

    in Flashing & Unlock

    Posted · Edited by ouji_sama

    bueno, el punto es que no sabia donde poner esto, creo ke hace falta una seccion para este foro sobre iphone o ipod touch.

     

    Me compre un Ipod Touch de 8 gb el sabado 27 de septiembre y ya lo tengo customizado al 100%, no es para nada dificil.

     

    dejare unos programas para ke puedan liberar o jailbreakear, asi el ipod o iphone aceptaran softwares de terceros y no solo de apple

     

     

    Ziphone (es el que yo use y sirve para ipod y iphone)

     

    http://www.gigasize.com/get.php?d=lwgr7f3xdwb -->(Descargar Ziphone)

     

    yo segui un video en youtube y funciono sin problemas

     

    --> (VideoTutorial)

     

    con esto consiguen tener Installer (que permite instalar un monton de aplicaciones mas)

     

    ahora para los mas osados y sepan usar los directorios y la consola les dejo WinSCP un soft que nos permite acceder al SSH del ipod o itouch y agregar carpetas y elementos. Una vez instalo y abierto WinSCP sale la ventana de autenticacion en la que deben poner esto:

     

    IP: La IP de tu iPhone que se encuentra en “Ajustes>Wi-Fi>Seleccionas tu Red>Direccion IP”

     

    Puerto: 22

     

    Usuario: root

     

    Contraseña: alpine

     

    Protocolo: SCP

     

    Y listo, das click en “Conectar”

     

     

    _______________________

     

     

    Los tutoriales que seguí estan en youtube solo es cosa de bsucar bien, no los pongo porke sake de varias partes y no guarde las direcciones xD

     

     

     

    ahora todos cooperemos para crear una seccion de ayuda y apps asi customizamos mas nuestros Itouch/Iphone.

     

     

     

    saludos!! :bravo:

×
×
  • Create New...