pues en estas madrugadas ayudando a los amigos con sus proyectos subo este

Module Module1
 
    Sub Main()
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim z As Integer = 99
        Dim contpalabras As Integer = 0
        Dim aux1 = "", aux2 As String = ""
        Dim Formato As String = "" '(vertical/horizontal)
        Dim posicionX = -1, posicionY As Integer = -1
 
        Dim cantPalabras As Integer = 0
        Dim rep As Boolean = True 'variable para pedir palabras
        While x <= 0
            Console.Write("Ingresar el numero de Columnas[X](mayor a 0): ")
            x = Console.ReadLine
        End While
        While y <= 0
            Console.Write("Ingresar el numero de Filas[Y](mayor a 0): ")
            y = Console.ReadLine
        End While
        Dim Sopa(x, y) As Char 'matriz de sopa
        Dim Palabras(z) As String 'vector palabras
        Console.WriteLine("============ DIBUJADO DE SOPA DE LETRAS ============")
         Console.WriteLine("Caja de posiciones")
        For i = 0 To y - 1
            For j = 0 To x - 1
                Console.Write(j & "," & i & "|")
            Next
            Console.WriteLine()
        Next
        Console.WriteLine("============FIN DIBUJADO DE SOPA DE LETRAS ============")
        While rep
            aux1 = ""
            aux2 = ""
            posicionX = -1
            posicionY = -1
            While aux1 = ""
                Console.Write("añada una palabra: ")
                aux1 = Console.ReadLine
                If aux1.ToCharArray.Length >= 3 And aux1.ToCharArray.Length <= x Or aux1.ToCharArray.Length <= y Then
                    Palabras(contpalabras) = aux1
                    contpalabras += 1
                Else
                    aux1 = ""
                    Console.WriteLine("ERROR -> la palabra debe tener mas de 3 letras y debe ser menor al maximo X y maximo Y")
                End If
            End While
            While aux2 = ""
                Console.Write("Horizontal o Vertical: ")
                aux2 = Console.ReadLine
                If (aux2.ToLower = "horizontal" And aux1.ToCharArray.Length < x) Or (aux1.ToCharArray.Length < y And aux2.ToLower = "vertical") Then
                    Formato = aux2.ToLower
                Else
                    aux2 = ""
                    Console.WriteLine("ERROR -> debe escribir una de las 2 opciones, y revisar que la palabra pueda ser añadida en esa opcion")
                End If
            End While
            While posicionX = -1 And posicionY = -1
                Console.Write("Posicion inicial de la palabra en la matriz en X: ")
                posicionX = Console.ReadLine
                Console.Write("Posicion inicial de la palabra en la matriz en Y: ")
                posicionY = Console.ReadLine
                If Formato = "horizontal" Then
                    If posicionX + aux1.ToCharArray.Length > x Or posicionX < 0 Or posicionY < 0 Or posicionY > y Then
                        posicionX = -1
                        posicionY = -1
                    End If
                ElseIf Formato = "vertical" Then
                    If posicionY + aux1.ToCharArray.Length > y Or posicionY < 0 Or posicionX < 0 Or posicionX > x Then
                        posicionX = -1
                        posicionY = -1
                    End If
                End If
                If posicionX < 0 Or posicionY < 0 Then
                    Console.WriteLine("ERROR -> la suma de la posicion y el tamaño de la palabra supera el limite de la sopa de letras")
                End If
            End While
            If Formato = "horizontal" Then
                For i = 0 To aux1.ToCharArray.Length - 1
                    Sopa(posicionX + i, posicionY) = aux1.ToCharArray()(i).ToString.ToLower
                Next
            ElseIf Formato = "vertical" Then
                For i = 0 To aux1.ToCharArray.Length - 1
                    Sopa(posicionX, posicionY + i) = aux1.ToCharArray()(i).ToString.ToLower
                Next
            End If
            'dibujado de la sopa de letras
            Console.WriteLine("============ DIBUJADO DE SOPA DE LETRAS ============")
            Console.WriteLine("Caja de posiciones")
            For i = 0 To y - 1
                For j = 0 To x - 1
                    Console.Write(j & "," & i & "|")
                Next
                Console.WriteLine()
            Next
            Console.WriteLine()
            For i = 0 To y - 1
                For j = 0 To x - 1
                    If Sopa(j, i) = "" Then
                        Console.Write(" |")
                    Else
                        Console.Write(Sopa(j, i) & "|")
                    End If
                Next
                Console.WriteLine()
            Next
            Console.WriteLine("============FIN DIBUJADO DE SOPA DE LETRAS ============")
            'añadir mas palabras
            aux2 = ""
            While aux2 = ""
                Console.Write("Desea añadir otra palabra[si/no]?: ")
                aux2 = Console.ReadLine
                If aux2 = "si" Then
                    rep = True
                ElseIf aux2 = "no" Then
                    rep = False
                Else
                    aux2 = ""
                End If
            End While
        End While
        aux2 = ""
        rep = True
        While aux2 = ""
            Console.Write("Desea Rellenar la sopa de letras[si/no]?: ")
            aux2 = Console.ReadLine
            If aux2 = "si" Then
                rep = True
            ElseIf aux2 = "no" Then
                rep = False
            Else
                aux2 = ""
            End If
        End While
        If rep Then
            Dim r As New Random
            Dim letras As Char() = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
            For i = 0 To y - 1
                For j = 0 To x - 1
                    If Sopa(j, i) = "" Or Sopa(j, i) = Nothing Then
                        Sopa(j, i) = letras(r.Next(0, letras.Length))
                    End If
                Next
            Next
        End If
        Console.WriteLine()
        Console.WriteLine("============ DIBUJADO FINAL DE SOPA DE LETRAS ============")
        For i = 0 To y - 1
            For j = 0 To x - 1
                If Sopa(j, i) = "" Then
                    Console.Write(" |")
                Else
                    Console.Write(Sopa(j, i) & "|")
                End If
            Next
            Console.WriteLine()
        Next
        Console.WriteLine()
        Console.WriteLine("Palabras utilizadas")
        For i = 0 To Palabras.Length - 1
            If Palabras(i) = Nothing Or Palabras(i) = "" Then
            Else
                Console.WriteLine(Palabras(i))
            End If
        Next
        Console.WriteLine("============FIN DIBUJADO FINAL DE SOPA DE LETRAS ============")
        Console.WriteLine("Presiona una tecla para salir...")
        Console.ReadKey()
    End Sub
 
