fserialport.form

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

# Gambas Form File 1.0

{ FSerialPort Form
  Move(420,87,413,479)
  Text = ("Serial Port")
  Border = Window.Fixed
  { TextLabel1 TextLabel
    Move(8,16,168,24)
    Text = ("Port Name :")
  }
  { TxtPort TextBox
    Move(184,16,120,24)
    Text = ("/dev/ttyS0")
  }
  { TextLabel2 TextLabel
    Move(8,48,168,24)
    Text = ("Speed :")
  }
  { CmbSpeed ComboBox
    Move(184,48,120,8)
    Text = ("")
    ReadOnly = True
    List = ("1200\n2400\n9600\n19200\n38400")
  }
  { TextLabel3 TextLabel
    Move(8,80,168,24)
    Text = ("Parity :")
  }
  { TextLabel4 TextLabel
    Move(8,112,168,24)
    Text = ("Data Bits :")
  }
  { TextLabel5 TextLabel
    Move(8,144,168,24)
    Text = ("Stop Bits :")
  }
  { CmbParity ComboBox
    Move(184,80,120,8)
    Text = ("")
    ReadOnly = True
    List = ("None\nEven\nOdd")
  }
  { CmbData ComboBox
    Move(184,112,120,8)
    Text = ("")
    ReadOnly = True
    List = ("8\n7\n6\n5")
  }
  { CmbStop ComboBox
    Move(184,144,120,8)
    Text = ("")
    ReadOnly = True
    List = ("1\n2")
  }
  { Button1 Button
    Move(176,176,128,24)
    Text = ("Open")
  }
  { TxtSend TextBox
    Move(8,304,344,24)
    Text = ("")
  }
  { TextLabel6 TextLabel
    Move(8,272,400,24)
    Foreground = &H030303&
    Text = ("Write data then press \"CR\"")
    Alignment = Align.Center
  }
  { Button2 Button
    Move(360,304,48,24)
    Text = ("CR")
  }
  { TextArea1 TextArea
    Move(8,336,400,136)
    Text = ("")
  }
  { ChkDSR CheckBox
    Move(312,112,88,24)
    Text = ("DSR")
  }
  { ChkDTR CheckBox
    Move(312,16,88,24)
    Text = ("DTR")
  }
  { ChkRTS CheckBox
    Move(312,40,88,24)
    Text = ("RTS")
  }
  { ChkCTS CheckBox
    Move(312,64,88,24)
    Text = ("CTS")
  }
  { ChkDCD CheckBox
    Move(312,88,88,24)
    Text = ("DCD")
  }
  { ChkRNG CheckBox
    Move(312,136,88,24)
    Text = ("RNG")
  }
  { Label1 Label
    Move(8,216,120,24)
    Text = ("Flow control :")
  }
  { ComboBox1 ComboBox
    Move(144,216,160,16)
    Text = (" ")
    ReadOnly = True
    List = ("NONE\nCRTSCTS\nXON/XOFF\nCRTSCTS + XON/XOFF")
  }
  { SPort #SerialPort
    #X = 320
    #Y = 184
  }
}