75 lines
1.4 KiB
Text
75 lines
1.4 KiB
Text
# 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)
|
|
}
|
|
}
|