VB.net 2010 Modbus RTU示例 演示使用功能4读取两个寄存器的值, VB2010环境编译测试通过,同时此程序示例在端口通信故障时不会造成CPU的高占用率,中断退出等操作不会造成端口阻塞;

用VB.NET实现，基本要求如下： 给定小球坐标，水平Y和竖直X方向速度，以及小球的重力加速度，模拟出小球的飞行轨迹，最后始终会由于空气阻力和重力原因而停落在地面上某处 （1）能根据用户需求模拟出3个小球同时出现在画面中，并发生碰撞检测，产生碰撞效果 （2）重力加速度默认为10且只影响Y方向，空气摩擦阻力默认只影响X方向，且每次减少0.01 （3）Timer计时器的时间间隔设置为0.002毫秒为宜，也可根据实际情况自己设定 （4）自由落体运动的公式是：vt=gt；h=gt2/2；vt2=2gh，其中时间t采用0.03秒为宜，也可根据实际情况自己设定

vb.net开发工具，操作读取excel表中指定单元格中的数据

用实例介绍VB.NET 调用Access，报表打印方法。

1.进销存vb.net源码。 2.力盟进销存vb.net源码。 3.企业综合管理系统.sln，开发文档，企业综合管理客户端，素材，word的生成。全是源码。，非常详细。

大华的sdk 厂家有使用源码，不过都是C++ 或 C# ,VB.NET的我很郁闷，研究好半天，才憋出一点点，发出来，供大家参考，大部分功能不会做，只做了看视频，测试是成功的。有兴趣的VB.NET程序员可以看看，再完善一下。

东北大学VB.NET大作业实验一（某商店为了迎接“五一”将进行促销活动，促销的商品包括服装、鞋、箱包、化妆品和床上用品五类。在促销期间，每类商品的指定品牌前5件以3折特价出售，先到先得，每个品牌的特价商品每人限购1件，售完为止。（例如，张三可以同时以3折的价格购买1件“幸福羊毛衫”、1件“米奇T恤”、1双“苹果男鞋”，但是不能以3折的价格购买2件“幸福羊毛衫”）.....）

东北大学VB.NET大作业实验二（展览馆门票管理系统，本系统主要记录的信息包括3个展览，每个展览的门票又分为成人票、老年票、学生票、集体票，并且每个展览的票价都不同.....）

基本的邮件发送 可以发送邮件 如QQ邮件 网易邮件 VB.NET 发送邮件 源码DEMO

Vb写的俄罗斯方块 基本功能全'声明一个整数常量Width,表示游戏界面横向的小正方形数目,初始化为16 Public Const Width As Integer = 16 '声明一个整数常量Height,表示游戏界面横向的小正方形数目,初始化为30 Public Const Height As Integer = 30 '游戏界面的背景色 Public Shared BackColor As Color '小正方形的大小 Public Shared SquareSize As Size = New Size(10, 10) Public Shared g As Graphics '声明一个Graphics变量,用于绘制下一个方块 Public Shared gNext As Graphics '声明一个数组,用于表示游戏界面上的所有小正方形 Private Shared ArrGameField(Width - 1, Height - 1) As CSquare '函数功能:判断ArrGameField(x, y)是否有正方形,有则返回False,无则返回True Public Shared Function IsEmpty(ByVal x As Integer, ByVal y As Integer) As Boolean If x >= 0 And x = 0 And y =0 '在循环体中,先判断第y行是否是满的,是的话result增1,并把第y行上的所有小正方形下降一行.最后y递减1 '如果实现把第y行的所有小正方形下降一行:从第y行扫描至第0行,每扫描一行,把上一行的每个小正方形赋值给该行,并修改每一个小正方形的Location属性的值 While Y >= 0 If IsLineFull(Y) Then result += 1 For i As Integer = Y To 0 Step -1 If i > 0 Then For x As Integer = 0 To Width - 1 ArrGameField(x, i) = ArrGameField(x, i - 1) If Not ArrGameField(x, i) Is Nothing Then ArrGameField(x, i).Location = New Point(ArrGameField(x, i).Location.X, ArrGameField(x, i).Location.Y + SquareSize.Height) End If Next Else For x As Integer = 0 To Width - 1 ArrGameField(x, i) = Nothing Next End If Next Else