VB.net函数队列 vb 队列

消息队列在VB.NET数据库开发中的应用

　我们先简单的了解一下什么是消息队列(MSMQ)？消息队列是 Windows （NT也有MSMQ WIN / /me/xp不含消息队列服务但是支持客户端的运行）操作系统中通讯的基础 也是用于创建分布式 松散连接通讯应用程序的工具 这些应用程序可以通过不同种类的网络进行通讯 也可以与脱机的计算机通讯 消息队列分为用户创建队列和系统队列 用户队列分为

成都创新互联是一家专注于网站设计制作、成都网站建设与策划设计,涿州网站建设哪家好?成都创新互联做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:涿州等地区。涿州做网站价格咨询:18982081108

· 公共队列 在整个可传递消息的 消息队列 网络中复制并传输 并且有可能由网络连接的所有站点访问

· 专用队列 不在整个网络中发布 相反 它们仅在所驻留的本地计算机上可用 专用队列只能由知道队列的完整路径名或标签的应用程序访问

· 管理队列 包含确认在给定 消息队列 网络中发送的消息回执的消息 指定希望 MessageQueue 组件使用的管理队列

· 响应队列 包含目标应用程序接收到消息时返回给发送应用程序的响应消息 指定希望 MessageQueue 组件使用的响应队列

系统队列分为

· 日记队列 可选地存储发送消息的副本和从队列中移除的消息副本

· 死信队列 存储无法传递或已过期的消息的副本

· 专用系统队列 是一系列存储系统执行消息处理操作所需的管理和通知消息的专用队列

现在大家对消息队列有了简单的了解后 就该进入主题了 要使用m *** q进行软件开发需要安装m *** q 安装完后就该进入实际的开发阶段 先打开vs net ide中的 服务起资源管理器 展开你想建立消息队列的计算机名 再展开 消息队列 右击它在弹出菜单中选择 新建 建立一个新的消息队列 并为它指定一个名字 这个名字可以随意 也可以通过编程来完成 代码如下

system Messaging MessageQueue Create( \Private$\MyPrivateQueue ) 建立专用队列System Messaging MessageQueue Create( myMachine\MyQueue ) 建立公共队列

其实我认为使用那中方法并不重要 重要的是搞清楚专用队列和公共队列的差别（其他队列不是必须的） 在本例中是通过 服务器资源管理器 分别在服务器上建立了专用队列和公共队列

程序功能 本程序分为两部分包括服务器程序（安装在sql server服务器上）和客户端程序 客户端的作用是用来编写t sql语句并将t sql语句放在消息中 并将消息发送到sql server服务器上的消息队列中去 服务器程序检查指定的消息队列当发现有新消息到达时 就开始执行消息中的内容 由于消息中的内容是t sql语句所以服务器端实际上是执行对数据库的操作

客户端程序

public Sub client（）Dim tM As New System Messaging MessageQueue()tM Path = \Private$\jk FORMATNAME:PUBLIC= d dc c fd ce d b e d 与指定计算机中的消息队列建立连接 Dim newMessage As New System Messaging Message(TextBox Text) 接受文本筐的t sql语句newMessage Label = This is the label 消息名字 tM Send(newMessage) 发送消息End Sub

服务端程序

public Sub server（）Dim NewQueue As New System Messaging MessageQueue( \Private$\jk ) FORMATNAME:PUBLIC= d dc c fd ce d b e d 与指定计算机中的消息队列建立连接 Dim m As System Messaging Message 查看消息队列中的消息m = NewQueue Receive m Formatter = New System Messaging XmlMessageFormatter(New String() { System String mscorlib })Dim st As Stringst = m Body 消息队列中消息的消息内容 既sql语句Dim con As New OleDb OleDbConnection( 输入自己的数据库连接字符串 )con Open()Dim As New OleDb OleDbCommand(st con) 执行消息中的sql语句 ExecuteNonQuery()con Close()End Sub

我为什么要使用消息队列来处理数据库的操作这个问题我一直没回答 现在我就来回答这个问题 在本程序中你会发现在sub client（）中我并没连接数据库和请求数据 而是通过发消息来操作数据库的 这个好处是节省了两部分时间

对数据库连解请求数据的时间

从数据库返回数据的时间

