ucomtest.dfm

This program I use to tested serial com and AT Command for testing GPRS for SIM300 GSM module

object Form1: TForm1
  Left = 324
  Top = 102
  Anchors = [akTop, akRight]
  BorderStyle = bsSingle
  Caption = 'COM Test'
  ClientHeight = 583
  ClientWidth = 551
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    551
    583)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Tag = 1
    Left = 8
    Top = 32
    Width = 79
    Height = 13
    Hint = 'Click tulisan ini untuk menghapus'
    Caption = 'Receive Data'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    OnClick = LabelClick
  end
  object Label2: TLabel
    Tag = 2
    Left = 8
    Top = 260
    Width = 80
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Transmit Data'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = LabelClick
  end
  object Label3: TLabel
    Tag = 3
    Left = 8
    Top = 464
    Width = 51
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Message'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = LabelClick
  end
  object ComLed1: TComLed
    Left = 450
    Top = 149
    Width = 17
    Height = 17
    ComPort = ComPort
    LedSignal = lsRx
    Kind = lkGreenLight
    Anchors = [akTop, akRight]
  end
  object ComLed2: TComLed
    Left = 450
    Top = 169
    Width = 17
    Height = 17
    ComPort = ComPort
    LedSignal = lsDSR
    Kind = lkYellowLight
    Anchors = [akTop, akRight]
  end
  object ComLed3: TComLed
    Left = 450
    Top = 189
    Width = 17
    Height = 17
    ComPort = ComPort
    LedSignal = lsCTS
    Kind = lkYellowLight
    Anchors = [akTop, akRight]
  end
  object ComLed4: TComLed
    Left = 450
    Top = 209
    Width = 17
    Height = 17
    ComPort = ComPort
    LedSignal = lsRing
    Kind = lkRedLight
    Anchors = [akTop, akRight]
  end
  object Label4: TLabel
    Left = 474
    Top = 151
    Width = 15
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'RX'
  end
  object Label5: TLabel
    Left = 474
    Top = 171
    Width = 23
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'DSR'
  end
  object Label6: TLabel
    Left = 474
    Top = 191
    Width = 21
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'CTS'
  end
  object Label7: TLabel
    Left = 474
    Top = 211
    Width = 27
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'RING'
  end
  object ComLed7: TComLed
    Left = 450
    Top = 334
    Width = 17
    Height = 17
    ComPort = ComPort
    LedSignal = lsTx
    Kind = lkBlueLight
    Anchors = [akRight, akBottom]
  end
  object Label10: TLabel
    Left = 474
    Top = 336
    Width = 14
    Height = 13
    Anchors = [akRight, akBottom]
    Caption = 'TX'
  end
  object SpeedButton1: TSpeedButton
    Left = 448
    Top = 356
    Width = 97
    Height = 17
    AllowAllUp = True
    Anchors = [akRight, akBottom]
    GroupIndex = 1
    Caption = 'dtr'
    Enabled = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 448
    Top = 372
    Width = 97
    Height = 17
    AllowAllUp = True
    Anchors = [akRight, akBottom]
    GroupIndex = 2
    Caption = 'rts'
    Enabled = False
    OnClick = SpeedButton2Click
  end
  object Label8: TLabel
    Left = 410
    Top = 464
    Width = 22
    Height = 13
    Alignment = taRightJustify
    Anchors = [akRight, akBottom]
    Caption = '160'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 352
    Top = 464
    Width = 55
    Height = 13
    Anchors = [akRight, akBottom]
    Caption = 'Character ='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 448
    Top = 464
    Width = 38
    Height = 13
    Anchors = [akRight, akBottom]
    Caption = 'Address'
  end
  object Label12: TLabel
    Left = 288
    Top = 464
    Width = 32
    Height = 13
    Anchors = [akRight, akBottom]
    Caption = 'SMS ='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label14: TLabel
    Left = 328
    Top = 464
    Width = 8
    Height = 13
    Alignment = taRightJustify
    Anchors = [akRight, akBottom]
    Caption = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object mReceive: TMemo
    Tag = 1
    Left = 8
    Top = 48
    Width = 425
    Height = 201
    Anchors = [akLeft, akTop, akRight, akBottom]
    ScrollBars = ssBoth
    TabOrder = 0
    OnChange = mReceiveChange
  end
  object Memo2: TMemo
    Tag = 2
    Left = 8
    Top = 276
    Width = 425
    Height = 145
    Anchors = [akLeft, akRight, akBottom]
    ScrollBars = ssVertical
    TabOrder = 1
    OnKeyPress = Memo2KeyPress
  end
  object TextMessage: TMemo
    Tag = 3
    Left = 8
    Top = 480
    Width = 425
    Height = 79
    Anchors = [akLeft, akRight, akBottom]
    Color = clMoneyGreen
    TabOrder = 2
    OnChange = TextMessageChange
  end
  object Button2: TButton
    Left = 448
    Top = 534
    Width = 97
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Send SMS'
    Enabled = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 448
    Top = 48
    Width = 97
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'Settings'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 448
    Top = 72
    Width = 97
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'COM Open'
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 448
    Top = 96
    Width = 97
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'COM Close'
    Enabled = False
    TabOrder = 6
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 448
    Top = 396
    Width = 97
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Clear All'
    TabOrder = 7
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 448
    Top = 428
    Width = 97
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Send Data'
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 8
    OnClick = Button7Click
  end
  object cbASCII: TCheckBox
    Left = 448
    Top = 128
    Width = 97
    Height = 17
    Anchors = [akTop, akRight]
    Caption = 'ASCII Display'
    Checked = True
    State = cbChecked
    TabOrder = 9
  end
  object edAddr: TEdit
    Left = 448
    Top = 480
    Width = 97
    Height = 21
    Anchors = [akRight, akBottom]
    Color = clMoneyGreen
    TabOrder = 10
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 564
    Width = 551
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object cbCRLF: TCheckBox
    Left = 368
    Top = 5