开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > 单片机开发 > 查看源码
MSegment.cpp
资源名称：DELTA_PLC.rar　[点击查看]
上传用户：hailongwei
上传日期：2020-11-29
资源大小：5839k
文件大小：6k
源码类别：

单片机开发

开发平台：

Visual C++

MSegment.cpp：源码内容
  1. // MSegment.cpp : CMSegment 的实现
  2. #include "stdafx.h"
  3. #include "MSegment.h"
  6. // CMSegment
  7. //接受串口数据
  8. LRESULT CMSegment::OnReceivedData( UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled )
  9. {
  10. long len;
  11. char str[100];
  12. len = comm.Read( str, 100 );
  13. if ( len > 0 ) doPraseString( str );
  15. return 0;
  16. }
  18. long CMSegment::doChartToLong(char s)
  19. {
  20. switch( s )
  21. {
  22. case '0':
  23. return 0X0;
  24. break;
  25. case '1':
  26. return 0X1;
  27. break;
  28. case '2':
  29. return 0X2;
  30. break;
  31. case '3':
  32. return 0X3;
  33. break;
  34. case '4':
  35. return 0X4;
  36. break;
  37. case '5':
  38. return 0X5;
  39. break;
  40. case '6':
  41. return 0X6;
  42. break;
  43. case '7':
  44. return 0X7;
  45. break;
  46. case '8':
  47. return 0X8;
  48. break;
  49. case '9':
  50. return 0X9;
  51. break;
  52. case 'A':
  53. return 0XA;
  54. break;
  55. case 'B':
  56. return 0XB;
  57. break;
  58. case 'C':
  59. return 0XC;
  60. break;
  61. case 'D':
  62. return 0XD;
  63. break;
  64. case 'E':
  65. return 0XE;
  66. break;
  67. case 'F':
  68. return 0XF;
  69. break;
  70. default:
  71. return 0X0;
  72. break;
  73. }
  74. }
  76. void CMSegment::doPraseString( char* ps )
  77. {
  78. int i = 0;
  79. long data0 = 0;
  80. char* s = ps;
  81. do
  82. {
  83. switch ( *s )
  84. {
  85. case 'x3A':
  86. bz = 1;
  87. m_index = 0;
  88. m_Char1[0] = *s;
  89. break;
  90. case 'x0A':
  91. if ( bz = 1 )
  92. {
  93. bz = 0;
  94. if ( m_Char1[1] == 'x30' && m_Char1[2] == 'x31' && m_Char1[3] == 'x30' && m_Char1[4] == 'x32' )
  95. {
  96. for ( i = 0; i < 32; i++ )
  97. {
  98. data0 = 0;
  99. data0 += doChartToLong( m_Char1[ 7 + 2 * i ] ) * 0X10;
  100. data0 += doChartToLong( m_Char1[ 8 + 2 * i ] ) ;
  101. data[ 8 * i + 7 ] =data0 & 0X80;
  102. data[ 8 * i + 6 ] =data0 & 0X40;
  103. data[ 8 * i + 5 ] =data0 & 0X20;
  104. data[ 8 * i + 4 ] =data0 & 0X10;
  105. data[ 8 * i + 3 ] =data0 & 0X8;
  106. data[ 8 * i + 2 ] =data0 & 0X4;
  107. data[ 8 * i + 1 ] =data0 & 0X2;
  108. data[ 8 * i + 0 ] =data0 & 0X1;
  109. }
  110. //if ( m_DataReceived )
  111. //{
  112. //通知信号变化
  113. for ( i = 0; i < 256; i++ )
  114. {
  115. if ( m_notify[i] )
  116. {
  117. if ( data[i] ^ m_data[i] )
  118. {
  119. ::PostMessage( m_hWndCD, WM_MYSELF, 1, i );
  120. }
  121. }
  122. m_data[ i ] = data[ i ];
  123. }
  124. //} 
  125. //for ( i = 0; i < 256; i++ )
  126. //{
  127. // m_data[ i ] = data[ i ];
  128. //}
  129. m_DataReceived = true;
  130. }
  131. }
  132. break;
  133. default:
  134. if ( bz = 1 )
  135. {
  136. bz = 0;
  137. m_index++;
  138. if ( m_index < 300 ) m_Char1[m_index] = *s;
  139. }
  140. break;
  141. }
  142. s++;
  143. } 
  144. while( *s );
  145. }
  147. //延时
  148. void CMSegment::doDelay( long TimeSpan )
  149. {
  150. long dwStart = GetTickCount();
  151. long dwEnd = dwStart;
  152. do
  153. {
  154. MSG msg;
  155. if( PeekMessage( &msg, NULL, 0, 0, PM_NOREMOVE ) )
  156. {
  157. GetMessage( &msg, NULL, 0, 0 );
  158. TranslateMessage( &msg );
  159. DispatchMessage( &msg );
  160. } 
  161. dwEnd = GetTickCount() - dwStart;
  162. } while( dwEnd < TimeSpan );
  164. }
  166. //请求联机用的延时判断
  167. bool CMSegment::doWaitOpenLink( void )
  168. {
  169. bool waitresult = false;
  170. m_DataReceived = false;
  172. DWORD dwStart = GetTickCount();
  173. DWORD dwEnd = dwStart;
  174. do
  175. {
  176. if ( m_DataReceived )
  177. {
  178. waitresult = true;
  179. break;
  180. }
  181. MSG  msg;
  182. if ( PeekMessage( &msg, NULL, 0, 0, PM_NOREMOVE ) )
  183. {
  184. GetMessage( &msg, NULL, 0, 0 );
  185. TranslateMessage( &msg );
  186. DispatchMessage( &msg );
  187. } 
  188. dwEnd = GetTickCount() - dwStart;
  189. } while ( dwEnd < 2000 );
  191. return waitresult;
  192. }
  193. //初始化变量
  194. void CMSegment::doinit( void )
  195. {
  196. for ( int i = 0; i < 256; i++ )
  197. {
  198. data[i] = false;
  199. m_data[i] = false;
  200. }
  201. bz = 0;
  202. m_index = 0;
  203. m_link = false; 
  204. m_DataReceived = false;
  205. m_allowsend = true;
  206. m_NoneInterval = 0;
  207. }
  208. //联机
  209. STDMETHODIMP CMSegment::OpenLink(LONG Comport, BSTR CommString)
  210. {
  211. //取串口通讯协议
  212. CString str1( CommString );
  213. SysFreeString( CommString );
  215. KillTimer( IDT_TIMER1 );
  216. if ( comm.IsOpen() ) comm.Close();
  218. doinit();
  220. if ( comm.Open( Comport, ( char* )( LPCTSTR )str1 ) )//打开串口,通讯协议9600,e,7,1
  221. {
  222. comm.SetWnd( m_hWndCD );
  223. comm.Write( ":0102080000FFF6x0Dx0A" );//发送读取状态
  224. if( doWaitOpenLink() )
  225. {
  226. m_link = true;
  227. SetTimer( IDT_TIMER1 , 500 , NULL );
  228. }
  229. }
  230. Fire_OnLink( m_link ? VARIANT_TRUE : VARIANT_FALSE );
  231. return S_OK;
  232. }
  234. //脱机
  235. STDMETHODIMP CMSegment::CloseLink(void)
  236. {
  237. KillTimer( IDT_TIMER1 );
  238. comm.Close();
  239. doinit();
  240. ::PostMessage( m_hWndCD, WM_MYSELF, 2, 0 );
  241. return S_OK;
  242. }
  244. //读取联机状态
  245. STDMETHODIMP CMSegment::GetLink(VARIANT_BOOL* pVal)
  246. {
  247. * pVal = m_link ? VARIANT_TRUE : VARIANT_FALSE;
  248. return S_OK;
  249. }
  251. //读取寄存器
  252. STDMETHODIMP CMSegment::GetBit(LONG Addr, VARIANT_BOOL* pVal)
  253. {
  254. if ( Addr < 0X0 || Addr > 0XFF )
  255. {
  256. *pVal = VARIANT_FALSE;
  257. } 
  258. else
  259. {
  260. *pVal = data[Addr] ? VARIANT_TRUE : VARIANT_FALSE;
  261. }
  262. return S_OK;
  263. }
  264. //写入寄存器
  265. STDMETHODIMP CMSegment::PutBit(LONG Addr, VARIANT_BOOL OnOff)
  266. {
  267. if ( Addr < 0X0 || Addr > 0XFF ) return S_OK;
  268. Addr += 0X0800;
  269. //MODBUSASCII LRC校验码计算
  270. long checkcode = 0X01 + 0X05 + ( ( Addr & 0XFF00 ) >> 8 ) + ( Addr & 0XFF ) + ( OnOff ? 0XFF : 0X00 ) + 0X00;
  271. checkcode = ~checkcode;
  272. checkcode += 0X01;
  273. checkcode &= 0XFF;
  274. char s[32];
  275. sprintf( s, ":0105%04X%02X00%02Xx0Dx0A", Addr, OnOff ? 0XFF : 0X00, checkcode );
  276. m_allowsend = false;
  277. doDelay( 20 );
  278. comm.Write( s );
  279. doDelay( 20 );
  280. m_allowsend = true;
  281. //MessageBox(s);
  282. return S_OK;
  283. }
  285. //通知信号变化
  286. STDMETHODIMP CMSegment::SetNotify(LONG Addr,  VARIANT_BOOL AllowNotify)
  287. {
  288. if ( Addr < 0X0 || Addr > 0XFF )
  289. {
  290. return S_OK;
  291. } 
  292. else
  293. {
  294. m_notify[Addr] = AllowNotify;
  295. }
  296. return S_OK;
  297. }
  299. //延时
  300. STDMETHODIMP CMSegment::Delay( LONG TimeSpan )
  301. {
  302. doDelay( TimeSpan );
  303. return S_OK;
  304. }
  307. LRESULT CMSegment::OnTimer(UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL& /*bHandled*/)
  308. {
  309. if ( m_allowsend )
  310. {
  311. comm.Write( ":0102080000FFF6x0Dx0A" );//发送读取状态
  312. }
  313. //检查联机
  314. if ( !m_DataReceived )
  315. {
  316. m_NoneInterval++;
  317. if ( m_NoneInterval > 20 ) CloseLink();
  318. }
  319. else
  320. {
  321. m_NoneInterval = 0;
  322. }
  323. m_DataReceived = false;
  324. return 0;
  325. }
  328. //MySelf事件
  329. LRESULT CMSegment::OnMySelf( UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled )
  330. {
  331. //::PostMessage( m_hWndCD, WM_MYSELF, 5, DMC_SERVO_OFF);
  332. switch( wParam )
  333. {
  334. case 1:
  335. Fire_OnNotify( (LONG)lParam );
  336. break;
  337. case 2:
  338. Fire_OnLink( lParam == 0 ? VARIANT_FALSE : VARIANT_TRUE );
  339. break;
  340. default:
  341. break;
  342. }
  343. return 0;
  344. }