工控软件源码程序,不可不看!!!

Question

my email:  [email protected]

Answer 1

完全同意szkingrose(kingrose)的看法！！！！！！！　

Answer 2

这家伙要是编window,连计算器都要收钱！！！

Answer 3

afreehawk你三天的劳动,才值50元,惨不惨,还好意思讲别人

Answer 4

给我串行部分。我看看值不值。
[email protected]

Answer 5

    我的这个程序串行部分的主要特点是没有采用传统的消息处理,
其次较好的解决了长串(大于8个字符)不定的二次事件产生.保证了群控
的正确与及时.
   部分源码如下,如你觉得值,可与我联系  [email protected]
  hcom:=createfile('com1',GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED,0);
if hcom=INVALID_HANDLE_VALUE then begin
                                    messagebox(0,'端口打开错误！','错误信息',MB_ICONSTOP or MB_OK);
                                    exit;
                                  end;
com_init(hcom);fillchar(read_os,sizeof(read_os),0);
fillchar(write_os,sizeof(write_os),0);
read_os.hEvent:=createevent(nil,true,false,nil);
write_os.hEvent:=createevent(nil,true,false,nil);
writing_event:=createevent(nil,true,false,nil);
com_thread:=createthread(nil,0,@commwatch,nil,0,threadid);bitbtn1.Enabled:=not bitbtn1.Enabled;
bitbtn2.Enabled:=true;
mcanclose:=false;
csb:=true;
bz:=1;
while csb do
begin
if bz=1 then begin
               currenttime:=gettickcount;
               bz:=0;
             end;for i:=1 to zjhs do
  for j:=1 to zjls do
  begin
    answer:=0;
    fj[i,j].brush.color:=clbtnface;
    for k:=0 to 2 do
    begin
      cxzjsj(i-1,j-1,1);
//      outbuffer[0]:=byte(i);outbuffer[1]:=byte(j);
//      writefile(hcom,outbuffer,2,dwnumwritten,@write_os);
      writefile(hcom,outbuffer,2,dwnumwritten,nil);
      rwait:=waitforsingleobject(writing_event,MAXWAIT);
      if rwait=WAIT_TIMEOUT then inc(answer)
      else if rwait=WAIT_OBJECT_0 then
                 begin

Answer 6

我很想学习一下，因为我对delphi还不是很熟，但我没有钱。刚出来工作，手头紧了一点。
我的E-mail:[email protected]

Answer 7

suiyixin(随意):我会发给你一分

Answer 8

老兄告诉你一个消息：
NEC上海分公司的一名教授偷卖了一个控件，被判了八年。
你等着吧，恭喜恭喜。