基于vb的恒溫水浴溫度管理系統(tǒng)設(shè)計(jì)-資料下載頁
2025-06-27 18:49本頁面
【正文】 測量溫度) = End IfEnd SubPrivate Sub Timer4_Timer()Dim t As SingleIf Thent = Val()If t 10 ThenBeepIf = False Then = TrueEnd If = S = ElseIf t 100 ThenBeepIf = False Then = TrueEnd If = J = End IfEnd IfEnd IfEnd Sub…………………….畫趨勢圖的程序……………………………Private Sub draw() 39。繪制坐標(biāo)系Dim x As IntegerDim y As Integer (100, 120)(1600, 10) 39。定義坐標(biāo)系 39。 畫坐標(biāo)系 = RGB(200, 5, 200) = 1 (0, 0)(0, 100) (0, 0)(1550, 0) 39。 畫溫度坐標(biāo)點(diǎn)（以10度為1個(gè)單位） = RGB(0, 0, 255) = 4For y = 0 To 100 Step 10 (0, y) (y)Next y 39。 畫溫度坐標(biāo)點(diǎn)（以1度為1個(gè)單位） = RGB(0, 0, 255) = 2For y = 1 To 99 (0, y)Next y 39。畫時(shí)間坐標(biāo)點(diǎn)（以10分鐘為1個(gè)單位）For x = 0 To 1440 Step 10 (x, 0)Next x 39。畫時(shí)間坐標(biāo)點(diǎn)（以1小時(shí)為1個(gè)單位） = RGB(0, 0, 255) = 4For x = 0 To 1440 Step 60 (x, 0) (x / 60)Next xEnd Sub/////////////////////登錄模塊程序清單/////////////////////Dim x As IntegerDim t As IntegerDim mycon As New Private Sub Command1_Click()Dim sql As StringStatic t As IntegerDim rs As New If Trim() = Then 39。如果用戶名為空x = MsgBox(用戶名不能為空!, 48, 錯(cuò)誤)Elsesql = select * from YH where 用戶名=39。 amp。 amp。 39。 39。在用戶信息表中尋找輸入的用戶名 = adUseClient sql, mycon, adOpenKeyset, adLockPessimisticIf Then 39。沒有找到用戶y = MsgBox(沒有這個(gè)用戶, vbOKOnly + vbExclamation, )ElseIf Trim((密碼) = Trim()) Then 39。如果密碼與數(shù)據(jù)庫中相同userid = 39。關(guān)閉數(shù)據(jù)庫Unload Me 39。顯示主界面Elsex = MsgBox(密碼不正確!, vbOKOnly + vbExclamation, )t = t + 1If t 3 Then 39。超過3次End 39。退出程序End IfEnd IfEnd IfEnd IfExit SubEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Dim str As Stringstr = If Right(str, 1) \ Then str = str + \str=provider=。Persist Security Info=False。Data Source= amp。 str amp。 \ strEnd Sub////////////////////系統(tǒng)功能模塊程序清單///////////////////………….添加新用戶程序………………………Dim sql As StringDim xin As New If Trim() = Thenx = MsgBox(用戶名不能為空!, vbOKOnly + vbExclamation, 提示)Exit SubElsesql = select * from YH = adUseClient sql, mycon, adOpenKeyset, adLockPessimistic 39。首地址While ( = False)If Trim((用戶名)) = Trim() Then 39。找到記錄x = MsgBox(已經(jīng)有這個(gè)用戶, vbOKOnly + vbExclamation, 提示) = = = Exit SubElse 39。下一個(gè)地址End IfWendIf Trim() = Thenx = MsgBox(密碼不能為空！, vbOKOnly + vbExclamation, 警告) = = Exit SubElseIf Trim() Trim() Then 39。兩次密碼不一致x = MsgBox(兩次密碼不一致，請重新輸入!, vbOKOnly + vbExclamation, 警告) = = Exit SubElse 39。添加新記錄(用戶名) = (密碼) = x = MsgBox(添加新用戶成功!, vbOKOnly + vbExclamation, )End IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim str As Stringstr = If Right(str, 1) \ Then str = str + \str = provider=。Persist Security Info=False。Data Source= amp。 str amp。 \ strEnd Sub……………………….修改密碼程序……………………..Dim mycon As New Private Sub Command1_Click()Dim sql As StringDim userid As StringDim rs As New If Trim() = Then 39。如果用戶名為空x = MsgBox(用戶名不能為空!, vbOKOnly + vbExclamation, 錯(cuò)誤)Elsesql = select * from YH where 用戶名=39。 amp。 amp。 39。 39。在數(shù)據(jù)庫中搜索輸入的用戶名 sql, mycon, adOpenKeyset, adLockPessimisticIf Then 39。沒有找到記錄x = MsgBox(沒有這個(gè)用戶, vbOKOnly + vbExclamation, 提示)ElseIf Trim((密碼)) = Trim() Then 39。如果原密碼正確userid = Elsex = MsgBox(原密碼不正確!, vbOKOnly + vbExclamation, 錯(cuò)誤) = = = = Exit SubEnd IfIf Trim() = Then 39。新密碼為空x = MsgBox(新密碼不能為空！, vbOKOnly + vbExclamation, 提示)Exit SubElseIf Trim() = Trim() Then 39。新密碼與確認(rèn)密碼一致With rs(密碼) = 39。更新密碼End Withx = MsgBox(密碼修改成功！, vbOKOnly + vbExclamation, ) 39。關(guān)閉數(shù)據(jù)庫Unload MeElseMsgBox 密碼不一致,請重新輸入！ = = End IfEnd IfEnd IfEnd IfExit SubEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim str As Stringstr = If Right(str, 1) \ Then str = str + \str = provider=。Persist Security Info=False。Data Source= amp。 str amp。 \ strEnd Sub/////////////////////單片機(jī)串行通信程序////////////////////include bit Flag。unsigned int ReData,SenData。void main(void) { SCON=0x50。 //設(shè)定串口工作方式 PCON=0x00。 //波特率不倍增 TMOD=0x20。 //定時(shí)器1工作于8位自動(dòng)重載模式, 用于產(chǎn)生波特率 EA=1。 ES = 1。 //允許串口中斷 TL1=0xfd。 TH1=0xfd。 //波特率9600TR1=1。while(1) { if (Flag==1) { SBUF=SenData。 //SUBF接受/發(fā)送緩沖器 while(TI==0)。 TI=0。 Flag=0。 }}}void serial() interrupt 4 { if(RI == 1) //RI接受中斷標(biāo)志 { RI = 0。 //清除RI接受中斷標(biāo)志 ReData = SBUF。 //SUBF接受/發(fā)送緩沖器 SenData=ReData。 Flag=1。 }}
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1