紧急求助：如何用Delphi串口输出方波？(在线等待)(50分)

articom · 2006-10-11

我想用Delphi调用API函数，然后通过RS-232串口直接输出方波信号，接在示波器上查看。在编程时用了两种方法：  1：一种直接输出字符串‘01010101’：Writefile(hcomm,0,'01010101',lrc,nil)；这种方法只是出现一个向上的脉冲，但脉冲并不延时  2：另一种是输出数组，  var  fdata:array[1..4] of byte; begin  if(hcomm=0)then exit;  fdata[1]:=byte(0);  fdata[1]:=byte(1);  fdata[1]:=byte(0);  fdata[1]:=byte(1);  writefile(hcomm,0,length(fdata),lrc,nil); end; 这种出现类似锯齿波的形状。 以上两种方法都不行，请教高手指点，如何出现方波？？

Johnny_du · 2006-10-11

1、输出1并维持时间T； 2、输出0并维持时间t。 以上方法输出的是近似方波（梯形波形）。

新世纪 · 2006-10-11

1. 串口也可以输出方波的, 但不好控制, 速度也慢; 2. 建议使用并口输出方波, 好控制, 速度也快;

wang_junfan · 2006-10-11

串口可以输出方波,必须使用同步方式，异步方式输出的都是近似的，不准确

articom · 2006-10-11

怎么样维持时间t呀？   能不能给个详细的代码？   其实我是想做usb口输出方波，但波形一直弄不出来，所以先用串口输出看看，如果成功再用API函数通过usb口输出，关键是如何延时这个时间t呀？

articom · 2006-10-11

对了，还要请教一下，那个同步方式如何设置呀？

articom · 2006-10-12

输出方波就是一个高电平1和低电平0，可是我无论给多长的字符串‘00001111’，Writefile(hcomm,0,'01010101',lrc,nil)；示波器上都只是显示一个向上的脉冲，根本无法控制高低电平的时间，如何改进才能控制呢

nicai_wgl · 2006-10-12

换个思路，不要用数据脚即2、3脚来实现，比如改用9脚，即Ring脚。 SetCommMask(handle, EV_RING); { 9脚置高电平 } Sleep(100); ......

articom · 2006-10-12

to:nicai_wgl 好的，谢谢提醒，我去实践一下！如果用9脚的话，那是不是就只接一个9脚输出就行，然后再接个5脚信号地啊？但是9脚的是输入的呀？

articom · 2006-10-12

我又改进程序，还是用2，3数据线时， var t:integer; begin  for t:=0 to 10 do  begin    sleep(100);    Writefile(hcomm,'01010101',8,lrc,nil)；  end; end;但出来的波形和t和sleep的时间有关，如何控制，才能使之出现方波？

zywcd · 2006-10-12

//  准确延时。...延时间隔是us. procedure delay(delay_time:integer;c:TLargeInteger); var t,t1:TLargeInteger; begin  QueryPerformanceCounter(t);  repeat    QueryPerformanceCounter(t1);  until (t1-t)*1000000/c>=delay_time; end; var t:integer;  c:TLargeInteger; begin  QueryPerformanceFrequency(c);  for t:=0 to 100000 do  begin    delay(delay_time;c);//方波的宽度，us为单位    Writefile(hcomm,'01010101',8,lrc,nil)；  end; end;

articom · 2006-10-12

谢谢，谢谢，我马上试一下哈，希望可以呀，为了弄个方波，快把我郁闷死了

articom · 2006-10-12

请问一下，那个QueryPerformanceFrequency(c);表示什么意思呀？

bmsr · 2006-10-12

数据脚不可能得到方波吧,数据的1不是指ttl高电平,是指从低到高,0是指从高到低,ring脚没试过,当年在学校做单片机时 ,串口外接了电路的,因为要控制高频设备,出来就用光隔分开了,然后用开关电路来得到方波的.

articom · 2006-10-12

好像用Rs-232不好输出方波呀，怎么样让它从高电平变成低电平，再由低电平编程高电平呀？？？有谁知道如果用usb口如何输出方波呀？只要能输出方波就行，help!

articom · 2006-10-12

to zywcd: 我刚刚试了你的方法，delay_time设定的是100，结果显示的是两行虚线，搞的系统死掉了，怎么回事呀？t,delay_time,c有什么限制么？运行的时候并不报错，但停止不了呀？

zywcd · 2006-10-12

我给你的是一个准确的延迟过程而已。如果你的输出可以控制电平，这样就可以得到方波。  QueryPerformanceFrequency(c);//得到当前cpu主频。 QueryPerformanceCounter(t1);得到当前计算机运行时钟数目。

articom · 2006-10-13

哦，谢谢哈，我把for循环中的t设置的太大了，所以系统太忙，才会死掉。我再实践一下！

articom · 2006-10-13

请各位再帮忙想想，我试了那种延时的方法，还是不行，   一：我觉得是writefile的原因，无论用哪种延时方法，都没有把writefile里的01010101延时，还是触发一个一个脉冲Writefile(hcomm,'01010101',8,lrc,nil)；在writefile中，计算机只是把字符串当成一个脉冲，无论写入什么都是脉冲，并不是高低电平，延时也只是前一个写入和后一个写入的延时，请问谁还有别的思路呀？把高低电平延时？   二：之前我用过上面写的数组的方法，但出来的也不是方波，而是类似于两条线的锯齿波一样，所以我想用延时的方法再把数组写入的延时，不知可不可行。我去实践下，各位有什么好的建议和思路请发贴告诉我呀？谢谢

新世纪 · 2006-10-13

唉,真的不知道LZ要做什么, 有很好控制的并口(打印口)不用, 我用并口产生方波控制电子器件已经有9年了, 现在还在用, 一直很好...

紧急求助：如何用Delphi串口输出方波？(在线等待)(50分)

articom

Unregistered / Unconfirmed

Johnny_du

Unregistered / Unconfirmed

新世纪

Unregistered / Unconfirmed

wang_junfan

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

bmsr

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

articom

Unregistered / Unconfirmed

新世纪

Unregistered / Unconfirmed

Similar threads