-
实时输入框,相当于VB的change()事件
所属栏目:[大数据] 日期:2020-12-16 热度:150
$Form1 = GUICreate("",533,464)$Input_1 = GuiCtrlCreateInput("",10,20,190,30)$Label_2 = GuiCtrlCreateLabel("",220,30,130,20)Global Const $WM_COMMAND = 0x0111GUIRegisterMsg($WM_COMMAND,"MY_WM_COMMAND")GUISetState()While 1 $msg = GUIGetMsg()[详细]
-
vb.net vb控制台 九九乘法
所属栏目:[大数据] 日期:2020-12-16 热度:163
通过vb控制台 输出九九乘法表 Module Module1 Sub Main() Dim i,j,temp As Short For i = 1 To 15 Console.Write(" ") Next Console.WriteLine("九九乘法表") Console.WriteLine() Console.Write("* ") For i = 1 To 9 Console.Write(" {0}",i) Next Console[详细]
-
VB.NET接口范例ISpeak
所属栏目:[大数据] 日期:2020-12-16 热度:112
VB.NET接口范例ISpeak 2012-5-20 08:11 | 发布者: benben | 查看: 532 | 评论: 0 摘要 : 我有一个朋友,他学习 VB.NET 时间还不是很长。这几天,他对面向对象编程中的接口突然产生了很大的兴趣。为了帮助他让他能够对接口有一个初步的、正确的认识,我写了下[详细]
-
pku3289Moonshine
所属栏目:[大数据] 日期:2020-12-16 热度:148
真是一道让人头疼的几何模拟题。。。wa了n多遍。。。注意圆台部分上底半径的求解,否则圆台体积会求错。。。横放时圆台部分体积要微元求解。。。最终s的确定要靠二分逼近。。。 #includestdio.h #includestdlib.h #includestring.h #includemath.h #define p[详细]
-
VBConversions.VB.Net.to.C.Sharp.Converter.v3.00.WORKING-Lz0
所属栏目:[大数据] 日期:2020-12-16 热度:150
VBConversions.VB.Net.to.C.Sharp.Converter.v3.00.WORKING-Lz0 http://filecloud.io/kumtpg8o/VBConversions.VB.Net.to.C.Sharp.Converter.v3.00.WORKING-Lz0.rar http://rapidgator.net/file/44799094/VBConversions.VB.Net.to.C.Sharp.Converter.v3.00.WO[详细]
-
FreeImage:超强的文件转换工具
所属栏目:[大数据] 日期:2020-12-16 热度:97
FreeImage是个超强的文件转换工具,是因为其开发者将主要精力集中在读取和写入各种文件格式上。而没有太多的关注算法的开展,正是由于这样,使得FreeImage才与OpenCV有本质的区别,OpenCV的算法函数相当的多,但是对文件格式的支持上缺少。而通常情况下,图[详细]
-
珊珊来迟的解决方法——VB中防止多用户登录
所属栏目:[大数据] 日期:2020-12-16 热度:80
对于机房收费系统,唯一的感觉就是来还债来了:在学生管理系统中没实现的功能一个不差的都会在这里整出来! 上次做学生管理系统的时候,有了点思路:新建一个表,当操作员登录成功后,将操作员工作信息添加到该表中,等下次登陆时,首先从表中检索是否存在相[详细]
-
VB中如何将msflexgrid控件中的数据导成Excel
所属栏目:[大数据] 日期:2020-12-16 热度:141
在机房收费系统中,其中有一个功能是:将Msflexgrid控件中的数据导入到excel中,经过几天的奋战,连查带改,现在提供一种方法,仅供参考: 实现这个功能,首先需先在工程中”引用”MrcrosoftExcel xx Object Library”,然后新建一个模块,声明如下子过程: Public SubO[详细]
-
Cls_Ini.cls:VB写的操作ini配置文件的类
所属栏目:[大数据] 日期:2020-12-16 热度:94
点击此处下载Cls_Ini.cls 主要源程序: VERSION 1.0 CLASSBEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Name = "Cl[详细]
-
数据添加步骤(vb6.0与数据库结合)
所属栏目:[大数据] 日期:2020-12-16 热度:199
首先,定义相关的变量 Dim txtSQL As String Dim msgText As String Dim mrc As ADODB.Recordset 1.定义t xtSQL 是用来保存执行到的SQL语句 2.定义msgText使用来返回查询状态,查询出来的结果是失败了,还是成功了 3.定义mrc为一个记录集用来保存结果。 其次[详细]
-
按概率生成随机数
所属栏目:[大数据] 日期:2020-12-16 热度:146
版权声明 :可以任意转载,转载时请务必以 超链接形式 标明如下文章原始出处和作者信息及 本声明 作者:xixi 出处:http://blog.csdn.net/slowgrace/archive/2009/03/25/4022632.aspx 1、生成随机数的方法 Function SetEmpId () As String Dim ref Randomize[详细]
-
(VB报表)未能用指定的连接串 "连接字段" 连接到数据源
所属栏目:[大数据] 日期:2020-12-16 热度:60
机房收费系统中,让我熊了好几天的问题终于可以放松一下了——在做周结账单报表时报错:未能用指定的连接串 "连接字段" 连接到数据源,连接串中的用户名与密码已隐藏。 出现这个问题,是因为自己在前面所做的日结账单报表中,当我在数据连接的时候,连接好服[详细]
-
VB中时间相减问题
所属栏目:[大数据] 日期:2020-12-16 热度:156
做机房收费系统的时候,遇见一个问题,就是上机时间与下机时间的小时差该如何算。 出现了下面这种情况: 上机和下机的时间差距有两天之多,这该如何算时间差呢。这时用到了datediff()这个函数 DateDiff(timeinterval,date1,date2 [,firstdayofweek [,firstwe[详细]
-
????vb.net快捷键
所属栏目:[大数据] 日期:2020-12-16 热度:147
VB.NET快捷键列表概览 2010-01-11 17:16 佚名 博客园 我要评论( 0 ) 字号: T | T VB.NET快捷键的掌握可以帮助我们提高操作效率,从而提高程序开发的速率。在这里主要对文件快捷键;编辑相关快捷键;视图相关快捷键等进行了一些总结。 AD: 51CTO云计算架构[详细]
-
模糊聚类算法(FCM)和硬聚类算法(HCM)的VB6.0实现及
所属栏目:[大数据] 日期:2020-12-16 热度:198
程序实现: 上面的公式看似复杂,其实我们关心的就是最后的5个计算步骤,这里说明一下,有的书上以隶属度矩阵的某一范数小于一定值作为收敛的条件,这也可,不过计算量稍微要大一点了。 程序采用VB6.0编制,完全按照以上的步骤进行。 '程序实现功能:模糊聚[详细]
-
vb.net 计算8位二进制数(包括符号位)的 原码反码补码
所属栏目:[大数据] 日期:2020-12-16 热度:128
vb 控制台程序 通过输入带符号位的8位二进制数计算 原码 反码 补码 写的方法 可能有些麻烦 但是能得到 理论上的效果 ! 如果有高手知道什么好方法希望给我邮件共享一下 771948524zxl@gmail.com Module Module1 Sub Main() Dim i,j,a,b,c,d,e,f,g,h,k,m As St[详细]
-
POJ 1692 Crossed Matchings (DP) #by Plato
所属栏目:[大数据] 日期:2020-12-16 热度:198
http://poj.org/problem?id=1692 题意:两个集合分别有 N1 、 N2 个元素,求最大匹配交叉对的数目。(匹配交叉对: a 和 b 中有两个元素相等,称其为 value-match; 现在是要有两个 va-match,vb-match ,并且他们相交, va!=vb ) Idea: 类似 LCS ; f[i] = M[详细]
-
vb msdc和vc msdn冲突解决方法
所属栏目:[大数据] 日期:2020-12-16 热度:120
喜欢同时使用vb 6.0因vc 6.0的程序员,而且您也同时安装了vc 的MSDN 2001和vb 的MSDn(chs)的话,要是你先安装vc的msdn后装vb 的msdn的话,在vc中按下F1的时候,弹出的是vb的msdn而不是vc msdn,在vb 6.0中一切正常,因为安装了vb和vc之后安装msdn的时候,系[详细]
-
相同的开始不同的过程最终的目标
所属栏目:[大数据] 日期:2020-12-16 热度:74
一晃眼,又到了一周的周末.而且今天是中秋节,在这里,先祝大家中秋节快乐! 到今天为止我们已经认真的学习了两天了,米老师也已经验收了我们的合同,以后啊,就别东想西想了,要想也只能想学习上的事情.其实吧,想想这两年,我真是从老师这学到了不少东西.虽然有人不[详细]
-
vb.net adsl播号 rasdial命令的使用
所属栏目:[大数据] 日期:2020-12-16 热度:132
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click If InStr(Run("c:windowssystem32rasdial","adsl username password"),"命令已完成") 0 Then Log("拨号成功") Else Log("拨号失败") End I[详细]
-
VB.net & java ---- 百元买百鸡题目
所属栏目:[大数据] 日期:2020-12-16 热度:67
百元买百鸡: 设 花一百元买鸡 公鸡:5元 母鸡:3元 小鸡1元3只 求买鸡的方案 java代码: import java.util.*;public class helloworld {public static void main(String[] args) {int count=0;for(int i=0;i20;i++){for(int j=0;j34;j++){for(int z=0;z300;[详细]
-
vb报表(一)——报表的制作
所属栏目:[大数据] 日期:2020-12-16 热度:67
先要下载报表控件,GridReport4.0cn,安装,添加部件, 打开报表设计器,文件——新建——向导 如下图: 设置数据库连接串与查询SQL: 先创建数据库连接串: 设置属性: 测试连接: 连接数据库成功,连接数据库表: 测试: 生成字段和列: 报表生成了。[详细]
-
vb中利用WMI判断系统服务状态
所属栏目:[大数据] 日期:2020-12-16 热度:98
程序代码 Private Sub Command1_Click() On Error GoTo err Dim objSWbemLocator As SWbemLocator Dim objSWbemServices As SWbemServices Dim objSWbemObjectSet AsSWbemObjectSet Dim objSWbemObject As SWbemObject Dim strComputer As String,strNameSpa[详细]
-
VB中使用WMI 一
所属栏目:[大数据] 日期:2020-12-16 热度:92
1、引用microsoft wmi scripting 2、Dim objApp As WbemScripting.SWbemLocator Dim objServer As WbemScripting.SWbemServices Dim objSet As WbemScripting.SWbemObjectSet Dim obj As WbemScripting.SWbemObject 3、产生objServer的方法很多。以下三种都[详细]
-
VB中使用WMI 二(不用引用microsoftwmi scripting的方法)
所属栏目:[大数据] 日期:2020-12-16 热度:74
发现要使用WMI,不一定要引用microsoft wmi scripting 如下:找出安装的SQL Server服务 Dim objServer As Object Dim objSet As Object Dim obj As Object Dim strComputer As String,strServiceName As String Dim idx As Integer ReDim g_strSQLServer(32)[详细]
