Go to Post As far as we know, FIRST could replace football by 2018! - Adam Richards [more]
Home
Go Back   Chief Delphi > ChiefDelphi.com Website > Extra Discussion
CD-Events   CD-Media   CD-Spy   FRC-Spy  
portal register members calendar search Today's Posts Mark Forums Read FAQ rules

 
Reply
Thread Tools Rating: Thread Rating: 8 votes, 5.00 average. Display Modes
  #1   Spotlight this post!  
Unread 11-20-2008, 10:15 PM
Ed Law's Avatar
Ed Law Ed Law is offline
Registered User
FRC #2834 (Bionic Black Hawks [formerly Bionic Barons])
Team Role: Coach
 
Join Date: Apr 2008
Rookie Year: 2009
Location: Bloomfield Hills, Michigan, USA
Posts: 601
Ed Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond repute
paper: New Scouting Database from Team 2834

Thread created automatically to discuss a document in CD-Media.

New Scouting Database from Team 2834 by Ed Law
Reply With Quote
  #2   Spotlight this post!  
Unread 11-20-2008, 10:26 PM
Ed Law's Avatar
Ed Law Ed Law is offline
Registered User
FRC #2834 (Bionic Black Hawks [formerly Bionic Barons])
Team Role: Coach
 
Join Date: Apr 2008
Rookie Year: 2009
Location: Bloomfield Hills, Michigan, USA
Posts: 601
Ed Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

I try to upload the Scouting Database but it says my file is too big. I will try to reduce the size but I will have to delete some of the data.
__________________
Please don't call me Mr. Ed, I am not a talking horse.
Reply With Quote
  #3   Spotlight this post!  
Unread 11-20-2008, 10:43 PM
Ed Law's Avatar
Ed Law Ed Law is offline
Registered User
FRC #2834 (Bionic Black Hawks [formerly Bionic Barons])
Team Role: Coach
 
Join Date: Apr 2008
Rookie Year: 2009
Location: Bloomfield Hills, Michigan, USA
Posts: 601
Ed Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

I split the database into two Excel file. You can stitch it back together if you want or just use part 1 without part 2.
Reply With Quote
  #4   Spotlight this post!  
Unread 11-21-2008, 12:37 AM
billbo911's Avatar
billbo911 billbo911 is offline
Registered User
AKA: That's "Mr. Bill"
FRC #2073 (EagleForce)
Team Role: Mentor
 
Join Date: Mar 2005
Rookie Year: 2005
Location: Elk Grove, Ca.
Posts: 1,830
billbo911 has a reputation beyond reputebillbo911 has a reputation beyond reputebillbo911 has a reputation beyond reputebillbo911 has a reputation beyond reputebillbo911 has a reputation beyond reputebillbo911 has a reputation beyond reputebillbo911 has a reputation beyond reputebillbo911 has a reputation beyond reputebillbo911 has a reputation beyond reputebillbo911 has a reputation beyond reputebillbo911 has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

Quote:
Originally Posted by Ed Law View Post
I split the database into two Excel file. You can stitch it back together if you want or just use part 1 without part 2.
What size would the entire file be if you zipped it first?
__________________
So long and thanks for all the fish!

CalGames 2009 Semi Finalist, CalGames 2009 Autonomous Champion Award winner
Sacramento 2010 Creativity in Design winner, Sacramento 2010 Quarter finalist, 2010 Madtown Creative Design Award
2011 Sacramento Finalist, 2011 Madtown Engineering Inspiration Award
2012 Sacramento Semi-Finals, 2012 Sacramento Innovation in Control Award, 2012 SVR Judges Award.
2012 CalGames Autonomous Challenge Award winner ($$$).
2013 Pow3rhou53 Pwnage Gracious Professionalism Award.
2014 2X Rockwell Automation: Innovation in Control Award (CVR and SAC). Curie Division, Gracious Professionalism Award.
Reply With Quote
  #5   Spotlight this post!  
Unread 11-21-2008, 12:39 AM
R.C.'s Avatar
R.C. R.C. is offline
2014... Hella Parts
AKA: Owner, WestCoast Products
FRC #1323 (MadTown Robotics)
Team Role: Mentor
 
Join Date: Feb 2008
Rookie Year: 2006
Location: Madera, CA
Posts: 1,904
R.C. has a reputation beyond reputeR.C. has a reputation beyond reputeR.C. has a reputation beyond reputeR.C. has a reputation beyond reputeR.C. has a reputation beyond reputeR.C. has a reputation beyond reputeR.C. has a reputation beyond reputeR.C. has a reputation beyond reputeR.C. has a reputation beyond reputeR.C. has a reputation beyond reputeR.C. has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