End Module

NO ESTA OPTIMIZADO
USO TECNICAS PERMITIDAS EN SUS CURSOS (no hay subs, no hay functions,nada de eso)

desarrollado para consola, y en un simple Sub

UNICO DETALLE = NO INTERCEPTAR PALABRAS  ( me dio flojera añadirlo)

saludos

   que se puede decir dejo 1 pic

proyecto = http://foro.elhacker.net/net/gamesrec_proyecto_grupo_completo_sigue_nuestro_avances-t379736.0.html



progreso
website = 10%
integracion website-foro-software =75%
UI = 30%
Modulos (c++/asm/c#/vbnet) = 40%

funciones
-screenshots games
-record video game (audio proximamente)
-draw fps in the corners (todavia falta DX11 y DX11.1)
-social network
-system users
-system multimedia

q puedo decir la gente de aca es muy talentosa

buenas

queria proponer este post, para plantear ideas y desarrollar algo en grupo,

el copyright si se decide sera elhacker.net o los que participen (queda a discucion en el momento de hacerse)

como se trabajaria ?

-usando conferencias en teamviewer
-email
-el mismo foro

nose ando aburrido, alguna idea interesante q podamos desarrollar ?

como 1 plataforma para subir musica, users q muestren que estan oyendo

alguna idea ?

si eres nivel intermedio no te preocupes, la idea tambien es aprender

de adelanto yo puedo aportar bastante en la parte del servidor

buenas buenas

alguno q pueda aclararme y echarme 1 mano

necesito 1 regex que detecte este patron

@nick <--- tipo twitter

ejemplos de como debe cumplirse

@nick <- bien
qweqwe @nick qeqweqwe <- bien
qweqwe @nick <- bien
asd@nick.com <-- mal
@nick.com <-- mal
@nick'qweqwe <- mal

alguna idea ? tengo este pero no me convence  "(?<!\w)(@(\w+))" <-- bug con el patron  @nick.com

alguno tiene buen menejo de las clases htmlelement, htmldocument,htmlelementcollection

para descomponer esto bien ?

:/ xD esta vez si me jodio

necesito separarle primero en un vector de "class=comment-content" y despues desglozar cada <div class=comment-content>

para extraer ciertos datos q le busco :/

EDITADO: Poner titulos descriptivos.

buenas tardes señores

estoy en la busqueda de 1 persona que domine perfectamente la libreria

Newtonsoft.Json.dll

y todo lo referente a PARSEO xml,etc

para 1 proyecto serio, tendra acceso total al proyecto (esta en etapa de desarrollo)

1 pista =)
-sera algo referente con Taringa

  requisitos para trabajar en el proyecto
- tener teamviewer y usarle activamente

proyecto SERIO

