locked
make a teleprompter RRS feed

  • Question

  • Hello, I would try to make some sort of teleprompter.

    There is a first page with room for copy text and lay out as you want. The ability to completely erase the text.

    The ability to return a base speed of between 1 and 10.

    From there, you can launch the second page which contains text that will scroll.

    On the second page, you can see the text bigger (pause), with a menu on the right.

    In the menu, there is a play button, pause, stop, + and - buttons to adjust the speed of scrolling.

    The direction arrows to the direction of scrolling text.

    And a button to return to the first page of text (which must remain in memory) for adjusting the layout, in order to improve readability.

    Can you help me?

    Thank you.

    '------------------------------------------------------------
    Restart :
    GraphicsWindow.Clear()
    '------------------------------------------------------------


    GraphicsWindow.Width = 1280
    GraphicsWindow.Height = 600
    GraphicsWindow.Left =(Desktop.Width / 2) - (GraphicsWindow.Width / 2)
    GraphicsWindow.Top =(Desktop.Height / 2) - (GraphicsWindow.Height / 2)

    GraphicsWindow.CanResize = "False"



    GraphicsWindow.BackgroundColor = "black"
    GraphicsWindow.FontName = "DS-Digital"
    GraphicsWindow.FontSize = 30
    GraphicsWindow.BrushColor = "WHITE"
    GraphicsWindow.DrawText(10,10,"ENTREZ LE TEXTE")

    Controls.ButtonClicked=onclicked

    GraphicsWindow.BrushColor = "black"
    GraphicsWindow.FontName = "arial"
    GraphicsWindow.FontSize = 12
    texte1=Controls.AddTextBox(10,50)
    Controls.SetSize(texte1,700,500)


    GraphicsWindow.FontName = "DS-Digital"
    GraphicsWindow.FontSize = 30
    GraphicsWindow.BrushColor = "blue"
    GraphicsWindow.DrawText(800,50,"ENTREZ LA VITESSE DE DEFILEMENT")
    GraphicsWindow.DrawText(940,80,"DE 1 <---> 10")
    V1=Controls.AddTextBox(1000,120)
    Controls.SetSize(V1,40,30)


    GraphicsWindow.FontName = "DS-Digital"
    GraphicsWindow.BrushColor = "green"
    GraphicsWindow.FontSize = 30
    DEM=Controls.AddButton("DEMARRAGE DU SCROLL",860,300)


    GraphicsWindow.FontName = "DS-Digital"
    GraphicsWindow.FontSize = 20
    GraphicsWindow.BrushColor = "red"
    Bdel=Controls.AddButton("DELETE",300,560)


    Sub onclicked
      eff=Controls.GetButtonCaption(Controls.LastClickedButton)
      DEM=Controls.GetButtonCaption(Controls.LastClickedButton)
      If DEM="DEMARRAGE DU SCROLL" Then
        fenetrescroll()
        
        endif

      if eff="DELETE" then
      Controls.SetTextBoxText(texte1,"")              
      EndIf
    EndSub
     
     
     
      Sub fenetrescroll
        GraphicsWindow.Clear()
        GraphicsWindow.BrushColor = "white"
    GraphicsWindow.FontName = "arial"
    GraphicsWindow.FontSize = 40
    GraphicsWindow.DrawText(10,10,"" + texte1)


    GraphicsWindow.FontName = "DS-Digital"
    GraphicsWindow.FontSize = 100
    GraphicsWindow.BrushColor = "black"
    slideup=Controls.AddButton("↑",1200,100)
    slidedown=Controls.AddButton("↓",1200,220)
    GraphicsWindow.BrushColor = "green"
    play=Controls.AddButton(">",1000,100)
    pause=Controls.AddButton("ǁ",1060,100)
    stop=Controls.AddButton("▪",1140,100)

    vup=Controls.AddButton("+",1000,250)
    vdown=Controls.AddButton("-",1100,250)

    GraphicsWindow.FontName = "DS-Digital"
    GraphicsWindow.FontSize = 20
    GraphicsWindow.BrushColor = "BLUE"
    retour=Controls.AddButton("RETOUR TEXTE",1000,500)



    If retour="RETOUR TEXTE" Then
     
        
        endif

        endsub



    absolu


    • Edited by absolu Thursday, March 21, 2013 1:29 PM
    Thursday, March 21, 2013 1:15 PM

Answers

  • This is a prototype. SZT967-0 

    1)Textbox --->  MultilineTextbox

    2)If you use graphicswindow.clear() ,  textbox data is erased.

       so, controls.remove  is used.

    3) Maybe Buttons on second window are too large ????

    *  click  "DEMARRAGE DU SCROLL" and ">"

    * speed "+" ,"-"  works



    Friday, March 22, 2013 1:16 AM
    Answerer
  • How about this.   rather smoother?  SZT967-1
    Friday, March 22, 2013 8:53 AM
    Answerer

All replies

  • This is a prototype. SZT967-0 

    1)Textbox --->  MultilineTextbox

    2)If you use graphicswindow.clear() ,  textbox data is erased.

       so, controls.remove  is used.

    3) Maybe Buttons on second window are too large ????

    *  click  "DEMARRAGE DU SCROLL" and ">"

    * speed "+" ,"-"  works



    Friday, March 22, 2013 1:16 AM
    Answerer
  • Hello NaochanON,

    Yes, it begins to take shape ^ ^

    However, the text in sacade parade. Is it possible to make a fluid motion?

    For buttons, the size and positions, I will look later.

    Here, it works pretty well, it would just improve movement.

    absolu

    Friday, March 22, 2013 6:48 AM
  • How about this.   rather smoother?  SZT967-1
    Friday, March 22, 2013 8:53 AM
    Answerer
  • Yes, defile the text very well. This is top ^ ^

    The up and down arrows, should allow to reset the text where you want to resume playback at any time. It would be nice if it could be as fluid motion.

    And it would make the text larger + (48 approx.)

    The stop button should allow to put the text at the beginning and the pause button to position the text where you just stop it.

    Regarding the presentation, I will work on it later.

    This great advance.


    absolu


    • Edited by absolu Friday, March 22, 2013 10:06 AM
    Friday, March 22, 2013 10:04 AM
  • hello,

    I return to the prompt.
    I was wondering if it was possible to manipulate the teleprompter with kinect.
    So, it would be convenient to use the remote to the button events virtually.
    Is there an extension?

    absolu

    Wednesday, April 3, 2013 8:48 AM
  • There is no extension that I know of though writing your own would be a great way to get into VB / C#!

    Here is a link for Kinect resources on MSDN in case you are interested: http://channel9.msdn.com/coding4fun/kinect


    Please mark any answers and "vote as helpful" any posts that help you!

    Wednesday, April 3, 2013 10:45 PM
    Answerer
  • Yes, I looked.
    I installed the microsoft sdk and all that allows you to run the kinect.
    There are a lot of things, but nothing really serious.
    The greater part of the examples of PC are unstable and exotic.
    In addition, no almost no documentation to learn. You must be an expert and be part of a team in a research laboratory for exciting developments.

    I'll just simply develop ^^

    thank yo

    absolu

    Sunday, April 7, 2013 4:02 PM