clyzzc
级别: 探索解密
精华主题: 0
发帖数量: 83 个
工控威望: 158 点
下载积分: 23733 分
在线时间: 399(小时)
注册时间: 2018-04-17
最后登录: 2024-11-25
查看clyzzc的 主题 / 回贴
楼主  发表于: 2024-08-14 10:01
图片:
图片:
图片:
基于Codesys的CAN2.0B通讯,用的合信PLC,CPU自带一个CAN口,连接广成CAN盒子,进行测试;can总线在新能源行业船舶行业应用比较多,BMS,逆变器,充电机等。
变量声明:PROGRAM ST_MainVAR Can_InterFaces:CanInterFaces; candrive_29bit:CAN.CANDriver_29bit; X2: BOOL; config1: CAN.DRIVER_CONFIG; send1:CAN.CANSender; mes1: CAN.MESSAGE; singid:CAN.CANSingleIdReceiver;//通过掩码方式接收 maskreceiver:CAN.CANMaskReceiver; sid: CAN.RECEIVER_SINGLE_ID := (dwCanId := 16#30, x29BitIdValue := TRUE, x29BitIdMask := TRUE, xTransmitMask := TRUE); mask1: CAN.RECEIVER_MASK := (x29BitIdValue := TRUE, x29BitIdMask := TRUE, xTransmitMask := TRUE); sig_time: BLINK; sig_out: BOOL; byte0: ARRAY[0..7] OF byte; word0, word1: word; dword0, dword1: dword; FrameID: dword; DataAddress: word; sig_f: F_TRIG;END_VAR
主程序:sig_time(ENABLE:= TRUE , TIMELOW:=T#5MS , TIMEHIGH:=T#5MS , OUT=>sig_out );
config1.usiNetwork:=0;  //网络端口config1.uiBaudrate:=1000;//波特率config1.ctMessages:=10;//长度//can配置candrive_29bit( xEnable:= TRUE , //触发位 xDone=> ,  xBusy=> ,  xError=> ,  xResetBusAlarm:= X2, //报警复位 DriverConfig:= config1, //can总线配置 xBusAlarm=> ,  eError=> );
sig_f(CLK:=sig_out , Q=> );
IF sig_f.Q THEN//帧ID自减1 IF FrameID < 1 THEN FrameID:=32766; ELSE FrameID:=FrameID-1; END_IF   IF DataAddress > 32766 THEN//数据地址自加1 DataAddress:=0; ELSE DataAddress:=DataAddress+1; END_IF END_IF

//配置CAN发送,帧ID,数据,长度,标志位mes1.udiCanID:=FrameID;//发送的帧IDmes1.abyData[0]:=WORD_TO_BYTE(SHR(DataAddress,8) ); //发送的数据mes1.abyData[1]:=WORD_TO_BYTE(DataAddress);mes1.abyData[2]:=16#1A; mes1.abyData[3]:=16#2B; mes1.abyData[4]:=16#3C; mes1.abyData[5]:=16#4D; mes1.abyData[6]:=16#5E; mes1.abyData[7]:=16#6F; mes1.usiDataLength:=8;//要发送的数据长度mes1.xIs29BitMessage:=TRUE;//发送的是扩展帧,这个地方要置1 //can发送 send1( xExecute:= sig_out, //触发位 xDone=> ,  xBusy=> ,  xError=> ,  itfCANDriver:= candrive_29bit , //CAN配置,上面的实例--candrive_29bit Message:= mes1, //要发送的消息 eError=> );
//根据掩码接收maskreceiver( xEnable:= TRUE,  xDone=> ,  xBusy=> ,  xError=> ,  itfCANDriver:= candrive_29bit,  itfMsgProcessor:= Can_InterFaces, //接收 tTimeLimit:= T#5MS ,  Mask:= mask1,  eError=> );

  
[ 此帖被clyzzc在2024-08-14 10:10重新编辑 ]
clyzzc
级别: 探索解密
精华主题: 0
发帖数量: 83 个
工控威望: 158 点
下载积分: 23733 分
在线时间: 399(小时)
注册时间: 2018-04-17
最后登录: 2024-11-25
查看clyzzc的 主题 / 回贴
1楼  发表于: 2024-08-14 10:02
附上源码
clyzzc
级别: 探索解密
精华主题: 0
发帖数量: 83 个
工控威望: 158 点
下载积分: 23733 分
在线时间: 399(小时)
注册时间: 2018-04-17
最后登录: 2024-11-25
查看clyzzc的 主题 / 回贴
2楼  发表于: 2024-08-14 10:07
不太会发帖,上传附件弄了半个小时
zhaoaron
zhaoaron
级别: 网络英雄
精华主题: 0
发帖数量: 1545 个
工控威望: 5168 点
下载积分: 1354 分
在线时间: 778(小时)
注册时间: 2021-09-25
最后登录: 2024-11-25
查看zhaoaron的 主题 / 回贴
3楼  发表于: 2024-08-14 10:49
      
......
es_ice
级别: 探索解密
精华主题: 0
发帖数量: 91 个
工控威望: 118 点
下载积分: 1197 分
在线时间: 55(小时)
注册时间: 2023-08-07
最后登录: 2024-11-25
查看es_ice的 主题 / 回贴
4楼  发表于: 2024-08-14 10:55
工业上还真没见过这么裸用can报文的。。。一般都是canopen包装
siyatu2001
级别: 家园常客
精华主题: 0
发帖数量: 505 个
工控威望: 555 点
下载积分: 51479 分
在线时间: 614(小时)
注册时间: 2021-03-09
最后登录: 2024-11-25
查看siyatu2001的 主题 / 回贴
5楼  发表于: 2024-08-14 13:54
没有数据追踪断点功能,大数据量的话怎么检查错误?
chenhaot
chenccc
级别: 略有小成
精华主题: 0
发帖数量: 158 个
工控威望: 232 点
下载积分: 1314 分
在线时间: 131(小时)
注册时间: 2020-08-20
最后登录: 2024-11-25
查看chenhaot的 主题 / 回贴
6楼  发表于: 2024-08-15 10:59
可以的,楼主写的比我自己写的demo要详细一点
黄辉冯某某
微信 F1049305119
级别: 略有小成
精华主题: 0
发帖数量: 326 个
工控威望: 449 点
下载积分: 1209 分
在线时间: 144(小时)
注册时间: 2022-03-21
最后登录: 2024-11-24
查看黄辉冯某某的 主题 / 回贴
7楼  发表于: 2024-08-18 19:49
啥玩意啊,又是字母又是中文又是符号的,密密麻麻恐惧症
QQ 302961958
闲鱼  ucldnaqk ,有一些二手学习硬件低价出售
欢迎私聊