Dim BaudRate As Int = config.Get("BaudRate")
Log("BaudRate: " & BaudRate)
Dim DataBits As Int = config.Get("DataBits")
Log("DataBits: " & DataBits)
Dim StopBits As Int = config.Get("StopBits")
Log("StopBits: " & StopBits)
Dim Parity As Int = config.Get("Parity")
Log("Parity: " & Parity)
sp.Open(config.Get("serial_port_path"))
Log("Serial Port Path: : " & config.Get("serial_port_path"))
sp.SetParams(BaudRate,DataBits,StopBits,Parity)
astream.Initialize(sp.GetInputStream, sp.GetOutputStream, "astream")