Mensajes

soporta multiples conexiones a la ves?
porque habian algunos que no soportaba...

Si es asi, buen trabajo

y cuentame en que consiste tu proyecto?

estoy contigo: seba123neo
tomalo como una critica constructiva, y empieza a aprender la forma de trabajo en la programacion en general, ya que eso es importante antes de codear.

cuando tenga tiempo, me pongo a verlo.

mejor usas un programa ya hecho, por alli hay muchos....

[ejemplo:]

Bueno, queriendo hacer una presentacion de imagenes, me encontre con un proyecto muy simpatico, y le agrege un programita para pre-configurar parte de las imagenes que se mostraran en el, ya que hacerlas manualmente son molestosas, aun mas cuando las imagenes son de distintas resoluciones.

aqui esta la url del proyecto del Autoviewer:
http://www.airtightinteractive.com/projects/autoviewer/

bajamos el paquete del autoviewer (necesario para poder hacer la presentacion):
http://www.airtightinteractive.com/projects/autoviewer/autoviewer.zip
y ya tenemos los archivos necesarios, para lo nuestro.

ejemplo:
http://usuarios.lycos.es/jkbenites29/Auto-viewer



ahora lo mio, abrimos un proyecto y colocamos estos controles como en la imagen:

damos las propiedades al control text2 necesarias: multiline, y bars

Código (vb) [Seleccionar] Expandir


Private Declare Function GetObject _
    Lib "gdi32" _
    Alias "GetObjectA" ( _
        ByVal hObject As Long, _
        ByVal nCount As Long, _
        lpObject As Any) As Long

'Estructutra necesesaria para la informacion del Bitmap
Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type

'Array de bytes y variable para la estructura
Dim PicBits() As Byte, PicInfo As BITMAP

Dim ArchivoXML As String
Dim MAX As Integer
'Variable para almacenar la imagen
Dim Laimagen As IPictureDisp
Function Nombre(path)
Nombre = Mid(path, InStrRev(path, "\") + 1)
End Function
Function Factor(ByVal num As Double)
Dim N As Integer
N = Round(num)

If N < 680 Then
Factor = 1
Else

    Dim temp As Double
    temp = N / MAX
    If temp > 1 Then
    Factor = N / temp
    Else
    Factor = N
    End If

    Factor = Round(temp, 4)
End If

End Function
Function Div(numW, numH)
Dim N As Integer

N = numW: MAX = 680
If numW < numH Then
N = numH
MAX = 500
End If


Dim temp As Double
temp = Factor(N)

numW = Round(numW / temp)
numH = Round(numH / temp)
'If MAX = 500 Then numH = numH - 100

Dim Adicional As Integer
Adicional = 450 - numH


If Adicional > 0 Then

If numH > 350 Then
numW = Round((numW * (numH + Adicional)) / numH)
numH = numH + Adicional

End If
End If

End Function

Function Subfolders(path)
    On Error Resume Next
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim N_w, N_h As Integer
   
    Set Drives = fso.Drives
    newpath = path
    Set Fold = fso.GetFolder(newpath)
    Set Files = Fold.Files
   
    For Each File In Files

    Set Laimagen = LoadPicture(File.path)
    GetObject Laimagen, Len(PicInfo), PicInfo

        ext = fso.GetExtensionName(File.path)
        ext = LCase(ext)
        If ext = "jpg" Then
       N_w = CLng(PicInfo.bmWidth)
       N_h = CLng(PicInfo.bmHeight)
       test = Div(N_w, N_h)
       
    ArchivoXML = ArchivoXML & vbCrLf & "<image>" & vbCrLf _
                & "     <url>" & Nombre(Text1) & "/" & File.Name & "</url>" & vbCrLf _
                & "     <caption> </caption>" & vbCrLf _
                & "     <width>" & N_w & "</width>" & vbCrLf _
                & "     <height>" & N_h & "</height>" & vbCrLf _
                & "</image>" & vbCrLf
               
                '& "     <width>" & CLng(PicInfo.bmWidth) / 2.4 & "</width>" & vbCrLf
                '& "     <height>" & CLng(PicInfo.bmHeight) / 2.4 & "</height>" & vbCrLf
               
                End If
                DoEvents
    Next

End Function

Private Sub Command1_Click()


ArchivoXML = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "UTF-8" & Chr(34) & "?>" & vbCrLf _
            & "<gallery frameColor=" & Chr(34) & "0xFFFFFF" & Chr(34) & " frameWidth=" & Chr(34) & "15" & Chr(34) & " imagePadding=" & Chr(34) & "20" & Chr(34) & " displayTime=" & Chr(34) & "6" & Chr(34) & " enableRightClickOpen=" & Chr(34) & "true" & Chr(34) & ">" & vbCrLf & vbCrLf

Subfolders (Text1.Text)

ArchivoXML = ArchivoXML & vbCrLf & "</gallery>"
Text3.Text = ArchivoXML
End Sub


Algunas cositas encontre en la web como la forma de obtener la resolucion de una imagen ...

en el text1 se coloca la ruta de las imagenes, y el programa genera el archivo tratando de acomodar la resolucion de las imagenes a una adecuada, por ejemplo, si se colocan imagenes grandes, el programa encuentra el tamaño apropiado en el archivo.
y ahora tendremos el texto del archivo gallery.xml completo, listo para agregar al proyecto.

esto lo hice, porque me daba pereza ponerme a agregar la configuracion de las imagenes manualmente, asi que mejor un programa que lo haga por mi.

ahora agregamos el archivo gallery.xml afuera de la carpeta que contiene las imagenes (salvo que edites el programa, para que lo coloques a tu gusto).

ahora les dejo un ejemplo:
http://usuarios.lycos.es/jkbenites29/Auto-viewer

(las imagenes las tome yo con mi camara, aqui dejo la url del correspondiente post:
http://foro.elhacker.net/fotografia/fotitos_jaen_peru_with_autoviewer-t224361.0.html

upps, tenia pensado que este era el foro, bueno, tambien me convence

Puede que x ser el admin no empieze desde 0.

ya podré verlos ... 

de casualidad miro las estadisticas del admin y hay 13 000 posts, y me voy a la ultima pagina:
http://foro.elhacker.net/profiles/elbrujo-u1.html;sa,showPosts;start,8940

y me encuentro con el post numero 8947
y me quede con la duda de donde andaban los demas posts, me quede con las ganas de ver el primer post de el-brujo

aqui busca:
http://fonts500.com/

has hecho tu todo el proyectto?
y no has podido hacer esa parte que yo considero mucho mas facil de lo que hayais hecho?
tengo entendido que el dibujito lo has hecho a base de puro codigo
crees que somos magos para saber como estas razonando tu proyecto??

ahora empiezo a creer que el programa no genera el texto, solo lo tienen predeterminado, bueno si es asi, pues coloca esa parte en un text que este oculto, pero no le coloques la ultima parte (artist, song ...)
luego cuando pulse el boton make:

Código [Seleccionar] Expandir

textoMain.text = textoMain.text & vbctlf & "                           Artis...t: " & artist.text '.....

es la manera mas sencilla de hacerlo, esta que te pongo...

toma este manual lo tengo desde hace un tiempo atras, no recuerdo de site lo baje, pero alli estan los derechos del autor.
http://www.4shared.com/file/60886679/5ccd4f53/Servidor_web_visual-basic.html

es lo que necesitas...