xipmain.vb

这个是国外大学的项目代码

        Me.cboPWM.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboPWM.Items.AddRange(New Object() {"0. ~12bits  MD", "1. 12bits EQ  ", "2. ~12bits HI", "3. ~12bits LO", "4. 15bits MD", "5. 15bits EQ", "6. 15bits VP", "7. 12bits VP"})
        Me.cboPWM.Location = New System.Drawing.Point(232, 136)
        Me.cboPWM.Name = "cboPWM"
        Me.cboPWM.Size = New System.Drawing.Size(72, 21)
        Me.cboPWM.TabIndex = 23
        '
        'txtRefresh
        '
        Me.txtRefresh.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtRefresh.Location = New System.Drawing.Point(608, 17)
        Me.txtRefresh.Name = "txtRefresh"
        Me.txtRefresh.ReadOnly = True
        Me.txtRefresh.Size = New System.Drawing.Size(32, 20)
        Me.txtRefresh.TabIndex = 22
        Me.txtRefresh.Text = "0"
        Me.txtRefresh.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(16, 64)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(118, 16)
        Me.Label1.TabIndex = 21
        Me.Label1.Text = "Display configurations:"
        '
        'txtPWMinfo
        '
        Me.txtPWMinfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtPWMinfo.Location = New System.Drawing.Point(16, 168)
        Me.txtPWMinfo.Multiline = True
        Me.txtPWMinfo.Name = "txtPWMinfo"
        Me.txtPWMinfo.ReadOnly = True
        Me.txtPWMinfo.Size = New System.Drawing.Size(288, 64)
        Me.txtPWMinfo.TabIndex = 16
        Me.txtPWMinfo.Text = ""
        '
        'lblRefreshtxt
        '
        Me.lblRefreshtxt.AutoSize = True
        Me.lblRefreshtxt.Location = New System.Drawing.Point(528, 19)
        Me.lblRefreshtxt.Name = "lblRefreshtxt"
        Me.lblRefreshtxt.Size = New System.Drawing.Size(76, 16)
        Me.lblRefreshtxt.TabIndex = 14
        Me.lblRefreshtxt.Text = "Refresh cycle:"
        '
        'btnNextRefresh
        '
        Me.btnNextRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnNextRefresh.Location = New System.Drawing.Point(408, 16)
        Me.btnNextRefresh.Name = "btnNextRefresh"
        Me.btnNextRefresh.Size = New System.Drawing.Size(32, 23)
        Me.btnNextRefresh.TabIndex = 13
        Me.btnNextRefresh.Text = ">"
        '
        'btnPrevRefresh
        '
        Me.btnPrevRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnPrevRefresh.Location = New System.Drawing.Point(368, 16)
        Me.btnPrevRefresh.Name = "btnPrevRefresh"
        Me.btnPrevRefresh.Size = New System.Drawing.Size(32, 23)
        Me.btnPrevRefresh.TabIndex = 12
        Me.btnPrevRefresh.Text = "<"
        '
        'grpPulseTiming
        '
        Me.grpPulseTiming.Controls.Add(Me.txtR15)
        Me.grpPulseTiming.Controls.Add(Me.txtR14)
        Me.grpPulseTiming.Controls.Add(Me.txtR13)
        Me.grpPulseTiming.Controls.Add(Me.txtR12)
        Me.grpPulseTiming.Controls.Add(Me.txtR11)
        Me.grpPulseTiming.Controls.Add(Me.txtR10)
        Me.grpPulseTiming.Controls.Add(Me.txtR09)
        Me.grpPulseTiming.Controls.Add(Me.txtR08)
        Me.grpPulseTiming.Controls.Add(Me.txtR07)
        Me.grpPulseTiming.Controls.Add(Me.txtR06)
        Me.grpPulseTiming.Controls.Add(Me.txtR05)
        Me.grpPulseTiming.Controls.Add(Me.txtR04)
        Me.grpPulseTiming.Controls.Add(Me.txtR03)
        Me.grpPulseTiming.Controls.Add(Me.txtR02)
        Me.grpPulseTiming.Controls.Add(Me.txtR01)
        Me.grpPulseTiming.Controls.Add(Me.txtR00)
        Me.grpPulseTiming.Location = New System.Drawing.Point(328, 48)
        Me.grpPulseTiming.Name = "grpPulseTiming"
        Me.grpPulseTiming.Size = New System.Drawing.Size(344, 288)
        Me.grpPulseTiming.TabIndex = 11
        Me.grpPulseTiming.TabStop = False
        Me.grpPulseTiming.Text = "Pulse Timing *"
        '
        'txtR15
        '
        Me.txtR15.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR15.Location = New System.Drawing.Point(24, 264)
        Me.txtR15.Name = "txtR15"
        Me.txtR15.ReadOnly = True
        Me.txtR15.Size = New System.Drawing.Size(304, 13)
        Me.txtR15.TabIndex = 15
        Me.txtR15.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR14
        '
        Me.txtR14.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR14.Location = New System.Drawing.Point(24, 248)
        Me.txtR14.Name = "txtR14"
        Me.txtR14.ReadOnly = True
        Me.txtR14.Size = New System.Drawing.Size(304, 13)
        Me.txtR14.TabIndex = 14
        Me.txtR14.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR13
        '
        Me.txtR13.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR13.Location = New System.Drawing.Point(24, 232)
        Me.txtR13.Name = "txtR13"
        Me.txtR13.ReadOnly = True
        Me.txtR13.Size = New System.Drawing.Size(304, 13)
        Me.txtR13.TabIndex = 13
        Me.txtR13.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR12
        '
        Me.txtR12.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR12.Location = New System.Drawing.Point(24, 216)
        Me.txtR12.Name = "txtR12"
        Me.txtR12.ReadOnly = True
        Me.txtR12.Size = New System.Drawing.Size(304, 13)
        Me.txtR12.TabIndex = 12
        Me.txtR12.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR11
        '
        Me.txtR11.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR11.Location = New System.Drawing.Point(24, 200)
        Me.txtR11.Name = "txtR11"
        Me.txtR11.ReadOnly = True
        Me.txtR11.Size = New System.Drawing.Size(304, 13)
        Me.txtR11.TabIndex = 11
        Me.txtR11.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR10
        '
        Me.txtR10.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR10.Location = New System.Drawing.Point(24, 184)
        Me.txtR10.Name = "txtR10"
        Me.txtR10.ReadOnly = True
        Me.txtR10.Size = New System.Drawing.Size(304, 13)
        Me.txtR10.TabIndex = 10
        Me.txtR10.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR09
        '
        Me.txtR09.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR09.Location = New System.Drawing.Point(24, 168)
        Me.txtR09.Name = "txtR09"
        Me.txtR09.ReadOnly = True
        Me.txtR09.Size = New System.Drawing.Size(304, 13)
        Me.txtR09.TabIndex = 9
        Me.txtR09.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR08
        '
        Me.txtR08.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR08.Location = New System.Drawing.Point(24, 152)
        Me.txtR08.Name = "txtR08"
        Me.txtR08.ReadOnly = True
        Me.txtR08.Size = New System.Drawing.Size(304, 13)
        Me.txtR08.TabIndex = 8
        Me.txtR08.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR07
        '
        Me.txtR07.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR07.Location = New System.Drawing.Point(24, 136)
        Me.txtR07.Name = "txtR07"
        Me.txtR07.ReadOnly = True
        Me.txtR07.Size = New System.Drawing.Size(304, 13)
        Me.txtR07.TabIndex = 7
        Me.txtR07.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR06
        '
        Me.txtR06.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR06.Location = New System.Drawing.Point(24, 120)
        Me.txtR06.Name = "txtR06"
        Me.txtR06.ReadOnly = True
        Me.txtR06.Size = New System.Drawing.Size(304, 13)
        Me.txtR06.TabIndex = 6
        Me.txtR06.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR05
        '
        Me.txtR05.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR05.Location = New System.Drawing.Point(24, 104)
        Me.txtR05.Name = "txtR05"
        Me.txtR05.ReadOnly = True
        Me.txtR05.Size = New System.Drawing.Size(304, 13)
        Me.txtR05.TabIndex = 5
        Me.txtR05.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR04
        '
        Me.txtR04.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR04.Location = New System.Drawing.Point(24, 88)
        Me.txtR04.Name = "txtR04"
        Me.txtR04.ReadOnly = True
        Me.txtR04.Size = New System.Drawing.Size(304, 13)
        Me.txtR04.TabIndex = 4
        Me.txtR04.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR03
        '
        Me.txtR03.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR03.Location = New System.Drawing.Point(24, 72)
        Me.txtR03.Name = "txtR03"
        Me.txtR03.ReadOnly = True
        Me.txtR03.Size = New System.Drawing.Size(304, 13)
        Me.txtR03.TabIndex = 3
        Me.txtR03.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR02
        '
        Me.txtR02.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR02.Location = New System.Drawing.Point(24, 56)
        Me.txtR02.Name = "txtR02"
        Me.txtR02.ReadOnly = True
        Me.txtR02.Size = New System.Drawing.Size(304, 13)
        Me.txtR02.TabIndex = 2
        Me.txtR02.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR01
        '
        Me.txtR01.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR01.Location = New System.Drawing.Point(24, 40)
        Me.txtR01.Name = "txtR01"
        Me.txtR01.ReadOnly = True
        Me.txtR01.Size = New System.Drawing.Size(304, 13)
        Me.txtR01.TabIndex = 1
        Me.txtR01.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'txtR00
        '
        Me.txtR00.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtR00.Location = New System.Drawing.Point(24, 24)
        Me.txtR00.Name = "txtR00"
        Me.txtR00.ReadOnly = True
        Me.txtR00.Size = New System.Drawing.Size(304, 13)
        Me.txtR00.TabIndex = 0
        Me.txtR00.Text = " X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ X _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
        '
        'btnSendPWM
        '
        Me.btnSendPWM.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSendPWM.Location = New System.Drawing.Point(16, 136)
        Me.btnSendPWM.Name = "btnSendPWM"
        Me.btnSendPWM.Size = New System.Drawing.Size(88, 24)
        Me.btnSendPWM.TabIndex = 10
        Me.btnSendPWM.Text = "Send Settings"
        '
        'btnBestLook160ns
        '
        Me.btnBestLook160ns.AccessibleRole = System.Windows.Forms.AccessibleRole.None
        Me.btnBestLook160ns.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnBestLook160ns.Location = New System.Drawing.Point(120, 88)
        Me.btnBestLook160ns.Name = "btnBestLook160ns"
        Me.btnBestLook160ns.Size = New System.Drawing.Size(88, 24)
        Me.btnBestLook160ns.TabIndex = 9
        Me.btnBestLook160ns.Text = "15 bit colors"
        '
        'btnBestLook80ns
        '
        Me.btnBestLook80ns.AccessibleRole = System.Windows.Forms.AccessibleRole.None
        Me.btnBestLook80ns.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnBestLook80ns.Location = New System.Drawing.Point(16, 88)
        Me.btnBestLook80ns.Name = "btnBestLook80ns"
        Me.btnBestLook80ns.Size = New System.Drawing.Size(96, 23)
        Me.btnBestLook80ns.TabIndex = 8
        Me.btnBestLook80ns.Text = "12 bit colors"
        '
        'btnSynchronized
        '
        Me.btnSynchronized.AccessibleRole = System.Windows.Forms.AccessibleRole.None
        Me.btnSynchronized.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSynchronized.Location = New System.Drawing.Point(216, 88)
        Me.btnSynchronized.Name = "btnSynchronized"
        Me.btnSynchronized.Size = New System.Drawing.Size(88, 23)
        Me.btnSynchronized.TabIndex = 7
        Me.btnSynchronized.Text = "Synchronized"
        '
        'cboVerticalDelay
        '
        Me.cboVerticalDelay.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboVerticalDelay.Items.AddRange(New Object() {"0 ns (no delay)", "20 ns (quarter pixel)", "40 ns (half pixel)", "60 ns (3/4 pixel)", "80 ns (one pixel length)", "100 ns", "120 ns", "140 ns", "160 ns (one pixel display length)", "180 ns", "200 ns", "220 ns", "240 ns", "260 ns", "280 ns", "300 ns"})
        Me.cboVerticalDelay.Location = New System.Drawing.Point(176, 264)
        Me.cboVerticalDelay.Name = "cboVerticalDelay"