人民币200元:帮我解决下面的这个问题(0分)

A

abc516

Unregistered / Unconfirmed
GUEST, unregistred user!
要求做出SPCOMM做出下面的串口通讯的代码。或封装成一个DLL。
人民币200元,决不食言。(以前花了三百大分问这个问题,也没有人帮着解答。害我无法取回那三百分。)
联系地址:山东省烟台市 邹先生 0535-6632468 6176083
oicq:93882205
email:abc516@tom.com
(如山东省内的朋友我可以上门送钱取代码)
系统发一个负脉冲给COM口,然后延时500-1000MS然后发55H(十六进制)给COM,
接收八个BCD码,其中前二个,是该设备的
号-------最后要求提供该设备号
然后发04H给COM。再接收八个BCD码。
这八个BCD码,前四个分别是分,时,日,月
其中每个码的高四位表示十位,每个码的低四位表示个位,
后四个分别是8个卡号。
如果发现“分”是0FFH那么,表示该设备中已经无数据。
否则,发一个负脉冲给COM。再接收第二个卡号及时间。
直到发现“分”是0FFH。
然后发送分时日月的十六进制的BCD。
 
200 ,少了点
 
你出价?多少?
 
尻,我实在是沉不注气了,我忙所以没答复,RMB200,还少了,这么简单的问题!
 
abc516,
你简单介绍一下你的软硬件层次(水平),我免费帮你解决这个问题。
 
我已经在qq上加你为好友了。
我的qq:93882205
我以前是使用VFP做软件的。
而且我的所有的电脑知识都是我自学的。
现在在一个公司做VFP软件开发。
对于硬件我不了解。但是VFP所调用的是一个DLL。后来我今年开始自学DELPHI感觉还行,可以学会。对于delphi数据库的部分我是没有问题了。
串口通讯呢。我从来没有接触。因为自学的,所以有许多硬件的基础,我一点也没有。
 
好QQ上见!
 
procedure TForm1.Button1Click(Sender: TObject);
var
numb:string;
sss: String;
sss1: String;
sss2:string;
begin
mscomm1.PortOpen:=true;
sss:=#$30;
sss1:=#$55;
sss2:=#$04;
MsComm1.Output:=sss;
sleep(600);
mscomm1.Output:=sss1;
numb:=trim(mscomm1.input);
memo1.Text:=memo1.Text+'这是该设备的号码'+trim(numb)+#10#13;
//参照前面的通讯协议。为什么设备号码不是真正的设备号2039?
mscomm1.Output:=sss2;
memo1.Text:=memo1.Text +'这是卡号'+TRIM(mscomm1.input)+#10#13;
mscomm1.PortOpen:=false;
end;
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部