Visual Basic ile basit bir chat programı yapmak için aşağıdaki adımları takip edebilirsiniz:
İki form oluşturun. Bir form kullanıcı adını girmek için ve diğer form ise mesajları göndermek ve almak için.
İlk formda, bir TextBox ve bir Button ekleyin. TextBox’a kullanıcı adını girmesi için bir metin kutusu verin ve Button’a “Giriş” yazısı verin.
İkinci formda, bir ListBox, bir TextBox ve bir Button ekleyin. ListBox, gönderilen ve alınan mesajların görüntülendiği alandır. TextBox, mesajları yazmak için kullanılır ve Button, mesajı göndermek için kullanılır.
İki formda da, formun Load olayı için kod ekleyin. İlk formda, kullanıcının adını girmesi için TextBox’a odaklanmasını sağlayacak kodu ekleyin. İkinci formda, ListBox’ı temizlemek için kodu ekleyin.
İlk formda, Button’a tıklanınca ikinci formun açılması için kod ekleyin. Kod aşağıdaki gibi olacaktır:
vbnet
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim frm As New Form2
frm.ShowDialog()
End Sub
İkinci formda, mesaj göndermek için Button’a tıklanınca ListBox’a mesajı eklemek için kod ekleyin. Kod aşağıdaki gibi olacaktır:
vbnet
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Add(Form1.TextBox1.Text & “: ” & TextBox1.Text)
TextBox1.Clear()
End Sub
İkinci formda, mesaj almak için bir Timer ekleyin. Timer’ın Interval özelliğini 1000 milisaniye olarak ayarlayın ve Enabled özelliğini True olarak ayarlayın.
Timer’ın Tick olayı için kod ekleyin. Kod aşağıdaki gibi olacaktır:
vbnet
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim messages() As String = My.Computer.Network.ReceiveTcpClient(“localhost”, 8888).Split(“|”)
For Each message In messages
ListBox1.Items.Add(message)
Next
End Sub
Projenizi derleyin ve ilk formda kullanıcı adını girin. Ardından, ikinci formda mesaj göndermek için kullanıcı adınızı ve mesajınızı yazın ve Gönder düğmesine tıklayın. Diğer kullanıcının mesajınızı görmesi birkaç saniye sürebilir, çünkü Timer her saniye çalışır.
Not: Bu örnek, bir bilgisayarda çalışan bir chat programıdır. Birden fazla kullanıcının birbirleriyle sohbet etmesi için, ayrı bir sunucu uygulaması oluşturmanız gerekir.