怎样在VB中对多个下位机实现多机通信，要求的是发送的奇偶校验位为1，怎么做？在给等待。

2004-04-24 03:59:22 163 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从零开始：手把手教你设计DP接口电路（含原理图实战）本文是一份详尽的DisplayPort接口电路设计实战指南。文章从DP接口的核心架构与HDMI的差异讲起，手把手解析了高速差分对、AUX辅助通道、热插拔检测等关键模块的原理图设计要点，并提供了一个完整的DP Source端原理图实例，最后总结了PCB布局与信号完整性的核心考量，旨在帮助硬件工程师高效、稳定地完成DP接口电路设计。阅读详情

我要用VB写多机通信的上位机通信程序，但是VB中只有一个MSCOMM不能实现谁有办法帮个忙。
但是想了一下可以用C写一个发送程序做成的DLL的文件，可是做不出来，大家帮个忙吧！

...全文

双向晶闸管交流调压基础知识及Multisim电路仿真本文介绍了双向晶闸管交流调压电路的工作原理及应用。该电路由双向晶闸管、RC移相电路和双向触发二极管组成，通过调节电位器改变触发角实现电压调节。当电位器阻值减小时，触发角减小，输出电压升高；阻值增大时，触发角增大，输出电压降低。Multisim仿真展示了不同电位器档位下的波形特征：0%档位时全导通，50%档位时半导通，100%档位时基本关断。该电路结构简单、调节平滑，广泛应用于调光、调速等场合，但会产生谐波干扰。阅读详情

Cerike

COM/DCOM/COM+ 864 成员 3,658 内容

+ 关注 + 加入社区

切换为时间正序

sendwb 2004-05-12

打赏
举报

用API函数打开串口进行通讯,这样灵活得多

hhyttppd 2004-05-04

打赏
举报

gys_yxr(毛毛) 给他个DLL和调用说明不就行了，偶没搞过，但偶是学机械的，将来肯定要接触这方面的东西，学习。

Cerike 2004-05-04

打赏
举报

我是用VB写的,不太明白,

tangxiaosan001 2004-05-04

打赏
举报

同意。

dongge2000 2004-05-02

打赏
举报

同意楼上

gys_yxr 2004-04-27

打赏
举报

HANDLE hidcomdrv;
bool opened=false ;
extern"C"_declspec(dllexport)bool open(int nport,LPSTR Settings)
{

if (opened) return(true);
char spname[8];
DWORD dwerror;
DCB dcb;
wsprintf(spname,"COM%d",nport);
hidcomdrv=::CreateFile(spname,GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL|FILE_FLAG_OVERLAPPED,NULL);
if (hidcomdrv==INVALID_HANDLE_VALUE)
{
dwerror=::GetLastError();
AfxMessageBox("Can not Open Comm");
return(false);
}
if(::GetCommState(hidcomdrv,&dcb))
{
dcb.BaudRate=9600;
dcb.ByteSize =8;
dcb.fParity =0;
dcb.StopBits =0;
dcb.Parity =0;
// ::Beep(500,100);
if(!::SetCommState(hidcomdrv,&dcb))
{
AfxMessageBox("Can not Open Comm");
return(false);
}
else
{
opened=true;
AfxMessageBox(" Com is Opened");
return(opened);
}

}
else
{
opened=false;
AfxMessageBox(" Com is not Opened");
return(opened);
}

}
extern"C"_declspec(dllexport)bool close()
{
if(!opened||hidcomdrv==NULL)return(true);
::PurgeComm(hidcomdrv,PURGE_TXABORT|PURGE_RXABORT|PURGE_TXCLEAR|PURGE_RXCLEAR);
::EscapeCommFunction(hidcomdrv,CLRDTR);
::CloseHandle (hidcomdrv);
AfxMessageBox("Comm is Colsed");
opened=false;
hidcomdrv=NULL;
return(true);
}
extern"C"_declspec(dllexport)int readStr(LPSTR buffer)
{
int rlen;
if (!opened||hidcomdrv==NULL)return(0);
DWORD dwbytesread,dwerrorflags;
COMSTAT comstat;
static OVERLAPPED ovread;
::ClearCommError (hidcomdrv,&dwerrorflags,&comstat);
dwbytesread=(DWORD)comstat.cbInQue ;
rlen=(int)dwbytesread;
::Beep(500,100);
if (rlen>300)
{
dwbytesread=(DWORD)300;
}
if(!::ReadFile(hidcomdrv,buffer,dwbytesread,&dwbytesread,&ovread))
{
::GetLastError ();
::Beep(5000,1000);
return(0);
}
else
{
rlen=(int)dwbytesread;
::Beep(500,100);
return(rlen);
}
}
extern"C"_declspec(dllexport)int writeStr(LPSTR buffer,int wlen)
{
// char spname[8];
if (!opened||hidcomdrv==NULL)return(0);
DWORD dwbyteswritten=0;
static OVERLAPPED ovwrite;
dwbyteswritten=(DWORD)wlen;
if(!::WriteFile (hidcomdrv,buffer,dwbyteswritten,&dwbyteswritten,&ovwrite))
{
::GetLastError();
::Beep(5000,1000);
return(0);
}
else
{
// wsprintf(spname,"Ret%d",(int)dwbyteswritten);
// AfxMessageBox(" ");
::Beep(500,100);
return((int)dwbyteswritten);
}
}
extern"C"_declspec(dllexport)bool settime(int time)
{
LPCOMMPROP cp;
COMMTIMEOUTS to;
cp=(LPCOMMPROP)malloc(1000);
if(!::GetCommProperties(hidcomdrv,cp))
{
return(false);
}
if (!(cp->dwProvCapabilities &PCF_TOTALTIMEOUTS))
{
AfxMessageBox("Comm OUTTIME SET IS CLOSED");
return(false);
}
to.ReadIntervalTimeout =0;
to.ReadTotalTimeoutMultiplier =0;
to.ReadTotalTimeoutConstant =time;
to.WriteTotalTimeoutMultiplier =0;
to.WriteTotalTimeoutConstant =time;
// ::Beep(500,100);
if(!::SetCommTimeouts (hidcomdrv,&to))
{
return(false);
}
return (true);
}

怎样在VB中对多个下位机实现多机通信，要求的是发送的奇偶校验位为1，怎么做？在给等待。

相关推荐