frmmain.form

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

# Gambas Form File 1.0

{ FrmMain Form
  Move(272,190,389,456)
  Text = ("Client socket example ")
  Border = Window.Fixed
  { Button1 Button
    Move(248,56,136,24)
    Text = ("Connect")
  }
  { TextArea1 TextArea
    Move(8,328,376,120)
    Text = ("")
    ReadOnly = True
  }
  { Timer1 #Timer
    #X = 320
    #Y = 128
    Delay = 10
  }
  { Button2 Button
    Move(248,80,136,24)
    Enabled = False
    Text = ("Close")
  }
  { TextBox1 TextBox
    Move(88,56,144,24)
    Text = ("localhost")
  }
  { Label1 Label
    Move(8,56,72,24)
    Text = ("Host :")
  }
  { Label2 Label
    Move(8,80,72,24)
    Text = ("Port :")
  }
  { TextBox2 TextBox
    Move(88,80,144,24)
    Text = ("7")
  }
  { TextLabel1 TextLabel
    Move(8,296,376,24)
    Text = ("Data Received :")
  }
  { TextArea2 TextArea
    Move(8,192,376,48)
    Enabled = False
    Text = ("")
  }
  { Button3 Button
    Move(104,248,184,32)
    Enabled = False
    Text = ("Send Data")
  }
  { Label3 Label
    Move(8,112,376,48)
    Font = Font["Bold"]
    Background = &H190E93&
    Foreground = &HDEEB27&
    Text = ("")
    Alignment = Align.Center
  }
  { Label4 Label
    Move(8,168,376,16)
    Text = ("Write here data to send, then press \"Send Data\"")
  }
  { Label5 Label
    Move(8,8,136,24)
    Text = ("Select protocol :")
  }
  { CmbProtocol ComboBox
    Move(160,8,152,16)
    Text = (" ")
    ReadOnly = True
    List = ("TCP\nUNIX")
  }
  { MySock #Socket
    #X = 312
    #Y = 248
    Port = 7
  }
}