基于單片機(jī)的步進(jìn)電機(jī)控制系統(tǒng)設(shè)計(jì)

桂林電子科技大學(xué)畢業(yè)設(shè)計(jì)（論文）報(bào)告用紙第⑤上位機(jī)VB程序代碼PrivateSubCombo1_Click()IfCombo1.Text="COM1"ThenMSComm1.CommPort=1ElseIfCombo1.Text="COM2"ThenMSComm1.CommPort=2ElseIfCombo1.Text="COM3"ThenMSComm1.CommPort=3ElseIfCombo1.Text="COM4"ThenMSComm1.CommPort=4ElseIfCombo1.Text="COM5"ThenMSComm1.CommPort=5ElseMSComm1.CommPort=3EndIfEndSubPrivateSubCommand1_Click()'Text3.Text=Str(Val(Text3.Text)+1000)DimbufAsStringMSComm1.Output=Trim("a")EndSubPrivateSubCommand10_Click()'Text3.Text=Text3.Text+100MSComm1.Output=Trim("b")EndSubPrivateSubCommand11_Click()'Text3.Text=Text3.Text+10MSComm1.Output=Trim("c")EndSubPrivateSubCommand12_Click()OnErrorGoToSettingErrorStaticcountAsIntegercount=count+1Ifcount=2Thencount=0EndIfIfcount=1ThenCombo1.Enabled=FalseCombo1.BackColor=vbRedMSComm1.Settings=Str(Combo2.Text)&","&"n"&","&"8"&","&"1"MSComm1.InputMode=0MSComm1.RThreshold=10MSComm1.PortOpen=TrueCommand12.Caption="關(guān)閉串口"ElseCombo1.BackColor=vbWhiteCombo1.Enabled=TrueMSComm1.PortOpen=FalseCommand12.Caption="打開串口"EndIfExitSubSettingError:count=0MsgBox(Error(Err.Number))IfMSComm1.PortOpen=TrueThenMSComm1.PortOpen=FalseEndIfCombo1.BackColor=vbWhiteCombo1.Enabled=TrueCommand12.Caption="打開串口"EndSubPrivateSubCommand13_Click()MSComm1.Output=Trim("8")EndSubPrivateSubCommand14_Click()MSComm1.Output=Trim("0")EndSubPrivateSubCommand15_Click()MSComm1.Output=Trim("d")EndSubPrivateSubCommand16_Click()Text3.Text=0MSComm1.Output=Trim("e")EndSubPrivateSubCommand17_Click()MSComm1.Output=Trim("7")EndSubPrivateSubCommand18_Click()MSComm1.Output=Trim("f")EndSubPrivateSubCommand2_Click()MSComm1.Output=Trim("7")EndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()MSComm1.Output=Trim("3")EndSubPrivateSubCommand5_Click()MSComm1.Output=Trim("2")EndSubPrivateSubCommand6_Click()MSComm1.Output=Trim("1")EndSubPrivateSubCommand7_Click()MSComm1.Output=Trim("6")EndSubPrivateSubCommand8_Click()MSComm1.Output=Trim("5")EndSubPrivateSubCommand9_Click()MSComm1.Output=Trim("4")EndSubPrivateSubForm_Load()Combo1.Text="COM3"MSComm1.CommPort=3EndSubPrivateSubForm_Unload(CancelAsInteger)IfMSComm1.PortOpen=TrueThenMSComm1.PortOpen=FalseEndIfEndSubPrivateSubList1_Click()EndSubPrivateSubOption1_Click()Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueCommand9.Enabled=TrueCommand10.Enabled=FalseCommand11.Enabled=FalseText3.Enabled=FalseEndSubPrivateSubOption2_Click()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand9.Enabled=FalseCommand10.Enabled=TrueCommand11.Enabled=TrueText3.Enabled=TrueEndSubPrivateSubMSComm1_OnComm()DimmodeAsStringDimdirectionAsStringDimfreq_flagAsStringDimrunAsStringDimbuf()AsByteSelectCaseMSComm1.CommEventCasecomEvReceiveIfNotMSComm1.PortOpenThenMSComm1.PortOpen=TrueEndIf'此處為處理接收的代碼buf=MSComm1.InputEndSelectText2.Text=bufmode=Left(Text2.Text,1)'*************************速度控制模式*************************IfVal(mode)=0ThenText1.Text=Right(Left(Text2.Text,6),3)'將頻率顯示在文本框中Text5.Text=Val(Text1.Text)*7.5/6'將相應(yīng)頻率顯示在文本框中Command14.Caption="速度控制&R"Command1.Enabled=FalseCommand10.Enabled=FalseCommand11.Enabled=FalseCommand15.Enabled=FalseCommand16.Enabled=FalseCommand17.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseText6.Enabled=FalseText9.Enabled=FalseCommand18.Enabled=FalseCommand14.BackColor=vbReddirection=Right(Left(Text2.Text,2),1)run=Right(Left(Text2.Text,3),1)'***********************方向控制**************************If(Val(direction)=0)Then'順時(shí)針Command2.Caption="順時(shí)針旋轉(zhuǎn)&W"Command2.BackColor=vbGreenElseCommand2.Caption="逆時(shí)針旋轉(zhuǎn)&W"'逆時(shí)針Command2.BackColor=vbRedEndIf'***********************運(yùn)行控制**************************IfVal(run)=1ThenCommand13.Caption="停止&E"Command13.BackColor=vbRedElseCommand13.Caption="運(yùn)行&E"Command13.BackColor=vbGreenEndIf'****************************角度模式控制******************************ElseCommand14.Caption="角度控制&R"Command1.Enabled=TrueCommand10.Enabled=TrueCommand11.Enabled=TrueCommand15.Enabled=TrueCommand16.Enabled=TrueCommand17.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText6.Enabled=TrueText9.Enabled=TrueCommand18.Enabled=TrueCommand14.BackColor=vbGreendirection=Right(Left(Text2.Text,2),1)freq_flag=Right(Left(Text2.Text,3),1)If(Val(direction)=0)ThenLabel15.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText6.Enabled=TrueLabel9.Enabled=TrueLabel16.Enabled=TrueLabel7.Enabled=TrueLabel18.Enabled=FalseLabel19.Enabled=FalseLabel20.Enabled=FalseText7.Enabled=FalseText8.Enabled=FalseText9.Enabled=FalseIf(Val(freq_flag)=0)ThenText3.Enabled=FalseText6.Enabled=TrueText6.Text=Left(Right(Text2.Text,7),3)'頻率Else'EndIf'If(Val(freq_flag)=1)ThenText3.Enabled=TrueText6.Enabled=FalseText3.Text=Right(Text2.Text,4)'步數(shù)EndIfEndIfIf(Val(direction)=1)ThenLabel15.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseText6.Enabled=FalseLabel9.Enabled=FalseLabel16.Enabled=FalseLabel7.Enabled=FalseLabel18.Enabled=TrueLabel19.Enabled=TrueLabel20.Enabled=TrueText7.Enabled=TrueText8.Enabled=TrueText9.Enabled=TrueIf(Val(freq_flag)=0)ThenText9.Enabled=TrueText7.Enabled=FalseText9.Text=Left(Right(Text2.Text,7),3)'頻率ElseText7.Enabled=TrueText9.Enabled=FalseText7.Text=Right(Text2.Text,4)'步數(shù)EndIfEndIfEndIf'Text1.Text=Right(Left(Text2.Text,4),3)'Text3.Text=Right(Text2.Text,4)'Text5.Text=Val(Text1.Text)*7.5/6'IfVal(Right(Left(Text2.Text,6),1))=1ThenEndSubPrivateSubText2_Change()'Text1.Text=Right(Left(Text2.Text,4),3)EndSubPrivateSubText3_Change()Text4.Text=Str(Val(Text3.Text)*7.5)EndSubPrivateSubText7_Change()Text8.Text=Str(Val(Text7.Text)*7.5)EndSub

