-
vb.NET模拟扑克牌出牌功能
vb.NET模拟扑克牌出牌功能,其实可看作是一个界面较简单的扑克牌游戏,界面有些粗糙,没有过多美化,用文字描述了牌面,后续可以对界面进行升级。有点过于简单了,可当作一个初级的VB.NET编程例子吧。
- 2022-03-22 04:23:34下载
- 积分:1
-
国外的VB版跳棋游戏源码
一款国外的VB版跳棋游戏源码,源代码中同样包括了很多注释,不过注释都是英文。这款跳棋感觉和国内的不一样,走棋方法不同,试着玩了,按照国内的走棋方法,棋子并不走动,不知道如何玩。但是源代码在VB6.0下可顺利编译成功,有兴趣的可下载源代码参考学习。运行效果如下图所示。
- 2022-04-21 21:15:12下载
- 积分:1
-
VB6.0 添加、修改、删除数据库指定表
VB6.0 添加、修改、删除数据库指定表,添加、修改、删除作者表,VB6.0 添加、修改、删除数据库指定表。
- 2022-08-15 01:24:59下载
- 积分:1
-
VB SetWindowRgn创建椭圆形窗口
VB创建一个个性化的椭圆形窗口界面,使用 SetWindowRgn创建椭圆形窗口的例子。个性的窗口形状可增加程序的趣味性,可以使程序更具吸引力。见惯了方方正正的矩形窗体,椭圆形窗体更会使用户眼前一亮。本实例设计一个椭圆形的窗体,运行程序,窗体为椭圆形,单击窗体,即可退出程序。
- 2022-10-27 20:55:03下载
- 积分:1
-
一个使用Winsock控件的VB典型范例
一个使用Winsock控件的VB典型范例,架构为CS结构,由服务端和客户端组成,两者都运行后,可互通消息。调试步骤:
1)打开服务器端的“工程1.dsw”工程
2)点击运行按钮。
1)打开客户端的“工程1.dsw”工程
2)点击运行按钮。
3)此时服务器端和客户端已经建立连接
4)在服务器和客户端分别输入任何内容,另一端将会收到该内容并显示出来。
说明:必须先运行服务器端工程,再运行客户端工程。
- 2022-03-17 18:04:14下载
- 积分:1
-
VB 类似超级兔子的程序界面
VB 类似超级兔子的程序界面,这只是一个应用程序的界面效果,不包括界面菜单中的功能,因此对界面UI的美化可以参考。这个界面是使用BMP贴图的方式实现,整个窗口就是一张图片,但是经过了处理,添加了菜单,其实挺简单的,当时用在一个手机维修管理系统中了,现在发上来,不知道对大家是否有用?
- 2022-02-07 20:21:01下载
- 积分:1
-
VB.net与OMRON CP系列PLC通讯的实例
VB.net与OMRON CP系列PLC通讯,截图是辅助程序:FCS校验计算器的运行效果,与PLC通讯的实例在PLC-PC文件夹下,源码在VB.NET环境编译。
LBIndustrialCtrls.dll放在debug目录中,与exe文件同级。
- 2023-03-30 11:55:03下载
- 积分:1
-
VB6.0 如何计算加权平均值
VB6.0 代码演示如何计算加权平均值,计算加权平均值可编写以下代码实现:
Private Sub Command1_Click()
Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)
End Sub
Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer)
Dim sum As Integer
sum = (a * b + c * d + e * f) / (b + d + f)
sum = Round(sum, 2)
jiaquan = sum
End Function
- 2022-02-25 12:19:27下载
- 积分:1
-
VB6.0 实现表格样式的内容生成Excel表格式
VB6.0 实现表格样式的内容生成Excel表格式,将DataGrid的表格数据转换成Excel格式,生成Excel表文件,用Offie套件就可以打开,在转换前可设置文字格式、样式等参数,看上去是一个国外的程序,代码里的注释全是英文的,如果E文好的话,推荐参考。
- 2022-03-21 16:22:21下载
- 积分:1
-
VB 6.0 将数组中的数据利用图表分析
VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:
Private Sub Form_Load()
Dim i
i = Array(1, 2, 3, 4, 5, 6, 7)
Dim j
For j = 0 To UBound(i)
With MSChart1
.RowCount = UBound(i) + 1
.Row = j + 1
.ColumnCount = 1
.Data = i(j)
.RowLabel = i(j)
End With
Next j
End Sub
- 2022-01-25 18:47:19下载
- 积分:1