-
2018-12-10 06:35發(fā)布了問(wèn)答
-
測(cè)振筆功能特點(diǎn)有哪些?
-
-
2018-11-28 18:21發(fā)布了問(wèn)答
-
真尚有振動(dòng)傳感器測(cè)振有什么意義
-
-
2018-11-20 11:14發(fā)布了問(wèn)答
-
proteus里的頻率計(jì)為什么不顯示
-
-
2017-11-18 09:59發(fā)布了問(wèn)答
-
區(qū)間測(cè)速超速處罰標(biāo)準(zhǔn)
- 區(qū)間測(cè)速超速處罰標(biāo)準(zhǔn)
-
2015-11-09 14:27發(fā)布了問(wèn)答
-
plc編程通過(guò)傳感器之后怎么能保持計(jì)時(shí)器通電
-
-
2015-10-02 05:20發(fā)布了問(wèn)答
-
數(shù)據(jù)采集器 盤點(diǎn)出的數(shù)據(jù)怎么分析,格式好像不太對(duì)
-
-
2014-10-11 06:23發(fā)布了問(wèn)答
-
濟(jì)南高新區(qū)國(guó)道G309的511kM+100M處超速違章測(cè)速在哪里??
- \G309 515KM+0M處東向西高新超速東向西80 \G309 515KM+0M處西向東高新超速西向東80 \G309 511KM+100M處西向東高新超速西向東80 \G309513KM+300M處東向西高新超速東向西80 \世紀(jì)大道北徐馬村121號(hào)燈桿處東向西高新超速東向西80 \世紀(jì)大道北徐馬村121號(hào)燈桿... \G309 515KM+0M處東向西高新超速東向西80
\G309 515KM+0M處西向東高新超速西向東80
\G309 511KM+100M處西向東高新超速西向東80
\G309513KM+300M處東向西高新超速東向西80
\世紀(jì)大道北徐馬村121號(hào)燈桿處東向西高新超速東向西80
\世紀(jì)大道北徐馬村121號(hào)燈桿處西向東高新超速西向東80 展開(kāi)
-
2013-10-09 17:05發(fā)布了問(wèn)答
-
紅綠燈計(jì)時(shí)器為什么被取消?
-
-
2013-05-31 02:14發(fā)布了問(wèn)答
-
各位老師請(qǐng)教下,vb采集溫度器上的數(shù)據(jù)?
- 用的是modbus協(xié)議:RS-485串口,“9600.n.81”,功能碼03讀參數(shù),功能碼10寫參數(shù)值。我這有個(gè)模擬采集溫度的程序,請(qǐng)幫忙看下怎么改才能跟溫控表實(shí)際采集,我這沒(méi)有添加MSComm通訊控件... 用的是modbus協(xié)議:
RS-485串口,
“9600.n.81”,
功能碼 03 讀參數(shù),
功能碼 10 寫參數(shù)值。
我這有個(gè)模擬采集溫度的程序,請(qǐng)幫忙看下怎么改才能跟溫控表實(shí)際采集,我這沒(méi)有添加MSComm通訊控件:
Public flag As Boolean '報(bào)警標(biāo)志位
Public saveflag As Boolean '數(shù)據(jù)保存標(biāo)志位
Private Sub cancelsave_Click()
saveflag = False '取消保存
End Sub
Private Sub cancelwarn_Click()
flag = False '取消報(bào)警,并隱藏相關(guān)顯示控件。
Label3.Visible = False
Label4.Visible = False
cancelwarn.Enabled = False
End Sub
Private Sub Form_Load()
stopgetting.Enabled = False '初始狀態(tài),非采集狀態(tài)下“停止采集”不可用
cancelwarn.Enabled = False '初始狀態(tài),非采集狀態(tài)下“取消報(bào)警”不可用
Label2.Caption = ""
End Sub
Private Sub gettting_Click()
Timer1.Enabled = True '啟動(dòng)定時(shí)器1,定時(shí)讀取數(shù)據(jù)。
Timer1.Interval = 1000 '采集時(shí)間間隔。
stopgetting.Enabled = True
End Sub
Private Sub help_Click()
Dim res
res = MsgBox("本系統(tǒng)在開(kāi)始采集數(shù)據(jù)后才能進(jìn)行數(shù)據(jù)保存,///掉。", , "幫助")
End Sub
Private Sub savedata_Click()
saveflag = True '置位數(shù)據(jù)保存標(biāo)志位,保存數(shù)據(jù)。
End Sub
Private Sub setwarnning_Click()
Form2.Show '顯示設(shè)置窗口。
End Sub
Private Sub stopgetting_Click()
Timer1.Enabled = False '停止采集
End Sub
Private Sub Timer1_Timer()
Dim t As Double '溫度
Dim a As Integer
Dim res
Dim str As String
str = App.Path + "\數(shù)據(jù).txt" '文件保存路徑,保存在程序相對(duì)路徑內(nèi)。
t = 50 + Rnd * 20 '這里生成50-70之間的隨機(jī)數(shù),模擬采集到的溫度。
a = 100 * t
t = a / 100 '保留兩位小數(shù)
Label2.Caption = t
Label3.Caption = Form2.a
If flag Then '判斷是否超過(guò)設(shè)定溫度
If t > Form2.a Then
res = MsgBox("超過(guò)設(shè)定溫度!", vbExclamation, "報(bào)警") '超過(guò)設(shè)定溫度彈窗顯示報(bào)警
flag = False '將報(bào)警標(biāo)志位置0,停止報(bào)警。用戶需再次啟動(dòng)報(bào)警功能。
End If
End If
If saveflag Then '保存數(shù)據(jù)
Open str For Append As #405 '在文件尾端寫入數(shù)據(jù)
Print #405, t
Close #405
End If
End Sub 展開(kāi)
-
2011-06-08 08:40發(fā)布了問(wèn)答
-
有誰(shuí)知道哪有做類似馬拉松或者長(zhǎng)跑類比賽的計(jì)時(shí)器租賃?
- 因?yàn)槭呛芏嗳送瑫r(shí)一起出發(fā),所以想用計(jì)時(shí)器就能夠準(zhǔn)確的記下所有參賽者的時(shí)間,不要秒表之類的,人太多,不適用
-
2011-05-23 14:16發(fā)布了問(wèn)答
-
vb怎么設(shè)計(jì)簡(jiǎn)單的計(jì)時(shí)器
- 用vb中的timer控件,設(shè)計(jì)計(jì)時(shí)器。用三個(gè)命令按鈕,分別為:開(kāi)始、暫停、結(jié)束。再用一個(gè)標(biāo)簽或者文本框顯示就好了。
各位大俠教教,我初學(xué)。
-
2007-10-26 01:18發(fā)布了問(wèn)答
-
共振是怎么回事
- 可以怎樣避免
-
2007-03-01 17:40發(fā)布了問(wèn)答
-
在電視看到的國(guó)外或者香港街頭那些停車計(jì)時(shí)器是怎樣的
- 在電視看到的國(guó)外或者香港街頭那些停車計(jì)時(shí)器是怎樣的,好像俗稱“瞇表”
-
2006-11-02 16:26發(fā)布了問(wèn)答
-
從古至今計(jì)時(shí)器都有那些種類
-