PC Review


Reply
Thread Tools Rate Thread

ticker tape like continuous display

 
 
Doug F.
Guest
Posts: n/a
 
      9th Jul 2008
I want a scrolling, looping, continous band of data on display.
It's for the results of a silent auction as they come in. We would
project the scroll on overhead screens.
Thanks.
 
Reply With Quote
 
 
 
 
Marshall Barton
Guest
Posts: n/a
 
      9th Jul 2008
Doug F. wrote:

>I want a scrolling, looping, continous band of data on display.
>It's for the results of a silent auction as they come in. We would
>project the scroll on overhead screens.



Try something like this code in the form's module:

Private pos As Long

Sub latestbidtextbox_AfterUpdate()
Me.allbidstaxtbox = Me.allbidstextbox _
& Me.latestbidtextbox
End Sub

Sub Form_Timer()
pos = pos + 1
Me.tickertextbox = Mid(Me.allbidstextbox, pos)
End sub

Try setting the form's TimerInterval property to 500 and
fine tune it to suit.

--
Marsh
MVP [MS Access]
 
Reply With Quote
 
Jim Burke in Novi
Guest
Posts: n/a
 
      9th Jul 2008
How you implement it depends on how you want it displayed. From what I can
tell, Marshall's suggestion will keep appending new bids to the end of a
string of all bids, and remove one character at a time from the front of the
string. This means the first item will disappear after some time, never to be
shown again, then the 2nd,etc. If that's what you want then that will work.
If you want something similar to what you see on TV, where the same thing
keeps scrolling by over and over, that requires some more logic. Do you want
all items to be displayed as you go along, with new ones added on as needed,
repeating over and over? If that's what you're looking for, then I think you
want the timer event something like:

if pos < len(allbidstextbox) then
pos = pos +1
if pos > 1 then
frontEnd = mid(allbidstextbox, pos-1)
else
frontEnd = vbNUllString
end if
else
pos = 1
frontEnd = vbNUllString
end if
tickertextbox = Mid(allbidstextbox, pos) & frontEnd

Then whenever a new item is added, add the new item to the end of the
textbox that holds the entire string like Marshall showed and reset pos to 0.
And the pos variable should start at 0 initially, when the form opens. I
think this will work similar to the way the repeating TV-type tickertapes
work.





"Doug F." wrote:

> I want a scrolling, looping, continous band of data on display.
> It's for the results of a silent auction as they come in. We would
> project the scroll on overhead screens.
> Thanks.

 
Reply With Quote
 
Doug F.
Guest
Posts: n/a
 
      10th Jul 2008
Thanks, this gives me a good start point.

"Marshall Barton" wrote:

> Doug F. wrote:
>
> >I want a scrolling, looping, continous band of data on display.
> >It's for the results of a silent auction as they come in. We would
> >project the scroll on overhead screens.

>
>
> Try something like this code in the form's module:
>
> Private pos As Long
>
> Sub latestbidtextbox_AfterUpdate()
> Me.allbidstaxtbox = Me.allbidstextbox _
> & Me.latestbidtextbox
> End Sub
>
> Sub Form_Timer()
> pos = pos + 1
> Me.tickertextbox = Mid(Me.allbidstextbox, pos)
> End sub
>
> Try setting the form's TimerInterval property to 500 and
> fine tune it to suit.
>
> --
> Marsh
> MVP [MS Access]
>

 
Reply With Quote
 
Doug F.
Guest
Posts: n/a
 
      10th Jul 2008
Thanks, Jim. Yes I want repeating.

"Jim Burke in Novi" wrote:

> How you implement it depends on how you want it displayed. From what I can
> tell, Marshall's suggestion will keep appending new bids to the end of a
> string of all bids, and remove one character at a time from the front of the
> string. This means the first item will disappear after some time, never to be
> shown again, then the 2nd,etc. If that's what you want then that will work.
> If you want something similar to what you see on TV, where the same thing
> keeps scrolling by over and over, that requires some more logic. Do you want
> all items to be displayed as you go along, with new ones added on as needed,
> repeating over and over? If that's what you're looking for, then I think you
> want the timer event something like:
>
> if pos < len(allbidstextbox) then
> pos = pos +1
> if pos > 1 then
> frontEnd = mid(allbidstextbox, pos-1)
> else
> frontEnd = vbNUllString
> end if
> else
> pos = 1
> frontEnd = vbNUllString
> end if
> tickertextbox = Mid(allbidstextbox, pos) & frontEnd
>
> Then whenever a new item is added, add the new item to the end of the
> textbox that holds the entire string like Marshall showed and reset pos to 0.
> And the pos variable should start at 0 initially, when the form opens. I
> think this will work similar to the way the repeating TV-type tickertapes
> work.
>
>
>
>
>
> "Doug F." wrote:
>
> > I want a scrolling, looping, continous band of data on display.
> > It's for the results of a silent auction as they come in. We would
> > project the scroll on overhead screens.
> > Thanks.

 
Reply With Quote
 
 
 
Reply

Thread Tools
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

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
CNN Ticker Tape for XP Connor Windows XP MovieMaker 3 25th Feb 2011 10:22 PM
ticker tape JP Ronse Microsoft Outlook VBA Programming 2 24th Aug 2009 04:17 PM
Ticker tape =?Utf-8?B?YmxvbmRpZQ==?= Microsoft Powerpoint 1 5th Mar 2007 07:45 PM
Creating a continuous ticker tape message =?Utf-8?B?UGhhcm1hcHJlc2VudGVy?= Microsoft Powerpoint 2 26th Sep 2005 10:00 PM
Ticker Tape Phillip Shackelton Windows XP General 1 8th Oct 2003 06:55 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 12:37 AM.