你的浏览器版本过低,可能导致网站不能正常访问!
为了你能正常使用网站功能,请使用这些浏览器。

查看: 2209|回复: 2

【ST学习小组】STM32F103的CAN 通信之上位机部分

[复制链接]

19

主题

184

回帖

0

蝴蝶豆

初级会员

最后登录
1970-1-1
发表于 2012-6-26 11:23:43 | 显示全部楼层 |阅读模式
 上位机通讯结果图:
11.jpg

代码部分
 
Private Sub Form_Load()
Dim index As Double
Pic.ScaleMode = 0
Pic.Scale (-500, 5500)-(8000, -500)
 
'画横轴和纵轴
Pic.Line (0, 0)-(7400, 0) '横轴
Pic.Line (7200, 95)-(7400, 0)
Pic.Line (7200, -95)-(7400, 0)
Pic.Line (0, 0)-(0, 5400) '纵轴
Pic.Line (-80, 5200)-(0, 5400)
Pic.Line (80, 5200)-(0, 5400)
'刻度值 以1000位一个横轴单位,50位刻度高度
Pic.Line (1000, 0)-(1000, 50)
'Pic.CurrentX = 1000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
 
Pic.Line (2000, 0)-(2000, 50)
'Pic.CurrentX = 2000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
 
Pic.Line (3000, 0)-(3000, 50)
'Pic.CurrentX = 3000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
 
Pic.Line (4000, 0)-(4000, 50)
'Pic.CurrentX = 4000
'Pic.CurrentY = -10
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
 
Pic.Line (5000, 0)-(5000, 50)
'Pic.CurrentX = 5000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
 
Pic.Line (6000, 0)-(6000, 50)
'Pic.CurrentX = 6000
'Pic.CurrentY = -20
'Pic.Print Format(Now(), "hh:mm:ss") '需要设置属性
Pic.Line (7000, 0)-(7000, 50)
 
For index = 0 To 8
 
 Pic.Line (0, index * 626)-(50, index * 626)
Pic.CurrentX = -260
Pic.CurrentY = index * 626 + 100
Pic.Print Format(Str(index * 0.5), "0.0")  '需要设置属性
Next index
 
'初始化
Timer_Count = 0
Scale_Position = 0
 
 
    RecieveStatus = 0 '解包状态
    DataIndex = 0
    RMark = False
 
Timer_Scale = 0
End Sub
--------------------------------------------------------------------------------------------------------------------------
'VB定时器是1分钟才是18个时钟因此其最小的时间刻度位55ms所以设置间隔为100ms
Private Sub Timer1_Timer()
 
    
 Timer_Scale = Timer_Scale + 2
If (Timer_Scale > 7000) Then
Timer_Scale = 2
Pic.Line (1, 1)-(7000, 5000), Pic.BackColor, BF
'画横轴和纵轴
Pic.Line (0, 0)-(7400, 0) '横轴
Pic.Line (7200, 95)-(7400, 0)
Pic.Line (7200, -95)-(7400, 0)
Pic.Line (0, 0)-(0, 5400) '纵轴
Pic.Line (-80, 5200)-(0, 5400)
Pic.Line (80, 5200)-(0, 5400)
 
 
最后来个硬件原理图部分
 
12.jpg

 

 

 

欢迎大家提出宝贵的意见!
回复

使用道具 举报

0

主题

2

回帖

0

蝴蝶豆

新手上路

最后登录
1970-1-1
发表于 2013-10-10 22:04:05 | 显示全部楼层

回复:【ST学习小组】STM32F103的CAN 通信之上位机部分

楼主,。有这个电路图的详细版本吗
回复 支持 反对

使用道具 举报

17

主题

127

回帖

0

蝴蝶豆

中级会员

最后登录
2019-2-12
发表于 2014-3-3 16:30:45 | 显示全部楼层

回复:【ST学习小组】STM32F103的CAN 通信之上位机部分

看不清原理图,CAN怎么和上位机连的呢
回复 支持 反对

使用道具 举报

关于
我们是谁
投资者关系
意法半导体可持续发展举措
创新与技术
意法半导体官网
联系我们
联系ST分支机构
寻找销售人员和分销渠道
社区
媒体中心
活动与培训
隐私策略
隐私策略
Cookies管理
行使您的权利
官方最新发布
STM32Cube扩展软件包
意法半导体边缘AI套件
ST - 理想汽车豪华SUV案例
ST意法半导体智能家居案例
STM32 ARM Cortex 32位微控制器
关注我们
st-img 微信公众号
st-img 手机版