HarryXYC的博客

VB.NET中的JSON序列与反序列化，JSON读取、修改

一、简介：本类可以做到基于TCP的服务器与客户端实时数据互传（双通道数据传输，应该不会有堵塞情况），每个套接字都有自己的独立线程进行管理，充分发挥多线程性能。对类的主要调用以事件的形式存在。1、服务器端的主要事件：NewAddClient(ByVal index As Long) '客户端接入完成的事件，index是客户端的ID序号 GetNetData(ByVal index As Long, ByVal data() As String) '接收到来自客户端的字符串数据，index是客户

过了很久，哈里实在是记不得当时的全部逻辑了，直接上源码吧QAQ1、MF.frm（主窗体内的代码如下）Private 执棋颜色 As Integer, 摁住的棋子 As Long, 在移动棋子 As Boolean, 交换棋子颜色中 As Boolean, 需同意色 As IntegerPrivate 棋局() As 棋子, 字比 As Single, 线比 As Single, 进度比 As SinglePrivate 胜利字比 As Single, 胜利高比 As Single, 网线比 As

由于后面的过程中，哈里也是遇到了一些坑，因此完全按照当时开发时候的逻辑，可能篇幅太长。因此就直接把最后选择的算法做介绍吧。上回书说道：·那我要悔棋怎么办啊？·那我要再开一局怎么办啊？·我要棋子落得更整齐应该怎么办啊？·我想让程序告诉我哪方胜利该怎么办啊？·我想双方交换棋盒颜色该怎么办啊？就拿悔棋来说吧，我们自然五子棋最重要的核心，与别的五子棋最大的不同就是模仿真实的下棋...

设平面上有点A(xa,ya)，点B(xb,yb)，点C(xc,yc)，连接AB，问：如何用VB代码判断C点是否在线段AB上？代码如下：Public Function JudgmentPointOnline(xa As Single, ya As Single, xb As Single, yb As Single, xc As Single, yc As Single,Optional ...

（本文适合VB初学者）打开VB——新建标准EXE项目完成这些最基本的之后点确定我是打算写一个双人五子棋软件所以界面程序需要全屏/自由大小在这里我先做一个可接受大小的窗体这样就可以安排布局了改个名字显得更专业一点VB里面承载绘图的控件主要有窗体和picturebox它们两个可以用line函数画直线/方块，Circle函数画圆...

1、新建一个文本文件，将文件名改为“XXX.frm”。2、用notepad++或其他可设置编码的文本编辑软件打开刚才创建的“XXX.frm”3、打开加载错误的窗体文件，并CTRL+A后CTRL+C复制全文。4、在notepad++里点击菜单栏里的【编码】选项，选择【使用ANSI】编码。5、CTRL+V将代码复制进“XXX.frm”后保存该文件。6、运行VB6.0 IDE，选择“...

一、读取文本文件：1、一行一行读取，并返回文本。Function ReadFile(ByVal fPath As String) As String Dim fN As Integer,lineStrTmp as String fN = FreeFile Open fPath For input As #fN Do Until eof(fN) ...

哈里在最近的编程生活中，突发奇想，开始着手文本的分析。期间涉及到了数组的排序。于是想也没想祭出了自己祖传的“扑克牌排序法”，即插值排序。不过当后期数组元素个数大于100万的时候，祖传方法明显慢了下来，需要长达几十分钟的排序（VB.6.0与VB.net均如此，VB6.0更慢）。在排序算法的优化中，想到了一种新型排序方法：预留排序法。（新算法100万条数据仅需29毫秒，名字起的比较随意）...

哈里最近写了一下垂直坐标系转极坐标系的源码。过程大概是求圆的方程与直线交点坐标，从而得到极坐标系到垂直坐标系的位置。逆过程暂时不需要所以没有写。建立一个模块，命名为：极坐标运算模块。模块内码入如下代码：Public Type 二维坐标 X As Double Y As Double End TypePublic Const 一弧度 = 0.017453...

哈里在设计自己NOTE2.0的途中，想加入一个点击文件就可以打开自己程序的代码，即文件关联！在网上搜索了许多前辈们智慧的结晶后，哈里将其做成了一个模块文件，模块代码如下：Private Const REG_SZ = 1 ' Unicode nul terminated stringPrivate Const HKEY_CLASSES_ROOT = ...

随着哈里对VB学习的深入，修改了之前的矩阵运算源码。源码效率提升了85%，性能提升了12.5%，复杂度提升了N倍 Σ(っ °Д °;)っ废话不多说，上改版后的VB化Python11行BP网络源码：Private Sub Command1_Click() Dim nv As New numvb Dim txt As String, t As Double, te As ...