programa en vb (ayuita)

wenu, ante todo saludaros Wink

pos na engo un proramilla entre manos y me kedao encajao >.< en unos sitios: son el winsock, el tapstrip y el toolbar. E buscao tutos de estos, aki incluso, pero no encontre mas o menos lo ke toy buscando (como configurarlos, programarlos...)
lo ke toy aciendo es un programa ke en el primer formulario es un login y el siguiente es un chat, en donde me gustaria ke en la derecha (en una textbox) aparecieran todos los usuarios conectado al chat. Mi idea del chat es ke varios "clientes" se conecten a un mismo "servidor", y aki una de mis grandes dudas xD el servidor se ace en un frmulario normal? eske imagino ke este abria ke subirlo a un host (por ejemplo en el ke tengo la web) y si me podeis pasar algun ejemplo de un chat lo agradeceria porke el ke me bajado no engo idea de ke sirva para lo ke kiero (si kereis ver el ke me bajado me lo decis y os cuelgo aki una url de descarga).
Tambien os dejo aki un codigo para enlazar login del ptrograma cn una base de datos, no se si es correcto porke lo sake de otro foro y kisiera ke me dijerais si le falta algo o sta dpm:

Código:

Public rs As ADODB.Recordset
Public con As Connection
Public Sub conectar()
Set con = New ADODB.Connection
con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=;database=ba securso;connection="
con.Open
End Sub
Sub registro()
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select * from tablacurso"
End With
End Sub

Private Sub Form_Load()
conectar
registro
Set DataGrid1.DataSource = rs
End Sub

weno, me e intentado explicar lo mejor posible y sino las dudas ke tengais me las planteeis aki, todo sea por un buen entendimiento Wink

, y ante todo...gracias!

P.D: uso vb 6.0

Citar

el servidor se ace en un frmulario normal? eske imagino ke este abria ke subirlo a un host

Te doy una idea de como podria ser:

Cada cliente se conecta a un servidor, suponete que este servidor este en "michat.com". Asique cuando se abre la aplicacion se conecta a "michat.com" y de alli obtener los usuarios conectados. Esto se podria hacer aplicando los datos del cliente conectado en una base de datos, y un programa en el servidor los obtenga y se los devuelva a cada uno de los clietes conectados (parece complicado pero es re simple).
Asi, cuando el cliente se conecta, le agrega a la base de datos, suponte, "192.0.1.10" (su ip), tambien un nick o cosas asi... Cada cierto tiempo el programa del servidor lee dicha base de datos y obtiene cada un de las bases de datos y le envia cada una de las PC conectadas todas las que hay en la base de datos menos la de él...

tiene wena pinta, muchas gracias.
mas o menos lo he entendido, lo malo eske de programacion no se todo pero si algo. tonces, en resumidas cuentas, engo ke crear una base de datos dnd se acumulen los datos de cada cliente y ke luego sean mandados a cada usuario menos el suyo propio no? vale.
algun tuto de esto? xD xke me va a llevar tiempo jjee.
gracias Wink

Echale un vistazo a esto:

Para ver algo de como manejar sql con VB (para crear, y manejar base de datos):

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

y bueno, para que veas mas o menos lo que andas buscando:

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Salu2!

va tio gracias, voy a mirarlo y ya t cuento Wink

bueno, siento acer resurgir un viejo post xD pero eske ay dudas y aro jeje.

al final lo ke e acabado aciendo es ke el cliente (el programa) se conecte a un canal del irc (mas sencillo y menos complicado, aparte ke es lo ke me an pedido para futuras acciones).
el caso eske yo lo consigo conectar el servidor a
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

www.google.cl

para acer la prueba de ke funciona, asta aki bien,el problema viene cuando lo kiero conectar a un servidor del irc (irc.gamesurge.net) y me da un fallo antes de conectarlo o al intentar conectarlo al servidor.

Este es el codigo ke yevo asta aora:

Código:

Private Sub CmdEnviar_Click()
WS1.SendData TxtEnviar.Text & vbCrLf
TxtConversacion.SelStart = Len(TxtConversacion.Text)
TxtConversacion.Text = TxtConversacion.Text & "Cliente ¦ " & TxtEnviar.Text & vbCrLf
TxtConversacion.SelStart = Len(TxtConversacion.Text)
TxtEnviar.Text = ""
End Sub

Private Sub cmdconectar_Click()
WS1.RemoteHost = txtservidor.Text
WS1.RemotePort = txtpuerto.Text
WS1.Close
WS1.Connect
End Sub

Private Sub cmdsalir_Click()
WS1.Close
TxtConversacion.Text = TxtConversacion.Text & "*** Conexión cerrada por el usuario ***" & vbCrLf
TxtConversacion.SelStart = Len(TxtConversacion.Text)
End Sub

Private Sub TxtEnviar_Change()
If TxtEnviar.Text <> " " Then
CmdEnviar.Enabled = True
Else
End If
End Sub

Private Sub WS1_Close()
WS1.Close
TxtConversacion.SelStart = Len(TxtConversacion.Text)
TxtConversacion.Text = TxtConversacion.Text & "*** Conexión cerrada por el servidor *** " & vbCrLf
TxtConversacion.SelStart = Len(TxtConversacion.Text)
End Sub