Quote:
Originally Posted by billbo911 View Post
What size would the entire file be if you zipped it first?
If you email it to me I could upload it for you
__________________
R.C.
Owner, WestCoast Products || Twitter
MadTown Robotics Team 1323
Reply With Quote
  #6   Spotlight this post!  
Unread 11-21-2008, 06:37 AM
Ed Law's Avatar
Ed Law Ed Law is offline
Registered User
FRC #2834 (Bionic Black Hawks [formerly Bionic Barons])
Team Role: Coach
 
Join Date: Apr 2008
Rookie Year: 2009
Location: Bloomfield Hills, Michigan, USA
Posts: 601
Ed Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

Quote:
Originally Posted by billbo911 View Post
What size would the entire file be if you zipped it first?
Thanks for reminding me of that option. It reduced it down to 1.4 Mb. I uploaded the zip file but now I can not delete the two files that were split into part 1 and part 2.
__________________
Please don't call me Mr. Ed, I am not a talking horse.
Reply With Quote
  #7   Spotlight this post!  
Unread 11-21-2008, 09:52 AM
Clinton Bolinger's Avatar
Clinton Bolinger Clinton Bolinger is offline
FF - PureMichigan
FRC #2337 (EngiNERDs)
Team Role: Coach
 
Join Date: Dec 2006
Rookie Year: 2001
Location: Flint, MI
Posts: 464
Clinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

Very nice database of OPR and CCWM.

Got a few suggestions that might improve your excel file.

In order to make the getpicture sub to work every time a new query is requested, change your getpicture sub to the following functions:

Code:
Function getpicture(teamnum As String) As Boolean
    Dim filen as String
    
    If ActiveSheet.Name = "Query" Then
   
    Else
     GoTo Done
    End If

    Dim AC As Range
    Static P As Shape
    On Error GoTo Done
    Set AC = Application.Caller
    If PicExists(P) Then
    P.Delete
    Else
    'look for a picture already over cell
    For Each P In ActiveSheet.Shapes
    If P.Type = msoLinkedPicture Then
    If P.Left >= AC.Left And P.Left < AC.Left + AC.Width Then
    If P.Top >= AC.Top And P.Top < AC.Top + AC.Height Then
    P.Delete
    Exit For
    End If
    End If
    End If
    Next P
    End If
    filen = CurDir + "\" + Format(teamnum) + ".jpg"
    Set P = ActiveSheet.Shapes.AddPicture(filen, True, True, AC.Left + 2.75, AC.Top + 5, 329.25, 247.5)
    getpicture  = True
    Exit Function
Done:
    getpicture  = False
End Function

Function PicExists(P As Shape) As Boolean
    'Return true if P references an existing shape
    Dim ShapeName As String
    On Error GoTo NoPic
    If P Is Nothing Then GoTo NoPic
    ShapeName = P.Name
    PicExists = True
NoPic:
    PicExists = False
End Function
As for calling the function add the following to "I5":

Code:
=getpicture(B2)
Finally to make the query worksheet more user friendly, I would "unlock" cell B2. You can do this by right clicking on B2, Format Cells..., Click Protection, and uncheck Lock. Then you will want to protect the worksheet by going to Tools>Protection>Protect Sheet.. then add a password if you like and uncheck select locked cells. That way the only selectable cell would be "B2" on the Query worksheet.

Hope that helps and Thanks for the information.
-Oris-
__________________

Last edited by Clinton Bolinger : 11-21-2008 at 09:58 AM.
Reply With Quote
  #8   Spotlight this post!  
Unread 11-21-2008, 11:56 AM
Ed Law's Avatar
Ed Law Ed Law is offline
Registered User
FRC #2834 (Bionic Black Hawks [formerly Bionic Barons])
Team Role: Coach
 
Join Date: Apr 2008
Rookie Year: 2009
Location: Bloomfield Hills, Michigan, USA
Posts: 601
Ed Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

Quote:
Originally Posted by Oris View Post
Very nice database of OPR and CCWM.

Got a few suggestions that might improve your excel file.

In order to make the getpicture sub to work every time a new query is requested, change your getpicture sub to the following functions:

