Lập trình Client/Server với NetForVAT – Caro Game

[thuanfun]

NetForVBA là thư viện .NET miễn phí các tính năng cơ bản (Freemium) cung cấp cho VBA những tính năng mạnh mẽ từ Microsoft .NET Framework. Bạn vui lòng tải hoặc nâng cấp lên bản mới nhất tại đây để luôn là phiên bản mới nhất.

Tôi xin giới thiệu một tính năng miễn phí mới của NetForVBA là lập trình kết nối qua mạng LAN.

Để kết nối giữa Client và Server qua mạng LAN, NetForVBA cung cấp 2 class là dnSocketLANServer dành cho phía server và dnSocketLANClient dành cho phía máy client.

Server

Để khởi tạo Server, bạn cần khai báo biến dnSocketLANServer, gắn Port, đăng ký events và chạy thủ tục Start.

Dim server As New dnSocketLANServer

'# Gắn Port
server.port = 1234

'# Đăng ký Event sẽ gọi ở hàm VBA nào
server.regEvent_OnClientConnected ThisWorkbook, "server_OnClientConnected"
server.regEvent_OnMessage ThisWorkbook, "server_OnMessage"
server.regEvent_OnClientDisconnected ThisWorkbook, "server_OnClientDisconnected"

'# chạy nào!
server.Start

Ở code trên có 3 event cơ bản là OnClientConnected, OnMessage, OnClientDisconnected tương ứng với các sự kiện của client là: kết nối, gửi tin đến, ngừng kết nối. 3 sự kiện này lần lượt được đăng ký đến 3 Sub VBA là:

Sub server_OnClientConnected(sender As Object, e As dnSocketLANClientEventArgs)
   'Sự kiện xảy ra khi có một Client mới kết nối thành công đến Server
End Sub

Sub server_OnMessage(sender As Object, e As dnSocketLANMessageEventArgs)
   'Sự kiện xảy ra khi nhận được tin (message) từ client gửi đến Server
End Sub

Sub server_OnClientDisconnected(client As dnSocketLANClient, e As dnEventArgs)
   'Sự kiện xảy ra khi có một Client ngừng kết nối (lỗi, mất mạng hoặc tự thoát)
End Sub

Để gửi một message đến client ta dùng hàm:

'# gửi String
server.SendString "địa chỉ IP của client", "dòng unicode text muốn gửi"

'# gửi mảng byte
server.SendBytes "địa chỉ IP của client", byteArray, "ghi chú của bạn"

Client

Để client kết nối với Server, bạn cần khai báo biến dnSocketLANClient, đăng ký events và chạy thủ tục Connect “IP của máy server”, port.

Dim client As New dnSocketLANClient

'# Đăng ký Event sẽ gọi ở hàm VBA nào
client.regEvent_OnConnected ThisWorkbook, "client_OnConnected"
client.regEvent_OnMessage ThisWorkbook, "client_OnMessage"
client.regEvent_OnDisconnected ThisWorkbook, "client_OnDisconnected"

'# kết nối nào! (nhớ thay IP và Port của bạn)
client.Connect "192.168.1.1", 1234

Các sự kiện được gọi ở 3 Sub cơ bản:

Sub client_OnConnected(sender As dnSocketLANClient, e As Object)
   'Xảy ra khi kết nối thành công
End Sub

Sub client_OnMessage(sender As Object, e As dnSocketLANMessageEventArgs)
   'Xảy ra khi nhận được message từ sender (có thể là server hoặc client khác)
End Sub

Sub client_OnDisconnected(sender As dnSocketLANClient, e As Object)
'Xảy ra khi ngừng kết nối
End Sub

Client gửi tin đến server hoặc client khác bằng các hàm sau:

'# gửi String đển Server
client.SendString "dòng unicode text muốn gửi đến Server"

'# gửi mảng byte đến Server
client.SendBytes byteArray, "ghi chú của bạn"

'# gửi mảng byte đến Client khác
client.SendToIP "IP của client bạn muốn gửi đến", byteArray, "ghi chú của bạn"

Dưới đây là file ví dụ về Game Caro qua mạng LAN:

• Caro-game-Server.xlsm
• Caro-game-Client.xlsm

PS: Tính năng lập Client/Server này em mới làm nên còn một số lỗi, em mong các bác góp ý phía dưới để em chỉnh sửa để có một giải pháp kết nối Client/Serser miễn phí hoàn thiện nhất dùng cho VBA.

 

[thuyyeu99]

Hihi cái này mình còn đang vướng đây

 

[thuanfun]

Hihi cái này mình còn đang vướng đây

Với .NET nó dễ hơn bác ạ

 

[thuyyeu99]

Cái truyền qua truyền lại thì mình biết, chỉ không biết làm sao mà từ client open file excel tren sever thôi???

 

[thuanfun]

Cái truyền qua truyền lại thì mình biết, chỉ không biết làm sao mà từ client open file excel tren sever thôi???

Bạn muốn Open file đó ở máy trên server hay client?

 

[Kiều Mạnh]

Mạnh cũng biết chút chút rồi trên VBA ai biết API thì viết tốt có điều nó ko hổ trợ tốt như vb6.delphi , vb.net.....còn cái taskpane nửa Mạnh chưa thấy người thứ 3 viết .ocx đang hóng tiếp

 

[thuanfun]

Mạnh cũng biết chút chút rồi trên VBA ai biết API thì viết tốt có điều nó ko hổ trợ tốt như vb6.delphi , vb.net.....

Viết được API+VBA thì sẽ triển khai nhàn hơn bác nhỉ? ko phải cõng thêm Lib nữa, giảm được các lỗi không mong muốn từ bên ngoài

 

[thuyyeu99]

