SoloCodigo

Muchas gracias
me sirvio muchisimo =D

en menos palabras
XD
como conectarme al  oracle de  otra pc en internet desde pl/sql dev ?

Hola a todos
quisiera saber si me podrian brindar un manual para poder entender lo que es abap y hacer un holamundo xD
saludos

Hola a todos
Tenia un problema
estaba investigando sobre kaptcha unas clases para poner generar el kaptcha
sin embargo al probarlo y siguendo las instrucciones aun tenia problemas
he aqui el link de lo que intente
y he aqui el link de donde lo obtube

http://code.google.com/p/kaptcha/wiki/HowToUse

espero me puedan ayudar
saludos de antemano

pues deberias poner algo de codigo que ya hallas hecho asi poder ayudarte en que fallas  

asi es lo llamas con control
digamos que ya tienes tu hashtable de esta forma

KEY | VALUE
P       3
E       2
I       1
.       .
.       .
.       .

entonces al final haces otro for
que diga que mientras la cnatidad del hash ... mejor te pongo algo

for i as integer = 0 to hashtable.count
// y aca vas creando los textbox y poniendo en cada uno values con sus keys y listo
next

espero que te de una idea xP
si te diera el codigo ya hecho no aprenderias mucho asi que mejor te hago pensar XP
saludos

Hola nobvice
el codigo de widark lo que hace es poner cada letra en un textbox si no me equivoco asi se repitan las letras estas iran a un texbox

tal ves si se agregara un hashtable para contener los chars
y compararlos cada ves que se ejecute el for principal asi si la letra se repite solo se modificara el value del hashtable evitando repeticion de letras.

espero que te sirva  

puedes aplicar un for en toda la cadena algo asi
con esto ya tienes un buen comienzo.

el split como ya dijeron solo te servira si tienes un delimitador
ejemplo =   "pepito-el-pregunton"

si tu cadena esta separada por delimitadores como '-' podras hacer un split
pero viendo lo que quieres no te servira pues tu quires comparacion de cada caracter.

saludos

for i as integer to cadena.length

// aca va la logica, debes utizar >>        cadena.chars(i)

next i

muchas gracias lencho.
Encontre un codigo simple que me ayudo a comprender la sintaxis
en la cual manejaba un server en consola, queria pasar este server a un form para ponerle mas opciones sin embargo no me salia ><
aqui les pego el codigo a ver si me dan una mano

les dejo el proyecto aca y las lineas abajo por si no lo quieren descargar
http://rapidshare.de/files/38737533/Socket.rar.html

tan solo quiero pasarlo a un form que no sea consola pero al ejecutar esta linea
el form se raya O.o

  While True
            Dim user As New BServer(listener.AcceptTcpClient)
        End While

ojala me puedan ayudar
gracias de antemano =D  




FORM1


CLASE BServer.vb

Imports System.Net.Sockets

Public Class BServer
    '---contains a list of all the clients
    Public Shared AllClients As New Hashtable

    '---information about the client
    Private _client As TcpClient
    Private _clientIP As String
    Private _ClientNick As String

    '---used for sending/receiving data
    Private data() As Byte

    '---is the nick name being sent?
    Private ReceiveNick As Boolean = True

    Public Sub New(ByVal client As TcpClient)
        _client = client

        '---get the client IP address
        _clientIP = client.Client.RemoteEndPoint.ToString

        '---add the current client to the hash table
        AllClients.Add(_clientIP, Me)

        '---start reading data from the client in a separate thread
        ReDim data(_client.ReceiveBufferSize)
        _client.GetStream.BeginRead(data, 0, CInt(_client.ReceiveBufferSize), AddressOf ReceiveMessage, Nothing)
        Console.Read()
    End Sub

    Public Sub SendMessage(ByVal message As String)
        Try
            '---send the text
            Dim ns As System.Net.Sockets.NetworkStream
            SyncLock _client.GetStream
                ns = _client.GetStream
            End SyncLock
            Dim bytesToSend As Byte() = _
                System.Text.Encoding.ASCII.GetBytes(message)
            ns.Write(bytesToSend, 0, bytesToSend.Length)
            ns.Flush()
        Catch ex As Exception
            'Console.WriteLine(ex.ToString)
            Form1.TextBox1.AppendText(ex.ToString)
        End Try
    End Sub

    Public Sub ReceiveMessage(ByVal ar As IAsyncResult)
        '---read from client---
        Dim bytesRead As Integer
        Try
            SyncLock _client.GetStream
                bytesRead = _client.GetStream.EndRead(ar)
            End SyncLock
            '---client has disconnected
            If bytesRead < 1 Then
                AllClients.Remove(_clientIP)
                Broadcast(_ClientNick & " has left the chat.")
                Exit Sub
            Else
                '---get the message sent
                Dim messageReceived As String = _
                    System.Text.Encoding.ASCII. _
                    GetString(data, 0, bytesRead)
                '---client is sending its nickname
                If ReceiveNick Then
                    _ClientNick = messageReceived

                    '---tell everyone client has entered the chat
                    Broadcast(_ClientNick & " has joined the chat.")
                    ReceiveNick = False
                Else
                    '---broadcast the message to everyone
                    Broadcast(_ClientNick & ">" & messageReceived)
                End If
            End If
            '---continue reading from client
            SyncLock _client.GetStream
                _client.GetStream.BeginRead(data, 0, _
                   CInt(_client.ReceiveBufferSize), _
                   AddressOf ReceiveMessage, Nothing)
            End SyncLock
        Catch ex As Exception
            AllClients.Remove(_clientIP)
            Broadcast(_ClientNick & " has left the chat.")
        End Try
    End Sub

    Public Sub Broadcast(ByVal message As String)
        '---log it locally
        Form1.TextBox1.AppendText(message)
        'Console.WriteLine(message)
        Dim c As DictionaryEntry
        For Each c In AllClients
            '---broadcast message to all users
            CType(c.Value, BServer).SendMessage(message & vbCrLf)
        Next
    End Sub
End Class

Hola a todos ... estba haciendo una web con idiomas, y lei que el utf8 me iba a ayudar en el caso de caracteres extraños como el chino, y quisiera saber como aplicarlo...
aca un ejemplo de un archivo de idioma... como haria el de chino ???

hmn... aun lo veo abstracto ... quiero decir que no se como hacerlo... no habria un tipo de tiempo en el cual muestre imagenes periodicamente?? tipo un jackpot..

pues tal ves hice mal pero en este codigo no esta el listener?.. por que cuando compilo y trato de insertar me da error Y.Y
saludos