用vb語言編寫短信控制器的上位機控制軟件畢業(yè)論文-資料下載頁
2025-06-23 14:23本頁面
【正文】 = 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 = 返回開關信息 = Trim$()err = SendMES(message)If err = True Then Call write_daily_record(向 + Trim$() + ( + Trim$() + ) + 發(fā)送 返回開關信息 命令 + .并且發(fā)送成功！) MsgBox 發(fā)送成功！, 64, 提示Else Call write_daily_record(向 + Trim$() + ( + Trim$() + ) + 發(fā)送 返回開關信息 命令 + .發(fā)送失敗！) MsgBox 發(fā)送失?。? 64, 提示End IfEnd SubPrivate Sub Form_Load() = light_M(manager_index).light_N(light_index).nane = light_M(manager_index).light_N(light_index).phonenumber = str(light_M(manager_index).light_N(light_index).lightcount)If light_M(manager_index).light_N(light_index).enable = True Then = 1Else = 0End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) = 1000 = 0End SubPrivate Sub Timer1_Timer()Dim err As BooleanDim message As mesDim i As Integererr = ScanGSMMode()If err = False Then Exit SubEnd Ifi = While i 0 message = ReadMSG(()) If Then = End If = 1 i = WendEnd Sub7總結本設計是在熟悉掌握VB的基礎上寫成的，VB編程以其簡約的設計風格、可視化的界面編輯和極小的體積廣受程序員們的歡迎。通過本軟件的設計，對VB的編程特點有了更深的理解。本程序用于控制發(fā)射端發(fā)送短信遠程控制高桿燈的亮滅，能容易地隨時修改控制程序，以改變各燈的控制時間和工作狀況，滿足不同狀況要求，有很強的現(xiàn)場應用性。實踐證明，采用短信控制器對高桿燈的自動控制是完全可行的。參考文獻[1] Basic程序設計[M].北京: 清華大學出版社, 2004.[2] 陳元春,王淮亭,陶恂. Visual Basic數(shù)據(jù)庫編程[M].北京: 高等教育出版社, 2003.[3] 王國榮編著. Visual Basic Windows API 講座[M]. 北京: 人民郵電出版社, 1999.[4] 龔沛曾. Visual Basic簡明教程[M].北京: 高等教育出版社出版, 2003.[5] 何光渝編著. Visual Basic 常用數(shù)值算法集[M].北京: 科學出版社, 2002.[6] 李勇帆. Visual Basic 程序設計實踐指導[M].北京: 人民郵電出版社, 2006.[7] 史斌星,史佳. Visual Basic 貫通教程[M].北京: 清華大學出版社, 2003.[8] 張健主編. Visual Basic [M].江蘇: 浙江大學出版社, 2007.[9] 李長林編著. Visual Basic 串口通信技術與典型實例 [M].北京: 清華大學出版社, 2006.致謝本文是在周魯平老師的悉心指導下完成的，我要感謝我的指導老師周魯平老師對我畢業(yè)設計的悉心指導和熱誠的幫助，同時還要向在完成設計論文過程中給我提供幫助的王均彬同學致以最誠摯的謝意。老師的嚴謹、同學的互助深深地影響了我，才使我能夠順利地完成此次畢業(yè)設計，獲益匪淺。再次感
黨政相關相關推薦
鄂ICP備17016276號-1