| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 334 人关注过本帖
标题:急求助,如何将数据库的数据转换成232/485的形式,然后通过串口发出去
只看楼主 加入收藏
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:336
专家分:10
注 册:2014-1-16
结帖率:89.09%
  已结贴   问题点数:20  回复次数:14   
急求助,如何将数据库的数据转换成232/485的形式,然后通过串口发出去
如题,如能解决,本人愿付费。




[此贴子已经被作者于2019-11-24 19:16编辑过]

搜索更多相关主题的帖子: 转换 串口 数据库 形式 数据 
2019-11-24 19:04
fown
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:50
帖 子:1144
专家分:97
注 册:2005-5-26
  得分:20 
没人理你了吧,哈哈。来生意了啊
串口那一端是什么设备?
你说的太笼统。
把串口设备数据说明有的话发上来看一下

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2019-11-24 21:14
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:336
专家分:10
注 册:2014-1-16
  得分:0 
好的,我来发,就是这个表,格式是ACCESS数据库,数据库的格式无所谓,我可以转换成VFP临时表,表每隔10秒更新一次,每次更新的数据都要通过485/232的通信方式传到智能物流网智能机,至于通信协议按照常规方式

[此贴子已经被作者于2019-11-24 22:46编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2019-11-24 22:26
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:336
专家分:10
注 册:2014-1-16
  得分:0 
我在网上找了一个接受串口数据的例子,但是我是要发出到串口通信,例子如下:
附件: 您没有浏览附件的权限,请 登录注册
2019-11-24 22:59
fown
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:50
帖 子:1144
专家分:97
注 册:2005-5-26
  得分:0 
明天帮你看看,主要是发送过去,机器给什么返回值,没有说明吗?

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2019-11-24 23:59
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:336
专家分:10
注 册:2014-1-16
  得分:0 
关于串口发送数据,我做了如下程序,请师傅们指点下:
thisform.LockScreen=.t.
nhandle=Sqlstringconnect("Driver={Microsoft Access Driver (*.mdb)}; Dbq=\\Jls4\ENRAF\DATA\tankdatart;Pwd=")
        IF  nhandle<=0
                   MESSAGEBOX("数据库连接失败!!!",16,  '错误信息')
                   RETURN
        ELSE    &&取数据成功
                Ac=SQLEXEC(nhandle,"Select tankname,localtime,displacerlevel,temperature From tankdata ","T_cs")
              
                  IF  Ac<0
                               MESSAGEBOX("读取数据错误!",16,  '错误信息')
                               RETURN
                  ELSE
                       SELECT  ALLTRIM(tankname) tankname,TTOC(localtime) localtime ,ALLTRIM(STR(displacerlevel)) displacerlevel,ALLTRIM(STR(ROUND(temperature,1))) temperature  FROM t_cs INTO CURSOR t_cs1
                       SELECT t_cs1
                       cmsg=""
                       SCAN     &&从第一条记录到最后一条记录
                          FOR ii=1 TO 4   &&从第一个字段到最后一个字段
                               x=Evaluate(FIELD(ii)) &&要发送的数据
                               z=""
                               FOR i=1 TO LENc(x)
                                 y=ALLTRIM(STR(ASC(SUBSTRc(x,i,1))))
                                 z=z+CHR(13)+CHR(10)+y
                                 
                               eNDFOR
                               cmsg=cmsg+z
                          ENDFOR   &&最后一个字段
                       ENDSCAN     &&循环到最后一条记录结束  
                       
                           
                  ENDIF
                 = SQLDISCONNECT(nhandle)   &&关闭连接
                 Set Library To e:\应急数据\myFll
                 hCom1=ComOpen(4,"2400,S,8,1")&&这里是串口的参数,比如9600等
                 If hCom1== ""
                        MessageBox("无法打开串口com1!")
                        Return
                 EndIf
                 ComWrite(hCom1,cMsg) &&向串口输出
                 ComClose(hCom1)&&关闭串口
                 Set Library To
        ENDIF
   
thisform.refresh   
thisform.LockScreen=.f.        
2019-11-27 19:56
fown
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:50
帖 子:1144
专家分:97
注 册:2005-5-26
  得分:0 
有明显的错误,你再仔细看我给我的代码吧

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2019-11-27 20:21
fown
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:50
帖 子:1144
专家分:97
注 册:2005-5-26
  得分:0 
老师,我和您学习一下,
SELECT  ALLTRIM(tankname) tankname,TTOC(localtime) localtime ,ALLTRIM(STR(displacerlevel)) displacerlevel,ALLTRIM(STR(ROUND(temperature,1))) temperature  FROM t_cs INTO CURSOR t_cs1
这是什么意思呢?

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2019-11-27 20:23
fown
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:50
帖 子:1144
专家分:97
注 册:2005-5-26
  得分:0 
cmsg=cmsg+z
你的设备,不可能直接可以接收有回车和换行符的字符型 的,你没仔细看我给你的代码

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2019-11-27 20:26
fown
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:50
帖 子:1144
专家分:97
注 册:2005-5-26
  得分:0 
上午让你自评代码水平,你没有回答我,看来我可能错了,写代码写的太单调了,你最后几句复制了我的代码,但是兄弟,你缺少了关键的,第一步要测试CHR是否可以,不行再拿 第二步方案,而你只是复制了我最后的发送代码,忽略了我给你的数组那一部分的代码,自评分,不及格,兄弟,再仔细看,实在不行看看帮助!

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2019-11-27 20:29
快速回复:急求助,如何将数据库的数据转换成232/485的形式,然后通过串口发出去
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.066458 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved