import system.io public class form1 dim comports as array private sub form1_load comports=io.ports.serialport.getportnames serialport.portname="com3" serialport.bauderate=9600 serialport.parity=io.ports.parity.none // <<= from where com serialport1 ? serialport1.stopbits=io.ports.stopbits.one serialport1.databits=8 // <<= from where comes serial1 ? if serialport1.isopen=false serial1.portname="com3" end if // <<= missing end Sub here private sub serialport1_datareceived(byvalsender as object, byval e as system.io.ports.serialdatareceivedEventArgs) if serialport1.isopen=true then Read() end if end sub private sub Read() if serialport1.isopen then Dim Data as string=serialport1.readexisting() frist_w.text=data end if end sub // <<= missing End Class here <pre>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)