Guidance
指路人
g.yi.org
software / RapidQ / Examples / Devices / Sound Card / sbbas / SBFORM.BAS

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
     CREATE Form AS QFORM
      CAPTION = "Osciloscope"
      BorderStyle = 6
      Width = 305
      Height = 260
      Icon = "Sinus.ico"
      Center
      CREATE ListBox1 AS QLISTBOX
       Enabled = False
       Left = 4
       Top = 3
       Width = 227
       Height = 164
      END CREATE
      CREATE ScrollBar1 AS QSCROLLBAR
       Left = 4
       Top = 168
       Width = 227
       Height = 13
       Visible = False
      END CREATE
      CREATE ScrollBar2 AS QSCROLLBAR
       Left = 280
       Top = 107
       Min = 0
       Max = 15
       Width = 60
       Height = 13
       Kind = sbVertical
      END CREATE
    'CREATE ScrollBar3 AS QSCROLLBAR
    '    Left = 263
    '    Top = 100
    '    Min = 0
    '    Max = 15
    '    Width = 60
    '    Height = 13
    '    Kind = sbVertical
    'END CREATE
      CREATE Button1 AS QBUTTON
       CAPTION = "Scan"
       Left = 236
       Top = 3
       Width = 59
       Height = 28
      END CREATE
      CREATE Button2 AS QBUTTON
       CAPTION = "Record"
       Left = 236
       Top = 33
       Width = 59
       Height = 28
      END CREATE
      CREATE Button3 AS QBUTTON
       CAPTION = "Stop"
       Left = 236
       Top = 63
       Width = 59
       Height = 28
       Enabled = FALSE
      END CREATE
    'CREATE Edit1 AS QEDIT
    '    Text = ""
    '    Left = 3
    '    Top = 239
    '    Width = 294
    '    Height = 20
    '    Enabled = False
    'END CREATE
      CREATE Edit2 AS QEDIT
       Text = ""
       Left = 247
       Top = 209
       Width = 50
       Height = 20
       Enabled = False
      END CREATE
      CREATE ComboBox1 AS QCOMBOBOX
       Left = 56
       Top = 187
       Width = 68
       TabOrder = 1
       Text = "Red"
       AddItems "Red", "Green", "Blue"
      END CREATE
      CREATE ComboBox2 AS QCOMBOBOX
       Left = 56
       Top = 209
       Width = 68
       TabOrder = 2
       Text = "2X"
       AddItems "1X", "2X", "3X"
      END CREATE
     END CREATE


掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2024-4-18  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:53:03