【正文】 read dataClose Handle(h Comdev)39。establish a stopErrl =SetCommStates39。return the constitution circumstance of current string ofdcb .BaudRate=240039。open a munication portAttention:1, be the string that the procedure would automatically close to open while terminating , if receiving buffer area is more big, the effective memory of procedure usage more small, whereas probably receive buffer area spillage, therefore should pass an experiment to enlarge its size gradually. According to the constitution like this, get up a calculator, the whole station instrument conjunction with an electric cable, can carry out the string of calculator and whole station instruments line munication.Two, make use of the function of Windows APIUnder the some condition, MSComm, control a piece isn39。constitution wave especially rate, strange accidentally check a school, data number and stop numberThe MS Comml InputLen=139。s requesting adoption different technique. In the middle of monitoring system, because of the contingency and request transmission data of affairs of solid sex, the calculator often adopts affairs to drive I/O method to carry on the spot monitor. It uses a step for:1, open the port that needs to carry on munication, accept for munication and send out a data brigade the row assign memory area.2, carry on a beginning to start to turn to the munication port, lead especially such as the wave, strange accidentally the school check, data, stop etc..3, carry on reading and writing an operation to the munication port.4, such as the be over string go munication, the close beats to rise of munication port.For example, control Leica with the calculator when the Tc2002 whole station instrument auto measure writing the following code can nicely carry out two of munication:The MS CommlCOmmPort=139。Out Buffer Count: send out the word stanza of buffer area number。InputMode: the constitution put off to a later time blunt area to read numeral format。錯誤處理MsgBox 串口被占用或此串口不存在！通信無效！, 16, 錯誤提示Exit SubEnd IfEnd IfEnd WithEnd SubPrivate Sub MSComm1_OnComm()Dim Crpos%Select Case Case EvCD Case EvCTS Case EvDSR Case EvRing Case EvReceive GotStr = GotStr + Trim() Crpos = InStr(1, GotStr, Chr(13)) If Crpos 0 Then = GotStr GotStr = End If Case EvSend End SelectEnd SubPrivate Sub qx_Click()End SubPrivate Sub shanchu_Click()If MsgBox(是否刪除當(dāng)前記錄？, vbYesNo, 確認(rèn)) = vbYes ThenEnd IfEnd SubPrivate Sub tc_Click()Unload MeEnd SubPrivate Sub zengjia_Click() = End Sub附錄4外文文獻(xiàn)munication method of puter and totalstation instruments of data at VB environment[Summary] this text mainly inquiry in to carried out munication between puter and the totalstation instrument data under (call VB as follows) environments. Two kinds of munication methods: the usage msm control and the function of windows API. The application that also bined a solid example to carry out their string to go munication Procedure and step. Finally carried on parison and summary to two kinds of methods.[Keyword] Visual Basic data munication the msm control All of the electronics totalstation instrument because its function is strong and operate convenience and consumedly raised an open country homework efficiency. Therefore it just and gradually replace traditional diagraph instrument and it is expanded for an application. Although making use of the system menu function of totalstation instruments can immediately plete normal regulations diagraph, monitor in the big dam safety, side the ascent transform a monitor etc. this kind of data is a little bit greatly and need solid the applied situation of processing data, it is will not satisfy demands only by function and amount of memory of instrument. The data at this time can be output a puter by the instrumental data exportation port, and the data can be processed and saved by software. Along with the extensive usage of calculator, many local open country digatial measure diagram method also need to carry out realtime transport. VB is released by the Microsoft pany of according to visual programming language, its adoption faces to the program design method that object, affairs drives and operate simple, therefore doubly be subjected to program design personnel39。該任務(wù)中只用到文本，使用文本模式.InputLen = 0.SThreshold = 1.OutBufferCount = 0.InBufferCount = 0.RThreshold = 1 39。 39。 + + 39。Data Source= amp。判斷通信口是否打開On Error Resume Next.PortOpen = True 39。定義MSFlexGrid1表的固定行數(shù)、固定列數(shù) = 1 = 1 = With MSComm1.CommPort = 2.Settings = 9600,n,8,1 39。定義MSFlexGrid1表的列寬和表頭信息 s = Array(1400, 2800, 900, 1400, 1000, 1000) Y = Array(商品條形碼, 商品名稱, 價格, 數(shù)量, 合計(jì)) For i = 0 To 4 (i) = s(i) (0, i) = Y(i) Next i 39。聲明單精度浮點(diǎn)型變量 On Error Resume Next For i = 1 To 1 A = Val((i, 4)) + A 39。無此記錄，表示無此用戶名ElseIf Rs(密碼) = txtPassword Then 39。PeRsist Security Info=FalseEnd If39。然后通過以下方法打開數(shù)據(jù)庫If = 0 Then = Provider=。這是在其它地方學(xué)習(xí)不到的，我不會忘記學(xué)校對我的辛勤栽培，同時也感謝你們?yōu)槲业拇髮W(xué)生涯劃上了一個圓滿的句號。這是我大學(xué)里最充實(shí)的一段時間。對于出現(xiàn)的問題虛心請教老師和同學(xué)，如果老師發(fā)現(xiàn)其它問題，還望老師批評指正。從一開始軟件學(xué)習(xí)，開發(fā)語言學(xué)習(xí)，害怕自己做不出來，到最后輕松的看著自己開發(fā)的軟件在電腦上運(yùn)行，心中有一種莫名的成就感。利用圖書館，互聯(lián)網(wǎng)上的資源，能夠讓我很快掌握一門語言，也能讓我很開的掌握軟件的使用方法。我當(dāng)時想了，看了這么多書了，也了解了這么多關(guān)于這軟件的使用方法了，必須來實(shí)踐來提高我的動手能力了，那么我開始在實(shí)驗(yàn)室里進(jìn)入了瘋狂敲代碼，瘋狂地看電腦的日子，這段時間內(nèi)，我每天都早早起來，帶上書包來到實(shí)驗(yàn)室，因?yàn)橐婚_始在自己電腦上安裝的VB軟件是精簡版的，好多控件都無法使用，這是一開始我的準(zhǔn)備工作沒做好，所以我每天都去實(shí)驗(yàn)室，天天在實(shí)驗(yàn)室里看書，實(shí)踐，最開始實(shí)踐的是學(xué)生信息的管理系統(tǒng)，也就如上圖一樣，只是label的屬性改為學(xué)生姓名，學(xué)號等，這樣后面的數(shù)據(jù)就是學(xué)生的信息了，如此我也照葫蘆畫瓢，做出了上面的界面，這就是我一開始學(xué)習(xí)這軟件開發(fā)的第一個界面，我利用原有的代碼進(jìn)行相應(yīng)的修改，能夠達(dá)到我需要的效果，這難道開源對我們這些初學(xué)者的好處么？這是一種減少程序員代碼輸入的繁重工作量。 商品入庫界面入庫模塊就是商品信息入庫的界面利用掃描器進(jìn)行掃描條形碼來進(jìn)行商品的條形碼的記錄，然后手動進(jìn)行商品的名稱輸入，和商品的價格，和庫存數(shù)量的輸入，合計(jì)欄是在顯示控件上進(jìn)行計(jì)算的，這里不需要進(jìn)行價格的計(jì)算。 出現(xiàn)問題的銷售界面后來我就按照書上所說的使用MSHFlexGrid控件，這就能夠達(dá)到先不顯示數(shù)據(jù)庫中的信息，這樣一來我就解決了這個界面的主要問題。這界面的設(shè)計(jì)是在看了很多收銀臺界面后，根據(jù)自己想象中的，自己設(shè)計(jì)的界面，肯定存在很多不足，希望各位老師給予指導(dǎo)，我會在后面進(jìn)行修改，會站在顧客的角度來思考問題，從而使軟件更加適合大眾的需求。成功掃描了條形碼后如果商品中沒有這商品，系