123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386 |
- object fMicrobit: TfMicrobit
- Left = 1211
- Height = 259
- Top = 119
- Width = 297
- BorderIcons = []
- BorderStyle = bsToolWindow
- Caption = 'micro:bit Input Output'
- ClientHeight = 259
- ClientWidth = 297
- FormStyle = fsStayOnTop
- OnActivate = FormActivate
- LCLVersion = '2.0.12.0'
- object GroupBox1: TGroupBox
- Left = 8
- Height = 104
- Top = 8
- Width = 104
- Caption = 'Display'
- ClientHeight = 84
- ClientWidth = 100
- TabOrder = 0
- object Shape1: TShape
- Left = 8
- Height = 15
- Top = 0
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape2: TShape
- Left = 24
- Height = 15
- Top = 0
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape3: TShape
- Left = 40
- Height = 15
- Top = 0
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape4: TShape
- Left = 56
- Height = 15
- Top = 0
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape5: TShape
- Left = 72
- Height = 15
- Top = 0
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape6: TShape
- Left = 8
- Height = 15
- Top = 16
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape7: TShape
- Left = 24
- Height = 15
- Top = 16
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape8: TShape
- Left = 40
- Height = 15
- Top = 16
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape9: TShape
- Left = 56
- Height = 15
- Top = 16
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape10: TShape
- Left = 72
- Height = 15
- Top = 16
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape11: TShape
- Left = 8
- Height = 15
- Top = 32
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape12: TShape
- Left = 24
- Height = 15
- Top = 32
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape13: TShape
- Left = 40
- Height = 15
- Top = 32
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape14: TShape
- Left = 56
- Height = 15
- Top = 32
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape15: TShape
- Left = 72
- Height = 15
- Top = 32
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape16: TShape
- Left = 8
- Height = 15
- Top = 48
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape17: TShape
- Left = 24
- Height = 15
- Top = 48
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape18: TShape
- Left = 40
- Height = 15
- Top = 48
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape19: TShape
- Left = 56
- Height = 15
- Top = 48
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape20: TShape
- Left = 72
- Height = 15
- Top = 48
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape21: TShape
- Left = 8
- Height = 15
- Top = 64
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape22: TShape
- Left = 24
- Height = 15
- Top = 64
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape23: TShape
- Left = 40
- Height = 15
- Top = 64
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape24: TShape
- Left = 56
- Height = 15
- Top = 64
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- object Shape25: TShape
- Left = 72
- Height = 15
- Top = 64
- Width = 17
- Brush.Color = clRed
- Shape = stRoundRect
- end
- end
- object GBInput: TGroupBox
- Left = 120
- Height = 248
- Top = 8
- Width = 172
- Caption = 'Input'
- ClientHeight = 228
- ClientWidth = 168
- ParentFont = False
- TabOrder = 1
- object accx: TSpinEdit
- Left = 62
- Height = 23
- Top = 24
- Width = 54
- MaxValue = 255
- ParentFont = False
- TabOrder = 0
- end
- object accy: TSpinEdit
- Left = 62
- Height = 23
- Top = 52
- Width = 54
- MaxValue = 255
- ParentFont = False
- TabOrder = 1
- end
- object Label1: TLabel
- Left = 14
- Height = 15
- Top = 31
- Width = 34
- Caption = 'ACC.X'
- ParentColor = False
- ParentFont = False
- end
- object Label2: TLabel
- Left = 14
- Height = 15
- Top = 58
- Width = 34
- Caption = 'ACC.Y'
- ParentColor = False
- ParentFont = False
- end
- object accz: TSpinEdit
- Left = 62
- Height = 23
- Top = 81
- Width = 54
- MaxValue = 255
- ParentFont = False
- TabOrder = 2
- end
- object compass: TSpinEdit
- Left = 62
- Height = 23
- Top = 109
- Width = 54
- MaxValue = 255
- ParentFont = False
- TabOrder = 3
- end
- object Label16: TLabel
- Left = 14
- Height = 15
- Top = 87
- Width = 34
- Caption = 'ACC.Z'
- ParentColor = False
- ParentFont = False
- end
- object Label17: TLabel
- Left = 14
- Height = 15
- Top = 115
- Width = 49
- Caption = 'Compass'
- ParentColor = False
- ParentFont = False
- end
- object tbLogo: TToggleBox
- Left = 14
- Height = 18
- Top = 1
- Width = 50
- Caption = '&LOGO'
- ParentFont = False
- TabOrder = 4
- end
- object Label3: TLabel
- Left = 14
- Height = 15
- Top = 143
- Width = 34
- Caption = 'Sound'
- ParentColor = False
- ParentFont = False
- end
- object snd: TSpinEdit
- Left = 62
- Height = 23
- Top = 136
- Width = 54
- MaxValue = 255
- ParentFont = False
- TabOrder = 5
- end
- object Label4: TLabel
- Left = 14
- Height = 15
- Top = 170
- Width = 27
- Caption = 'Light'
- ParentColor = False
- ParentFont = False
- end
- object light: TSpinEdit
- Left = 62
- Height = 23
- Top = 164
- Width = 54
- MaxValue = 255
- ParentFont = False
- TabOrder = 6
- end
- object Label18: TLabel
- Left = 14
- Height = 15
- Top = 199
- Width = 40
- Caption = 'Gesture'
- ParentColor = False
- ParentFont = False
- end
- object cbGesture: TComboBox
- Left = 64
- Height = 23
- Top = 194
- Width = 68
- ItemHeight = 15
- ItemIndex = 0
- Items.Strings = (
- 'nothing '
- 'up'
- 'down'
- 'left'
- 'right'
- 'face up'
- 'face down'
- 'freefall'
- '3g'
- '6g '
- '8g'
- 'shake'
- )
- Style = csDropDownList
- TabOrder = 7
- Text = 'nothing '
- end
- end
- end
|