8 years, 7 months ago.

USBSerial send data to VB

Hallo, I am usig LPC11u24 Microcontroller, by using USBSerial communication need to send data to Visual Basic. And Visual Basic will show the data in richtextbox. I can see the output temperature in Putty, But in VB I can't see nothing . Can anyone tell me how to do it ......?

mbed code:

1. include <fstream>
2. include "mbed.h"
3. include "USBSerial.h"
4. include <math.h>
5. include <Ticker.h>

DigitalOut myled(LED1); DigitalOut myled1(LED2);

USBSerial serial;

AnalogIn analog_Data(A1); For Analog communication int main(){

int B=3975; B value of the thermistor

float temperature, data;

float resistance; while(1){

data = analog_Data.read_u16(); Read Data from Analog port

resistance=(float)(65535-data)*10000/data; get the resistance of the sensor; 16 bit =65535

temperature=1/(log(resistance/10000)/B+1/298.15)-273.15; convert to temperature via datasheet ;

serial.printf("Temperature is : /r/n" , temperature); output is temperature which is a changing value depend on temperature sensor

wait(1); waiting second } }

Visual Basic code:

Imports System.IO Imports System.IO.Ports Imports System.Threading

Public Class Form1

Shared _continue As Boolean Shared _serialPort As SerialPort

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

SerialPort1.PortName = "com3" 'change com port to match your Arduino port

SerialPort1.BaudRate = 9600

SerialPort1.DataBits = 8

SerialPort1.Parity = Parity.None

SerialPort1.StopBits = StopBits.One

SerialPort1.Handshake = Handshake.None

SerialPort1.Encoding = System.Text.Encoding.Default 'very important!

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

SerialPort1.Open()

RichTextBox1.Text = SerialPort1.ReadLine() Refresh()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

SerialPort1.Close()

End Sub

Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged End Sub End Class