暑期實(shí)習(xí)報(bào)告我們馬上就要上大三了，在大一大二的時(shí)候，我就想應(yīng)該找點(diǎn)工作來做做，可惜一直都因沒有適當(dāng)安排好時(shí)間而作廢，我正想這個(gè)假期應(yīng)該可以去上班試試看，總歸得回歸社會(huì)嘛，農(nóng)村在暑期基本上農(nóng)活并不多，我就想這確實(shí)是個(gè)去實(shí)習(xí)的好機(jī)會(huì)，可能今后未必就有這么好的機(jī)會(huì)。巧的是，老師也這么要求，那我就更是有這個(gè)必要去實(shí)習(xí)實(shí)習(xí)了。我剛開始就是去小鎮(zhèn)上找找看，有沒有什么活干，我看到街上的昭示，有百貨超市啊，餐館啊，還有就是招人打小工的，不過因?yàn)楫吘惯@個(gè)是需要蓋章的，所以呢，超市就是個(gè)不錯(cuò)的選擇，而且關(guān)鍵在于，在我們今天這個(gè)市場(chǎng)經(jīng)濟(jì)帶動(dòng)作用下，懂得銷售技巧是非常好的，不光要求把商品推銷出去，把自己推銷出去，還有把一種理念，一個(gè)招牌打出去。我本來平時(shí)就比較喜歡和人交流，就喜歡人與人交流的那種思想碰撞的感覺，人也和藹可親，可是呢，感覺有時(shí)候又缺乏一定的技巧，最后給人一種不存在的感覺，有些不服氣，這不，這文銘家用電器超市啊是賣家用電器的，我們那邊的離一公里的兩個(gè)小鎮(zhèn)都開有他們的店，他們家在一邊，只能照看一頭的生意，另外一頭是新開的，就需要個(gè)可靠的人給他們照看家用電器和家具，他們是希望招一個(gè)能說會(huì)道而且可靠的人，給他們招呼客人。如果遇到什么生意，需要把人家客人款待好些，讓他們看看家用電器和家具，給他們介紹介紹價(jià)格和性能什么的，然后說服他們到老板家那個(gè)小鎮(zhèn)去說去看，我二姨家就住在街上，和這家人關(guān)系很好，聽說我需要找工作，就向他們介紹我，而且還不說，我和他們的侄女就是初中同學(xué)，我也去過他們家玩，只是他們需要招的是長(zhǎng)期的工作人員，我說我一個(gè)月，然后把他們出的工資降低，又和他們?cè)僬f說，終于就在他們的另一個(gè)小鎮(zhèn)承擔(dān)起了負(fù)責(zé)人的態(tài)度，平時(shí)我就住在我大娘家，我大娘家的對(duì)面就是那個(gè)超市。找工作的路途讓我明白，這個(gè)社會(huì)人脈是很重要的，人更愿意相信和自己有些關(guān)系，有些來往的人，這會(huì)增加一種信任度，還有就是人際交流，自己需要展示好的品質(zhì)，比如誠(chéng)實(shí)，謙虛，和藹可親，有說服力。誠(chéng)實(shí)是最打動(dòng)人的，如果一個(gè)人油腔滑調(diào)，旁人是不會(huì)放心地任務(wù)交在他的手上，另外，如果自己可以說服他們雇用自己，他們即便就會(huì)認(rèn)為自己可以說服自己的顧客購(gòu)買自己的商品，還有就是保障，這是一樁大生意，家具若有任何閃失，損失的就是一大筆錢，我二姨家和店主他家很親近，他們是信得過的，我二姨說，若我犯了什么閃失她來?yè)?dān)保，而且想必考取一個(gè)名牌大學(xué)的學(xué)生，人格上他們還是信得過，另外，店主他家也偶爾會(huì)來看一看哪里有沒有什么問題。再說，他們有我的個(gè)人信息，我是不會(huì)因小失大犯事兒的。因此，我最終就謀上了這個(gè)職位，松了一口氣，感覺自己很幸運(yùn)。因?yàn)槲沂桥R時(shí)工，而且主要是為了鍛煉自己的市場(chǎng)營(yíng)銷能力，薪水不是關(guān)鍵，本來的職工薪水是底薪一千二百元，百分之一的提成，而我，是底薪八百元，百分之一的提成。若是由我這邊介紹的人，最終買了家具，我就可以拿到提成，想想還是蠻可以的。我在這個(gè)鎮(zhèn)上是住在我大娘家，她家就在我們這個(gè)超市的對(duì)面。早晨我七八點(diǎn)起床，速速做飯吃了，就去開店門。然后在那里坐著守著，還可以拿我喜歡的故事書，名著啊什么的在那里閱讀，和周圍忙活的人閑聊說說話，還可以打開音響，放著他家這里的碟片，聽各種美妙的音樂。貴州的氣候本就涼爽，小鎮(zhèn)在山半腰就更加清風(fēng)吹拂，是避暑的好地方，我抬頭就能看見我最喜歡的青山，總是一直聳立在那里，有一種父親的風(fēng)骨，更有一種超凡脫俗的韻味，看見山我就覺得自己是自然的一分子，覺得自己很高，我覺得這日子舒服極了！每次趕集，我媽媽都會(huì)背來一些菜啊，瓜果之類的來賣，一些給我大娘家，就當(dāng)是我在我大娘家住的生活費(fèi)用，畢竟是我得麻煩人家一個(gè)月呢！生活上的事情是無憂無慮的了，至于生意上的事情，基本上是冷冷清清，隔三岔五才會(huì)有人來問一下，當(dāng)有人來問家具或電器的時(shí)候，我就十分地欣喜，覺得又是個(gè)鍛煉的好機(jī)會(huì)，有客人來了我就希望盡我的全力，讓人家買我的產(chǎn)品，這樣才能實(shí)現(xiàn)我的價(jià)值，也證明了店主家沒有白白雇用我，家用電器和家具的性能店主家都給我說的，我基本上也會(huì)了，還有我又有自己看說明書，知道怎么說產(chǎn)品的性能。我微笑著招呼人家，和人家談?wù)摦a(chǎn)品性能，還和人家拉拉家常，其實(shí)賣家具和買菜就差不多，主要是人家看著差不多，你又會(huì)說，人家感覺舒服就愿意向你買，我一遇到問的人，就好象激活了我渾身的細(xì)胞，總想把東西賣出去，一欣喜，臉就會(huì)紅，覺得世界非常美好，想到我的工資可以加，名聲也會(huì)更好聽，我媽媽也更加喜歡我了，（我好像長(zhǎng)不大，從小就喜歡這些），人會(huì)變的很友善很機(jī)靈，很努力的款待人家，還有一點(diǎn)，貴州的農(nóng)村人都是很喜歡機(jī)靈可愛的人的，我感覺我給他們留下的印象就不錯(cuò)。他們有在議論這個(gè)姑娘機(jī)靈。我賣的第一套家具是我姐夫的二哥買的，他們是自己看的，我給他們說了一下性能，沒說產(chǎn)品什么好話，他們看著還可以，估計(jì)覺得買別人的還不如買自家人的，最終我就算完成第一筆生意。生意不是天天都賣成，所以，每每完成一筆生意，我就在心里記得很清楚，想著就高興，然后期待下一場(chǎng)生意的到來。有幾個(gè)只是隨便問一下，然后又去別的地方看，有的人問了問了，然后又回來在這里買了。有的人自己會(huì)看，我根本不用怎么介紹，他們就要求見店主，我就當(dāng)是個(gè)服務(wù)員就好了，打電話給店主他們，周羅一些雜碎事物。也遇到了一位難纏的，我給他說，他不斷用沒有理論依據(jù)的話質(zhì)疑我們的產(chǎn)品，我還沒聽過類似的話語(yǔ)，覺得很無語(yǔ)，最后他和店主說，講了又講，最后還是買了幾件家具。算算賣了的家具，我這一個(gè)月下來總共是四五家的人買，一般都是買一套家具，還有就是買的電器，我需要告