Chat Programma

Status
Niet open voor verdere reacties.
D

Danielxmovies

Gebruiker
Lid geworden
8 okt 2011
Berichten
300
Weet iemand hoe je een goed chat programmatje moet maken?

Dat je ook zelf je Username kan kiezen enzo.
 
Wat bedoel je met 'programma'?
En wil je P2P of met een server werken?
En maak je gebruik van een bestaand netwerk (IRC) of zet je zelf iets op?
En... en... en...
 
Ehm ik zou graag dat alleen degene diehet programma openen met mij chatten.

En via Lan of wat dan ook maakt niet veel uit zolang die het doet :)
 
Ik heb hem helemaal maar hij zegd

btnSend_Click is not declared?

Hoe kan ik dit oplossne

is bij de code:

Public Sub New()

' This call is required by the designer.
InitializeComponent()

AddHandler Me.Load, AddressOf ChatForm_Load
AddHandler btnSend.Click, AddressOf BTN
Klik om te vergroten...
 
Laat maar opgelost :)

Oke Kunenn nu er alleen mensen op met dit programma of moet ik dan wat veranderen?
 
@Danielxmovies: plaats niet steeds nieuwe reacties binnen een tijdsbestek van een aantal minuten. Je heb ook de mogelijkheid om je bericht aan te passen.

Bovendien heet dit forum Helpmij en niet Geefmij. Je kan ook eens eigen initiatief tonen voor het oplossen van een probleem. Uiteraard staat helpen op Helpmij voorop, jij laat mensen hele programma's voor je maken.
 
nee hoor.

JoZ1

Had gezegd dat ie mijn programma wel wou verbeteren.

niet gemaakt verbeterd :)
 
Nope.

Het invoeren allemaal doet het goed.

Maar je kan niet iets zien als een andere com het gebruikt.

De verbinding tussen de twee doet het niet

Weet iemand hoe ik dit moet fiksen?
 
Laatst bewerkt door een moderator:
Ik heb geen idee welke code je gebruikt.

Kun je alles even posten?
 
Oke W8

Hier is de complete code:

[CPP]Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text
Public Class Chatform

Delegate Sub AddMessage(ByRef message As String)

Private userName As String
Private Const port As Integer = 54545
Private Const broadcastAddress As String = "255.255.255.255"

Private receivingClient As UdpClient
Private sendingClient As UdpClient

Private receivingThread As Thread




Private Sub ChatForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Hide()

Using loginForm As New LoginForm
loginForm.ShowDialog()

If (String.IsNullOrEmpty(loginForm.UserName)) Then
Me.Close()
Else
userName = loginForm.UserName
Me.Show()
End If

tbSend.Focus()

InitializeSender()
InitializeReceiver()

End Using
End Sub

Private Sub InitializeSender()
sendingClient = New UdpClient(broadcastAddress, port)
sendingClient.EnableBroadcast = True
End Sub

Private Sub InitializeReceiver()
receivingClient = New UdpClient(port)

Dim start As ThreadStart = New ThreadStart(AddressOf Receiver)
receivingThread = New Thread(start)
receivingThread.IsBackground = True
receivingThread.Start()
End Sub

Private Sub Receiver()
Dim endPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, port)
Dim messageDelegate As AddMessage = AddressOf MessageReceived

While (True)
Dim data() As Byte
data = receivingClient.Receive(endPoint)
Dim message As String = Encoding.ASCII.GetString(data)
Invoke(messageDelegate, message)
End While
End Sub

Private Sub MessageReceived(ByRef message As String)
rtbChat.Text += message + vbNewLine
End Sub

Public Sub New()

' This call is required by the designer.
InitializeComponent()

AddHandler Me.Load, AddressOf ChatForm_Load
AddHandler btnSend.Click, AddressOf btnSend_Click
End Sub
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
tbSend.Text = tbSend.Text.TrimEnd()

If (Not String.IsNullOrEmpty(tbSend.Text)) Then
Dim toSend As String = userName + ":" + vbNewLine + tbSend.Text
Dim data() As Byte = Encoding.ASCII.GetBytes(toSend)
sendingClient.Send(data, data.Length)
tbSend.Text = ""
End If

tbSend.Focus()
End Sub


End Class
[/CPP]
 
Laatst bewerkt door een moderator:
huijb zei:
@Danielxmovies: plaats niet steeds nieuwe reacties binnen een tijdsbestek van een aantal minuten. Je heb ook de mogelijkheid om je bericht aan te passen.
Klik om te vergroten...

Laatste waarschuwing, Daniel.
 
Oke sorry Kwark en huijb zal der op letten

Maar het programmatje werkt nog steeds niet.

Die van captain is heel traag maar doet niks.

Zelfs niet eens je eigen text
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan