Chương trình Chat2006 có một số chỉnh sửa

Sau hôm thực hành ngày 18/04/2009, mình có một số chỉnh sửa chương trình Chat2006, mình gởi cho các bạn để tham khảo và mong nhận được ý kiến từ các bạn.
Mô tả:
1.Chương trình bổ sung thêm Nút Send: chỉ khi nào người gởi muốn gởi thì bấm nút Send, chứ không có tự động như trước nữa.
2. Bổ sung thêm danh sách Chat: Khi các bạn chat với một máy, các bạn muốn lưu lại danh sách đó trên màn hình để một chút nữa muốn chat với họ thì không cần phải gõ lại IP hay là hỏi lại IP của bạn khác làm gì. Việc cần làm đó là bấm nút Add, IP đó sẽ nhảy sang danh sách bên phải (Nếu là lần đầu tiên chat thì bạn gõ vào IP của người muốn chat và bấm Add, còn người gởi tới cho bạn sẽ hiển thì IP và bạn cũng bấm nút Add để thêm IP vào danh sách), và khi bạn muốn chat với máy nào chỉ cần bấm vào danh sách đó. Còn nếu bạn không muốn IP trong danh sách đó thì chỉ cần bấm nút Remove.
3. Các thông tin chat với bạn sẽ được hiển thị đầy đủ ở trên khung text box Recive và có hiển thị địa chỉ của người gởi, vì chương trình của chúng ta có nhiều người gởi tới mà! .

Link tải:
http://www.ziddu.com/download/4372212/Chat2006.zip.html

Admin
Hoàn thiện nội dung thực hành như trên là đúng hướng. Các em sẽ giỏi lên. Không mất công đâu, cho dù sau này không lập trình nhiều (ít nhất là điểm thực hành sẽ rất cao).

kha kha, cảm ơn bạn về sự update trong Chat2006. Quả thật, cảm giác hôm thực hành thứ 7 vừa rồi rất "đã".

Mình đang muốn tạo ra các windows khác nhau khi chat với IP khác nhau để tránh chồng chéo thông tin và ngắt liên lạc khi nhận tin nhắn từ IP khác gửi đến.

Ví dụ: Chat2006, khi mình đang chat với máy A, máy B gửi tin nhắn đến cho mình, mình đang trả lời cho máy B thì máy A tiếp tục gửi tin nhắn đến. Nên mình muốn khi nhận tin nhắn như vậy với mỗi máy sẽ hiện ra 1 cửa sổ. Mỗi cửa sổ hiển thị thông tin IP máy mà mình đang chat. Nhấn Enter để gửi tin nhắn đi và tự động xóa dòng tin vừa gửi trong textbox

Mong các bạn giúp cho ý kiến!

Với yêu cầu của bạn thì mình nghĩ chương trình này phải lập trình multi threat mới có thể đáp ứng được. Vì khi người dùng gởi thông điệp tới thì chương trình phải biết gởi thông điệp đó tới màn hình chat nào.
Còn việc bấm nút send rồi dữ liệu trong textbox Send biến mất thì đơn giản thôi. Trong sự kiện bấm nút send mình thêm một dòng txtSend.text="" vậy là mất.

Nội dung này mình đang thực hiện như bạn hướng dẫn. Tiện hơn nhiều so với ban đầu. Đúng là bài tập thực hành này có thể chỉnh sửa được nhiều cách thật.
Thanks!

Chương trình bên dưới đựa trên chương trình của thầy có thêm môt số chút để thuận tiện hơn trong việc gửi vào nhận tin. Mình post lên các bạn cùng chia sẻ nha!
//****************************************//
Private Sub Form_Load()
On Error Resume Next
With udpPeerA
.RemoteHost = txtRemoteComputer.Text
.RemotePort = 2001
.Bind 2001
End With
txtContent.Text = ""
KeyPreview = True// Cho phep nhan phim de thuc thi su kien
End Sub
// Nhan Enter de gui tin nhan
Private Sub txtSend_KeyPress(KeyAscii As Integer)
On Error Resume Next
If (KeyAscii = 13) Then // Nhan phim Enter
udpPeerA.RemoteHost = txtRemoteComputer.Text
udpPeerA.SendData txtSend.Text
txtSend.Text = "" // Lam rong textbox
txtSend.SetFocus
End If
End Sub
/* Nhan vao nut send de gui tin nhan*/
Private Sub btnSend_Click()
On Error Resume Next
udpPeerA.RemoteHost = txtRemoteComputer.Text
udpPeerA.SendData txtSend.Text
txtSend.Text = ""
txtSend.SetFocus
End Sub
Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim strData As String
udpPeerA.GetData strData
txtRemoteComputer.Text = udpPeerA.LocalHostName
txtReceive.Text = strData
Dim strcontent As String
strcontent = strcontent & "" & txtRemoteComputer.Text & ":" & strData
LstItem.AddItem (strcontent) // Dung Listbox luu lai noi dung tin nhan
Me.WindowState = vbNormal
Me.SetFocus
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

OK, bai cua hongntt rất hay. Nhưng có bạn nào làm multi threat hay liên lạc giữa Server - Client chưa? nếu có thì post lên cho mọi người tham khảo luôn nha.
Cái tụi mình dang làm chỉ là liên lạc Peer to Peer thui àh.

Buổi thực hành đầu tiên thật sự là ngày thực hành tuyệt vời. Mình cũng có ý nghĩ như bạn phamlankhanh vậy đó. Khi mình chat với nhiều người thì cần phải có nhiều cửa sổ chat mới hay .
Ai đã làm được thì post lên mọi người tham khảo nha. Chúc môi người vui vẽ.

Các bạn có ý kiến rất là hay. Nhưng muốn thực hiện được trơn tru thì các bạn phải hiểu cơ bản về network,
cơ chế truyền broadcast hoặc là phải có Database mới thực hiện tốt ý kiến này(và lúc này chỉ dùng giao thức TCP/IP chứ không dùng được UDP) thậm chí các bạn còn đưa được các hình ngộ nghĩnh như yahoo vậy đó, nhưng phải tổ chức Database thật tốt. Mình có chút y kiến vậy thôi, chúc các bạn thành công

buổi thực hành T7 mình cỉi biết gởi trực tiếp giữa 2 máy thôi, bây giờ thì làm được nhiều rồi. Mình chưa sử dụng VB bao giờ, nên rất chậm. nhờ các bạn mình cũng từ từ OK rồi.

cám ơn bạn đã share chương trình chát với mọi người.

nvhung_107H1040 đã viết:cám ơn bạn đã share chương trình chát với mọi người.

Hi hi, cùng nhau học tập mà