1.             //找定点计算角度 角度数jds 角度差jdc
  2.             调用插件命令 zb=DBSoft.GetColorXY(hwnd,222,548,343,649,"0000FF","0,0,0",2)
  3.             延时200毫秒
  4.             c=clng(zb(0)):d=clng(zb(1))
  5.             调用插件命令 jiaodu=DBSoft.Angle3Point(c,d,294,597,c,597,1)
  6.             jds=abs(clng(jiaodu))
  7.             dim jdcz(4),jdc(4)
  8.             jdcz(0)=30-jds:jdcz(1)=50-jds:jdcz(2)=60-jds:jdcz(3)=65-jds:jdcz(4)=70-jds
  9.             jdc(0)=abs(30-jds):jdc(1)=abs(50-jds):jdc(2)=abs(60-jds):jdc(3)=abs(65-jds):jdc(4)=abs(70-jds)
  10.             //zx为最小下标 zxz为最小角度差数值
  11.             调用插件命令 zx=DBSoft.MinNum(jdc,1)
  12.             调用插件命令 zxz=DBSoft.MinNum(jdcz,0)
  13.             zx=clng(zx):zxz=clng(zxz)
  14.             //角度差修正
  15.             pj=pj+jdxz*zxz
  16.             // MessageBox "角度代号"&zx
  17.             如果表达式 (zx=0) 为真,则
  18.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  19.                 sj=ss(pj)/10*3500+tj
  20.                 延时sj毫秒
  21.             条件结束
  22.             如果表达式 (zx=1) 为真,则
  23.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  24.                 sj=ws(pj)/10*3500+tj
  25.                 延时sj毫秒
  26.             条件结束
  27.             如果表达式 (zx=2) 为真,则
  28.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  29.                 sj=ls(pj)/10*3500+tj
  30.                 延时sj毫秒
  31.             条件结束
  32.             如果表达式 (zx=3) 为真,则
  33.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  34.                 sj=lw(pj)/10*3500+tj
  35.                 延时sj毫秒
  36.             条件结束
  37.             如果表达式 (zx=4) 为真,则
  38.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  39.                 sj=qs(pj)/10*3500+tj
  40.                 延时sj毫秒
  41.             条件结束
  42.             调用插件命令 Bkgnd.KeyUp(Hwnd, 32)
  43.         条件结束
  44.     否则
  45.         如果表达式 (LX-HX<=0) 为真,则
  46.             调用插件命令 Bkgnd.KeyPress(Hwnd, 39)
  47.             延时200毫秒
  48.             // MessageBox "向右"
  49.             调用插件命令 Bkgnd.KeyPress(Hwnd, 37)
  50.             延时200毫秒
  51.             // MessageBox "向左"
  52.             调用插件命令 Bkgnd.KeyPress(Hwnd, 37)
  53.             延时200毫秒
  54.             // MessageBox "向左"
  55.             调用插件命令 Bkgnd.KeyPress(Hwnd, 39)
  56.             延时300毫秒
  57.             // MessageBox "向右"
  58.             //找定点计算角度 角度数jds 角度差jdc
  59.             调用插件命令 zb=DBSoft.GetColorXY(hwnd,222,548,343,649,"0000FF","0,0,0",2)
  60.             延时200毫秒
  61.             c=clng(zb(0)):d=clng(zb(1))
  62.             调用插件命令 jiaodu=DBSoft.Angle3Point(c,d,294,597,c,597,1)
  63.             jds=abs(clng(jiaodu))
  64.             dim jdcz(4),jdc(4)
  65.             jdcz(0)=30-jds:jdcz(1)=50-jds:jdcz(2)=60-jds:jdcz(3)=65-jds:jdcz(4)=70-jds
  66.             jdc(0)=abs(30-jds):jdc(1)=abs(50-jds):jdc(2)=abs(60-jds):jdc(3)=abs(65-jds):jdc(4)=abs(70-jds)
  67.             //zx为最小下标 zxz为最小角度差数值
  68.             调用插件命令 zx=DBSoft.MinNum(jdc,1)
  69.             调用插件命令 zxz=DBSoft.MinNum(jdcz,0)
  70.             zx=clng(zx):zxz=clng(zxz)
  71.             //角度差修正
  72.             pj=pj+jdxz*zxz
  73.             // MessageBox "角度代号"&zx
  74.             如果表达式 (zx=0) 为真,则
  75.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  76.                 sj=ss(pj)/10*3500+tj
  77.                 延时sj毫秒
  78.             条件结束
  79.             如果表达式 (zx=1) 为真,则
  80.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  81.                 sj=ws(pj)/10*3500+tj
  82.                 延时sj毫秒
  83.             条件结束
  84.             如果表达式 (zx=2) 为真,则
  85.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  86.                 sj=ls(pj)/10*3500+tj
  87.                 延时sj毫秒
  88.             条件结束
  89.             如果表达式 (zx=3) 为真,则
  90.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  91.                 sj=lw(pj)/10*3500+tj
  92.                 延时sj毫秒
  93.             条件结束
  94.             如果表达式 (zx=4) 为真,则
  95.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  96.                 sj=qs(pj)/10*3500+tj
  97.                 延时sj毫秒
  98.             条件结束
  99.             调用插件命令 Bkgnd.KeyUp(Hwnd, 32)
  100.         否则