Code:
Function getpicture(teamnum As String) As Boolean
    Dim filen as String
    
    If ActiveSheet.Name = "Query" Then
   
    Else
     GoTo Done
    End If

    Dim AC As Range
    Static P As Shape
    On Error GoTo Done
    Set AC = Application.Caller
    If PicExists(P) Then
    P.Delete
    Else
    'look for a picture already over cell
    For Each P In ActiveSheet.Shapes
    If P.Type = msoLinkedPicture Then
    If P.Left >= AC.Left And P.Left < AC.Left + AC.Width Then
    If P.Top >= AC.Top And P.Top < AC.Top + AC.Height Then
    P.Delete
    Exit For
    End If
    End If
    End If
    Next P
    End If
    filen = CurDir + "\" + Format(teamnum) + ".jpg"
    Set P = ActiveSheet.Shapes.AddPicture(filen, True, True, AC.Left + 2.75, AC.Top + 5, 329.25, 247.5)
    getpicture  = True
    Exit Function
Done:
    getpicture  = False
End Function

Function PicExists(P As Shape) As Boolean
    'Return true if P references an existing shape
    Dim ShapeName As String
    On Error GoTo NoPic
    If P Is Nothing Then GoTo NoPic
    ShapeName = P.Name
    PicExists = True
NoPic:
    PicExists = False
End Function
As for calling the function add the following to "I5":

Code:
=getpicture(B2)
Finally to make the query worksheet more user friendly, I would "unlock" cell B2. You can do this by right clicking on B2, Format Cells..., Click Protection, and uncheck Lock. Then you will want to protect the worksheet by going to Tools>Protection>Protect Sheet.. then add a password if you like and uncheck select locked cells. That way the only selectable cell would be "B2" on the Query worksheet.

Hope that helps and Thanks for the information.
-Oris-
Hi Oris,

Wow, thanks for the code. I spent a little bit of time but couldn't figure out how to do it yet. I will try it out this weekend and repost the database.

Does anybody know why I can not delete the two files that I don't need any more now that I am zipping the file to make it smaller?

Ed
__________________
Please don't call me Mr. Ed, I am not a talking horse.
Reply With Quote
  #9   Spotlight this post!  
Unread 11-21-2008, 12:48 PM
Clinton Bolinger's Avatar
Clinton Bolinger Clinton Bolinger is offline
FF - PureMichigan
FRC #2337 (EngiNERDs)
Team Role: Coach
 
Join Date: Dec 2006
Rookie Year: 2001
Location: Flint, MI
Posts: 464
Clinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

Forgot one thing about protecting the worksheet, you will also have to check the "Edit Objects" box (scroll down 2nd from the bottom). This will allow for the "I8" robot picture to update correctly.

Look forward to seeing the new version.
-Oris-
__________________
Reply With Quote
  #10   Spotlight this post!  
Unread 11-21-2008, 06:48 PM
Ed Law's Avatar
Ed Law Ed Law is offline
Registered User
FRC #2834 (Bionic Black Hawks [formerly Bionic Barons])
Team Role: Coach
 
Join Date: Apr 2008
Rookie Year: 2009
Location: Bloomfield Hills, Michigan, USA
Posts: 601
Ed Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

Quote:
Originally Posted by Oris View Post
Forgot one thing about protecting the worksheet, you will also have to check the "Edit Objects" box (scroll down 2nd from the bottom). This will allow for the "I8" robot picture to update correctly.

Look forward to seeing the new version.
-Oris-
Hi Oris,

It is working now. Thank you. The picture automatically changes when the user type in a new team number in cell B2. One thing I have to change to get it to work is teamnum as Integer instead of teamnum as String.

The picture is okay if the aspect ratio is 4:3 but it get distorted if it is not. How can I maintain the aspect ratio? I tried to do it but was not successful. Can you take a look at the program and see what I did wrong?

I have decided not to protect the worksheet for now since I am still developing it.

Ed
__________________
Please don't call me Mr. Ed, I am not a talking horse.
Reply With Quote
  #11   Spotlight this post!  
Unread 11-24-2008, 07:43 AM
Clinton Bolinger's Avatar
Clinton Bolinger Clinton Bolinger is offline
FF - PureMichigan
FRC #2337 (EngiNERDs)
Team Role: Coach
 
Join Date: Dec 2006
Rookie Year: 2001
Location: Flint, MI
Posts: 464
Clinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

After:

Code:
Set P = ActiveSheet.Shapes.AddPicture(filen, True, True, AC.Left + 2.5, AC.Top + 2.5, 329, 250)
Add:

Code:
    P.ScaleHeight 1, True
    P.ScaleWidth 1, True
    P.Height = 250
That should keep the aspect ratio of the pictures.

-Oris-
__________________
Reply With Quote
  #12   Spotlight this post!  
