用vb語言編寫短信控制器的上位機(jī)控制軟件畢業(yè)論文(文件)
【正文】 學(xué)出版社, 2003.[8] 張健主編. Visual Basic [M].江蘇: 浙江大學(xué)出版社, 2007.[9] 李長林編著. Visual Basic 串口通信技術(shù)與典型實(shí)例 [M].北京: 清華大學(xué)出版社, 2006.致謝本文是在周魯平老師的悉心指導(dǎo)下完成的，我要感謝我的指導(dǎo)老師周魯平老師對我畢業(yè)設(shè)計(jì)的悉心指導(dǎo)和熱誠的幫助，同時(shí)還要向在完成設(shè)計(jì)論文過程中給我提供幫助的王均彬同學(xué)致以最誠摯的謝意。)On Error GoTo errIf = True Then = FalseEnd IfDim a As Integera = Val(Trim$(str(0))) = a = Trim$(str(1)) = TrueExit Suberr:MsgBox 無效端口，或端口被占用！, 64, 提示End Sub（Form3）Private Sub Command1_Click()Dim name As StringDim count As IntegerDim phone As Stringname = Trim$()If name = Then MsgBox 請輸入名稱, 64, 提示 Exit SubEnd Ifphone = Trim$()If name = Then MsgBox 請輸入電話號碼, 64, 提示 Exit SubEnd IfIf Thencount = Trim$()If count 5 Then MsgBox 燈的數(shù)量必須小于或等于5, 64, 提示 Exit SubEnd IfIf count = 0 Then count = 1End IfElse MsgBox 請?zhí)钊霟舻臄?shù)量, 64, 提示 Exit SubEnd Iflight_M(manager_index).light_N(light_index).phonenumber = phonelight_M(manager_index).light_N(light_index).nane = namelight_M(manager_index).light_N(light_index).lightcount = countIf = 1 Thenlight_M(manager_index).light_N(light_index).enable = TrueElselight_M(manager_index).light_N(light_index).enable = FalseEnd IfCall savelights(manager_index)MsgBox 設(shè)置成功, 64, 提示Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Dim msg As Integermsg = MsgBox(確定要刪除？, 48 + 1, 提示)If msg = vbCancel ThenExit SubEnd IfCall dellight(manager_index, light_index)MsgBox 刪除成功, 64, 提示Unload MeEnd SubPrivate Sub Command4_Click()Dim message As mesDim err As Boolean = 0 = Trim$() = Trim$()err = SendMES(message)If err = True Then Call write_daily_record(向 + Trim$() + ( + Trim$() + ) + 發(fā)送 + Trim$() + 命令 + .并且發(fā)送成功！)MsgBox 發(fā)送成功！, 64, 提示Else Call write_daily_record(向 + Trim$() + ( + Trim$() + ) + 發(fā)送 + Trim$() + 命令 + .發(fā)送失?。?MsgBox 發(fā)送失?。? 64, 提示End If = 1000End SubPrivate Sub Command5_Click()Dim message As mesDim err As Boolean = 返回開關(guān)信息 = Trim$()err = SendMES(message)If err = True Then Call write_daily_record(向 + Trim$() + ( + Trim$() + ) + 發(fā)送 返回開
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1