Demostracion

El software de PICkit2 me permite enviar y recibir data RS232 en formatos ASCII y HEX, el programa que he logrado hacer, me permite enviar desde mi PC hasta el PICkit2, en esto no tengo problemas, pero cuando quiero enviar desde el PICkit2 hacia la PC, no logro que la PC me muestre nada de nada de nada de nada y mi duda esta en la lectura del programa en VB, he trabajado con casi todos los modos y comandos que he encontrado en la web, pero no logro hacer que mi PC lea nada.

el codigo que tengo hasta ahora es el siguiente, omitiendo los elementos que no son imporantes en la comunicacion:

Imports System

Imports System.ComponentModel

Imports System.Threading

Imports System.IO.Ports

Imports System.Text

Imports System.Threading.Thread

Imports System.Windows.Forms.Control

Public Class Form1

Dim invocartextbox As String

Dim myText As String

Dim x As Integer

Delegate Sub AddReceiveString(ByVal str As String)

Public DelegadoRecString As AddReceiveString

Private Sub Form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For Each sp As String In My.Computer.Ports.SerialPortNames

ListBox1.Items.Add(sp)

Next

SerialPort1.Close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'Abrir Puerto

If Not SerialPort1.IsOpen Then

SerialPort1.Open()

End If

TextBox7.Text = "Abierto"

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 'Cerrar Puerto

If SerialPort1.IsOpen Then

SerialPort1.Close()

End If

TextBox7.Text = "Cerrado"

...