Unread 12-06-2008, 06:24 PM
Ed Law's Avatar
Ed Law Ed Law is offline
Registered User
FRC #2834 (Bionic Black Hawks [formerly Bionic Barons])
Team Role: Coach
 
Join Date: Apr 2008
Rookie Year: 2009
Location: Bloomfield Hills, Michigan, USA
Posts: 601
Ed Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

Quote:
Originally Posted by Oris View Post
After:

Code:
Set P = ActiveSheet.Shapes.AddPicture(filen, True, True, AC.Left + 2.5, AC.Top + 2.5, 329, 250)
Add:

Code:
    P.ScaleHeight 1, True
    P.ScaleWidth 1, True
    P.Height = 250
That should keep the aspect ratio of the pictures.

-Oris-
Hi Oris,

I tried it and it worked. However when I tried it on Excel 2007, I think it changes it back to its original size and then stretch it to Height = 250 without maintaining the aspect ratio. I tried a few things but none seems to work. Can anybody help? I would like to make this work for everybody as more and more people will be using Excel 2007. Thanks.

Ed
__________________
Please don't call me Mr. Ed, I am not a talking horse.
Reply With Quote
  #13   Spotlight this post!  
Unread 12-08-2008, 07:20 AM
Clinton Bolinger's Avatar
Clinton Bolinger Clinton Bolinger is offline
FF - PureMichigan
FRC #2337 (EngiNERDs)
Team Role: Coach
 
Join Date: Dec 2006
Rookie Year: 2001
Location: Flint, MI
Posts: 464
Clinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

Quote:
Originally Posted by Ed Law View Post
Hi Oris,

I tried it and it worked. However when I tried it on Excel 2007, I think it changes it back to its original size and then stretch it to Height = 250 without maintaining the aspect ratio. I tried a few things but none seems to work. Can anybody help? I would like to make this work for everybody as more and more people will be using Excel 2007. Thanks.

Ed
Try replacing:

Code:
P.ScaleHeight 1, True
P.ScaleWidth 1, True
P.Height = 250
with:

Code:
P.LockAspectRatio = msoTrue
P.Height = 250
I don't have Excel 2007 on my current computer, so I didn't get a chance to test it.

-Oris-
__________________
Reply With Quote
  #14   Spotlight this post!  
Unread 12-09-2008, 10:07 PM
Ed Law's Avatar
Ed Law Ed Law is offline
Registered User
FRC #2834 (Bionic Black Hawks [formerly Bionic Barons])
Team Role: Coach
 
Join Date: Apr 2008
Rookie Year: 2009
Location: Bloomfield Hills, Michigan, USA
Posts: 601
Ed Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond reputeEd Law has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

This spreadsheet is working in Excel 2007 now. The change that Oris suggested works. It is now version 4. I still can not delete the old versions.

I will be posting the 2009 Scouting Database during X'mas break so we can see easily which teams are going to which regionals.

Ed
Reply With Quote
  #15   Spotlight this post!  
Unread 12-10-2008, 07:35 AM
Clinton Bolinger's Avatar
Clinton Bolinger Clinton Bolinger is offline
FF - PureMichigan
FRC #2337 (EngiNERDs)
Team Role: Coach
 
Join Date: Dec 2006
Rookie Year: 2001
Location: Flint, MI
Posts: 464
Clinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond reputeClinton Bolinger has a reputation beyond repute
Re: paper: New Scouting Database from Team 2834

I got another one for you Ed to fix your opening issues.

Replace:

Code:
filen = CurDir + "\" + Format(teamnum) + ".jpg"
With:

Code:
Dim sCurDir As String
sCurDir = Mid(ThisWorkbook.FullName, 1, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name))
filen = sCurDir + "\" + Format(teamnum) + ".jpg"
That way the team pictures will load if you open the file by double clicking, open recent, or file open.

Hope this helps,
-Oris-
__________________
Reply With Quote
Reply


Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
paper: 2007 Championship Event Scouting Database, presented by Team 1114 Karthik Extra Discussion 18 04-10-2007 04:02 PM
paper: Waterloo Regional Scouting Database astephen68 Extra Discussion 3 03-04-2007 06:34 PM
paper: Scoring for scouting database wheeler Extra Discussion 1 01-27-2007 02:56 PM
paper: 2006 Excel Scouting database Greg Needel Scouting 11 04-20-2006 08:41 PM
White Paper Discuss: Scouting database Marjory Frosty Extra Discussion 0 01-08-2006 06:03 PM


All times are GMT -5. The time now is 02:47 AM.

The Chief Delphi Forums are sponsored by Innovation First International, Inc.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Copyright © Chief Delphi