Private Sub WS1_Connect()
TxtConversacion.Text = TxtConversacion.Text & "*** Conexión establecida *** " & vbCrLf
TxtConversacion.SelStart = Len(TxtConversacion.Text)
End Sub

Private Sub WS1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String
WS1.GetData Buffer
TxtConversacion.SelStart = Len(TxtConversacion.Text)
TxtConversacion.Text = TxtConversacion.Text & "SERVIDOR ¦ " & Buffer
TxtConversacion.SelStart = Len(TxtConversacion.Text)
End Sub

Private Sub WS1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Dim Number As Integer
Dim Description As String
WS1.Close
MsgBox "Error numero " & Number & ": " & Description, vbCritical
End Sub

Si me podeis decir aber ke es lo ke falta o esta mal puesto os lo agradeceria.

Tambien me gustaria saber como acer para ke conecte a un canal al darle al boton de conectar (cmdconectar) porke lo e intentado con una linea ke me dieron y no funciona:

Código:

Winsock1.SendData "JOIN :" & Txtcanal.Text & vbCrLf

y era por ver ke es lo ke pasaba.

Bueno, pues si me podeis ayudar a terminar esta cosilla ke estoy aciendo resolviendome las dudas o aconsejandome alguna cosa ke debiera poner para ke funcionara mejor os lo agradeceria

.

Saludos.

tras ya conseguir ke conectara sin problemas (jeje) el error ke me da al conectarlo al servidor es:

Código:

SERVIDOR ¦ NOTICE AUTH :*** Looking up your hostname
SERVIDOR ¦ NOTICE AUTH :*** Found your hostname, cached
NOTICE AUTH :*** Checking Ident
SERVIDOR ¦ ERROR :Closing Link: by Snoke.NL.EU.GameSurge.net (Registration Timeout)

creo ke es porke no ay ningun "auth" (por asi decirlo) o falta algo, nose.
Tambien al dar al boton de stop (el cuadrado en visual basic) se me keda pillado -.-' y tengo ke volver a iniciar el proyecto.
tambien me gustaria saber como utilizar una textbox de un formulario en otro, es decir, utilizar el text1.text ,del form1 en el form2. Se ke es declarando una variable Public pero no se como se ace (y mira ke e buscado en muxos sitios pero parece ke no la dan importancia).
Saludos.

El error en sí ahi esta siendo controlado por el programa, lo que tienes que hacer es usar BreakPoint y ver linea por linea si va siguiendo los pasos que tu quieres....

En cuanto al textbox, lo que puedes hacer es:

1)Invocar el TextBox desde el form2 de la seguiente frma:

x = Form1.Text1.Text

Y en x te quedaria lo que haya en ese momento en el text1 del form1.

2)Puedes declarar una variable publica en un modulo, e introducir los datos como una variable normal y obtener sus datos tambien como una variable normal..

Por ejemplo, en el modulo pones "Public Variable As String"

En el Form1 pones "Variable = "Esto es una variable publica""
y ene l Form2: "X = Variable"

entonces en el Form2 te quedara en la variable X la vaiable "Variable". Aunque no es necesario el uso de "x" ya que puedes obtener los datos directamente de la variable publica.

salu2

1) "BreakPoint"? es la primera vez ke lo oigo, como lo ago?
2) me a kedao mas claro gracias

usare la segunda opcion ke la veo menos liosa a la ora de usar varias veces la variable gracias.

Saludos.

los breakpoints son los puntos que puedes marcar en el codigo para que cuandoe l programa llegue alli, se detenga y puedas revisar si todo va bien, si ubo un error, ect... Se usa para depurar y son muy utiles Wink

Para marcar una linea simplemente haces clic izquierdo a la izquierda del codigo (sobre lo que seria el "margen") y te marcara la linea con un franja roja, media bordo...Luego simplemente ejecutar el programa desde VB y cuando se llegue a linea marcada se frenara todo y podras revisar el codigo, el valor de las variables (poniendo el puntero sobre la variable, te aparecera un ToolTip que te indicara su valor)...

Salu2

aah ya se a lo ke t refieres, pero ese error no es del programa sino es un error que da al conectarse cn el servidor del irc, ke es lo ke no se como puedo solucionar xD

a ok, entonces no tengo idea... Lo ideal:
Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

www.google.com

Salu2

ya xD... tengo al google ke casi me manda a tomar por culo de tar tol dia ay metio jeje wenu, vere aver como lo soluciono pero no t vallas mu lejos ke esto tiene mas cosas xD no solo un chat jiji

saludos!

por cierto, se ke ay un tipo de variable ke acoge numeros, letras y simbolos pero no recuerdo cual >.< saes de ke tipo es y ke no ocupe muxo?

Cita de: DraGooN^ en Junio 12, 2008, 12:33:30

por cierto, se ke ay un tipo de variable ke acoge numeros, letras y simbolos pero no recuerdo cual >.< saes de ke tipo es y ke no ocupe muxo?

El tipo variant es asi:

Dim variable As Variant

Variant acoje cualquier tipo de datos pero ocupa mucho tamaño. Si es en un momento dado puedes usarla, eso esta claro Wink

Bytes, Espectro Infernal.

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Julio 26, 2008, 11:44:49 Boton Buscar