<html>
<head>
<style>
P
{
margin:0px;
padding:0px
}
body
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body><BR><BR>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>Hi Leisha,</FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p><FONT face="Times New Roman" color=#000000 size=3> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>If the bar you would like to draw only contains simple graphics primitives (such as rectangles), it would also be possible to draw the bar using some inline script.</FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Times New Roman" color=#000000 size=3> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>Here is an example subroutine that should be placed in the user script section of the Sript window.</FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Times New Roman" color=#000000 size=3> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace">Sub DrawProgressBar(someSlide as Slide, _<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 5"> </SPAN>barObjectName as String, _<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 5"> </SPAN>progressPos as Single)<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Courier New, Courier, Monospace" color=#000000> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>Dim cnvs as Canvas<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>set cnvs = Display.Canvas<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Courier New, Courier, Monospace" color=#000000> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>' use a text object on slide to position the bar and to define the bar props<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>Dim bar as SlideText<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>Set bar = CSlideText(someSlide.States.Item(someSlide.ActiveState). _<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 4"> </SPAN>Objects(barObjectName)) <o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Courier New, Courier, Monospace" color=#000000> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>' check range [0..1]<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>if progressPos<0 then <o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 2"> </SPAN>progressPos = 0 <o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>elseif progressPos>1 then<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 2"> </SPAN>progressPos = 1<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>end if<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Courier New, Courier, Monospace" color=#000000> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>' store the bar position and dimension in temporary variables<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>Dim h%, x%, y%, w%<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>x = bar.Left<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>h = bar.Bottom - bar.Top<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>y = bar.Top<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>w = bar.Right - bar.Left<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Courier New, Courier, Monospace" color=#000000> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>' draw a filled rectangle without border <o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>cnvs.PenWidth = bar.BorderWidth<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>cnvs.PenColor = bar.BorderColor<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>cnvs.BackStyle = "opaque"<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>' first draw the complete bar<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>cnvs.FillColor = bar.BackColor<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>cnvs.Rectangle x, y, w, h<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Courier New, Courier, Monospace" color=#000000> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>' then fill a part of the bar<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>cnvs.FillColor = bar.ForeColor<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>dim f as long<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>f = CInt(w * progressPos)<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>cnvs.Rectangle x, y, f, h<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Courier New, Courier, Monospace" color=#000000> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>Set cnvs = Nothing<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT color=#000000><FONT face="Courier New, Courier, Monospace"><SPAN style="mso-tab-count: 1"> </SPAN>Set bar = Nothing<o:p></o:p></FONT></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Courier New, Courier, Monospace" color=#000000> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Courier New, Courier, Monospace" color=#000000>end Sub</FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Times New Roman" color=#000000 size=3> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Times New Roman" color=#000000 size=3> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>Before using this subroutine you should place a text object on your slide, which defines the position and color properties of the progress bar. Then you can call the subroutine by specifying the names of the slide and slidetext objects and the progress position (a value ranging from 0 to 1).</FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Times New Roman" color=#000000 size=3> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>For example:</FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Times New Roman" color=#000000 size=3> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 36pt"><FONT face="Courier New, Courier, Monospace" color=#000000 size=3>DrawProgressBar Slide1, "Text1", 0.2</FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Times New Roman" color=#000000 size=3> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><o:p><FONT face="Times New Roman" color=#000000 size=3> </FONT></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>hope this helps</FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>Paul</FONT></P><BR><BR>
<HR id=stopSpelling>
> Date: Wed, 1 Aug 2007 12:52:12 -0700<BR>> From: leisha@decisionresearch.org<BR>> To: eprime@mail.talkbank.org<BR>> Subject: Growing feedback bar<BR>> <BR>> Hi, all,<BR>> <BR>> What would be the easiest way to create a bar that grows on the screen? <BR>> Subjects can earn up to 28 points, so a green progress bar will grow <BR>> every time they earn a point. I have 28 bars of various sizes, but we <BR>> want the bar to appear to grow, so I also have a piece of the bar that <BR>> is one-quarter of one point. I want to add it to the top of the bar in <BR>> quick succession so that the bar appears to grow. The problem is <BR>> determining the exact place on the screen to place the little bar piece.<BR>> <BR>> Is there an easier way?<BR>> <BR>> Leisha Wharfield<BR>> Decision Research<BR>> Eugene, Oregon USA<BR>> <BR><br /><hr />In 2 tellen een webpagina voor al je fotos makkelijk en gratis met <a href='http://clk.atdmt.com/MSN/go/msnnksac0030000001msn/direct/01/?href=http://www.imagine-msn.com/spaces' target='_new'>Windows Live Spaces</a></body>
</html>