在很多情况下其实我们并不需要看见具体的数据就知道该怎么修改数据库中的数据 例如要删除张三的记录 就可以将一条简单的删除语句放入消息中 发给服务器让服务器程序去处理对数据的更改

此外消息队列的另一个主要用途也就是当前erp软件中必不可少的 就是在断开连接时保存信息 当连接恢复时发送消息 消息在如下两种情况中无法迅速地传递到它们的队列 当队列驻留的计算机无法工作时 或当路由消息所需的域控制器无法工作时 消息队列 可让您应对这些情况 使得在从网络上断开连接或必要的计算机或控制器无法工作时 仍可以继续发送消息 在这些情形下 消息暂时存储在本地计算机或传递路由上的某个计算机的队列中 直到完成传递所需的资源重新联机

例如 假设有一个记录所有在出差的销售人员发送的订单的中央队列 这些销售人员每天的大部分时间都以断开连接的方式工作 记录来自客户站点的订单信息 并且每天拨号连接一次 将所有这些信息传输到中央队列中 因为消息在发送方断开连接时仍可发送到队列 所以销售人员可以在记录客户信息时立即发送他们的消息 但系统会缓存这些消息直到晚间进行拨号连接为止

在断开连接时要怎么保存消息呢？向断开连接的队列发送消息同向可用队列发送消息的过程几乎完全相同 当要向其发送的队列不可用时 不必进行任何特殊的配置以使组件将消息存储在临时队列中 在client代码的tM Path = \Private$\jk 后面有一条注释语句 其实这条语句就是实现向断开连接的队列发送消息的功能 只要将tM Path = \Private$\jk 这条语句换成tM Path = FORMATNAME:PUBLIC= d dc c fd ce d b e d 其中PUBLIC后面的数字是要发送到计算机的guid数字 这个数字可以打开那台计算机的消息队列的属性看见 使用这种方法就可以在断开连接的情况下保证对服务器的操作是有效 现在运行这个程序后 打开win 中的 开始 》 程序 》 管理工具 》 计算机管理 在 计算机管理 窗口中展开 服务和应用程序 》 消息队列 》 传出队列 你将在右边的窗口中看见你建立的消息 （如果你使用tM Path = \Private$\jk 语句 在 计算机管理 窗口中展开 服务和应用程序 》 消息队列 》 专用队列 可以看见你建立的队列 ）

其实消息队列的编程并不复杂 但它在网络环境的程序开发中是非常有用的 可以简化大量的开发过程和节省开发时间

其实消息队列的编程有很大的灵活性 几乎可以解决网络编程的大部分问题 比如聊天程序 远程控制程序

本文针对消息队列做了一个简单的介绍 并举了一个例来说明怎么在 net下使用消息编程 达到快速高效稳定的对数据库进行操作 最后补充要说的是在internet中也一样可以使用消息队列 只需要将tM Path = FORMATNAME:PUBLIC= d dc c fd ce d b e d 语句后面的数字变成消息队列所在服务器的数字就可以了 但是要提醒大家的是使用消息在传输时将占有大量的带宽 所以在不是必须的时候 internet下的编程不要使用消息

lishixinzhi/Article/program/net/201311/15668

VB是否有现成的队列模板可用,如果没有那VB.NET中有吗？

ARRAYLIST,

Insert 将元素插入 ArrayList 的指定索引处。

Remove 从 ArrayList 中移除特定对象的第一个匹配项。

RemoveAt 移除 ArrayList 的指定索引处的元素。

RemoveRange 从 ArrayList 中移除一定范围的元素。

Add 将对象添加到 ArrayList 的结尾处。

AddRange 将 ICollection 的元素添加到 ArrayList 的末尾。

BinarySearch 已重载。 使用对分检索算法在已排序的 ArrayList 或它的一部分中查找特定元素。

Clear 从 ArrayList 中移除所有元素。

Reverse 已重载。 将 ArrayList 或它的一部分中元素的顺序反转。

Sort 已重载。 对 ArrayList 或它的一部分中的元素进行排序。

IndexOf 已重载。 返回 ArrayList 或它的一部分中某个值的第一个匹配项的从零开始的索引。

vb.net 排列组合算法

看了你说递归的效率低。那么你可以不用的。

给出的方法就是先生成第一个排列，然后每次调用下面的函数给出下一个排列，这样生成的效率很高，这个函数可以内联。

