看看采用什么组件
图中间的蓝绿色的网格是采用哪个组件，组件内的红线(位移线)蓝线（电流线）都是实时现场采集传入电脑（北京中泰6312、6408板采集板）显示在那个组件中的。
我只是路过打酱油的。{:5_92:} 是delphi组件吗不太像啊 本帖最后由 雨清 于 2013-5-9 15:19 编辑
用Delphi写的:o :L:L:L:L:L不懂 看来鱼C论坛是人气不旺呢，还是......:L 这是相似代码
unithjkzl；
USeS
Windows，Messages，SysUtils，Classes，Graphics，Controls，Forms， Dialogs，StdCtrls，ExtCtrls，CSSD，Db，DBTables，FileCtrl，Spin；
type
TForml=class(TForm)
Buttonl3：TButton；
cb2：TCheckBox；
private
{Private declarations)
public
{Publicdeclarations)
end；
Var
Forml：11Forml；
SIZe,jb：string；
filel：textfile：
XX，ii，yrcs：integer；
newrect：trect；
kzbshc，timekz,dycjr：boolean；
//5ms控制
SUXS，巧，VS，vd，VZ，跚，ddc，wycz：single；
//suxs烧速系数，晒夹长电压，VS烧长电压，vd顶长电压，VZ，SU烧速，ddc
XXS，tl，td，th，tj，v3，CCC，cccl，sddn：single；
iiluwj：file ofsmallint；
filename，filenamel，filename2：string；
jiluzt：byte；
//记录状态l有后退阶段O复位2有冷却阶段，记录有效
lhl，lh2，lh3，lh4，dhl，dh2，dh3，dh4：string；
//链号l-4段号1-4
hsl，hs2，hs3，hs4，jysj，q5zt：integer；
dn，wy，dy，ddyl，djyl，dh：smallint；
//5个记录数据sddn：电流设定比较值
dnxs，dyxs，ddylxs，djylxs：single；
//4个记录数据与A／D转换的数据
wyk，wyt，wyxsk，wyxst，jcdy，zcdy：single；
strioinl，strioin2，stroutl：string；
//16路开关量输入输出用
zdjkz，ydjkz，jilukz：booleam
∥左右电极控制
sgsj，zdjtime，ydjtime，starttime：longint；
//zdjtimeYDJTIME：左．右电极抬起：焊接开始时间
suk，sut，qs，zs：single；//启始速度，最后速度
ccc3：arrayofsingle；
ccc3dn：arrayof single；
ccc3djyl，ccc3ddyl：arrayofsingle；
ccc3js，dnjs，ddyljs，djyljs：integer；
dal2wy，da6wy，dak，dat：single；
const basead=$300；
//const basead2=$3 18；
eonst baseio=$1 00;
//CONSTJZ=300．0／1 5;
Function inpl(al：smallint)：integer；forward；
procedure da(value：single)；forward；
procedure q4；forward； //复位
procedurem； forward； //焊接
procedurereadad；forward； //读A／D各值
procedure pix；forward；//画线打点
procedure initform；forward；//初始化窗口
procedurewritefile；forward；
procedure readfile;forward；
procedure dlh；forward；//斗链号
procedure closejilu；forward； //关闭记录
implementation
uses passwordform；
function timeGetTime：integer；stdcall far；external'winmm’；
procedure outp1(aa：smallint；a2：byte)；
begin
aSm
pushdx；
movdx，aa；
mov al，a2；
outdx，al；
popdx；
end；
end；
Function inpl(al：smallint)：integer；
Var
b：byte；
begin
aSIIl
push dx；
movdx，al；
in al，dx；
movb，al；
popdx；
end：
inpl：-b；
end；
procedure dlh；
begin
hsl：=form2．edithsl．Value；
hs2：=form2．ediths2．Value：
hs3：=form2．ediths3．Value；
hs4：=form2．ediths4．Value；
lhl：=form2．editlhl．text；
1h2：=form2．editlh2．text；
lh3：=form2．editlh3．text；
lh4：--fonn2．editlh4．text；
dhl：=form2．editdhl．text；
dh2：=form2．editdh2．text；
dh3：=form2．editdh3．text；
dh4：=form2．editdh4．text；
end：
function inttoasic(ii：integer)：string；
Var
i，il：integer；
str：string；
begin
str：=‘’：
for i：=1to 8 do
begin
Il：=ii mod 2；
str：=inttostr(i l)+str；
ii：=ii div2；
end；
inttoasic：=stn ；
end；
function asictoint(str：string)：integer；
var i，il：integer；
begin
for i：=l to 8 do
begin
il=strtoint(str)*128+strtoint((str)*64+strtoint((str)*32+strtoint((str)*16+strtoint((str)*8+strtoint((str)*4+ strtoint((str)*2+strtoint((str)*l；
end；
asictoint：=i 1：
end；
procedure delayl(tt：longint) //小延时
Var
i：longint；
begin
for i：=0 to ttdo：
end；
procedure delay(ttt：integer)；
var
tl：longint；
begin
tl：=timegettime；
repeat
until(timegettime-tI)>=ttt；
end；
//／**************//
procedure closejilm
begin
if(jiluzt=2)or((timegettime-starttime)>(strtoint(form2．EditTL．text) *1000+40000))then
begin
//writefile；
casedhof
l：form2．edithsl．Value：=form2．edithsl．Value+l：
2：form2．ediths2．Value：=form2．ediths2．Value+l；
3：form2．ediths3．Value：=form2．ediths3．Value+l：
4：form2．edims4．Value：=form2．ediths4．Value+l：
end；
//writefile；
form2．BuRon3．Click；
end；
ifjilukz then
begin
closefile(jiluwj)；
jilukz：=false；
end；
end；
function q5：integer； {紧停、加热、挤压)
begin
forml．editl．text：--inttoasic (inpl(baseio+O))；
forml。edit2．text：=inttoasic (inpl(baseio+1))：
forml．Editl．Update：
forml。Edit2．Update；
strioinl：--forml．editl．text；
strioin2：=formI．edit2．text；
if(strioinI=’0’)or(strioinl='l’)then
begin
q5zt：=q5zt+l：
if q5zt>20 then
begin
stroutl：='0’； //断电
form!．edit4．text：=stroutl；
forml．edit4．update；
form!．shape20．Update；
forml．1qsjpanel．Caption：=floattostr(t1)：
forml．1t1．caption：='-40’；
initform；
elosejilu；
q5：=5；
end；
end
else begin q5：=l；q5zt：=O；end；
end；
function q2：integer； (后退速度为5mm／s)
var
i：longint；
begin
i：=0；
//if forml．rb2．Checked then yres：=yres+l；
if stroutl=’1’then
begin
stroutl：='0’；
forml．edit4．Text：=stroutI；
form1．edit4．Update；
end；
if(v3<19．9)thenv3：=v3+1．5*suxs else v3：--v3：
da(v3)：
ifjiluzt=-O then i：=timegettime．starttime else i：=O：
jiluzt：=l；
if(q5=5)／／or((i>4000)and((timegettime-starttime)<8000))
then begin q2：=5； q5；q4； end else q2：=l；
∥紧停或第一次后退大于3。5秒退出
End;
function ql：integer；
{前进){一一一=)
Var
t2，t4，sgsjl：longint；
i，ii，ctcs，oldwy，JJJ：integer；
pdddwy，pdddwyl，pdddwy2，ddhdd，maxdd，ddct：single；／／ddhdd判断项锻后抖动距离
bjfile：textfile；
t：tsearchrec；
wjstr，wd：string；
ddhddkz，dyedd，decdd：boolean；
label sa，sal：
begin
if form 1．rb2．Checked and(yrcs<=form 1．sp2．Value)then
begin
v3：--v3-5*suxs=
end
else
ifv3*suk+sut>O．8 then
v3：--v3一(v3·suk+sut)*SUXS else v3：--v3—1*SUXS=
da(v3)；
sgsj l：--timegettime-sgsj；
sgsjl：=sgsjl div 100；
if dn<sddn*O．9 then
begin
sgsjl：=O：
sgsj：---timegettime；
end：
forml．1abel45．caption：=inttostr(sgsj 1)：
form 1．caption：=formatfloat(’O．0’，wycz)：
form 1．1abel45．Update；
pdddwyl：=strtofloat ．strtofloat
(form1．wypanel．caption)：
pdddwy2：=strtofloat(formI．shepanel．caption)；
／／判断真实烧化长>烧化长并且闪光时间>5s立即顶锻
if((pdddwyl-pdddwy2)>0．1)and(sgsjl>80)then
begin
／／vs：--pdddwyl／jz宰XXS；
vs：=strtofloat(forrn 1．wypancl．caption)；
vs：--vs*dak+dat；
● vs：=vj-vs
wycz：=pdddwyl-pdddwy2；
goto sal；
end；
Sa：
if(v3>(vj-vs))then ql：=l：
if(v3<-(vj—vS))then ／／or(sgsjl>60)
begin
if(sgsjl<21)and(kzbshc)then
begin
wyez：=wycz+5；
vs：=strtofloat ( form 1．jccpanel．caption ) -strtofloat
(forml．shepanel．Caption)-wycz；
／／vs：--vs／jZ*XXS；
vs：=vs*d甜dat；
vs：=vj·-VS； ·
kzbshe：--false；
goto sa；
end；
sal：
da(vj．VS．vd)：
v3：=vj．-VS．-vd：
dycjr：--true；
kzbshc：--true；
t2：--timegettime：
repeat
begin
if((timegettime-starttime)mod 5c>O)thentimekz：=true：
if((timegettime-starttime)mod 5=0)and timekz then
begin
timekz：=false；
readad；
pix：
t4：--timegettime-t2：
if(协((td+0．01)*1000))then
begin
stroutl：=…0：脯电顶锻
form1．edit4．text：=strout l：
forml．exlit4．update；
form 1．shape20．Update；
end：
if(q5=5)then begin q4：exit；end；
end；
end；
until((strtofloat(forml．zhcpanel．caption)-wycz-叫10)>-0．5)or
((timegettime—t2)>2000)；
／／wycz"=0；
stroutI【8】：=’n’0；
form 1．edit4．text：=stroutI；
forml．edit4．update；
form 1．shape20．Update；
t4：=timegettime-t2； ／／顶锻时间
p ／／t7：=gettickcoum；
一 form 1．dspanel．Visible：--true； ／／显示顶锻速度
form 1．dslabel．Visible：---tme；
ift4>O then form1．dspanel．Caption：=formatfloat(’O．0’，ddc*l 000／t4)；
form 1．dspanel．Update；
forml．dslabel．Update；
i：--O；
t2：--timegettime；／／冷却时间
ddhddkz：=true；
oldwy：--wy；
maxdd：=O；
ddct：--0；
ctcs：=O；
ii：=l；
dycdd：=false；
decd&=false；
repeat
begin
if((timegettime-starttime)mod 500)then timekz：=true：
if((timegettime-starttime)mod 5=0)and timekz then
begin
readad；
／／防止伺放板超调
if((strtofloat(form 1．zhcpanel．caption)-wycz-ddct-wy／l O)
》=0．5) and (ctcs<3)and(form1．cb2．Checked)then
begin
ddct：=(strtofloat(forml．zhcpanel．caption)-wycz-wy／l O)：
／／da(vj．VS．vd．(ddct*dal(+dat))：
da((wy／lO一0．1)·dak+dat)：
ctcs：=ctcs+1；
end；
∥防止伺放板超调
{if((strtofloat(form 1．zhcpanel．caption)一wycz-wy／l O)>．0．2)
and ddhddkz then
begin
ddhddkz：--false；
ddhdd：=wy：
end；
if(abs(wy-ddhdd)／lO>maxdd)and(ddhddkz=-false)then
maxdd：=abs(wy-ddhdd)／1 0；
)
∥假如连续两次向后走0．2MM认为是抖动
ifii=l 0 then
begin
／／if wy<oldwy then oldwy：=wy：
if((wy-oldwy)>=2)and(dycdd)thendecdd：--true
elSO dycdd：=false；
if(wy-oldwy)>=2 then dycdd：=true：
oldwy：=wy；
end；
ii：=ii+l： ifii=l 1 then ii：=l；
timekz：=false；
pix；
t4：--timegettime-t2；
i：=i+l：
ifi=200 then H1秒
begin
i：=l：
forml．1qsjpanel．Caption：=formatfloat(’O’，
strtofloat(forml．1qsjpanel．Caption)一1)：
form 1．1qsjpanel．update；
end；
ifq5=5 then begin q4； exit： end；
end：
end；
until (t4>--round ( t1·1 00伊卜200 ) ) and (strtoint
(form 1．1qsjpanel．Caption)<_O)；
if (strtoint(form1．Label45．Caption)<2 1) or (strtofloat
(forml．dspanel．Caption)<20)
or(decdd)then
|l捐嘈埝她m㈨㈨
begin
stroutlr61：=’1’；
forml．edit4．text：=stroutl：
forml．edit4．update；
form 1．shape35．Update；
forml．timer2．Enabled：=false：
form 1．buRon l 3．Visible：--true；
wjstr：=’d：＼dataV+formatdatetime(’YY．mm’，now)+’．txt’：
assignfile(bjfile，wjstr)：
if(findfimt(wjstr，faanyfile，t)=O)then append(bjfile)
else rewrite(bjfile)；
writeln(bjfile，forml．1hlabel．caption，’ ’，’时间’，datetimetostr
(now)，
·闪光时间．．，forml．1abel45．caption，’顶锻速度：’，
form 1．dspanel．caption，
’顶锻后漂移：’，formatfloat(’0．0’，maxdd))；
closefile(bjfile)；
end；
stroutl【7】：-tl’； ／／冷却时间到，发信号使PLC电极抬起
form 1．edit4．text：=strout1；
forml．edit4．update：
forml．shape33．Update；
／／ifjilu舻-I then iiluzt：=2； ／／jiluzt=l：完成后退Jilukz=2：完成冷却
if iiluzt=-1 then
begin
jiluzt：=2： ／／jiluzt=-I：完成后退Jilukz=-2：完成冷却
assignfile(bjfile，filenamel)；
if(findfirst(filenamel，faanyfile，t)◇O)then
begin
rewrite(bjfile)；
writeln(bjfile，’链环号 ·，’温度 t，t出炉时间
’)：
end
else append(bjfile)；
wd：--inttostr(900+random(50))：
jjj：=length(filename2)；
forjjj：=jjj+l to 20 do filename2：=filename2+¨；
writeln(bjfile，filename2， wd，’ ’，datetimetostr
(now-O．0022))；
closefile(bjfile)：
end：
starttime：=O：
closejilu：
vs：=strtofloat ( form 1．jccpanel．caption ) ·strtofloat
(form1．shcpanel．Caption)；
／／vs：=vs／jz*xxs：
vs：=vs*d甜dat：
vs：--vj。VS：
iiluzt：=O：
／／kjhkj delay(3000)：
repeat
form 1．edit1．text：--inttoasic(inp l(baseio+O))；
forml．edit2．text：--inttoasic(inpl(baseio+1))；
forml．Editl．Update；
forml．Edit2．Update；
strioinl：=forml．editl．text：
strioin2：--forml．edit2．text：
／／if(strioinl【8】=’n’0)or(strioinl[7】_’l’)then
until(strioinl=’o．)or(strioinI='1’)；
stroutl：=…0： ∥冷却时间到清除，发信号使PLC电极抬
起
forml．edit4．text：=stroutl：
forml．edit4．update：
forml．shape33．Update： ·．
form1．1qsjpanel．Caption：=floattostr(t1)；
q4：
forml．1t1．caption：='40’；
initform：
ql：=5；
end：
end．
强烈支持楼主ing…… 有专门的工控控件呀 很多的 你搜一下 目测TChart控件可以实现该功能！！
页:
[1]