# Gambas Form File 3.0 { Form Form MoveScaled(34,23.4286,83,60) Text = ("Client socket example ") Icon = Picture["socket.png"] Resizable = False { btnConnect Button MoveScaled(64,7,17,4) Text = ("Connect") } { txtReceive TextArea MoveScaled(1,44,81,15) ReadOnly = True } { btnClose Button MoveScaled(64,12,17,4) Enabled = False Text = ("Close") } { txtHost TextBox MoveScaled(14,7,49,4) Text = ("localhost") } { Label1 Label MoveScaled(1,7,12,4) Text = ("Host :") } { Label2 Label MoveScaled(1,12,12,4) Text = ("Port :") } { txtPort TextBox MoveScaled(14,12,49,4) Text = ("32340") } { txtSend TextArea MoveScaled(1,27,81,6) Enabled = False } { btnSend Button MoveScaled(13,34,23,4) Enabled = False Text = ("Send Data") } { Label4 Label MoveScaled(1,24,81,3) Text = ("Write here data to send, then press \"Send Data\"") } { Label5 Label MoveScaled(1,1,17,4) Text = ("Select protocol :") } { cmbProtocol ComboBox MoveScaled(19,1,63,4) ReadOnly = True List = [("TCP"), ("UNIX")] } { lblMessage TextLabel MoveScaled(1,17,81,6) Font = Font["Bold"] Alignment = Align.Center Border = Border.Sunken } { timTimeout #Timer #MoveScaled(26,47) } { Label3 Label MoveScaled(1,40,81,4) Text = ("Data Received :") } { MySocket #Socket #MoveScaled(38,35) } }