发信人: 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 |
|