[tip][vb] seriële poort

imports system
imports system.text

public class naam

dim utf8 as new UTF8Encoding()

mijncompoort.encoding = utf8

public sub Open_port()
mijncompoort.open
end sub

public sub send_data(byval data as byte)
mijncompoort.write = (data)
end sub

'wat ook mogelijk is
public sub send_data_2(byval data as integer)'waarde tussen 0 en 255
mijncompoort.write(chrW(data))
end sub

end class

 Using writer As StreamWriter = New StreamWriter(pad) 'open een streamwriter
            writer.WriteLine(text als string) 'schrijf naar het bestand
        End Using

 Using writer As StreamWriter = New StreamWriter("C:/save_file.csv") 'open een streamwriter
            writer.WriteLine(TimeOfDay & ";" & SerialPort1.ReadChar) 'schrijf naar het bestand
        End Using

Dim file As System.IO.FileStream
file = System.IO.File.Create(C:/save_file.csv)

unsigned char i;

char i;

Private WithEvents MSComm1 As New System.IO.Ports.SerialPort

MSComm1.Encoding = System.Text.Encoding.Default

        If serialPort.IsOpen Then
            serialPort.Close()
        End If
        Try
            With serialPort
                .WriteBufferSize = 10
                .PortName = cbbCOMPorts.Text
                .BaudRate = 19200
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                .Encoding = System.Text.UnicodeEncoding.Default
            End With
            serialPort.Open()
            serialPort.Write(SpecCode + "v")
            lblMessage.Text = cbbCOMPorts.Text & " connected."
            btnConnect.Enabled = False
            btnDisconnect.Enabled = True
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

syntax
designname.show()'zorg dat het form wordt geladen
appactivate(designname.text)'activeer het form

settings.show()
appactivate(settings.text)