Hola Toni
Tienes razón, así poco se puede entender. Aquí os dejo un trozo del formulario principal y el formulario secundario entero. Es bastante largo, pero bueno. Espero que ahora aclare un poco el problema.
****************************** FORMULARIO PRINCIPAL ***************************************
Imports System
Imports System.IO.Ports
Public Class MainProgram
Public WithEvents RS232 As New SerialPort
Delegate Sub WriteDataDelegate(ByVal str As String)
Private strData As String = "" 'Recepcion de datos
'*********************************************************************************
Private Sub MainProgram_Load(ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles MyBase.Load
With RS232
.PortName = "COM1"
.BaudRate = 9600
.Parity = Parity.None
.DataBits = 8
.StopBits = StopBits.One
End With
RS232.ReadTimeout = 500
RS232.WriteTimeout = 500
ConexionEstablecer.Enabled = True
ConexionCortar.Enabled = False
End Sub
'*********************************************************************************
Private Sub ConexionEstablecer_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles ConexionEstablecer.Click
ConexionEstablecer.Enabled = False
ConexionCortar.Enabled = True
Try
RS232.Open()
txtRX.AppendText(RS232.PortName & " abierto a las " & Now.ToString & vbCrLf)
Catch ex As System.IO.IOException
txtRX.AppendText("Error abriendo el puerto: " & vbCrLf & ex.Message & vbCrLf)
Catch ex As System.UnauthorizedAccessException
txtRX.AppendText("El pueto ya esta abierto: " & vbCrLf & ex.Message & vbCrLf)
Catch ex As System.Exception
txtRX.AppendText("Error general accediendo al puerto:" & vbCrLf & ex.Message & vbCrLf)
End Try
End Sub
'*********************************************************************************
Private Sub ConexionCortar_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles ConexionCortar.Click
RS232.Close()
Timer1.Stop()
txtRX.AppendText(RS232.PortName & " cerrado a las " & Now.ToString & vbCrLf)
ConexionEstablecer.Enabled = True ' Recurso accionable
ConexionCortar.Enabled = False ' Recurso no accionable
End Sub
'*********************************************************************************
Private Sub ConexionSalir_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles ConexionSalir.Click
If RS232.IsOpen Then
RS232.Close()
End If
Me.Dispose()
End Sub
'*********************************************************************************
Public Sub RS232_DataReceived(ByVal sender As Object, ByVal e _
As System.IO.Ports.SerialDataReceivedEventArgs) Handles RS232.DataReceived
strData = RS232.ReadExisting
strReceived += strData
Dim WriteInvoke As New WriteDataDelegate(AddressOf Me.WriteData)
Me.Invoke(WriteInvoke, strData)
End Sub
'*********************************************************************************
Public Sub WriteData(ByVal str As String)
txtRX.AppendText(str)
End Sub
'*********************************************************************************
Private Sub cmdEnviar_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles cmdEnviar.Click
' Establecemos el modo de anuncio de errores
strSend = "AT+CMEE=2" + vbCr
ManagementRaster() ' Enviamos la Trama
MobileEquipmentError() ' Tratamiendo de la respuesta
' Preguntamos si el PIN ´se ha introducido
My.Forms.PIN_Code.Show()
End Sub
'*********************************************************************************
' INCIALIZAMOS EL TIMER2 PARA ESPERA
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TimeOutCount = TimeOutCount + 1 ' Actualizamos el contador
If TimeOutCount = 10 Then ' Tiempo de espera máximo de 70 segundos
Timer1.Stop() ' Deshabilitamos el Timer
TimeOutCount = 0 ' Reiniciamos la variable del contador
TimeOut = True
End If
End Sub
'*********************************************************************************
End Class
****************************** FORMULARIO PIN_Code ***************************************
Public Class PIN_Code
' Declaración de variables locales para esta clase
Public KeyAscii As Integer
'*********************************************************************************
' CARGAMOS EL FORMULARIO
Private Sub PIN_Code_Load(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles MyBase.Load
txtPIN.Text = "" ' Borramos el texto de la caja PIN.
End Sub
'*********************************************************************************
' Código PIN solo admite valores numéricos. Permitimos tecla borrar (ASCII 8)
Private Sub txtPIN_KeyPress(ByVal sender As Object, ByVal e _
As System.Windows.Forms.KeyPressEventArgs) Handles txtPIN.KeyPress
If (KeyAscii <> 8) And (KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0
End If
End Sub
'*********************************************************************************
' Envio de la trama del código PIN y tratamiento de la respuesta obtenida
Private Sub bttAceptar_Click(ByVal sender As Object, ByVal e _
As System.EventArgs) Handles bttAceptar.Click
Dim PIN As String
If txtPIN.Text = "" Then ' Confirmamos si txtPIN está en blanco
MsgBox("Introduzca el código PIN en la caja de texto")
Exit Sub ' Salimos de la rutina
End If
PIN = Chr(34) + txtPIN.Text + Chr(34) ' Código PIN entre comillas
strSend = "AT+CPIN=" + PIN + vbCr
ManagementRaster() ' Enviamos la trama
TreatPIN_Code() ' Tratamos la respuesta
End Sub
'*********************************************************************************
' Salida del programa
Private Sub bttCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bttCancelar.Click
Me.Dispose() ' Salimos del programa
End Sub
'*********************************************************************************
End Class
Problemas con los fomularios
