xipmain.vb

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

        Me.grpDataControl.Location = New System.Drawing.Point(8, 280)
        Me.grpDataControl.Name = "grpDataControl"
        Me.grpDataControl.Size = New System.Drawing.Size(256, 72)
        Me.grpDataControl.TabIndex = 3
        Me.grpDataControl.TabStop = False
        Me.grpDataControl.Text = "Data control:"
        '
        'chkSynchronize
        '
        Me.chkSynchronize.Checked = True
        Me.chkSynchronize.CheckState = System.Windows.Forms.CheckState.Checked
        Me.chkSynchronize.Location = New System.Drawing.Point(144, 24)
        Me.chkSynchronize.Name = "chkSynchronize"
        Me.chkSynchronize.Size = New System.Drawing.Size(104, 32)
        Me.chkSynchronize.TabIndex = 40
        Me.chkSynchronize.Text = "Automatic Data Synchronization"
        '
        'btnDataLoad
        '
        Me.btnDataLoad.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnDataLoad.Location = New System.Drawing.Point(72, 16)
        Me.btnDataLoad.Name = "btnDataLoad"
        Me.btnDataLoad.Size = New System.Drawing.Size(56, 23)
        Me.btnDataLoad.TabIndex = 31
        Me.btnDataLoad.Text = "Load"
        '
        'btnDataStore
        '
        Me.btnDataStore.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnDataStore.Location = New System.Drawing.Point(72, 40)
        Me.btnDataStore.Name = "btnDataStore"
        Me.btnDataStore.Size = New System.Drawing.Size(56, 23)
        Me.btnDataStore.TabIndex = 35
        Me.btnDataStore.Text = "Store"
        '
        'btnDataImport
        '
        Me.btnDataImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnDataImport.Location = New System.Drawing.Point(8, 40)
        Me.btnDataImport.Name = "btnDataImport"
        Me.btnDataImport.Size = New System.Drawing.Size(56, 23)
        Me.btnDataImport.TabIndex = 34
        Me.btnDataImport.Text = "Import"
        '
        'btnDataExport
        '
        Me.btnDataExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnDataExport.Location = New System.Drawing.Point(8, 16)
        Me.btnDataExport.Name = "btnDataExport"
        Me.btnDataExport.Size = New System.Drawing.Size(56, 23)
        Me.btnDataExport.TabIndex = 30
        Me.btnDataExport.Text = "Export"
        '
        'grpImages
        '
        Me.grpImages.Controls.Add(Me.lstImage)
        Me.grpImages.Controls.Add(Me.lblimgh)
        Me.grpImages.Controls.Add(Me.btnImageReset)
        Me.grpImages.Controls.Add(Me.btnImageSave)
        Me.grpImages.Controls.Add(Me.btnImageChange)
        Me.grpImages.Controls.Add(Me.btnImageRemove)
        Me.grpImages.Controls.Add(Me.btnImageAdd)
        Me.grpImages.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.grpImages.Location = New System.Drawing.Point(8, 8)
        Me.grpImages.Name = "grpImages"
        Me.grpImages.Size = New System.Drawing.Size(256, 144)
        Me.grpImages.TabIndex = 1
        Me.grpImages.TabStop = False
        Me.grpImages.Text = "Image List:"
        '
        'lstImage
        '
        Me.lstImage.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lstImage.Location = New System.Drawing.Point(72, 16)
        Me.lstImage.Name = "lstImage"
        Me.lstImage.Size = New System.Drawing.Size(176, 106)
        Me.lstImage.TabIndex = 15
        '
        'lblimgh
        '
        Me.lblimgh.AutoSize = True
        Me.lblimgh.Location = New System.Drawing.Point(72, 122)
        Me.lblimgh.Name = "lblimgh"
        Me.lblimgh.Size = New System.Drawing.Size(168, 16)
        Me.lblimgh.TabIndex = 16
        Me.lblimgh.Text = "DoubleClick to display the image"
        '
        'btnImageReset
        '
        Me.btnImageReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnImageReset.Location = New System.Drawing.Point(8, 64)
        Me.btnImageReset.Name = "btnImageReset"
        Me.btnImageReset.Size = New System.Drawing.Size(56, 23)
        Me.btnImageReset.TabIndex = 12
        Me.btnImageReset.Text = "Reset"
        '
        'btnImageSave
        '
        Me.btnImageSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnImageSave.Location = New System.Drawing.Point(8, 112)
        Me.btnImageSave.Name = "btnImageSave"
        Me.btnImageSave.Size = New System.Drawing.Size(56, 23)
        Me.btnImageSave.TabIndex = 14
        Me.btnImageSave.Text = "Save"
        '
        'btnImageChange
        '
        Me.btnImageChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnImageChange.Location = New System.Drawing.Point(8, 88)
        Me.btnImageChange.Name = "btnImageChange"
        Me.btnImageChange.Size = New System.Drawing.Size(56, 23)
        Me.btnImageChange.TabIndex = 13
        Me.btnImageChange.Text = "Change"
        '
        'btnImageRemove
        '
        Me.btnImageRemove.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnImageRemove.Location = New System.Drawing.Point(8, 40)
        Me.btnImageRemove.Name = "btnImageRemove"
        Me.btnImageRemove.Size = New System.Drawing.Size(56, 23)
        Me.btnImageRemove.TabIndex = 11
        Me.btnImageRemove.Text = "Remove"
        '
        'btnImageAdd
        '
        Me.btnImageAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnImageAdd.Location = New System.Drawing.Point(8, 16)
        Me.btnImageAdd.Name = "btnImageAdd"
        Me.btnImageAdd.Size = New System.Drawing.Size(56, 23)
        Me.btnImageAdd.TabIndex = 10
        Me.btnImageAdd.Text = "Add"
        '
        'grpProcesses
        '
        Me.grpProcesses.Controls.Add(Me.lblprch)
        Me.grpProcesses.Controls.Add(Me.lstProcess)
        Me.grpProcesses.Controls.Add(Me.btnProcessClear)
        Me.grpProcesses.Controls.Add(Me.btnProcessModify)
        Me.grpProcesses.Controls.Add(Me.btnProcessDelete)
        Me.grpProcesses.Controls.Add(Me.btnProcessNew)
        Me.grpProcesses.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.grpProcesses.Location = New System.Drawing.Point(8, 152)
        Me.grpProcesses.Name = "grpProcesses"
        Me.grpProcesses.Size = New System.Drawing.Size(256, 120)
        Me.grpProcesses.TabIndex = 2
        Me.grpProcesses.TabStop = False
        Me.grpProcesses.Text = "Image Processing:"
        '
        'lblprch
        '
        Me.lblprch.AutoSize = True
        Me.lblprch.Location = New System.Drawing.Point(72, 96)
        Me.lblprch.Name = "lblprch"
        Me.lblprch.Size = New System.Drawing.Size(171, 16)
        Me.lblprch.TabIndex = 25
        Me.lblprch.Text = "DoubleClick to perform a process"
        '
        'lstProcess
        '
        Me.lstProcess.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lstProcess.Location = New System.Drawing.Point(72, 16)
        Me.lstProcess.Name = "lstProcess"
        Me.lstProcess.Size = New System.Drawing.Size(176, 80)
        Me.lstProcess.TabIndex = 24
        '
        'btnProcessClear
        '
        Me.btnProcessClear.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnProcessClear.Location = New System.Drawing.Point(8, 64)
        Me.btnProcessClear.Name = "btnProcessClear"
        Me.btnProcessClear.Size = New System.Drawing.Size(56, 23)
        Me.btnProcessClear.TabIndex = 22
        Me.btnProcessClear.Text = "Clear"
        '
        'btnProcessModify
        '
        Me.btnProcessModify.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnProcessModify.Location = New System.Drawing.Point(8, 88)
        Me.btnProcessModify.Name = "btnProcessModify"
        Me.btnProcessModify.Size = New System.Drawing.Size(56, 23)
        Me.btnProcessModify.TabIndex = 23
        Me.btnProcessModify.Text = "Modify"
        '
        'btnProcessDelete
        '
        Me.btnProcessDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnProcessDelete.Location = New System.Drawing.Point(8, 40)
        Me.btnProcessDelete.Name = "btnProcessDelete"
        Me.btnProcessDelete.Size = New System.Drawing.Size(56, 23)
        Me.btnProcessDelete.TabIndex = 21
        Me.btnProcessDelete.Text = "Delete"
        '
        'btnProcessNew
        '
        Me.btnProcessNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnProcessNew.Location = New System.Drawing.Point(8, 16)
        Me.btnProcessNew.Name = "btnProcessNew"
        Me.btnProcessNew.Size = New System.Drawing.Size(56, 23)
        Me.btnProcessNew.TabIndex = 20
        Me.btnProcessNew.Text = "New"
        '
        'tbpPWM
        '
        Me.tbpPWM.Controls.Add(Me.grpDisplay)
        Me.tbpPWM.Location = New System.Drawing.Point(4, 22)
        Me.tbpPWM.Name = "tbpPWM"
        Me.tbpPWM.Size = New System.Drawing.Size(696, 358)
        Me.tbpPWM.TabIndex = 4
        Me.tbpPWM.Text = "Display"
        '
        'grpDisplay
        '
        Me.grpDisplay.Controls.Add(Me.cboResolution)
        Me.grpDisplay.Controls.Add(Me.Label4)
        Me.grpDisplay.Controls.Add(Me.Label3)
        Me.grpDisplay.Controls.Add(Me.Label2)
        Me.grpDisplay.Controls.Add(Me.chkCountRefresh)
        Me.grpDisplay.Controls.Add(Me.lblPWM)
        Me.grpDisplay.Controls.Add(Me.cboPWM)
        Me.grpDisplay.Controls.Add(Me.txtRefresh)
        Me.grpDisplay.Controls.Add(Me.Label1)
        Me.grpDisplay.Controls.Add(Me.txtPWMinfo)
        Me.grpDisplay.Controls.Add(Me.lblRefreshtxt)
        Me.grpDisplay.Controls.Add(Me.btnNextRefresh)
        Me.grpDisplay.Controls.Add(Me.btnPrevRefresh)
        Me.grpDisplay.Controls.Add(Me.grpPulseTiming)
        Me.grpDisplay.Controls.Add(Me.btnSendPWM)
        Me.grpDisplay.Controls.Add(Me.btnBestLook160ns)
        Me.grpDisplay.Controls.Add(Me.btnBestLook80ns)
        Me.grpDisplay.Controls.Add(Me.btnSynchronized)
        Me.grpDisplay.Controls.Add(Me.cboVerticalDelay)
        Me.grpDisplay.Controls.Add(Me.cboHorizontalDelay)
        Me.grpDisplay.Controls.Add(Me.lblVerticalDelay)
        Me.grpDisplay.Controls.Add(Me.lblHorizontalDelay)
        Me.grpDisplay.Location = New System.Drawing.Point(8, 8)
        Me.grpDisplay.Name = "grpDisplay"
        Me.grpDisplay.Size = New System.Drawing.Size(680, 344)
        Me.grpDisplay.TabIndex = 3
        Me.grpDisplay.TabStop = False
        Me.grpDisplay.Text = "Display options:"
        '
        'cboResolution
        '
        Me.cboResolution.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboResolution.Items.AddRange(New Object() {"320x240 , 24 bits, Image Porcessing", "640x480 , 16 bits, 6:6:4 (RGB)", "640x480 , 16 bits, 5:6:5 (RGB)"})
        Me.cboResolution.Location = New System.Drawing.Point(80, 32)
        Me.cboResolution.Name = "cboResolution"
        Me.cboResolution.Size = New System.Drawing.Size(224, 21)
        Me.cboResolution.TabIndex = 32
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 32)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 16)
        Me.Label4.TabIndex = 28
        Me.Label4.Text = "Resolution:"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 304)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(48, 23)
        Me.Label3.TabIndex = 27
        Me.Label3.Text = "* Note: "
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(64, 304)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(248, 32)
        Me.Label2.TabIndex = 26
        Me.Label2.Text = "The Pulse Timing covers an area of 2x8 pixels of the display in resolution 320x24" & _
        "0. "
        '
        'chkCountRefresh
        '
        Me.chkCountRefresh.Checked = True
        Me.chkCountRefresh.CheckState = System.Windows.Forms.CheckState.Checked
        Me.chkCountRefresh.Location = New System.Drawing.Point(456, 15)
        Me.chkCountRefresh.Name = "chkCountRefresh"
        Me.chkCountRefresh.Size = New System.Drawing.Size(56, 24)
        Me.chkCountRefresh.TabIndex = 25
        Me.chkCountRefresh.Text = "Count"
        '
        'lblPWM
        '
        Me.lblPWM.Location = New System.Drawing.Point(112, 138)
        Me.lblPWM.Name = "lblPWM"
        Me.lblPWM.Size = New System.Drawing.Size(120, 16)
        Me.lblPWM.TabIndex = 24
        Me.lblPWM.Text = "Pulse width modulator:"
        '
        'cboPWM
        '