Bạn muốn Open file đó ở máy trên server hay client?

Mở Tren may client (flie do nam tren sever)

 

[Kiều Mạnh]

Viết được API+VBA thì sẽ triển khai nhàn hơn bác nhỉ? ko phải cõng thêm Lib nữa, giảm được các lỗi không mong muốn từ bên ngoài

API trên VBA trên google có hết tại ít ai quan tâm hay mò nó ...Mạnh copy xài thế thôi

 

[thuanfun]

Mở Tren may client (flie do nam tren sever)

Cài này phải xem ngữ cảnh thế nào?
#1: một mình làm việc cả file: thì tốt nhất tải cả file về rồi khi xong việc lại up lên (dung code auto)
#2: một mình làm việc với 1 sheet/range (không đụng độ với ai): tải các thông tin range đó về hiển thị trên client, lúc nào cần xong thì gửi lên (real-time hoặc lâu lâu up phát đỡ mệt)
#3: làm chung với người khác (cái này đụng nhau rồi): cái này em nghĩ cần xây dựng message queue để xếp hàng các lệnh mà client gửi lên, rồi xử lý lần lượt sẽ tránh được đụng độ

Em nghĩ vậy không biết có ý nào giống bác không?

 

[thuyyeu99]

Cài này phải xem ngữ cảnh thế nào?

#2: một mình làm việc với 1 sheet/range (không đụng độ với ai): tải các thông tin range đó về hiển thị trên client, lúc nào cần xong thì gửi lên (real-time hoặc lâu lâu up phát đỡ mệt)

Cái mục này mình thấy hợp lý. Tuy nhiên Rang đó chứa công thức có tham chiếu đến File hay Sheet khác mà tải các thông tin range đó về hiển thị trên client sao được nhỉ

 

[thuanfun]

Mình thì

Cái mục này mình thấy hợp lý. Tuy nhiên Rang đó chứa công thức có tham chiếu đến File hay Sheet khác mà tải các thông tin range đó về hiển thị trên client so được nhỉ

Cái này em nghĩ không nên suy nghĩ kiểu clone 100% thông tin của range máy chủ về đặt vào client, mà chỉ nên lấy những thông tin cần thiết.

Nền tảng cơ bản vẫn là truyền message giữa 2 bên, và người viết code làm chủ được việc 2 bên gửi cho nhau những thông tin gì. Với Cell ta có thể chỉ lấy Value và thông tin Format (Font, Color, Border, ...)

Ví dụ ta có thể giới hạn ở Client, những Cell có công thức là ReadOnly và chỉ hiện Value (còn công thức thì hiện chỗ khác như comment, tooltip, ...), những Cell không có công thức thì cho nhập. Nhập xong đẩy lên Server, Server tính toán xong đẩy lại cho client giá trị của các Cell để hiển thị kết quả tính toán.

 

[thuyyeu99]

Ví dụ ta có thể giới hạn ở Client, những Cell có công thức là ReadOnly và chỉ hiện Value (còn công thức thì hiện chỗ khác như comment, tooltip, ...), những Cell không có công thức thì cho nhập. Nhập xong đẩy lên Server, Server tính toán xong đẩy lại cho client giá trị của các Cell để hiển thị kết quả tính toán.

Cái này không hay, có luôn công thức mới hay chứ chỗ này mình B I BI sắc BÍ

 

[thuanfun]

Cái này không hay, có luôn công thức mới hay chứ chỗ này mình B I BI sắc BÍ

Vậy có cho client sửa công thức không bác?

 

[thuyyeu99]

Vậy có cho client sửa công thức không bác?

Cái này chưa nghĩ tới mà chắc không

 

[thuanfun]

Cái này chưa nghĩ tới mà chắc không

Vậy thì công thức không đóng vai trò quan trọng ở phía client, nên ta không để nó làm nặng gánh trong lúc suy nghĩ giải quyết vấn đề.

 

[thuyyeu99]

Hihihi giải quyết được vấn đề này trước những cái khác tính sau. Hihi

 

[thuanfun]

Hihihi giải quyết được vấn đề này trước những cái khác tính sau. Hihi

Theo mình thì thế này:
#1: Convert Range thành String (tạm gọi là RangeString gồm value và các format màu sắc, font, border, ...)
#2: gửi sang máy kia
#3: Khi nhận được RangeString, convert nó thành các thuộc tính của Range rồi gán các thuộc tính đó cho một Range khác ở Client

Ở sự liện Worksheet_Change ta sẽ kiểm tra Target xem có nằm trong Range đang chia sẻ không, nếu nằm trong thì làm như các bước trên

 

[thuyyeu99]

Mình cũng từng nghĩ tới rồi tuy nhiên khi gán excel báo cập nhật công thức sao. Thực ra thì giống như copy.

Mà công nhận bạn nhìn ra vấn đề mình hỏi nhanh thật.
Hihi hy vọng là sẽ đi đúng hướng....

 

[thuanfun]

Mình cũng từng nghĩ tới rồi tuy nhiên khi gán excel báo cập nhật công thức sao. Thực ra thì giống như copy.

Mà công nhận bạn nhìn ra vấn đề mình hỏi nhanh thật

#1: Server mới tính toán công thức. Client chỉ hiển thị kết quả và nhập value (ở các ô không có công thức => không làm thay đổi không thức)
#2: Value mới nhận ở client được đẩy lên server, server gán value đó vào cell tương ứng (tất nhiên cũng không có công thức)
#3: Server tự động tính toán dựa vào các công thức trong cell => phát ra sự kiện Change
#4: Server có sự kiện change: lấy tất cả các cell thay đổi (để giảm dung lượng) ném lại cho client hiển thị

Vậy có được không bác?