锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net所有函数 vbnet invoke

IT技术串口

如何正确理解VB.NET函数调用1. Shared FunctionSystem.Runtime.
InteropServices.DLLimport("user32.dll")
2. MessageBoxA(ByVal hwnd As Integer,
ByVal text As String, ByVal
lpcaption As String, ByVal
wtype As Integer) As Integer
3. End Function
首先integer被作为32位数据替代了long(long是64位)
System是Net语言中的一个族，System.Runtime.InteropServices是system中的一个类 。System.Runtime.InteropServices.DLLimpor是其中的一个方法 。调用DLL的API
接口，这个的意思就是vb6的lib"user32", share是共享的意思，例如：
1. Public Class classA
2. Shared FunctionSystem.Runtime.
InteropServices.DLLimport("user32.dll")
MessageBoxA(ByVal h As Integer,
ByVal m As String, ByVal c As
String, ByVal type As Integer) As Integer
3. End Function
4. End Class
你可以这样调用 classA.MessageboxA 但是如果没有这个share 在class后打点就没有MessageboxA的成员出现了，现在你就象以前一样的使用他吧 。
其实上面这个VB.NET函数调用方法并不正确，我们仍旧要使用API声明，只是换了一各形式
如果你认为这就是VB.NET就错了，看看这个：
system.WinForms.MessageBox.Show("对话内容写在这里", "标题写在这里", messagebox.OK BitOr messagebox.IconAsterisk)
这就是面向对象，你已经完成了所有的任务 。不需要任何的API声明 。不需要写多余的代码 。
1. messagebox.IconAsterisk=惊叹号图标
2. messagebox.IconError=错误图标
3. messagebox.IconExclamation=警告图标
4. messagebox.IconHand=错误图标
5. messagebox.IconInformation=提示图标
所经点NET就是打点到达，在族后面打点 ， 在类后面打点 ， 在对象后面打点 。第二个问题就是类与类之间相互的关系 ， Net在网上处理人与人的关系，在程序语言中处理类与类的关系 。倒底是加不加share,倒底是类后面打点,还是Dim成一个对象（把他当一个变量吧）再说，是等于class,还是New class.是dim xxx as class=new class 还是dim xxx as new class
就是这样VB.NET函数调用将更简单，不须要研究一些很难的东西 。
VB.net 里怎么查询所有函数和控件的参数和用法?打开vs的对象管理器（快捷键Ctrl
Alt
J
）就可以看到所有的类的方法和属性等～
vb.net中的mid（）用法VB.NET编程Mid函数一般用于返回原字符串中子串，比如说：
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串 。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid" 。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo" 。
MidMidWords = Mid(MyString, 5) ' 返回 "Funcion
具体函数说明如下：返回 Variant (String)，其中包含字符串中指定数量的字符 。
mid函数的语法：
Mid(string, start[, length])
mid函数的参数：
string 必要参数 。字符串表达式，从中返回字符 。如果 string 包含 Null ， 将返回 Null；
start 必要参数 。为 Long 。string 中被取出部分的字符位置 。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；
length 可选参数；为 Variant (Long) 。要返回的字符数 。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符 。
用vb.net做串口通讯程序要调用哪些api函数?串口API通信函数编程
16位串口应用程序中 ， 使用的16位的Windows API通信函数:
①OpenComm()打开串口资源，并指定输入、输出缓冲区的大?。ㄒ宰纸诩疲?
CloseComm() 关闭串口;
例：int idComDev;
idComDev = OpenComm("COM1", 1024, 128);
CloseComm(idComDev);
②BuildCommDCB() 、setCommState()填写设备控制块DCB，然后对已打开的串口进行参数配置; 例：DCB dcb;
BuildCommDCB("COM1:2400,n,8,1", dcb);
SetCommState(dcb);
③ ReadComm 、WriteComm()对串口进行读写操作，即数据的接收和发送.
例：char *m_pRecieve; int count;
ReadComm(idComDev,m_pRecieve,count);
Char wr[30]; int count2;
WriteComm(idComDev,wr,count2);
16位下的串口通信程序最大的特点就在于：串口等外部设备的操作有自己特有的API函数；而32位程序则把串口操作（以及并口等）和文件操作统一起来了，使用类似的操作 。
在MFC下的32位串口应用程序
32位下串口通信程序可以用两种方法实现：利用ActiveX控件；使用API 通信函数 。
使用ActiveX控件 ， 程序实现非常简单，结构清晰，缺点是欠灵活；使用API 通信函数的优缺点则基本上相反 。
使用ActiveX控件：
VC6.0提供的MSComm控件通过串行端口发送和接收数据，为应用程序提供串行通信功能 。使用非常方便，但可惜的是，很少有介绍MSComm控件的资料 。
⑴．在当前的Workspace中插入MSComm控件 。
Project菜单------Add to Project----Components and Controls-----Registered
ActiveX Controls---选择Components: Microsoft Communications Control,
version 6.0 插入到当前的Workspace中 。
结果添加了类CMSComm(及相应文件：mscomm.h和mscomm.cpp ) 。
⑵．在MainFrm.h中加入MSComm控件 。
protected:
CMSComm m_ComPort;
在Mainfrm.cpp::OnCreare()中：
DWORD style=WS_VISIBLE|WS_CHILD;
if (!m_ComPort.Create(NULL,style,CRect(0,0,0,0),this,ID_COMMCTRL)){
TRACE0("Failed to create OLE Communications Control\n");
return -1;// fail to create
}
⑶.初始化串口
m_ComPort.SetCommPort(1);//选择COM?
m_ComPort. SetInBufferSize(1024); //设置输入缓冲区的大?。?Bytes
m_ComPort. SetOutBufferSize(512); //设置输入缓冲区的大小，Bytes//
if(!m_ComPort.GetPortOpen()) //打开串口
m_ComPort.SetPortOpen(TRUE);
m_ComPort.SetInputMode(1); //设置输入方式为二进制方式
m_ComPort.SetSettings("9600,n,8,1"); //设置波特率等参数
m_ComPort.SetRThreshold(1); //为1表示有一个字符引发一个事件
m_ComPort.SetInputLen(0);
⑷．捕捉串口事项 。MSComm控件可以采用轮询或事件驱动的方法从端口获取数据 。我们介绍比较使用的事件驱动方法：有事件（如接收到数据）时通知程序 。在程序中需要捕获并处理这些通讯事件 。
在MainFrm.h中：
protected:
afx_msg void OnCommMscomm();
DECLARE_EVENTSINK_MAP()
在MainFrm.cpp中：
BEGIN_EVENTSINK_MAP(CMainFrame,CFrameWnd )
ON_EVENT(CMainFrame,ID_COMMCTRL,1,OnCommMscomm,VTS_NONE) //映射ActiveX控件事件
END_EVENTSINK_MAP()
⑸．串口读写. 完成读写的函数的确很简单，GetInput()和SetOutput()就可 。两个函数的原型是：
VARIANT GetInput()；及 void SetOutput(const VARIANT newValue);都要使用VARIANT类型（所有Idispatch::Invoke的参数和返回值在内部都是作为VARIANT对象处理的） 。
无论是在PC机读取上传数据时还是在PC机发送下行命令时，我们都习惯于使用字符串的形式（也可以说是数组形式） 。查阅VARIANT文档知道，可以用BSTR表示字符串，但遗憾的是所有的BSTR都是包含宽字符，即使我们没有定义_UNICODE_UNICODE也是这样！ WinNT支持宽字符, 而Win95并不支持 。为解决上述问题，我们在实际工作中使用CbyteArray ， 给出相应的部分程序如下：
void CMainFrame::OnCommMscomm(){
VARIANT vResponse;int k;
if(m_commCtrl.GetCommEvent()==2) {
k=m_commCtrl.GetInBufferCount(); //接收到的字符数目
if(k0) {
vResponse=m_commCtrl.GetInput(); //read
SaveData(k,(unsigned char*) vResponse.parray-pvData);
} // 接收到字符，MSComm控件发送事件 }
。。。。。// 处理其他MSComm控件
}
void CMainFrame::OnCommSend() {
。。。。。。。。// 准备需要发送的命令，放在TxData[]中
CByteArray array;
array.RemoveAll();
array.SetSize(Count);
for(i=0;iCount;i)
array.SetAt(i, TxData[i]);
m_ComPort.SetOutput(COleVariant(array)); // 发送数据 }
二 使用32位的API 通信函数:
⑴．在中MainFrm.cpp定义全局变量
HANDLEhCom; // 准备打开的串口的句柄
HANDLEhCommWatchThread ;//辅助线程的全局函数
⑵．打开串口，设置串口
hCom =CreateFile( "COM2", GENERIC_READ | GENERIC_WRITE, // 允许读写
0,// 此项必须为0
NULL,// no security attrs
OPEN_EXISTING,//设置产生方式
FILE_FLAG_OVERLAPPED, // 我们准备使用异步通信
NULL );
我使用了FILE_FLAG_OVERLAPPED结构 。这正是使用API实现非阻塞通信的关键所在 。
ASSERT(hCom!=INVALID_HANDLE_VALUE); //检测打开串口操作是否成功
SetCommMask(hCom, EV_RXCHAR|EV_TXEMPTY );//设置事件驱动的类型
SetupComm( hCom, 1024,512) ; //设置输入、输出缓冲区的大小
PurgeComm( hCom, PURGE_TXABORT | PURGE_RXABORT | PURGE_TXCLEAR
| PURGE_RXCLEAR ); //清干净输入、输出缓冲区
COMMTIMEOUTS CommTimeOuts ; //定义超时结构，并填写该结构
…………
SetCommTimeouts( hCom, CommTimeOuts ) ;//设置读写操作所允许的超时
DCBdcb ; // 定义数据控制块结构
GetCommState(hCom, dcb ) ; //读串口原来的参数设置
dcb.BaudRate =9600; dcb.ByteSize =8; dcb.Parity = NOPARITY;
dcb.StopBits = ONESTOPBIT ;dcb.fBinary = TRUE ;dcb.fParity = FALSE;
SetCommState(hCom, dcb ) ; //串口参数配置
上述的COMMTIMEOUTS结构和DCB都很重要 ， 实际工作中需要仔细选择参数 。
⑶启动一个辅助线程，用于串口事件的处理 。
Windows提供了两种线程，辅助线程和用户界面线程 。辅助线程没有窗口，所以它没有自己的消息循环 。但是辅助线程很容易编程，通常也很有用 。
在次，我们使用辅助线程 。主要用它来监视串口状态，看有无数据到达、通信有无错误；而主线程则可专心进行数据处理、提供友好的用户界面等重要的工作 。
hCommWatchThread=
CreateThread( (LPSECURITY_ATTRIBUTES) NULL, //安全属性
0,//初始化线程栈的大小 ， 缺省为与主线程大小相同
(LPTHREAD_START_ROUTINE)CommWatchProc, //线程的全局函数
GetSafeHwnd(), //此处传入了主框架的句柄
0, dwThreadID );
ASSERT(hCommWatchThread!=NULL);
⑷为辅助线程写一个全局函数，主要完成数据接收的工作 。请注意OVERLAPPED结构的使用，以及怎样实现了非阻塞通信 。
UINT CommWatchProc(HWND hSendWnd){
DWORD dwEvtMask=0 ;
SetCommMask( hCom, EV_RXCHAR|EV_TXEMPTY );//有哪些串口事件需要监视？
WaitCommEvent( hCom, dwEvtMask, os );// 等待串口通信事件的发生
检测返回的dwEvtMask，知道发生了什么串口事件：
if ((dwEvtMaskEV_RXCHAR) == EV_RXCHAR){ // 缓冲区中有数据到达
COMSTAT ComStat ; DWORD dwLength;
ClearCommError(hCom, dwErrorFlags, ComStat ) ;
dwLength = ComStat.cbInQue ; //输入缓冲区有多少数据？
if (dwLength0) {BOOL fReadStat ;
fReadStat = ReadFile( hCom, lpBuffer，dwLength, dwBytesRead,READ_OS( npTTYInfo ) ); //读数据
注:我们在CreareFile()时使用了FILE_FLAG_OVERLAPPED,现在ReadFile()也必须使用
LPOVERLAPPED结构.否则,函数会不正确地报告读操作已完成了.
使用LPOVERLAPPED结构, ReadFile()立即返回,不必等待读操作完成,实现非阻塞
通信.此时, ReadFile()返回FALSE, GetLastError()返回ERROR_IO_PENDING.
if (!fReadStat){
if (GetLastError() == ERROR_IO_PENDING){
while(!GetOverlappedResult(hCom,READ_OS( npTTYInfo ),dwBytesRead, TRUE )){
dwError = GetLastError();
if(dwError == ERROR_IO_INCOMPLETE) continue；//缓冲区数据没有读完，继续
…… ……
::PostMessage((HWND)hSendWnd,WM_NOTIFYPROCESS,0,0);//通知主线程，串口收到数据}
所谓的非阻塞通信，也即异步通信 。是指在进行需要花费大量时间的数据读写操作（不仅仅是指串行通信操作）时，一旦调用ReadFile()、WriteFile(), 就能立即返回，而让实际的读写操作在后台运行；相反，如使用阻塞通信 ， 则必须在读或写操作全部完成后才能返回 。由于操作可能需要任意长的时间才能完成，于是问题就出现了 。
非常阻塞操作还允许读、写操作能同时进行（即重叠操作?） ， 在实际工作中非常有用 。
要使用非阻塞通信，首先在CreateFile()时必须使用FILE_FLAG_OVERLAPPED；然后在 ReadFile()时lpOverlapped参数一定不能为NULL，接着检查函数调用的返回值，调用GetLastError() ， 看是否返回ERROR_IO_PENDING 。如是，最后调用GetOverlappedResult()返回重叠操作(overlapped operation)的结果;WriteFile()的使用类似 。
⑸．在主线程中发送下行命令 。
BOOLfWriteStat ; char szBuffer[count];
…………//准备好发送的数据，放在szBuffer[]中
fWriteStat = WriteFile(hCom, szBuffer, dwBytesToWrite,
dwBytesWritten, WRITE_OS( npTTYInfo ) ); //写数据
//我在CreareFile()时使用了FILE_FLAG_OVERLAPPED,现在WriteFile()也必须使用LPOVERLAPPED结构.否则,函数会不正确地报告写操作已完成了.
使用LPOVERLAPPED结构,WriteFile()立即返回,不必等待写操作完成,实现非阻塞 通信.此时, WriteFile()返回FALSE, GetLastError()返回ERROR_IO_PENDING.
int err=GetLastError();
if (!fWriteStat) {
if(GetLastError() == ERROR_IO_PENDING){
while(!GetOverlappedResult(hCom, WRITE_OS( npTTYInfo ),
dwBytesWritten, TRUE )) {
dwError = GetLastError();
if(dwError == ERROR_IO_INCOMPLETE){// normal result if not finished
dwBytesSent= dwBytesWritten; continue; }
......................
//我使用了多线程技术 ， 在辅助线程中监视串口 ， 有数据到达时依靠事件驱动，读入数据并向主线程报告（发送数据在主线程中，相对说来，下行命令的数据总是少得多）；并且，WaitCommEvent()、ReadFile()、WriteFile()都使用了非阻塞通信技术，依靠重叠（overlapped）读写操作，让串口读写操作在后台运行 。
【vb.net所有函数 vbnet invoke】vb.net所有函数的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容 ， 更多关于vbnet invoke、vb.net所有函数的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：ChatGPT占领华尔街，抢占华尔街

    下一篇：水晶电视墙怎么安装插座，水晶电视墙怎么安装插座的