99久久国产综合精品女不卡-99久久好看一级毛片-99久久精品99999久久-99久久精品费精品国产-99久久精品费精品国产一区二

xmutcrs
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看xmutcrs的 主題 / 回貼
樓主  發表于: 2009-11-01 10:38
如題,謝謝大家,
xmutcrs
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看xmutcrs的 主題 / 回貼
1樓  發表于: 2009-11-01 11:05
Private Sub Command1_Click() '電機啟動
Dim a As Integer
Dim b As Integer
b = 0
a = MsgBox("是否在啟動電機時就啟動監視功能并進入曲線監控畫面", 4, "監控選擇")
If a = 6 Then
'曲線監控.Visible = True
If qxstart_flag = False Then
Set 曲線監控.s = CreateObject("Excel.Application")
                '曲線監控.s.Visible = True
          Set 曲線監控.exwbook = Nothing
          Set 曲線監控.exsheet = Nothing
          Set 曲線監控.exwbook = 曲線監控.s.workbooks.open("d:/vb98/3-1.xls")
          Set 曲線監控.exsheet = 曲線監控.exwbook.Worksheets("sheet1")
qxstart_flag = True
End If
曲線監控.Visible = True
曲線監控.Timer1.Enabled = True
End If
Do While Form1.complish = True
a = 0
Loop
Form1.complish = True
a = Form1.forcem_y("m0", 1)
Do While b < 10000
b = b + 1
Loop
Do While Form1.complish = True
a = 0
Loop
Form1.complish = True
a = Form1.forcem_y("m0", 0)
End Sub
上面是我寫的電機啟動代碼,上升沿置啟動指令,下降沿置M8122發送請求
本帖最近評分記錄:
  • 下載積分:+2(小玉2013) 好貼好貼!
  • 下載積分:+2(夏日雪夢) 熱心助人
    xmutcrs
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看xmutcrs的 主題 / 回貼
    2樓  發表于: 2009-11-02 15:01
    希望有這方面的高手指點一下,不勝感激
    zony210
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看zony210的 主題 / 回貼
    3樓  發表于: 2009-11-23 02:46
    QJ71E71-100 的以太網通信 誰知道呀  也 幫我  qq 13030299

    主站蜘蛛池模板: 在线成人看片| 日本一级黄色| 日韩精品特黄毛片免费看 | 国产高清在线精品免费| www三级免费| 免费人成黄页在线观看忧物| 97se狠狠狠狠狠亚洲综合网| 亚洲第一精品福利| 中文字幕日韩一区二区三区不卡| 国产高清专区| 国产伦理自拍| 亚洲国产精品一区二区三区在线观看| 日韩黑寡妇一级毛片国语对白| 国产一二三四区在线观看| 国产白领丝袜办公室在线视频| 亚洲精品国产精品一区二区| 日韩在线操| 欧美一级爱操视频| 番茄视频二三区| 欧美精品久久久亚洲| 一级做a爱片久久毛片| 任你干免费视频| 夜夜爽日日澡人人| 精品国模一区二区三区| 综合久久久久| 午夜精品一区二区三区免费视频 | 国产午夜在线观看视频播放| 在线不卡免费视频| 日韩手机看片福利精品| 亚洲视频一区网站| 国产一区二区久久精品| 国产高清毛片| 国产精品免费一区二区三区四区 | 国产精品视频播放| 国产成+人+综合+欧美 亚洲| 久草久操| 亚欧在线视频| heyzo北条麻妃久久| 永久免费看www色视频| 免费精品国产| 国产精品久久久久久吹潮|