这个是很经典的排列组合算法啊？在网上能搜到一大堆。

大概是那种带指向的移动的算法。我给你搜一个吧。

我找了几个，这个是我觉得说的比较清楚的，你可以仔细参考一下，看不懂的话再搜点别的好了。。

全排列的算法跟这个不太一样的。需要有点改动的。

至于语言的话，应该不会有太大问题吧。。basic版的确实比较少，现在我也比较懒不想动手写。。还是要靠你自己啦。

★生成排列的算法：

比如要生成5，4，3，2，1的全排列，首先找出一个最小的排列12345, 然后依次调用n!次STL算法中的next_permutation()即可输出所有的全排列情况。所以这种算法的细节就是STL algorithm中next_permutation()的实现机制。详细的实现代码，大伙可以参考侯捷的《STL源代码剖析》，在这里我只说一下我的理解：

1 首先从最尾端开始往前寻找两个相邻元素，令第一个元素为*i,第二个元素为*ii，且满足*i*ii，找到这样一组相邻的元素后。

2 再从最尾端开始往前检验，找出第一个大于*i的元素，令为*k，将i,k元素对调。

3 再将ii及ii之后的所有元素颠倒排列，此即所求之"下一个"排列。

prev_permutation()算法的思路也基本相同，只不过它们寻找的"拐点"不同，在next_permutation()算法中寻找的是峰值拐点，而在prev_permutation()算法中寻找的是谷值拐点。另外，在第二步中，prev_permutation()要找的是第一个小于*i的元素而不是第一个大于*i的元素。

具体例子，有空再举，现在时间太晚了:)

★生成组合的算法：

如下面截图所示，分全组合和r-组合两种情况。

这里有一段核心代码：

//--------------------------------------------------------

// Generate next combination (algorithm from Rosen p. 286)

//--------------------------------------------------------

public int[] getNext () {

if (numLeft.equals (total)) {

numLeft = numLeft.subtract (BigInteger.ONE);

return a;

}

int i = r - 1;

while (a[i] == n - r + i) {

i--;

}

a[i] = a[i] + 1;

for (int j = i + 1; j r; j++) {

a[j] = a[i] + j - i;

}

numLeft = numLeft.subtract (BigInteger.ONE);

return a; //这里返回的a数组，存储的就是下标的排列组合。

}

到这里，也许大伙会有一个疑问，假如要求的不是数字的排列组合，而是字符或字符串的排列组合呢？怎么办？其实很简单，你只要拿数组的下标来做排列组合，返回他们下标的排列组合，然后再到原数组中读取字符串值，就可以输出全部的排列组合结果。

求用vbnet 实现先进先出即队列得源代码

VB.Net中的队列类在System.Collections.Generic命名空间中，名字叫Queue，是一个泛型类。

实例化该类：

Dim myQueue As QueueInt32

myQueue = new QueueInt32();

然后可以通过Queue中的Enqueue和Dequeue函数进行入队出队操作：

With myQueue

.Enqueue(1)

.Enqueue(2)

.Enqueue(3)

.Enqueue(4)

.Enqueue(5)

End With

For i = 0 To 5 Step 1

Console.WriteLine(myQueue.Dequeue())

Next i

显示结果：

1

2

3

4

5

VB.net关于类之间函数的调用问题。

如上面所说，你可能还不太了解类、函数等的作用。

类可以用来封装一系列操作，或者是一类对象的特性。像上面的描述，有可能是滥用类了。

建议你这样，弄一个专门的运算类，里面有四个运算的函数，比如：

Class 运算

Shared Function 加(ByVal 加数1 As Decimal, ByVal 加数2 As Decimal) As Decimal

'举个例子

Return 加数1 ＋ 加数2 '百度打不出英文加号，你自己改一下

Exit Function

End Function

Shared Function 减(ByVal 被减数 As Decimal, ByVal 减数 As Decimal) As Decimal

'举个例子

Return 被减数 - 减数

Exit Function

End Function

End Class

上面我写了两个例子，你可以照抄然后自己写乘除的，总之不要滥用类就行。

PS：Shared函数的使用不需要类被实例化，可以直接这样使用：

Msgbox(运算.加(1,2).ToString)

你会发现“运算”是蓝色的