Desde la primer versión está la rutina en donde se agregan los Bps.
Código:
With cmbBauds ' Agregar los BPS al ComboBox cmbBauds
.AddItem "110"
.AddItem "300"
.AddItem "600"
.AddItem "1200"
.AddItem "2400"
.AddItem "4800"
.AddItem "9600"
.AddItem "14400"
.AddItem "19200"
.AddItem "28800"
.AddItem "38400"
.AddItem "56000"
.AddItem "128000"
.AddItem "256000"
.ListIndex = 6 ' Por default en 9600 Baudios
End With
En la última versión nada más se agregó algo muy sencillo.
Código:
Private Sub cmbBauds_Click()
If cmbBauds.Text = "Otro" Then
txtBaudRate.Enabled = True
OtherBaudrate = 1
Else
txtBaudRate.Enabled = False
OtherBaudrate = 0
End If
End Sub
En la rutina Click de cmdOK:
Código:
Private Sub cmdOK_Click()
' Seleccionar el modo de conexión serial.
If cmbBauds.Text = "Otro" Then
OtherBaudrate = 1
Bauds = Val(txtBaudRate.Text)
If Bauds = 0 Then
MsgBox "Debe proporcionar un valor para el Baudrate.", vbInformation, "Error en el Baudrate"
txtBaudRate.SetFocus
Exit Sub
ElseIf Bauds < 110 Then
MsgBox "El Baudrate no puede ser inferior a 110 Baudios.", vbExclamation, "Error en el Baudrate"
txtBaudRate.SetFocus
Exit Sub
ElseIf Bauds > 256000 Then
MsgBox "El Baudrate no puede ser superior a 256000 Baudios.", vbExclamation, "Error en el Baudrate"
txtBaudRate.SetFocus
Exit Sub
End If
Else
Bauds = Trim(cmbBauds.Text)
OtherBaudrate = 0
End If
En la rutina ReadConfig:
Código:
OtherBaudrate = CByte(GetSetting(App.CompanyName, App.Title, "USER_BAUDRATE", 1))
txtBaudRate.Text = GetSetting(App.CompanyName, App.Title, "USER_BAUDS", "5000")
En la rutina WriteConfig:
Código:
If OtherBaudrate = 1 Then
SaveSetting App.CompanyName, App.Title, "USER_BAUDS", txtBaudRate.Text
Else
SaveSetting App.CompanyName, App.Title, "BAUDS", cmbBauds.Text
End If
Y la variable OtherBaudrate es del tipo Byte, pero también puede ser Boolean.
