基于windows環(huán)境下數(shù)據(jù)通信處理及存儲(chǔ)程序設(shè)計(jì)-文庫(kù)吧資料
2025-06-30 18:51本頁(yè)面
【正文】 ———————————————————————Public Function IsHex(c As String) As Integer If c = 0 And c = 9 Then IsHex = Val(c) Val(0) ElseIf c = a And c = f Then IsHex = Asc(c) Asc(a) + 10 ElseIf c = A And c = F Then IsHex = Asc(c) Asc(A) + 10 Else IsHex = 16 End IfEnd Function——————————————————————————————————Private Sub Command6_Click() Dim outs As String outs = Call ToChar(out, CStr(outs)) = out Exit Sub Dim s As String Dim l As Integer Dim i As Integer, j As Integer, t As Integer Dim a As Integer Dim tmp As String Dim send_buf() As Byte ReDim send_buf(1024) t = 0 s = Trim() l = Len(s) Do While (l) Do Until IsHex(Left(s, 1)) 16 l = l 1 If l = 0 Then Exit Do tmp = Right(s, l) Loop a = IsHex(Left(s, 1)) l = l 1 s = Right(s, l) If l 0 And IsHex(Left(s, 1)) 16 Then a = a * 16 + IsHex(Left(s, 1)) l = l 1 s = Right(s, l) End If t = t + 1 send_buf(t) = a Loop If t 128 Then t = 128 ReDim Preserve send_buf(t) = send_buf()End Sub——————————————————————————————————Private Sub Command7_Click() Unload MeEnd Sub——————————————————————————————————Private Sub Form_Activate() On Error Resume Next mut = False = 0 = 5 = 0 = 0 mut = True = True If Then MsgBox 串口1已打開(kāi)！, vbOKOnly, 警告 = RGB(0, 0, 0) = False = False End If End Sub——————————————————————————————————Private Sub Form_Load() = 1 39。已打開(kāi)先關(guān)閉 = port 39。Option Base 1Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)Dim port As ByteDim rate As LongDim data_t As IntegerDim stop_t As IntegerDim disp_on As IntegerDim mut As BooleanDim out() As Byte——————————————————————————————————Private Sub _change() Dim flag As Boolean On Error Resume Next If mut = False Then Exit Sub 39。在設(shè)計(jì)窗體時(shí)要添加以下控件：1個(gè)ComboBox 、9個(gè)Label、1個(gè) Option 、7個(gè)Command Button、2個(gè) TextBox。 flag=1。 } }}void ser() interrupt 4//串口中斷程序{ RI=0。 ES=1。//發(fā)送數(shù)據(jù) while(!TI)。//等待是否發(fā)送完畢 TI=0。i++) { SBUF=table[i]。//關(guān)閉串口中斷 for(i=0。 init()。//開(kāi)總中斷 ES=1。設(shè)定串口方式1 SM1=1。//啟動(dòng)定時(shí)器T1 REN=1。 TL1=0xfd。}void init(){ TMOD=0x20。in。}void delay(uchar n)//延時(shí)n毫秒{ uchar i。j33。i10。void delay1ms(){ uchar i,j。include includedefine uchar unsigned chardefine uint unsigned intunsigned char flag,a,i。 在TxD和RxD上： 邏輯1：3V ～15V 邏輯0：+3V～+15V 發(fā)送數(shù)據(jù)(TxD)——通過(guò)TxD終端將串行數(shù)據(jù)發(fā)送到MODEM，(DTE→DCE)。P3口也可作為AT89C51的一些特殊功能口，如下表所示： RXD（串行輸入口） TXD（串行輸出口） /INT0（外部中斷0） /INT1（外部中斷1） T0（計(jì)時(shí)器0外部輸入） T1（計(jì)時(shí)器1外部輸入） /WR（外部數(shù)據(jù)存儲(chǔ)器寫選通） /RD（外部數(shù)據(jù)存儲(chǔ)器讀選通）P3口同時(shí)為閃爍編程和編程校驗(yàn)接收一些控制信號(hào)，用于和PC連接通信。當(dāng)P3口寫入“1”后，它們被內(nèi)部上拉為高電平，并用作輸入。相應(yīng)公式為：
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1