freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

基于vb的串口通訊-資料下載頁

2024-11-08 05:27本頁面

【導(dǎo)讀】本文主要介紹了利用VB提供的串行通信控件開發(fā)串行通信的詳細(xì)過程,供了不少簡便之處。著重講述了軟件設(shè)計(jì)的全過程,分別闡述了串口的初始化,數(shù)據(jù)的。接收與發(fā)送,串口配置的初始化與實(shí)現(xiàn),以及PC機(jī)與單片機(jī)的通信。檢驗(yàn)并實(shí)現(xiàn)糾正功能。適合于對(duì)數(shù)據(jù)傳輸?shù)臏?zhǔn)確性有較高要求的場合使用,而且具有方。便實(shí)用,操作簡單等特點(diǎn)。

  

【正文】 cx)|*.doc。*.docx .DialogTitle = 打開文件 .ShowOpen End With e = If Then If Err 32755 Then Open e For Binary As q Get q, , w = w Close q End If End If End Sub Private Sub Command4_Click() If = 暫停顯示 Then = 0 = 繼續(xù)顯示 = Else = 暫停顯示 End If End Sub Private Sub Command5_Click() 39。 = CommID 39。 = Not On Error GoTo uerror If = 打開串口 Then = True = 關(guān)閉串口 = vbRed = CommID:串口 amp。 CommID amp。 已成功 打開 Else = False = 打開串口 = vbBlack 湖南 科技大學(xué)畢業(yè)設(shè)計(jì) 說明書(畢業(yè) 論文 ) = vbNewLine amp。 串口已關(guān)閉 End If Exit Sub uerror: msg$ = 無效端口號(hào) Title$ = 串口調(diào)試助手 X = MsgBox(msg, 48, Title) End Sub Private Sub Command6_Click() = 0 = 0 End Sub Private Sub Command7_Click() Dim a As String Dim b = Trim() a = Trim() If Len(a) = 0 Then b = MsgBox(發(fā)送字符為空 !, vbInformation, 提示信息 ) If b = vbOK Then End If End If If = 1 Then = End If End Sub Private Sub Command9_Click() = = 0 End Sub Private Sub Form_Load() For i = 1 To 16 = i On Error Resume Next = True If = 0 Then CommID = i Else = False End If Next i mypath1 = amp。 \ 39。獲取文件所在目錄 zitipath = mypath1 amp。 hzk16 39。獲取字庫所在地址 39。Text2 = mypath1 amp。 zitipath 湖南 科技大學(xué)畢業(yè)設(shè)計(jì) 說明書(畢業(yè) 論文 ) = LoadPicture() = 9600,n,8,1 39。設(shè)置發(fā)送的數(shù)據(jù)格式 = False = 0 39。一次讀走接收緩沖區(qū)的全部數(shù)據(jù) = 1 39。接收緩沖區(qū)中有數(shù)據(jù)則產(chǎn)生 m_on 事件 = 0 39。清空接收緩沖區(qū)的數(shù)據(jù) = 0 39。清空發(fā)送緩沖區(qū)的數(shù)據(jù) End Sub Public Sub s0() 39。將要發(fā)送的漢字存入數(shù)組中 ,去除空格 ,和西文字符 n = 0 Dim L As Integer, i As Integer, j As Integer L = Len() 39。獲取文本框中字的字?jǐn)?shù) ,此字?jǐn)?shù)不僅包括漢字還包含西文字符 ,和空格 . For i = 1 To L If Asc(Mid(, i, 1)) 0 Then 39。由于中文的最高位為 1,ascii 碼小于零 . On Error Resume Next n = n + 1 39。得到中文字的字?jǐn)?shù) End If Next i ReDim hzstr1(1 To n) 39。重新定義存儲(chǔ)漢字的數(shù)組長度 . j = 1 For i = 1 To L If Asc(Mid(, i, 1)) 0 Then hzstr1(j) = Mid(, i, 1) 39。把漢字存入數(shù)組中 . j = j + 1 39。ascii End If Next i End Sub Public Sub s1() Dim hzk166() As Byte 39。定義存放漢字庫的數(shù)組 Dim qwm 39。存儲(chǔ)區(qū)位碼 Dim qm 39。區(qū)碼 Dim wm 39。位碼 Dim i As Integer, j As Integer Dim intfilenum 39。定義文件號(hào) Dim filena filena = zitipath 39。 把字庫地址傳遞過來 intfilenum = FreeFile 39。獲取未使用的文件號(hào) Open filena For Binary As intfilenum 39。以二進(jìn)制打開字庫文件 Sum = LOF(intfilenum) 39。獲取字庫文件的長度 ,以字節(jié)計(jì)算 ReDim hzk166(1 To Sum) 39。重新定義存放字庫數(shù)組的長度 Get intfilenum, , hzk166 39。將漢字庫整體存入數(shù)組 hzk166() Close intfilenum 39。關(guān)閉字庫文件 ,防止發(fā)生錯(cuò)誤 ReDim zmhp(1 To n, 1 To 32) 39。As Byte For i = 1 To UBound(hzstr1) 39。字?jǐn)?shù)循環(huán) ,有幾個(gè)字循環(huán)幾次 湖南 科技大學(xué)畢業(yè)設(shè)計(jì) 說明書(畢業(yè) 論文 ) qwm = Hex(Asc(hzstr1(i)) amp。HA0A0) 39。獲取漢字的區(qū)位碼 If Len(qwm) = 3 Then 39。獲取漢字的區(qū)位碼 qm = Mid(qwm, 1, 1) wm = Mid(qwm, 2, 2) ElseIf Len(qwm) = 4 Then qm = Mid(qwm, 1, 2) wm = Mid(qwm, 3, 2) 39。由于標(biāo)點(diǎn)為三位漢字為四位要獲得正確的區(qū)位碼 ,必須給予長度判斷 .否則會(huì)出錯(cuò) End If address1 = 32 * ((CLng(amp。H amp。 qm) 1) * 94 + (CLng(amp。H amp。 wm) 1)) 39。獲取漢字所在字庫的地址 For j = 1 To 32 39。每個(gè)字為 32 個(gè)字節(jié) zmhp(i, j) = hzk166(address1 + j) 39。將點(diǎn)陣數(shù)據(jù)存入 ,數(shù)組 On Error Resume Next Next j Next i End Sub Public Sub s2() 39。取模顯示 Dim s As String For j = 1 To UBound(hzstr1) 39。有幾個(gè)字循環(huán)幾次 s = s amp。 (/******** ) amp。 hzstr1(j) amp。 ( ********/) amp。 vbCrLf 39。vbCrLf 換行加回車 For i = 1 To 8 Step 1 39。步長為 1 ,可以省略 If zmhp(j, i) 16 Then s = s amp。 0x0 amp。 Hex((zmhp(j, i))) amp。 , Else s = s amp。 0x amp。 Hex((zmhp(j, i))) amp。 , End If Next i s = s amp。 vbCrLf For i = 9 To 16 Step 1 39。步長為 1 ,可以省略 If zmhp(j, i) 16 Then s = s amp。 0x0 amp。 Hex((zmhp(j, i))) amp。 , Else s = s amp。 0x amp。 Hex((zmhp(j, i))) amp。 , End If Next i s = s amp。 vbCrLf For i = 17 To 24 Step 1 39。步長為 1 ,可以省略 If zmhp(j, i) 16 Then s = s amp。 0x0 amp。 Hex((zmhp(j, i))) amp。 , Else s = s amp。 0x amp。 Hex((zmhp(j, i))) amp。 , End If Next i s = s amp。 vbCrLf 湖南 科技大學(xué)畢業(yè)設(shè)計(jì) 說明書(畢業(yè) 論文 ) For i = 25 To 32 Step 1 39。步長為 1 ,可以省略 If zmhp(j, i) 16 Then s = s amp。 0x0 amp。 Hex((zmhp(j, i))) amp。 , Else s = s amp。 0x amp。 Hex((zmhp(j, i))) amp。 , End If Next i s = s amp。 vbCrLf amp。 vbCrLf Next j = s End Sub Private Sub Timer1_Timer() Call CmdManu_Click End Sub Private Sub Comm1_OnComm() Dim BytReceived() As Byte Dim strBuff As String Dim i As Integer Select Case 39。事件發(fā)生 Case 2 Cls = 0 39。讀入緩沖區(qū)全部內(nèi)容 strBuff = 39。讀入到緩沖區(qū) = Str(Val(Trim()) + Len(strBuff)) 39。接收計(jì)數(shù) If = InputModeBinary Then BytReceived() = strBuff 39。如果 是二進(jìn)制接收模式則進(jìn)行數(shù)據(jù)處理,否則直接顯示字符串 For i = 0 To UBound(BytReceived) If Len(Hex(BytReceived(i))) = 1 Then strData = strData amp。 0 amp。 Hex(BytReceived(i)) amp。 39。如果只有一個(gè)字符,則前補(bǔ) 0,如 F 顯示 0F,最后補(bǔ)空格 Else 39。方便顯示觀察如: 00 0F FE strData = strData amp。 Hex(BytReceived(i)) amp。 End If Next Text3 = Text3 amp。 strData strData = Else Text3 = Text3 amp。 strBuff amp。 End If End Select End Sub
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1