精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>串口编程调试代码(自编)之三

主题:串口编程调试代码(自编)之三
发信人: oicqdelonglong(泷泷)
整理人: winsy(2003-11-19 13:33:00), 站内信件
以下是串口编程调式代码最后一个form(dlgsetting) 


Private Sub cmdCancel_Click() 
     
    dlgSetting.Hide 
    Unload dlgSetting 

End Sub 

Private Sub cmdOk_Click() 
         
    On Error GoTo SettingError 
         
    intPort = Val(dlgSetting.txtPort.Text) 
    intTime = Val(dlgSetting.txtTime.Text) 
    strSet = dlgSetting.txtSetting.Text 
     
     
     
    If Not frmMain.ctrMSComm.PortOpen Then 
         
        frmMain.ctrMSComm.CommPort = intPort 
        frmMain.ctrMSComm.Settings = strSet 
        frmMain.ctrMSComm.PortOpen = True 
    End If 
     
    If Not blnAutoSendFlag And Not blnReceiveFlag Then 
        frmMain.ctrMSComm.PortOpen = False 
    End If 
    dlgSetting.Hide 
    Unload dlgSetting 
     
    Exit Sub 
     
SettingError: 
    intPort = 2 
    intTime = 1000 
    strSet = "9600,n,8,1" 
    dlgSetting.Show 
    dlgSetting.txtPort.Text = str(intPort) 
    dlgSetting.txtSetting.Text = strSet 
    dlgSetting.txtTime.Text = str(intTime) 
     
    MsgBox (Error(Err.Number)) 
     
End Sub 


Private Sub Form_Load() 

End Sub 

串口编程调试代码所有的代码全部发给了大家,希望各位大虾提出批评和指导,希望能和各路高手一同谈讨,学习!QQ11106404 

[关闭][返回]