invernadero_bd_net

Estudiantes de Base de Datos en los siguientes archivos encuentran el código de la aplicacion básica para administrar un formulario:

Codigo en VB.net 2008:



Además se agrega un archivo para la conexion con otras aplicacioenes digitales:



Este es el archivo isntalador de Skins para .net:

With SerialPort1

.PortName =

"COM1"

REM .PortName = "COM3"

.BaudRate = 115200

.Parity = IO.Ports.Parity.None

.DataBits = 8

.StopBits = IO.Ports.StopBits.One End With

Try If SerialPort1.IsOpen Then

btnConnect.Enabled =

True

btnDisconnect.Enabled =

False

txtDataReceived.Text =

""

enviar_rs232(  "A"   )

enviar_rs232(  "T"   )

timer_test.Enabled =

True

Else

SerialPort1.Open

txtDataReceived.Text =

""

enviar_rs232(  "A"   )

enviar_rs232(  "T"   )

timer_test.Enabled =

True

btnConnect.Enabled =

False

btnDisconnect.Enabled =

True End If

ToolStripStatus_estado_puerto.Text = "Puerto Serial 1" & " configurado." Catch ex  As   System.IO.IOException

ToolStripStatus_estado_puerto.Text = (  "Error abriendo el puerto: "   & _

vbCrLf & ex.Message & vbCrLf)

cadena = (  "Error abriendo el puerto: "   & vbCrLf & ex.Message & vbCrLf)

MsgBox(cadena,,  ".:. SISLAFI: Puerto Serial 1"   )

btnConnect.Enabled =

False

btnDisconnect.Enabled =

False

btnSend.Enabled =

False

REM Me.Visible = False Catch ex  As   System.UnauthorizedAccessException

ToolStripStatus_estado_puerto.Text = (  "El puerto ya esta abierto: "   & vbCrLf & _

ex.Message & vbCrLf)

cadena = (  "El puerto configurado ya esta abierto: "   & vbCrLf & ex.Message & vbCrLf)

MsgBox(cadena,,  ".:. SISLAFI: Puerto Serial 1"   )

btnConnect.Enabled =

False

btnDisconnect.Enabled =

False

btnSend.Enabled =

False

REM Me.Visible = False Catch ex  As   System.Exception

ToolStripStatus_estado_puerto.Text = (  "Error general de acceso al puerto:"   & _

vbCrLf & ex.Message & vbCrLf)

cadena = (  "Error general accediendo al puerto:"   & vbCrLf & ex.Message & vbCrLf)

MsgBox(cadena,,  ".:. SISLAFI: Puerto Serial 1"   )

btnConnect.Enabled =

False

btnDisconnect.Enabled =

False

btnSend.Enabled =

False

REM Me.Visible = False End Try