estoy desarrollando una API para taringa, de manera no-oficial para consumo especifico del software q estoy desarrollando desde 0, y necesito 1 lector xml con su respectivo parseo bien desarrollado para la correcta lectura de la DATA q adquiero del server

el resultado del proyecto sera publicado en Taringa q estoy seguro sera muy bien aceptado, y como consecuencia, obtendra a cambio 1 buena forma de poner su publicidad mas a futuro

saludos

buenas a tardes
en el dia de hoy me honra decir

el equipo de FDTareas esta en la busqueda de nuevos desarrolladores

requisitos minimos

-> 1 año de experiencia en las plataformas c#/vbnet
-> 1-2 proyectos demostrables de la experiencia del programador
-> Muchas ganas e ideas para crecer como software Free
-> tener instalado minimo Teamviewer para conferencias

(para los q solo buscan dinero, si el proyecto genera algun tipo de ganancia sera dividido segun aporten al proyecto)

algunos post del software para que tomen idea de lo grande del proyecto
http://foro.elhacker.net/net/me_honra_mostrar-t379082.0.html
aca ven 1 poco la evolucion
http://foro.elhacker.net/software/fdtareas_software-t366926.0.html

si quieren info actual escribirme

saludos

buenas tardes a todos
en el dia de hoy, os enseñare como detectar esos dichosos bugs de arranque q ni el mismo visual studio te los ubica dando por error

--> Error desconocido, cerrando la aplicacion <--

suelen suceder al migrar la aplicacion a otras pcs y a veces se les olvidan librerias, o alguna incompatibilidad no administrada por el desarrollador

a la hora de atacar dichos problemas siempre debemos tener a mano un Sub modulo de arranque, que monitoree el arranque principal

porque ? porque el submodulo tendria 1 metodo de captado de error, q al ejecutar el verdadero hilo (hilo-padre) y falle directamente el submodulo lo detecte e informe para su rapido fix

suelen denominarse Versiones Debug o para detectar errores

os dejo esta pequeña muestra de codigo

'usada para testear errores de thread en caso de emergencia usar
'cuando se use este submain para analisis de bugs de arranque debemos apagar en las propiedades la opcion (habilitar el marco de trabajo de la aplicacion)
'al terminar de reparar el bug debemos volver habilitarle!
Public Class submain
    <STAThread()> _
    Friend Shared Sub Main()
 
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
 
        AddHandler Application.ThreadException, AddressOf Application_ThreadException
        'Added this
        AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf UnhandledExceptionEventRaised
        Application.Run(New Form1())
 
    End Sub
 
    Private Shared Sub Application_ThreadException(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
 
        MessageBox.Show(e.Exception.Message)
 
    End Sub
    'Added this
    Private Shared Sub UnhandledExceptionEventRaised(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
        If e.IsTerminating Then
            Dim o As Object = e.ExceptionObject
            MessageBox.Show(o.ToString) ' use EventLog instead
        End If
    End Sub
 
End Class
 

esta clase, para que puedan ejecutarle como metodo principal de arranque, en las propiedades de vuestro proyecto deben desactivar la opcion  habilitar el marco de trabajo de la aplicacion

con ese tremendo submain, pueden detectar el 100% de los errores ocultos en el arranque, ideal para esas pcs q no les quiere correr vuestro soft y necesitan a fuerza bruta hacer salir el error y lograr repararle

disfrutenlo

yo siempre guardo este submain en mis proyectos, y tengo mis versiones debugger para las pcs problematicas

saludos

para mis amigos webmasters y requieren de un cliente FTP liviano-portable

miren la nueva imagen del FTP del FDTareas

proximo changelog del FDTareas V:2.6.0.5 ( http://fdtareas.com/ )
-change retoques en el diseño de las playlist
-change rediseñado los modulos del FTP
-added soporte multi-subida,multi-borrado,multi-descarga,subidas-descargas en paralelo en el ftp
-change rediseñado el sistema de playlist
-removed ejecutar en modo administrador
-change reparado el Drag & Drop en el modulo de imagenes
-added Drag & Drop en el modulo FTP para subida de archivos
-added boton supr en el FTP para borrar archivos
-change rediseño de la interface del panel FTP

buenas tardes con el fin de dar apertura a mi comunidad FDT

busco moderadores para el foro .net del foro (http://foro.fdtareas.com)

busco colaboradores en cuanto a algoritmia e ideas para el software

busco SOCIOS que tengan de buen nivel de programacion para darle realizar codigos mas avanzados


todo el que desee participar, sera bienvenido =)

http://fdtareas.com
http://foro.fdtareas.com el foro oficial