Jump to content

AshWilliams

Ex- Staff
 View Profile  See their activity

  • Posts

    1,187

  • Joined

  • Last visited

  • Days Won

    2

 Content Type 

Everything posted by AshWilliams

  1. AshWilliams
    Facebook agregó nuevos "plugins sociales" que se pueden incorporar en cualquier sitio web, entre otras cosas, un botón de "Me gusta" a cualquier anotación. Este botón esta presente en todas las anotaciones publicadas en Facebook y ahora, disponible para sitios externos. ¿Ventajas? La primera es conocer que contenidos le agradan más a tus lectores y la segunda, que al pulsar en el botón, el lector la esta compartiendo inmediatamente en su perfil de Facebook y sin usar recursos propios. Funcionamiento El botón es más bien un iframe al que se le pasan por parámetros las características del elemento. El código es más o menos como sigue: <iframe src="http://www.facebook.com/plugins/like.php?href=http%3A%2F%2Fmilinkdelarticuloamostrar.php?id_noticia=512%2F&layout=button_count&show_faces=true&width=100&action=like&font=arial&colorscheme=light" scrolling="no" frameborder="0" allowTransparency="true" style="border:none; overflow:hidden; width:100px; height:px"></iframe> Los parámetros son: href – Con la URL a compartir. layout – Estilo del botón. Valores: standard o button_count show_faces – Muestra o no el avatar de quienes del gusta la anotación. Valores: true o false. width – Ancho del iframe. action – Texto del botón. Valores like o recommend. font – Fuente a utilizar. colorscheme – Esquema de colores. Valores: light, dark o evil. Estos valores se pueden cambiar directo en el código o usar el formulario de personalización de Facebook, el resultado es el mismo. Donde: milinkdelarticuloamostrar.php?id_noticia=512, seria el link al articulo que le quieres hacer like. Aqui un ejemplo: http://www.debubuntu.com/como-agregar-el-boton-me-gusta-de-facebook-en-tu-sitio-web/ Saludos :krider:
  2. AshWilliams
    Voy a modificar un poco tu código: 1- web de contacto: <h3><b>Formulario</b> Contacto </h3> <form id="contacts-form" action="enviar_mail.php" method="POST"> <fieldset> <div class="field"> <label>Nombres:</label> <input type="text" name="nombres" value=""/> </div> <div class="field"> <label> E-mail:</label> <input type="text" name="mail" value=""/> </div> <div class="field"> <label>Telefono:</label> <input type="text" value=""/> </div> <div class="field"> <label>Su Mensaje :</label> <textarea name ="mensaje" cols="1" rows="1"></textarea> </div> </div> 2- Página php que procesa tu info y que se llamará enviar_mail.php: <?php $destinatario = "[email protected]"; $texto =$_POST['mensaje']; $quienenvia=$_POST['mail']; $cuerpo = ' <html> <head> <title>Prueba de correo</title> </head> <body> <h1>Hola amigos!</h1> <p> <b><?php echo $texto; ?> </p> </body> </html> '; //para el envío en formato HTML $headers = "MIME-Version: 1.0rn"; $headers .= "Content-type: text/html; charset=iso-8859-1rn"; //dirección del remitente $headers .= "From: <?php echo $quienenvia; ?>rn"; //dirección de respuesta, si queremos que sea distinta que la del remitente $headers .= "Reply-To: [email protected]"; //ruta del mensaje desde origen a destino $headers .= "Return-path: [email protected]"; //direcciones que recibián copia $headers .= "Cc: [email protected]"; //direcciones que recibirán copia oculta $headers .= "Bcc: [email protected],[email protected]"; mail($destinatario,$asunto,$cuerpo,$headers) ?> Prueba y dime que tal.....es sólo para probar asi que una vez que funcione le sacamos todo lo sobrante. Saludos :krider:
  3. AshWilliams
    Para algo tan simple un txt está bien....además si no domina las operaciones básicas de ficheros, dudo mucho que sea capaz de dominar rápidamente SQL como lenguaje de consulta....y mucho menos algún sistema gestor de BD como MYSQL o POSTGRE, aunque es sólo una opinión. Saludos :krider:
  4. AshWilliams
    Cuenta con mi poco tiempo libre para apoyar tu proyecto. Saludos :krider:
  5. AshWilliams
    El código que habia posteado era para un proyecto en Visual Basic onda normal...lo que tú estás haciendo es casi lo mismo que trabajar desde Excel con Macros VB y ahi no he tenido el gusto de trabajar. Sin embargo estos enlaces te pueden resultar interesantes: http://msdn.microsoft.com/en-us/library/ee814737.aspx http://archive.msdn.microsoft.com/OfficeDevFuture http://visualstudiomagazine.com/articles/2011/06/20/wcovb_automate-excel.aspx Saludos :krider:
  6. AshWilliams
    Sub ExportarListViewAExcel(ParamList As ListView, Optional ByVal szBookTitle As String, Optional ByVal szSheetTitle As String) 'On Error GoTo ExportHandlerError Dim Columna As Integer Dim AppExcel As New Excel.Application Dim Libro As Excel.Workbook Dim Hoja As Excel.Worksheet Dim CeldaActual As Integer ' Celda actual en la Hoja Dim ItemActual As Integer ' Fila Actual en la Lista Dim valor As String 'valor de la celda para saber si es un número Dim Fecha As String ' año para formatear Dim aux1 As String ' comparar si es OP Dim aux2 As String ' comparar si es OP Dim texto As Boolean 'para comprobar cuando es texto ' Si la lista está vacia no se puede exportar. If ParamList.ListItems.Count = 0 Then MsgBox "La lista seleccionada está vacia. No se puede exportar.", vbInformation, App.Title Exit Sub End If Screen.MousePointer = vbHourglass ParamList.Parent.Enabled = False Set Libro = AppExcel.Workbooks.Add Set Hoja = Libro.Worksheets(1) Libro.Title = IIf(szBookTitle = "", "Libro Exportado", szBookTitle) Libro.Author = "CompWin 2" Hoja.Name = IIf(szTitle = "", "Libro Exportado", szSheetTitle) 'Aquí van los títulos de las Columnas CeldaActual = 1 For Columna = 1 To ParamList.ColumnHeaders.Count Hoja.Cells(CeldaActual, Columna).Font.Bold = True Hoja.Cells(CeldaActual, Columna).Value = ParamList.ColumnHeaders(Columna).Text Hoja.Cells(CeldaActual, Columna).Borders.LineStyle = xltick Hoja.Cells(CeldaActual, Columna).Style.IncludeAlignment = True Next Columna CeldaActual = 3 'Dejamos un espacio para que quede bonito ItemActual = 1 While ItemActual <= ParamList.ListItems.Count And gAnularProceso = False For Columna = 1 To ParamList.ColumnHeaders.Count - 1 valor = "" aux1 = "" aux2 = "" If Columna = 1 Then Hoja.Cells(CeldaActual, Columna).Value = CStr(ParamList.ListItems(ItemActual)) valor = ParamList.ListItems(ItemActual).SubItems(Columna) texto = False If IsNumeric(valor) Then ' se desformtea, es un importe 'a no ser que sea un objeto If Mid(valor, 5, 1) = "." And Mid(valor, 7, 1) = "." Then valor = CStr(valor) Else 'si el cuarto caracter por la izqda desde los decimales es un '.', 'entonces es númerico, sino, se trata de un texto númerico If InStr(1, valor, ",", vbTextCompare) Then If Mid(valor, Abs(Len(valor) - (4 + (Len(valor) - _ InStr(1, valor, ",", vbTextCompare)))), 1) = "." Then 'valor = TextoGrabarImporte(valor) valor = CDec(valor) Else texto = True 'valor = CDbl(valor) End If Else If Len(valor) > 3 Then If Mid(valor, Len(valor) - 3, 1) = "." Then 'valor = TextoGrabarImporte(valor) valor = CDec(valor) Else texto = True 'valor = CDbl(valor) End If End If End If End If End If If IsDate(valor) Then aux1 = Mid(valor, 2, 1) aux2 = Mid(valor, 3, 1) If aux1 = "/" Or aux2 = "/" Then 'Se pasa como texto, así es la única forma 'de que excel no lo interprete como fecha Fecha = Mid(valor, 7, 4) aux1 = Mid(valor, 1, 2) aux2 = Mid(valor, 4, 2) valor = aux1 & "/" & aux2 & "/" & Fecha valor = CStr(valor) End If End If If IsDate(valor) Then Hoja.Cells(CeldaActual, Columna + 1).Value = "'" & valor Else If texto Then Hoja.Cells(CeldaActual, Columna + 1).Value = "'" & valor Else Hoja.Cells(CeldaActual, Columna + 1).Value = valor End If End If DoEvents ' Por si decide cancelar el proceso. Next Columna CeldaActual = CeldaActual + 1 ItemActual = ItemActual + 1 Wend AppExcel.Visible = True AppActivate AppExcel.Caption Set Hoja = Nothing 'Descargamos los Objetos... Set Libro = Nothing Set AppExcel = Nothing ParamList.Parent.Enabled = True Screen.MousePointer = vbNormal ExportHandlerError: If Err <> 0 Then If Err = 429 Then ' Esto salta al no poder crear el objeto. MsgBox "Debe tener instalado Microsoft Excel para poder efectuar la Exportación...", vbCritical Else MsgBox "Error número: " & Err.Number & vbCrLf & Err.Description End If End If End Sub Ahí deberías hacer unas pequeñas modificaciones, pero están a la vista. Saludos :krider:
  7. AshWilliams
    Revisa esta info: http://extensions.joomla.org/extensions/structure-a-navigation/menu-systems/menu-editors/168 El SWmenuFree debería adaptarse a lo que tu quieres. Saludos :krider:
  8. AshWilliams
    A mi me funciona perfecto compadre.....lo pegue en un txt y le puse las etiquetas html y si me funciona....un año maaas, que mas daaa, que buen tema XD....te dejo el código: <html> <head> </head> <body> <object data="http://www.albertoreynolds.es/reproductor/playerwpress.swf? soundFile=http://www.porlaudec.info/feliz2012.mp3&autoplay=1" type="application/x-shockwave-flash" height="24" width="290"> <param value="http://www.albertoreynolds.es/reproductor/playerwpress.swf? soundFile=http://www.porlaudec.info/feliz2012.mp3&autoplay=1" name="movie" /> <param value="high" name="quality" /> <param value="true" name="menu" /> <param value="transparent" name="wmode" /> </object> </body> </html> Saludos :krider:
  9. AshWilliams
    Puedes postear tu aviso en el foro de Compra en la sección de Mercado Persa. Saludos :krider:
  10. AshWilliams
    Haz ejecutado tu consulta y te devuelve 4; raro porque según yo te debería devolver sólo 1....ahora si usases en tu sentencia la instrucción like ahi devolvería de la forma en que tu dices. Te dejo un enlace: http://www.programacionfacil.com/mysql:select_like Saludos :krider:
  11. AshWilliams
    La imagen no se ve...sobre tu duda es posible hacerlo, pero sería como atentar contra la privacidad de las personas, aunque si quieres experimentar y lograr un resultado parecido a modo de investigación en tu equipo no creo que habría problema, puedes dejar el programa corriendo en segundo plano y que se ejecute un envio a tu correo con las pulsaciones ingresadas despues de x periodo de tiempo u otro mecanismo. Saludos :krider:
  12. AshWilliams
    Trata de seguir este ejemplo: DIM q AS STRING DIM orden as OLEDBCOMMAND q = "insert into mitabla(clave,nombre,edad) values(@CLAVE, @NOMBRE, @EDAD)" orden = NEW OLEDBCOMMAND(q, coneccion) orden.Parameters.Add(new OleDbParameter("@CLAVE", OleDbType.Integer)) orden.Parameters("@CLAVE").Value = CLAVE.Text orden.Parameters.Add(new OleDbParameter("@NOMBRE", OleDbType.VarWChar, 20)) orden.Parameters("@NOMBRE").Value = NOMBRE.Text orden.Parameters.Add(new OleDbParameter("@EDAD", OleDbType.Integer)) orden.Parameters("@EDAD").Value = EDAD.Text orden.Connection.Open() orden.ExecuteNonQuery() orden.Connection.Close() O este enlace de MS: http://support.micro...om/kb/322045/es O este: http://www.elguille....nes_insert.aspx Saludos :krider:
  13. AshWilliams
    Este enlace te servira como referencia: http://geovinmorales.siems.com.gt/umg/cursos/progra_avanzada/archivos.html Y este código de ejemplo: http://codigofuentes.blogspot.com/2008/04/manejo-de-ficheros-leer-y-escribir.html Saludos :krider:
  14. AshWilliams
    Gracias Ra por la corrección, yo pensaba que tenías 2 fotos por ID, pero si es con ids distintos y fotos distintas el ejemplo citado debería funcionar. Saludos :krider:
  15. AshWilliams
    Muchas gracias estimado...se mueve a Centro de Recursos Saludos :krider:
  16. AshWilliams
    Algo asi sería??: If dr IsNot Nothing Then Me.IDTextBox.Text = dr("ID").ToString Me.NombreTextBox.Text = dr("Nombre").ToString If dr("Foto") IsNot DBNull.Value Then Dim img As Image = TablaNavegar.Bytes2Image(CType(dr("Foto"), Byte())) If img IsNot Nothing Then Me.FotoPictureBox.Image = img 'Else ' img = TryCast(dr("Foto"), Bitmap) ' If img IsNot Nothing Then ' Me.FotoPictureBox.Image = img ' End If End If End If If dr("FotoB") IsNot DBNull.Value Then Dim imgb As Image = TablaNavegar.Bytes2Image(CType(dr("FotoB"), Byte())) If imgb IsNot Nothing Then Me.clon.Image = imgb 'Else ' img = TryCast(dr("Foto"), Bitmap) ' If img IsNot Nothing Then ' Me.FotoPictureBox.Image = img ' End If End If End If End If Eso suponiendo que tu primera foto se llame Foto y tu segunda foto se llamase FotoB en tu BD. Saludos :krider:
  17. AshWilliams
    Al fin encuentro a otro usuario de Code::Blocks Concuerdo con las recomendaciones del user anterior. Saludos :krider:
  18. AshWilliams
    A simple vista no se ve ningún error...podrías postear el contenido del archivo productos.dat asi hago uan versión más pequeña de tu prog en mi casa(porque sólo usaria productos.dat) y veo si me pasa lo mismo. Saludos :krider:
  19. AshWilliams
    Con este ejemplo deberías quedar claro como el agua...además vienen incluidos los archivos fuente. http://chuwiki.chuidiang.org/index.php?title=Drag_and_Drop_(Arrastrar_y_Soltar) Copia y pega el texto entero en el navegador. Acá otro buen ejemplo, con video incluido: http://irisus90.wordpress.com/2011/09/16/drag-drop-en-java/ Saludos :krider:
  20. AshWilliams
    Nops.....si guardas la imagen en tu BD usas blob....cuando haces otra técnica que consiste en subir tus imágenes no a una BD, sino a alguna carpeta en tu servidor, pues ahi guardas en tu BD, en un string, la ruta de donde se guardo la foto, para asi despues poder cargar la foto correspodiente, se entiende.....con blob guardas la foto en la BD, con string(aka varchar) guardas la ruta de la imagen despues de subirla a una carpeta en tu servidor. Saludos :krider:
  21. AshWilliams
    Podrías partir mostrando el código donde carga las imágenes...es posible que estés poniendo el mismo dato o que por error hayas subido la misma foto 2 veces a tu BD. Postea el código. Saludos :krider:
  22. AshWilliams
    Lo moveré a Centro de Recursos. Saludos :krider:
  23. AshWilliams
    Es un libro donde te explican como aplicar a tu Joomla algunas técnicas de optimización para los motores de búsqueda y asi lograr un mejor posicionamiento en la web....bueno algo parecido Saludos :krider:
  24. AshWilliams
    Según yo, en este orden: 1- Flac(mejor) 2- Ogg(intermedio) 3- Mp3(penquita pero salva) Saludos
  25. AshWilliams
    Escriban Let it Snow en el buscador y sorpréndanse Si ya estaba, que me disculpen. Probado en Chrome y Comodo Dragon. Saludos :krider:
×
×
  • Create New...