如何用VB写一个单机五子棋游戏

Dim Y1为整数

将X2设为整数

将Y2标注为整数

将步长设为整数

作为布尔值的Dim等待

私有子支票1_Click()

Winsock1。本地端口=端口

Winsock1。听

末端接头

私有子命令1_Click()

Winsock1。RemoteHost = Ip

Winsock1。远程端口=端口

Winsock1。连接

末端接头

私有子窗体_Load()

步长= 200

X1 = 400

Y1 = 600

X2 = 400 +步长* 24

Y2 = 600 +步长* 24

检查2。BackColor =黄色

末端接头

私有子窗体_MouseDown(按钮为整数，Shift为整数，X为单值，Y为单值)

如果等待=假，则

启智X，Y，真

如果…就会结束

末端接头

私有子窗体_Paint()

对于i = 0到24

我。行(X1，Y1 +步* i)-(X2，Y1 +步* i)

我。Line (X1 + Step * i，Y1)-(X1 + Step * i，Y2)

然后

末端接头

私有函数QiZhi(X，Y，SendData As Boolean)

暗淡的颜色一样长

将xx显示为整数

将yy标注为整数

xx =(((X-X 1-100)\(Step \ 2))\ 2+1)* Step+X 1

YY =(((Y-Y 1-100)\(Step \ 2))\ 2+1)* Step+Y 1

如果检查2。那么值= 1

如果发送数据，则

颜色= vbBlue

其他

color =黄色

如果…就会结束

其他

如果发送数据，则

color =黄色

其他

颜色= vbBlue

如果…就会结束

如果…就会结束

对于i = 0到49

我。圆(xx，yy)，i * 2，颜色

然后

如果发送数据，则

Winsock1。发送数据字符串(xx)和amp" | " & amp字符串(yy)

等待=真

Label3 = "轮到对手下棋了"

其他

等待=假

Label3 = "该你了，快点"

如果…就会结束

结束功能

私有子检查2_Click()

如果检查2。那么值= 1

检查2。BackColor = vbBlue

其他

检查2。BackColor =黄色

如果…就会结束

末端接头

私有Sub Winsock 1 _ connection request(ByVal request id为Long)

如果Winsock1。状态& lt& gtsckClosed Then Winsock1。关闭

Winsock1。接受requestID

末端接头

私有Sub Winsock 1 _ data arrival(ByVal bytes total As Long)

将xx显示为整数

将yy标注为整数

Dim dd作为字符串

Winsock1。GetData dd，vbString，bytesTotal

调试。打印dd

a = Split(dd，" | ")

启智a(0)，a(1)，假

末端接头