日本特级淫片免费看-日本特级黄色-日本特级黄录像片-日本视频中文字幕-成年偏黄网站站免费-成年人福利

xmutcrs
級別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看xmutcrs的 主題 / 回貼
樓主  發(fā)表于: 2009-11-01 10:38
如題,謝謝大家,
xmutcrs
級別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看xmutcrs的 主題 / 回貼
1樓  發(fā)表于: 2009-11-01 11:05
Private Sub Command1_Click() '電機啟動
Dim a As Integer
Dim b As Integer
b = 0
a = MsgBox("是否在啟動電機時就啟動監(jiān)視功能并進入曲線監(jiān)控畫面", 4, "監(jiān)控選擇")
If a = 6 Then
'曲線監(jiān)控.Visible = True
If qxstart_flag = False Then
Set 曲線監(jiān)控.s = CreateObject("Excel.Application")
                '曲線監(jiān)控.s.Visible = True
          Set 曲線監(jiān)控.exwbook = Nothing
          Set 曲線監(jiān)控.exsheet = Nothing
          Set 曲線監(jiān)控.exwbook = 曲線監(jiān)控.s.workbooks.open("d:/vb98/3-1.xls")
          Set 曲線監(jiān)控.exsheet = 曲線監(jiān)控.exwbook.Worksheets("sheet1")
qxstart_flag = True
End If
曲線監(jiān)控.Visible = True
曲線監(jiān)控.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發(fā)送請求
本帖最近評分記錄:
  • 下載積分:+2(小玉2013) 好貼好貼!
  • 下載積分:+2(夏日雪夢) 熱心助人
    xmutcrs
    級別: *
    精華主題: * 篇
    發(fā)帖數(shù)量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看xmutcrs的 主題 / 回貼
    2樓  發(fā)表于: 2009-11-02 15:01
    希望有這方面的高手指點一下,不勝感激

    主站蜘蛛池模板: 欧美日韩一区二区三区四区 | 9299yy看片淫黄大片在线 | 青草资源视频在线高清观看 | 夜夜综合 | 亚洲热在线观看 | 欧美精品亚洲精品日韩 | 四虎免费在线播放 | 久草中文在线观看 | 国产一区二区三区在线 | 在线免费观看小视频 | 乱淫67194 | 年轻人看的在线视频免费观看 | 久草中文在线 | 香蕉网站99视频丝瓜视频 | 欧美日韩精 | 成人在线中文字幕 | 国产午夜久久影院 | 国产精品久久久 | 人善交video欧美 | 精品视频久久久久 | 五月激情久久 | 欧美在线视频免费 | 日本色图网站 | 国产高清免费在线观看 | 日本大蕉香蕉大视频在线观看 | 色www视频永久免费 色www永久免费 | 国产精品欧美一区二区三区 | 成 人 亚洲 综合天堂 | 久草手机在线 | 四虎影视免费在线 | 久久国产精品免费视频 | 国产精品66福利在线观看 | 好深日本h好硬好爽好大 | 免费视频精品一区二区三区 | 亚洲欧美成人永久第一网站 | 久久国产精品久久久久久 | 一区二区三区高清不卡 | 四虎影视大全 | 欧美性猛交黑人午夜视频 | 国产成人91精品 | 欧美一级欧美三级在线 |