Changeset 496 in cmucam


Ignore:
Timestamp:
02/27/07 15:30:16 (5 years ago)
Author:
anthony_rowe
Message:

Frame Grabber GUI update

Location:
trunk/tools/cc3_image_viewer
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/cc3_image_viewer/Form1.Designer.vb

    r244 r496  
    4747        Me.Label1 = New System.Windows.Forms.Label 
    4848        Me.TabPage2 = New System.Windows.Forms.TabPage 
     49        Me.ServoPanel = New System.Windows.Forms.Panel 
     50        Me.TrackBar4 = New System.Windows.Forms.TrackBar 
     51        Me.TrackBar3 = New System.Windows.Forms.TrackBar 
     52        Me.TrackBar2 = New System.Windows.Forms.TrackBar 
     53        Me.Label18 = New System.Windows.Forms.Label 
     54        Me.servo3_textbox = New System.Windows.Forms.TextBox 
     55        Me.servo2_textbox = New System.Windows.Forms.TextBox 
     56        Me.servo1_textbox = New System.Windows.Forms.TextBox 
     57        Me.servo0_textbox = New System.Windows.Forms.TextBox 
     58        Me.Label17 = New System.Windows.Forms.Label 
     59        Me.Label16 = New System.Windows.Forms.Label 
     60        Me.Label15 = New System.Windows.Forms.Label 
     61        Me.Label14 = New System.Windows.Forms.Label 
     62        Me.TrackBar1 = New System.Windows.Forms.TrackBar 
    4963        Me.configPanel = New System.Windows.Forms.Panel 
     64        Me.Label13 = New System.Windows.Forms.Label 
     65        Me.Label12 = New System.Windows.Forms.Label 
     66        Me.Label11 = New System.Windows.Forms.Label 
     67        Me.Label10 = New System.Windows.Forms.Label 
     68        Me.Y1_textbox = New System.Windows.Forms.MaskedTextBox 
     69        Me.X1_textbox = New System.Windows.Forms.MaskedTextBox 
     70        Me.Y0_textbox = New System.Windows.Forms.MaskedTextBox 
     71        Me.X0_textbox = New System.Windows.Forms.MaskedTextBox 
     72        Me.Label9 = New System.Windows.Forms.Label 
     73        Me.vwSet = New System.Windows.Forms.Button 
     74        Me.dsSetButton = New System.Windows.Forms.Button 
     75        Me.Label8 = New System.Windows.Forms.Label 
     76        Me.Label7 = New System.Windows.Forms.Label 
     77        Me.dsY = New System.Windows.Forms.NumericUpDown 
    5078        Me.Label6 = New System.Windows.Forms.Label 
    5179        Me.dsX = New System.Windows.Forms.NumericUpDown 
    … …  
    5684        Me.RGBRadio = New System.Windows.Forms.RadioButton 
    5785        Me.YCrCbButton = New System.Windows.Forms.RadioButton 
    58         Me.dsY = New System.Windows.Forms.NumericUpDown 
    59         Me.Label7 = New System.Windows.Forms.Label 
    60         Me.Label8 = New System.Windows.Forms.Label 
    61         Me.dsSetButton = New System.Windows.Forms.Button 
    62         Me.vwSet = New System.Windows.Forms.Button 
    63         Me.Label9 = New System.Windows.Forms.Label 
    64         Me.MaskedTextBox1 = New System.Windows.Forms.MaskedTextBox 
    65         Me.MaskedTextBox2 = New System.Windows.Forms.MaskedTextBox 
    66         Me.MaskedTextBox3 = New System.Windows.Forms.MaskedTextBox 
    67         Me.MaskedTextBox4 = New System.Windows.Forms.MaskedTextBox 
    68         Me.Label10 = New System.Windows.Forms.Label 
    69         Me.Label11 = New System.Windows.Forms.Label 
    70         Me.Label12 = New System.Windows.Forms.Label 
    71         Me.Label13 = New System.Windows.Forms.Label 
    72         Me.TrackBar1 = New System.Windows.Forms.TrackBar 
    73         Me.ServoPanel = New System.Windows.Forms.Panel 
    74         Me.Label14 = New System.Windows.Forms.Label 
    75         Me.Label15 = New System.Windows.Forms.Label 
    76         Me.Label16 = New System.Windows.Forms.Label 
    77         Me.Label17 = New System.Windows.Forms.Label 
    78         Me.TextBox1 = New System.Windows.Forms.TextBox 
    79         Me.TextBox2 = New System.Windows.Forms.TextBox 
    80         Me.TextBox3 = New System.Windows.Forms.TextBox 
    81         Me.TextBox4 = New System.Windows.Forms.TextBox 
    82         Me.Label18 = New System.Windows.Forms.Label 
    83         Me.TrackBar2 = New System.Windows.Forms.TrackBar 
    84         Me.TrackBar3 = New System.Windows.Forms.TrackBar 
    85         Me.TrackBar4 = New System.Windows.Forms.TrackBar 
    8686        Me.TabControl1.SuspendLayout() 
    8787        Me.TabPage1.SuspendLayout() 
    … …  
    8989        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() 
    9090        Me.TabPage2.SuspendLayout() 
     91        Me.ServoPanel.SuspendLayout() 
     92        CType(Me.TrackBar4, System.ComponentModel.ISupportInitialize).BeginInit() 
     93        CType(Me.TrackBar3, System.ComponentModel.ISupportInitialize).BeginInit() 
     94        CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() 
     95        CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() 
    9196        Me.configPanel.SuspendLayout() 
     97        CType(Me.dsY, System.ComponentModel.ISupportInitialize).BeginInit() 
    9298        CType(Me.dsX, System.ComponentModel.ISupportInitialize).BeginInit() 
    9399        Me.Panel1.SuspendLayout() 
    94100        Me.Panel2.SuspendLayout() 
    95         CType(Me.dsY, System.ComponentModel.ISupportInitialize).BeginInit() 
    96         CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() 
    97         Me.ServoPanel.SuspendLayout() 
    98         CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() 
    99         CType(Me.TrackBar3, System.ComponentModel.ISupportInitialize).BeginInit() 
    100         CType(Me.TrackBar4, System.ComponentModel.ISupportInitialize).BeginInit() 
    101101        Me.SuspendLayout() 
    102102        ' 
    … …  
    364364        Me.TabPage2.UseVisualStyleBackColor = True 
    365365        ' 
     366        'ServoPanel 
     367        ' 
     368        Me.ServoPanel.Controls.Add(Me.TrackBar4) 
     369        Me.ServoPanel.Controls.Add(Me.TrackBar3) 
     370        Me.ServoPanel.Controls.Add(Me.TrackBar2) 
     371        Me.ServoPanel.Controls.Add(Me.Label18) 
     372        Me.ServoPanel.Controls.Add(Me.servo3_textbox) 
     373        Me.ServoPanel.Controls.Add(Me.servo2_textbox) 
     374        Me.ServoPanel.Controls.Add(Me.servo1_textbox) 
     375        Me.ServoPanel.Controls.Add(Me.servo0_textbox) 
     376        Me.ServoPanel.Controls.Add(Me.Label17) 
     377        Me.ServoPanel.Controls.Add(Me.Label16) 
     378        Me.ServoPanel.Controls.Add(Me.Label15) 
     379        Me.ServoPanel.Controls.Add(Me.Label14) 
     380        Me.ServoPanel.Controls.Add(Me.TrackBar1) 
     381        Me.ServoPanel.Enabled = False 
     382        Me.ServoPanel.Location = New System.Drawing.Point(478, 133) 
     383        Me.ServoPanel.Name = "ServoPanel" 
     384        Me.ServoPanel.Size = New System.Drawing.Size(277, 200) 
     385        Me.ServoPanel.TabIndex = 7 
     386        ' 
     387        'TrackBar4 
     388        ' 
     389        Me.TrackBar4.Location = New System.Drawing.Point(28, 156) 
     390        Me.TrackBar4.Maximum = 255 
     391        Me.TrackBar4.Name = "TrackBar4" 
     392        Me.TrackBar4.Size = New System.Drawing.Size(170, 42) 
     393        Me.TrackBar4.TabIndex = 22 
     394        Me.TrackBar4.TickFrequency = 8 
     395        Me.TrackBar4.Value = 128 
     396        ' 
     397        'TrackBar3 
     398        ' 
     399        Me.TrackBar3.Location = New System.Drawing.Point(28, 117) 
     400        Me.TrackBar3.Maximum = 255 
     401        Me.TrackBar3.Name = "TrackBar3" 
     402        Me.TrackBar3.Size = New System.Drawing.Size(170, 42) 
     403        Me.TrackBar3.TabIndex = 21 
     404        Me.TrackBar3.TickFrequency = 8 
     405        Me.TrackBar3.Value = 128 
     406        ' 
     407        'TrackBar2 
     408        ' 
     409        Me.TrackBar2.Location = New System.Drawing.Point(28, 79) 
     410        Me.TrackBar2.Maximum = 255 
     411        Me.TrackBar2.Name = "TrackBar2" 
     412        Me.TrackBar2.Size = New System.Drawing.Size(170, 42) 
     413        Me.TrackBar2.TabIndex = 20 
     414        Me.TrackBar2.TickFrequency = 8 
     415        Me.TrackBar2.Value = 128 
     416        ' 
     417        'Label18 
     418        ' 
     419        Me.Label18.AutoSize = True 
     420        Me.Label18.Location = New System.Drawing.Point(68, 11) 
     421        Me.Label18.Name = "Label18" 
     422        Me.Label18.Size = New System.Drawing.Size(82, 13) 
     423        Me.Label18.TabIndex = 19 
     424        Me.Label18.Text = "Servo Controller" 
     425        ' 
     426        'servo3_textbox 
     427        ' 
     428        Me.servo3_textbox.Location = New System.Drawing.Point(213, 156) 
     429        Me.servo3_textbox.Name = "servo3_textbox" 
     430        Me.servo3_textbox.Size = New System.Drawing.Size(42, 20) 
     431        Me.servo3_textbox.TabIndex = 18 
     432        Me.servo3_textbox.Text = "128" 
     433        ' 
     434        'servo2_textbox 
     435        ' 
     436        Me.servo2_textbox.Location = New System.Drawing.Point(213, 117) 
     437        Me.servo2_textbox.Name = "servo2_textbox" 
     438        Me.servo2_textbox.Size = New System.Drawing.Size(42, 20) 
     439        Me.servo2_textbox.TabIndex = 17 
     440        Me.servo2_textbox.Text = "128" 
     441        ' 
     442        'servo1_textbox 
     443        ' 
     444        Me.servo1_textbox.Location = New System.Drawing.Point(213, 79) 
     445        Me.servo1_textbox.Name = "servo1_textbox" 
     446        Me.servo1_textbox.Size = New System.Drawing.Size(42, 20) 
     447        Me.servo1_textbox.TabIndex = 16 
     448        Me.servo1_textbox.Text = "128" 
     449        ' 
     450        'servo0_textbox 
     451        ' 
     452        Me.servo0_textbox.Location = New System.Drawing.Point(213, 45) 
     453        Me.servo0_textbox.Name = "servo0_textbox" 
     454        Me.servo0_textbox.Size = New System.Drawing.Size(42, 20) 
     455        Me.servo0_textbox.TabIndex = 15 
     456        Me.servo0_textbox.Text = "128" 
     457        ' 
     458        'Label17 
     459        ' 
     460        Me.Label17.AutoSize = True 
     461        Me.Label17.Location = New System.Drawing.Point(9, 163) 
     462        Me.Label17.Name = "Label17" 
     463        Me.Label17.Size = New System.Drawing.Size(13, 13) 
     464        Me.Label17.TabIndex = 14 
     465        Me.Label17.Text = "3" 
     466        ' 
     467        'Label16 
     468        ' 
     469        Me.Label16.AutoSize = True 
     470        Me.Label16.Location = New System.Drawing.Point(9, 124) 
     471        Me.Label16.Name = "Label16" 
     472        Me.Label16.Size = New System.Drawing.Size(13, 13) 
     473        Me.Label16.TabIndex = 12 
     474        Me.Label16.Text = "2" 
     475        ' 
     476        'Label15 
     477        ' 
     478        Me.Label15.AutoSize = True 
     479        Me.Label15.Location = New System.Drawing.Point(9, 86) 
     480        Me.Label15.Name = "Label15" 
     481        Me.Label15.Size = New System.Drawing.Size(13, 13) 
     482        Me.Label15.TabIndex = 10 
     483        Me.Label15.Text = "1" 
     484        ' 
     485        'Label14 
     486        ' 
     487        Me.Label14.AutoSize = True 
     488        Me.Label14.Location = New System.Drawing.Point(9, 48) 
     489        Me.Label14.Name = "Label14" 
     490        Me.Label14.Size = New System.Drawing.Size(13, 13) 
     491        Me.Label14.TabIndex = 8 
     492        Me.Label14.Text = "0" 
     493        ' 
     494        'TrackBar1 
     495        ' 
     496        Me.TrackBar1.Location = New System.Drawing.Point(28, 35) 
     497        Me.TrackBar1.Maximum = 255 
     498        Me.TrackBar1.Name = "TrackBar1" 
     499        Me.TrackBar1.Size = New System.Drawing.Size(170, 42) 
     500        Me.TrackBar1.TabIndex = 7 
     501        Me.TrackBar1.TickFrequency = 8 
     502        Me.TrackBar1.Value = 128 
     503        ' 
    366504        'configPanel 
    367505        ' 
    … …  
    370508        Me.configPanel.Controls.Add(Me.Label11) 
    371509        Me.configPanel.Controls.Add(Me.Label10) 
    372         Me.configPanel.Controls.Add(Me.MaskedTextBox4) 
    373         Me.configPanel.Controls.Add(Me.MaskedTextBox3) 
    374         Me.configPanel.Controls.Add(Me.MaskedTextBox2) 
    375         Me.configPanel.Controls.Add(Me.MaskedTextBox1) 
     510        Me.configPanel.Controls.Add(Me.Y1_textbox) 
     511        Me.configPanel.Controls.Add(Me.X1_textbox) 
     512        Me.configPanel.Controls.Add(Me.Y0_textbox) 
     513        Me.configPanel.Controls.Add(Me.X0_textbox) 
    376514        Me.configPanel.Controls.Add(Me.Label9) 
    377515        Me.configPanel.Controls.Add(Me.vwSet) 
    … …  
    390528        Me.configPanel.TabIndex = 6 
    391529        ' 
     530        'Label13 
     531        ' 
     532        Me.Label13.AutoSize = True 
     533        Me.Label13.Location = New System.Drawing.Point(302, 151) 
     534        Me.Label13.Name = "Label13" 
     535        Me.Label13.Size = New System.Drawing.Size(20, 13) 
     536        Me.Label13.TabIndex = 20 
     537        Me.Label13.Text = "Y1" 
     538        ' 
     539        'Label12 
     540        ' 
     541        Me.Label12.AutoSize = True 
     542        Me.Label12.Location = New System.Drawing.Point(227, 151) 
     543        Me.Label12.Name = "Label12" 
     544        Me.Label12.Size = New System.Drawing.Size(20, 13) 
     545        Me.Label12.TabIndex = 19 
     546        Me.Label12.Text = "X1" 
     547        ' 
     548        'Label11 
     549        ' 
     550        Me.Label11.AutoSize = True 
     551        Me.Label11.Location = New System.Drawing.Point(154, 150) 
     552        Me.Label11.Name = "Label11" 
     553        Me.Label11.Size = New System.Drawing.Size(20, 13) 
     554        Me.Label11.TabIndex = 18 
     555        Me.Label11.Text = "Y0" 
     556        ' 
     557        'Label10 
     558        ' 
     559        Me.Label10.AutoSize = True 
     560        Me.Label10.Location = New System.Drawing.Point(79, 151) 
     561        Me.Label10.Name = "Label10" 
     562        Me.Label10.Size = New System.Drawing.Size(20, 13) 
     563        Me.Label10.TabIndex = 17 
     564        Me.Label10.Text = "X0" 
     565        ' 
     566        'Y1_textbox 
     567        ' 
     568        Me.Y1_textbox.Location = New System.Drawing.Point(326, 148) 
     569        Me.Y1_textbox.Name = "Y1_textbox" 
     570        Me.Y1_textbox.Size = New System.Drawing.Size(43, 20) 
     571        Me.Y1_textbox.TabIndex = 16 
     572        Me.Y1_textbox.Text = "144" 
     573        ' 
     574        'X1_textbox 
     575        ' 
     576        Me.X1_textbox.Location = New System.Drawing.Point(253, 148) 
     577        Me.X1_textbox.Name = "X1_textbox" 
     578        Me.X1_textbox.Size = New System.Drawing.Size(43, 20) 
     579        Me.X1_textbox.TabIndex = 15 
     580        Me.X1_textbox.Text = "176" 
     581        ' 
     582        'Y0_textbox 
     583        ' 
     584        Me.Y0_textbox.Location = New System.Drawing.Point(174, 147) 
     585        Me.Y0_textbox.Name = "Y0_textbox" 
     586        Me.Y0_textbox.Size = New System.Drawing.Size(43, 20) 
     587        Me.Y0_textbox.TabIndex = 14 
     588        Me.Y0_textbox.Text = "0" 
     589        ' 
     590        'X0_textbox 
     591        ' 
     592        Me.X0_textbox.Location = New System.Drawing.Point(105, 147) 
     593        Me.X0_textbox.Name = "X0_textbox" 
     594        Me.X0_textbox.Size = New System.Drawing.Size(43, 20) 
     595        Me.X0_textbox.TabIndex = 7 
     596        Me.X0_textbox.Text = "0" 
     597        ' 
     598        'Label9 
     599        ' 
     600        Me.Label9.AutoSize = True 
     601        Me.Label9.Location = New System.Drawing.Point(11, 150) 
     602        Me.Label9.Name = "Label9" 
     603        Me.Label9.Size = New System.Drawing.Size(46, 13) 
     604        Me.Label9.TabIndex = 13 
     605        Me.Label9.Text = "Window" 
     606        ' 
     607        'vwSet 
     608        ' 
     609        Me.vwSet.Location = New System.Drawing.Point(386, 148) 
     610        Me.vwSet.Name = "vwSet" 
     611        Me.vwSet.Size = New System.Drawing.Size(47, 20) 
     612        Me.vwSet.TabIndex = 12 
     613        Me.vwSet.Text = "Set" 
     614        Me.vwSet.UseVisualStyleBackColor = True 
     615        ' 
     616        'dsSetButton 
     617        ' 
     618        Me.dsSetButton.Location = New System.Drawing.Point(253, 110) 
     619        Me.dsSetButton.Name = "dsSetButton" 
     620        Me.dsSetButton.Size = New System.Drawing.Size(47, 20) 
     621        Me.dsSetButton.TabIndex = 11 
     622        Me.dsSetButton.Text = "Set" 
     623        Me.dsSetButton.UseVisualStyleBackColor = True 
     624        ' 
     625        'Label8 
     626        ' 
     627        Me.Label8.AutoSize = True 
     628        Me.Label8.Location = New System.Drawing.Point(171, 112) 
     629        Me.Label8.Name = "Label8" 
     630        Me.Label8.Size = New System.Drawing.Size(14, 13) 
     631        Me.Label8.TabIndex = 10 
     632        Me.Label8.Text = "Y" 
     633        ' 
     634        'Label7 
     635        ' 
     636        Me.Label7.AutoSize = True 
     637        Me.Label7.Location = New System.Drawing.Point(102, 112) 
     638        Me.Label7.Name = "Label7" 
     639        Me.Label7.Size = New System.Drawing.Size(14, 13) 
     640        Me.Label7.TabIndex = 9 
     641        Me.Label7.Text = "X" 
     642        ' 
     643        'dsY 
     644        ' 
     645        Me.dsY.Location = New System.Drawing.Point(191, 110) 
     646        Me.dsY.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) 
     647        Me.dsY.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) 
     648        Me.dsY.Name = "dsY" 
     649        Me.dsY.Size = New System.Drawing.Size(39, 20) 
     650        Me.dsY.TabIndex = 8 
     651        Me.dsY.Value = New Decimal(New Integer() {1, 0, 0, 0}) 
     652        ' 
    392653        'Label6 
    393654        ' 
    … …  
    470731        Me.YCrCbButton.Text = "YCrCb" 
    471732        Me.YCrCbButton.UseVisualStyleBackColor = True 
    472         ' 
    473         'dsY 
    474         ' 
    475         Me.dsY.Location = New System.Drawing.Point(191, 110) 
    476         Me.dsY.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) 
    477         Me.dsY.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) 
    478         Me.dsY.Name = "dsY" 
    479         Me.dsY.Size = New System.Drawing.Size(39, 20) 
    480         Me.dsY.TabIndex = 8 
    481         Me.dsY.Value = New Decimal(New Integer() {1, 0, 0, 0}) 
    482         ' 
    483         'Label7 
    484         ' 
    485         Me.Label7.AutoSize = True 
    486         Me.Label7.Location = New System.Drawing.Point(102, 112) 
    487         Me.Label7.Name = "Label7" 
    488         Me.Label7.Size = New System.Drawing.Size(14, 13) 
    489         Me.Label7.TabIndex = 9 
    490         Me.Label7.Text = "X" 
    491         ' 
    492         'Label8 
    493         ' 
    494         Me.Label8.AutoSize = True 
    495         Me.Label8.Location = New System.Drawing.Point(171, 112) 
    496         Me.Label8.Name = "Label8" 
    497         Me.Label8.Size = New System.Drawing.Size(14, 13) 
    498         Me.Label8.TabIndex = 10 
    499         Me.Label8.Text = "Y" 
    500         ' 
    501         'dsSetButton 
    502         ' 
    503         Me.dsSetButton.Location = New System.Drawing.Point(253, 110) 
    504         Me.dsSetButton.Name = "dsSetButton" 
    505         Me.dsSetButton.Size = New System.Drawing.Size(47, 20) 
    506         Me.dsSetButton.TabIndex = 11 
    507         Me.dsSetButton.Text = "Set" 
    508         Me.dsSetButton.UseVisualStyleBackColor = True 
    509         ' 
    510         'vwSet 
    511         ' 
    512         Me.vwSet.Location = New System.Drawing.Point(386, 148) 
    513         Me.vwSet.Name = "vwSet" 
    514         Me.vwSet.Size = New System.Drawing.Size(47, 20) 
    515         Me.vwSet.TabIndex = 12 
    516         Me.vwSet.Text = "Set" 
    517         Me.vwSet.UseVisualStyleBackColor = True 
    518         ' 
    519         'Label9 
    520         ' 
    521         Me.Label9.AutoSize = True 
    522         Me.Label9.Location = New System.Drawing.Point(11, 150) 
    523         Me.Label9.Name = "Label9" 
    524         Me.Label9.Size = New System.Drawing.Size(46, 13) 
    525         Me.Label9.TabIndex = 13 
    526         Me.Label9.Text = "Window" 
    527         ' 
    528         'MaskedTextBox1 
    529         ' 
    530         Me.MaskedTextBox1.Location = New System.Drawing.Point(105, 147) 
    531         Me.MaskedTextBox1.Name = "MaskedTextBox1" 
    532         Me.MaskedTextBox1.Size = New System.Drawing.Size(43, 20) 
    533         Me.MaskedTextBox1.TabIndex = 7 
    534         Me.MaskedTextBox1.Text = "0" 
    535         ' 
    536         'MaskedTextBox2 
    537         ' 
    538         Me.MaskedTextBox2.Location = New System.Drawing.Point(174, 147) 
    539         Me.MaskedTextBox2.Name = "MaskedTextBox2" 
    540         Me.MaskedTextBox2.Size = New System.Drawing.Size(43, 20) 
    541         Me.MaskedTextBox2.TabIndex = 14 
    542         Me.MaskedTextBox2.Text = "0" 
    543         ' 
    544         'MaskedTextBox3 
    545         ' 
    546         Me.MaskedTextBox3.Location = New System.Drawing.Point(253, 148) 
    547         Me.MaskedTextBox3.Name = "MaskedTextBox3" 
    548         Me.MaskedTextBox3.Size = New System.Drawing.Size(43, 20) 
    549         Me.MaskedTextBox3.TabIndex = 15 
    550         Me.MaskedTextBox3.Text = "176" 
    551         ' 
    552         'MaskedTextBox4 
    553         ' 
    554         Me.MaskedTextBox4.Location = New System.Drawing.Point(326, 148) 
    555         Me.MaskedTextBox4.Name = "MaskedTextBox4" 
    556         Me.MaskedTextBox4.Size = New System.Drawing.Size(43, 20) 
    557         Me.MaskedTextBox4.TabIndex = 16 
    558         Me.MaskedTextBox4.Text = "144" 
    559         ' 
    560         'Label10 
    561         ' 
    562         Me.Label10.AutoSize = True 
    563         Me.Label10.Location = New System.Drawing.Point(79, 151) 
    564         Me.Label10.Name = "Label10" 
    565         Me.Label10.Size = New System.Drawing.Size(20, 13) 
    566         Me.Label10.TabIndex = 17 
    567         Me.Label10.Text = "X0" 
    568         ' 
    569         'Label11 
    570         ' 
    571         Me.Label11.AutoSize = True 
    572         Me.Label11.Location = New System.Drawing.Point(154, 150) 
    573         Me.Label11.Name = "Label11" 
    574         Me.Label11.Size = New System.Drawing.Size(20, 13) 
    575         Me.Label11.TabIndex = 18 
    576         Me.Label11.Text = "Y0" 
    577         ' 
    578         'Label12 
    579         ' 
    580         Me.Label12.AutoSize = True 
    581         Me.Label12.Location = New System.Drawing.Point(227, 151) 
    582         Me.Label12.Name = "Label12" 
    583         Me.Label12.Size = New System.Drawing.Size(20, 13) 
    584         Me.Label12.TabIndex = 19 
    585         Me.Label12.Text = "X1" 
    586         ' 
    587         'Label13 
    588         ' 
    589         Me.Label13.AutoSize = True 
    590         Me.Label13.Location = New System.Drawing.Point(302, 151) 
    591         Me.Label13.Name = "Label13" 
    592         Me.Label13.Size = New System.Drawing.Size(20, 13) 
    593         Me.Label13.TabIndex = 20 
    594         Me.Label13.Text = "Y1" 
    595         ' 
    596         'TrackBar1 
    597         ' 
    598         Me.TrackBar1.Location = New System.Drawing.Point(28, 35) 
    599         Me.TrackBar1.Maximum = 255 
    600         Me.TrackBar1.Name = "TrackBar1" 
    601         Me.TrackBar1.Size = New System.Drawing.Size(170, 42) 
    602         Me.TrackBar1.TabIndex = 7 
    603         Me.TrackBar1.TickFrequency = 8 
    604         Me.TrackBar1.Value = 128 
    605         ' 
    606         'ServoPanel 
    607         ' 
    608         Me.ServoPanel.Controls.Add(Me.TrackBar4) 
    609         Me.ServoPanel.Controls.Add(Me.TrackBar3) 
    610         Me.ServoPanel.Controls.Add(Me.TrackBar2) 
    611         Me.ServoPanel.Controls.Add(Me.Label18) 
    612         Me.ServoPanel.Controls.Add(Me.TextBox4) 
    613         Me.ServoPanel.Controls.Add(Me.TextBox3) 
    614         Me.ServoPanel.Controls.Add(Me.TextBox2) 
    615         Me.ServoPanel.Controls.Add(Me.TextBox1) 
    616         Me.ServoPanel.Controls.Add(Me.Label17) 
    617         Me.ServoPanel.Controls.Add(Me.Label16) 
    618         Me.ServoPanel.Controls.Add(Me.Label15) 
    619         Me.ServoPanel.Controls.Add(Me.Label14) 
    620         Me.ServoPanel.Controls.Add(Me.TrackBar1) 
    621         Me.ServoPanel.Enabled = False 
    622         Me.ServoPanel.Location = New System.Drawing.Point(478, 133) 
    623         Me.ServoPanel.Name = "ServoPanel" 
    624         Me.ServoPanel.Size = New System.Drawing.Size(277, 200) 
    625         Me.ServoPanel.TabIndex = 7 
    626         ' 
    627         'Label14 
    628         ' 
    629         Me.Label14.AutoSize = True 
    630         Me.Label14.Location = New System.Drawing.Point(9, 48) 
    631         Me.Label14.Name = "Label14" 
    632         Me.Label14.Size = New System.Drawing.Size(13, 13) 
    633         Me.Label14.TabIndex = 8 
    634         Me.Label14.Text = "0" 
    635         ' 
    636         'Label15 
    637         ' 
    638         Me.Label15.AutoSize = True 
    639         Me.Label15.Location = New System.Drawing.Point(9, 86) 
    640         Me.Label15.Name = "Label15" 
    641         Me.Label15.Size = New System.Drawing.Size(13, 13) 
    642         Me.Label15.TabIndex = 10 
    643         Me.Label15.Text = "1" 
    644         ' 
    645         'Label16 
    646         ' 
    647         Me.Label16.AutoSize = True 
    648         Me.Label16.Location = New System.Drawing.Point(9, 124) 
    649         Me.Label16.Name = "Label16" 
    650         Me.Label16.Size = New System.Drawing.Size(13, 13) 
    651         Me.Label16.TabIndex = 12 
    652         Me.Label16.Text = "2" 
    653         ' 
    654         'Label17 
    655         ' 
    656         Me.Label17.AutoSize = True 
    657         Me.Label17.Location = New System.Drawing.Point(9, 163) 
    658         Me.Label17.Name = "Label17" 
    659         Me.Label17.Size = New System.Drawing.Size(13, 13) 
    660         Me.Label17.TabIndex = 14 
    661         Me.Label17.Text = "3" 
    662         ' 
    663         'TextBox1 
    664         ' 
    665         Me.TextBox1.Location = New System.Drawing.Point(213, 45) 
    666         Me.TextBox1.Name = "TextBox1" 
    667         Me.TextBox1.Size = New System.Drawing.Size(42, 20) 
    668         Me.TextBox1.TabIndex = 15 
    669         Me.TextBox1.Text = "128" 
    670         ' 
    671         'TextBox2 
    672         ' 
    673         Me.TextBox2.Location = New System.Drawing.Point(213, 79) 
    674         Me.TextBox2.Name = "TextBox2" 
    675         Me.TextBox2.Size = New System.Drawing.Size(42, 20) 
    676         Me.TextBox2.TabIndex = 16 
    677         Me.TextBox2.Text = "128" 
    678         ' 
    679         'TextBox3 
    680         ' 
    681         Me.TextBox3.Location = New System.Drawing.Point(213, 117) 
    682         Me.TextBox3.Name = "TextBox3" 
    683         Me.TextBox3.Size = New System.Drawing.Size(42, 20) 
    684         Me.TextBox3.TabIndex = 17 
    685         Me.TextBox3.Text = "128" 
    686         ' 
    687         'TextBox4 
    688         ' 
    689         Me.TextBox4.Location = New System.Drawing.Point(213, 156) 
    690         Me.TextBox4.Name = "TextBox4" 
    691         Me.TextBox4.Size = New System.Drawing.Size(42, 20) 
    692         Me.TextBox4.TabIndex = 18 
    693         Me.TextBox4.Text = "128" 
    694         ' 
    695         'Label18 
    696         ' 
    697         Me.Label18.AutoSize = True 
    698         Me.Label18.Location = New System.Drawing.Point(68, 11) 
    699         Me.Label18.Name = "Label18" 
    700         Me.Label18.Size = New System.Drawing.Size(82, 13) 
    701         Me.Label18.TabIndex = 19 
    702         Me.Label18.Text = "Servo Controller" 
    703         ' 
    704         'TrackBar2 
    705         ' 
    706         Me.TrackBar2.Location = New System.Drawing.Point(28, 79) 
    707         Me.TrackBar2.Maximum = 255 
    708         Me.TrackBar2.Name = "TrackBar2" 
    709         Me.TrackBar2.Size = New System.Drawing.Size(170, 42) 
    710         Me.TrackBar2.TabIndex = 20 
    711         Me.TrackBar2.TickFrequency = 8 
    712         Me.TrackBar2.Value = 128 
    713         ' 
    714         'TrackBar3 
    715         ' 
    716         Me.TrackBar3.Location = New System.Drawing.Point(28, 117) 
    717         Me.TrackBar3.Maximum = 255 
    718         Me.TrackBar3.Name = "TrackBar3" 
    719         Me.TrackBar3.Size = New System.Drawing.Size(170, 42) 
    720         Me.TrackBar3.TabIndex = 21 
    721         Me.TrackBar3.TickFrequency = 8 
    722         Me.TrackBar3.Value = 128 
    723         ' 
    724         'TrackBar4 
    725         ' 
    726         Me.TrackBar4.Location = New System.Drawing.Point(28, 156) 
    727         Me.TrackBar4.Maximum = 255 
    728         Me.TrackBar4.Name = "TrackBar4" 
    729         Me.TrackBar4.Size = New System.Drawing.Size(170, 42) 
    730         Me.TrackBar4.TabIndex = 22 
    731         Me.TrackBar4.TickFrequency = 8 
    732         Me.TrackBar4.Value = 128 
    733733        ' 
    734734        'Form1 
    … …  
    749749        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() 
    750750        Me.TabPage2.ResumeLayout(False) 
     751        Me.ServoPanel.ResumeLayout(False) 
     752        Me.ServoPanel.PerformLayout() 
     753        CType(Me.TrackBar4, System.ComponentModel.ISupportInitialize).EndInit() 
     754        CType(Me.TrackBar3, System.ComponentModel.ISupportInitialize).EndInit() 
     755        CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit() 
     756        CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit() 
    751757        Me.configPanel.ResumeLayout(False) 
    752758        Me.configPanel.PerformLayout() 
     759        CType(Me.dsY, System.ComponentModel.ISupportInitialize).EndInit() 
    753760        CType(Me.dsX, System.ComponentModel.ISupportInitialize).EndInit() 
    754761        Me.Panel1.ResumeLayout(False) 
    … …  
    756763        Me.Panel2.ResumeLayout(False) 
    757764        Me.Panel2.PerformLayout() 
    758         CType(Me.dsY, System.ComponentModel.ISupportInitialize).EndInit() 
    759         CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit() 
    760         Me.ServoPanel.ResumeLayout(False) 
    761         Me.ServoPanel.PerformLayout() 
    762         CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit() 
    763         CType(Me.TrackBar3, System.ComponentModel.ISupportInitialize).EndInit() 
    764         CType(Me.TrackBar4, System.ComponentModel.ISupportInitialize).EndInit() 
    765765        Me.ResumeLayout(False) 
    766766 
    … …  
    802802    Friend WithEvents dsX As System.Windows.Forms.NumericUpDown 
    803803    Friend WithEvents Label10 As System.Windows.Forms.Label 
    804     Friend WithEvents MaskedTextBox4 As System.Windows.Forms.MaskedTextBox 
    805     Friend WithEvents MaskedTextBox3 As System.Windows.Forms.MaskedTextBox 
    806     Friend WithEvents MaskedTextBox2 As System.Windows.Forms.MaskedTextBox 
    807     Friend WithEvents MaskedTextBox1 As System.Windows.Forms.MaskedTextBox 
     804    Friend WithEvents Y1_textbox As System.Windows.Forms.MaskedTextBox 
     805    Friend WithEvents X1_textbox As System.Windows.Forms.MaskedTextBox 
     806    Friend WithEvents Y0_textbox As System.Windows.Forms.MaskedTextBox 
     807    Friend WithEvents X0_textbox As System.Windows.Forms.MaskedTextBox 
    808808    Friend WithEvents Label9 As System.Windows.Forms.Label 
    809809    Friend WithEvents vwSet As System.Windows.Forms.Button 
    … …  
    816816    Friend WithEvents Label11 As System.Windows.Forms.Label 
    817817    Friend WithEvents ServoPanel As System.Windows.Forms.Panel 
    818     Friend WithEvents TextBox2 As System.Windows.Forms.TextBox 
    819     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox 
     818    Friend WithEvents servo1_textbox As System.Windows.Forms.TextBox 
     819    Friend WithEvents servo0_textbox As System.Windows.Forms.TextBox 
    820820    Friend WithEvents Label17 As System.Windows.Forms.Label 
    821821    Friend WithEvents Label16 As System.Windows.Forms.Label 
    … …  
    827827    Friend WithEvents TrackBar2 As System.Windows.Forms.TrackBar 
    828828    Friend WithEvents Label18 As System.Windows.Forms.Label 
    829     Friend WithEvents TextBox4 As System.Windows.Forms.TextBox 
    830     Friend WithEvents TextBox3 As System.Windows.Forms.TextBox 
     829    Friend WithEvents servo3_textbox As System.Windows.Forms.TextBox 
     830    Friend WithEvents servo2_textbox As System.Windows.Forms.TextBox 
    831831 
    832832End Class 

  • trunk/tools/cc3_image_viewer/Form1.vb

    r279 r496  
    227227    
    228228     
     229    Private Sub vwSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vwSet.Click 
     230        serialPort.Write("VW " & X0_textbox.Text & " " & Y0_textbox.Text & " " & X1_textbox.Text & " " & Y1_textbox.Text & vbCr) 
     231    End Sub 
     232 
     233    
     234    Private Sub HiResRadio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HiResRadio.CheckedChanged 
     235        serialPort.Write("HR 1" & vbCr) 
     236    End Sub 
     237 
     238    Private Sub loResRadio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loResRadio.CheckedChanged 
     239        If (configPanel.Enabled = True) Then 
     240            serialPort.Write("HR 0" & vbCr) 
     241        End If 
     242 
     243    End Sub 
     244 
     245    Private Sub RGBRadio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RGBRadio.CheckedChanged 
     246        If (configPanel.Enabled = True) Then 
     247            serialPort.Write("CR 18 44" & vbCr) 
     248        End If 
     249    End Sub 
     250 
     251    Private Sub YCrCbButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YCrCbButton.CheckedChanged 
     252        If (configPanel.Enabled = True) Then 
     253            serialPort.Write("CR 18 36" & vbCr) 
     254        End If 
     255 
     256    End Sub 
     257 
     258    Private Sub dsSetButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dsSetButton.Click 
     259        If (configPanel.Enabled = True) Then 
     260            serialPort.Write("DS " & dsX.Value & " " & dsY.Value & vbCr) 
     261        End If 
     262 
     263    End Sub 
     264 
     265    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll 
     266        servo0_textbox.Clear() 
     267        servo0_textbox.AppendText(TrackBar1.Value) 
     268        serialPort.Write("SV 0 " & servo0_textbox.Text & vbCr) 
     269    End Sub 
     270 
     271    Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll 
     272        servo1_textbox.Clear() 
     273        servo1_textbox.AppendText(TrackBar2.Value) 
     274        serialPort.Write("SV 1 " & servo1_textbox.Text & vbCr) 
     275    End Sub 
     276 
     277    Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll 
     278        servo2_textbox.Clear() 
     279        servo2_textbox.AppendText(TrackBar3.Value) 
     280        serialPort.Write("SV 2 " & servo2_textbox.Text & vbCr) 
     281    End Sub 
     282 
     283    Private Sub TrackBar4_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar4.Scroll 
     284        servo3_textbox.Clear() 
     285        servo3_textbox.AppendText(TrackBar4.Value) 
     286        serialPort.Write("SV 3 " & servo3_textbox.Text & vbCr) 
     287    End Sub 
    229288End Class 
Note: See TracChangeset for help on using the changeset viewer.