Teleprompter

[ayesha16]

i am creating a teleprompter software. i want the following things

1. scrolling text smoothly in a picturebox from bottom to top and vice versa from top to bottom.
2. the speed of scrolling text should be adjustable to the maximum and minimum.

[pradeepkrao]

Hi,

Here is the logic for moving text smoothly in your picturebox

Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private gmloop As Boolean
 
Private Sub Form_Load()
Dim i As Integer
Dim strStr As String
Dim tmp As Long
Dim UpDown As Integer
 
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Me.Show
Picture1.CurrentX = 10
strStr = "Hello this is your Text" & vbCrLf & "Hello how are you " & vbCrLf & " "
UpDown = 1
While Not gmloop
    
    DoEvents
    If GetTickCount - tmp > 50 Then
        Picture1.Cls
        tmp = GetTickCount
        Picture1.CurrentY = i
        Picture1.Print strStr
        i = i + UpDown
        If i < -10 Or i > Picture1.ScaleHeight Then UpDown = -UpDown
    End If
    
Wend
End
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    gmloop = True
End Sub

[pradeepkrao]

To change the speed
Modify the the code ...

If GetTickCount - tmp > 50 Then

Change To

If GetTickCount - tmp > tDelay Then
' Control the value of tDelay using a Scroll bar or whatever....

Regards,
Pradeep

[ayesha16]

the text is scrolling smoothly. but i have a problem. when i press the up arrow key it should scroll up and when i press the down arrow key it should scroll down from the current scrolling line. By default the text should start scrolling from bottom to top. i would of great help if u could solve this.i require it very urgently.

[pradeepkrao]

Hi,

Here it is..

Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private gmloop As Boolean
Dim UpDown As Integer
 
Private Sub Form_Load()
Dim i As Integer
Dim strStr As String
Dim tmp As Long
 
 
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Me.Show
Picture1.CurrentX = 10
strStr = "Hello this is your Text" & vbCrLf & "Hello how are you " & vbCrLf & " "
i = Picture1.ScaleHeight
UpDown = 1
While Not gmloop
    
    DoEvents
    If GetTickCount - tmp > 50 Then
        Picture1.Cls
        tmp = GetTickCount
        Picture1.CurrentY = i
        Picture1.Print strStr
        i = i + UpDown
        If i < -10 Or i > Picture1.ScaleHeight Then UpDown = -UpDown
    End If
    
Wend
End
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    gmloop = True
End Sub
 
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            UpDown = -1
        Case vbKeyDown
            UpDown = 1
    End Select
End Sub

[ayesha16]

the up and down arrow keys are working perfectly. but why is the text bouncing back if it reaches the top and bottom of the picturebox. actaually i would be loading a large text file. So the text should keep scrolling from bottom to top till it reaches the last line of the text. i should not bounce back when it reaches the border of the picturebox. even while scrolling from top to bottom it is the same. i hope u would have understood. this is for news reading purpose. the reader should keep on reading the text as it scrolls from bottom to top.

[The Dutch Dude]

quicky glancing over the code, removing this line might do the trick:

If i < -10 Or i > Picture1.ScaleHeight Then UpDown = -UpDown

[pradeepkrao]

Hi ayesha16,

I guess you requirements were..

Originally posted by ayesha16
i am creating a teleprompter software. i want the following things

1. scrolling text smoothly in a picturebox from bottom to top and vice versa from top to bottom.
2. the speed of scrolling text should be adjustable to the maximum and minimum.

You have mentioned vice versa..

Are you new to VB...?.... If not.. I guess you can change the code..

If not let me know I will do it at my leisure...

Please give me your exact requirements.

Regards,
Pradeep

[ayesha16]

Hi,

My exact requirements are as follows. Actually i am doing a teleprompter software for news reading purpose. This should be in the form of a text editor. I would be loading a Txt file in a picturebox.Once i press the space bar the text should scroll smoothly in the picturebox from bottom to top. this is done so that the news reader could read the scrolling text till the last line of text file. it is possible to stop the scrolling text in the middle. So in order to stop the scrolling text the space bar should be pressed. the space bar should be pressed again to continue scrolling. the up and down arrow keys should be used to either scroll text upwards or downwards from the current line which i alredy mentioned. the left and right arrow keys should be used to increase and decrese the speed. since this is a teleprompter software there would be mirror in front of the teleprompter machine. So the reader would not be able to read in the proper order in the mirror. i would be reversed. so there should be a method to reverse the scrolling text with a mirrored font as well. hope u would have understood what i want here. when i press F9 key the mirror image of the scrolling text should be visible which could be readable when it reflects on a mirror. When i press F8 key agin the original scrolling text should be seen. These are my requirements. Please help me out. Iam new to VB. i require this urgently.

[pradeepkrao]

OK..

I dont know how to do the mirroring of the text...
Well you better install a reversed fonts (I dont know where you could find them.. though..)

I will send you the rest of the code..

[Spooner]

As far as I know, "TelePrompter" is a trade name; so be careful what you call this thing and check that you're not infringing any patents?

[pradeepkrao]

Hi,

Create a text file C:\yourtxtfile.txt
and put your text there...

Press up arrow to scroll down and down to scroll up...
left to accelerate and down to decelerate..

Keep the keys pressed else it will stop...

Inverting the fonts...

Better install a inverted fonts and set it as the font for your picture box..

Instead of picture box you could have very well used a text box..

Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private gmloop As Boolean
Dim UpDown As Single
 
Private Sub Form_Load()
Dim i As Integer
Dim strStr As String
Dim tmp As Long
Dim st As String
 
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Me.Show
Picture1.CurrentX = 10
 
Open "C:\yourtxtfile.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, st
        strStr = strStr & vbCrLf & st
    Wend
Close #1
 
i = Picture1.ScaleHeight
UpDown = 1
While Not gmloop
    
    DoEvents
    If GetTickCount - tmp > 50 Then
        Picture1.Cls
        tmp = GetTickCount
        Picture1.CurrentY = UpDown
        Picture1.Print strStr
    End If
    
Wend
End
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    gmloop = True
End Sub
 
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            UpDown = UpDown + 1
        Case vbKeyDown
            UpDown = UpDown - 1
        Case vbKeyLeft
            UpDown = UpDown / 0.9
        Case vbKeyRight
            UpDown = UpDown / 1.1
            If UpDown = 0 Then UpDown = 0.1
    End Select
End Sub

[ayesha16]

the earlier coding which u sent was correct.it should scroll continously with the up and down arrow keys. But there is a problem here. when u load the text file all the contents of the file are loaded in a single line. how to word wrap the contents in a picturebox.

[ayesha16]

how to start and stop scrolling when i press space bar which i mentioned earlier.Once i press the space bar the text should scroll smoothly in the picturebox from bottom to top. this is done so that the news reader could read the scrolling text till the last line of text file. it is possible to stop the scrolling text in the middle. So in order to stop the scrolling text the space bar should be pressed. the space bar should be pressed again to continue scrolling.

[pradeepkrao]

Ho.... Sorry..

But I have to say that..

You are making me do the next "teleprompter software".

[pradeepkrao]

Partially Done..

Try this one....

The wordwrap is also done.. but maybe you could improve the logic...

Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private gmloop As Boolean
Dim UpDown As Single
Dim mv As Integer
Dim speed As Integer
 
Private Sub Form_Load()
Dim i As Integer
Dim strStr As String
Dim tmp As Long
Dim st As String
 
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Me.Show
Picture1.CurrentX = 10
speed = 50
Open "C:\yourtxtfile.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, st
        st = splt(st)
        strStr = strStr & vbCrLf & st
    Wend
Close #1
strStr = strStr & vbCrLf & " "
i = Picture1.ScaleHeight
UpDown = -1
While Not gmloop
    
    DoEvents
    If GetTickCount - tmp > speed Then
        Picture1.Cls
        tmp = GetTickCount
        Picture1.CurrentY = i
        Picture1.Print strStr
        i = i + UpDown * mv
        
    End If
    
Wend
End
End Sub
Private Function splt(strStr As String)
    Dim l As Long
    Dim tmpStr As String
    Dim StrS As String
    l = Len(strStr) * 10
    
    StrS = strStr
    If l < Picture1.ScaleWidth Then splt = strStr: Exit Function
    
    For k = Picture1.ScaleWidth To l Step Picture1.ScaleWidth
        tmpStr = Mid$(StrS, k / 10)
        StrS = Mid$(StrS, 1, k / 10)
        StrS = StrS & vbCrLf & tmpStr
    Next
    splt = StrS
End Function
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    gmloop = True
End Sub
 
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            UpDown = -1
        Case vbKeyDown
            UpDown = 1
        Case vbKeyLeft
            speed = speed - 1
            If speed < 5 Then speed = 5
        Case vbKeyRight
            speed = speed + 1
            If speed > 500 Then speed = 500
        Case vbKeySpace
            mv = mv + 1
            mv = mv Mod 2
    End Select
End Sub

Regards,
Pradeep

[pradeepkrao]

Hi,

See this..

Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private gmloop As Boolean
Dim UpDown As Single
Dim mv As Integer
Dim speed As Integer
 
Private Sub Form_Load()
Dim i As Integer
Dim strStr As String
Dim tmp As Long
Dim st As String
 
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Me.Show
Picture1.CurrentX = 10
speed = 50
Open "C:\yourtxtfile.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, st
        st = FormatText(st, 7)
        st = splt(st)
        strStr = strStr & vbCrLf & st
    Wend
Close #1
strStr = strStr & vbCrLf & " "
i = Picture1.ScaleHeight
UpDown = -1
While Not gmloop
    
    DoEvents
    If GetTickCount - tmp > speed Then
        Picture1.Cls
        tmp = GetTickCount
        Picture1.CurrentY = i
        Picture1.Print strStr
        i = i + UpDown * mv
        
    End If
    
Wend
End
End Sub
Private Function splt(strStr As String)
    Dim l As Long
    Dim tmpStr As String
    Dim StrS As String
    l = Len(strStr) * 10
    
    StrS = strStr
    If l < Picture1.ScaleWidth Then splt = strStr: Exit Function
    
    For k = Picture1.ScaleWidth To l Step Picture1.ScaleWidth
        tmpStr = Mid$(StrS, k / 10)
        StrS = Mid$(StrS, 1, k / 10)
        StrS = StrS & vbCrLf & tmpStr
    Next
    splt = StrS
End Function
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    gmloop = True
End Sub
 
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            UpDown = -1
        Case vbKeyDown
            UpDown = 1
        Case vbKeyLeft
            speed = speed - 1
            If speed < 5 Then speed = 5
        Case vbKeyRight
            speed = speed + 1
            If speed > 500 Then speed = 500
        Case vbKeySpace
            mv = mv + 1
            mv = mv Mod 2
    End Select
End Sub
 
Private Function FormatText(sString As String, WordsPerLine As Integer) As String
    Dim MyArray() As String, NewString As String
    
    NewString = Replace(sString, "  ", " ")
    MyArray = Split(NewString, " ")
    NewString = ""
    For i = 0 To UBound(MyArray)
        j = j + 1
        If j > WordsPerLine Then
            NewString = NewString & " " & MyArray(i) & "" & vbCrLf & ""
            j = 0
        Else
            NewString = NewString & " " & MyArray(i)
        End If
    Next
 
    FormatText = NewString
End Function

[pradeepkrao]

Wow.. finally i have done.. all your requirements...

Have a look..

There is mirror image of the text also...

Regards,
Pradeep

[ayesha16]

everthing is working perfectly but why is the speed of the scrolling text so slow. even if i increase it to the maximum it is very slow.

[pradeepkrao]

Hi,

Speed is controlled.. using left arrow and right arrow..

what is your machine RAM and CPU Speed.

I am able to control the speed...

Happy Programming....

Regards,
Pradeep

[ayesha16]

the speed could be controlled. but the scrolling text is not scrolling smoothly there is a jerk. the coding which u had first sent had a very smooth scrolling also the speed was very fast. please check up the first coding and see the difference which i meant even if the speed is increased.

[pradeepkrao]

Hi Ayesha,

Since I am reversing the Picture.. it is taking time..

Please comment the code..

for reversing and run..



Regards,
Pradeep

[ayesha16]

So how do i solve the problem of scrolling speed by having both.

[pradeepkrao]

Hi,

You are indeed a Great Manager..
I have to say it..

Compromise on smoothness..

Private Declare Function GetTickCount& Lib "kernel32" ()
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
 
 
Private gmloop As Boolean
Dim UpDown As Single
Dim mv As Integer
Dim speed As Single
 
Private Sub Form_Load()
Dim i As Integer
Dim strStr As String
Dim tmp As Long
Dim st As String
 
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Me.Show
Picture1.CurrentX = 250
speed = 1
Open "C:\yourtxtfile.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, st
        st = FormatText(st, 7)
        st = splt(st)
        strStr = strStr & vbCrLf & st
    Wend
Close #1
strStr = strStr & vbCrLf & " "
i = bg.ScaleHeight - 20
UpDown = -1
mv = 1
While Not gmloop
    
    DoEvents
    If GetTickCount - tmp > 100 Then
        Picture1.Cls
        bg.Cls
        tmp = GetTickCount
        bg.CurrentY = i
        bg.Print strStr
        bg.Refresh
        drawInverse
        i = i + UpDown * mv * speed
        
    End If
    
Wend
End
End Sub
Private Sub drawInverse()
    Dim i As Long
    Dim j As Long
    Dim k As Long
    For i = 0 To Picture1.ScaleHeight
        For j = 0 To Picture1.ScaleWidth
        
            k = GetPixel(bg.hdc, Picture1.ScaleWidth - j, i)
            
            If k <> vbBlack Then SetPixel Picture1.hdc, j, i, k
            
        Next
    Next
    Picture1.Refresh
End Sub
Private Function splt(strStr As String)
    Dim l As Long
    Dim tmpStr As String
    Dim StrS As String
    l = Len(strStr) * 10
    
    StrS = strStr
    If l < Picture1.ScaleWidth Then splt = strStr: Exit Function
    
    For k = Picture1.ScaleWidth To l Step Picture1.ScaleWidth
        tmpStr = Mid$(StrS, k / 10)
        StrS = Mid$(StrS, 1, k / 10)
        StrS = StrS & vbCrLf & tmpStr
    Next
    splt = StrS
End Function
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    gmloop = True
End Sub
 
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            UpDown = -1
        Case vbKeyDown
            UpDown = 1
        Case vbKeyLeft
            speed = speed * 0.9
            
        Case vbKeyRight
            speed = speed / 0.9
        Case vbKeySpace
            mv = mv + 1
            mv = mv Mod 2
    End Select
End Sub
 
Private Function FormatText(sString As String, WordsPerLine As Integer) As String
    Dim MyArray() As String, NewString As String
    
    NewString = Replace(sString, "  ", " ")
    MyArray = Split(NewString, " ")
    NewString = ""
    For i = 0 To UBound(MyArray)
        j = j + 1
        If j > WordsPerLine Then
            NewString = NewString & " " & MyArray(i) & "" & vbCrLf & ""
            j = 0
        Else
            NewString = NewString & " " & MyArray(i)
        End If
    Next
 
    FormatText = NewString
End Function

[ayesha16]

this is still not smooth like how the original was.there is a jerk while scrolling

[ayesha16]

is it not possible to have a single picture box and obtain th mirror image of text in that picturebox. i had already mentioned that when the text is scrolling if i press F9 the mirror image of the text should appear and if i press F8 the original text should scroll.

[pradeepkrao]

I guess you can do it..

If you need only one picture box , hide the other at runtime.

i.e make

bg.visible = False

To handle f9 f8 key inputs
add few lines in the below code..

vbKeyF8
vbKeyF9


Try learning from the code..

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp

[ayesha16]

but what about the speed in picture1. the speed in bg is correct if i remove drawinverse. now i want the same speed in picture1 by making bg.visible=false.

[ayesha16]

what happened to the question i asked u earlier.
but what about the speed in picture1. the speed in bg is correct if i remove drawinverse. now i want the same speed in picture1 by making bg.visible=false.

i have another problem. u have given a fixed statement for load a file. but it is not a fixed file name. when i say load text file My documents folder shuld open and i should be able to select a file for scrolling.this cannot be used.
'Open "C:\My Documents\unity.txt" For Input As #1
' While Not EOF(1)
' Line Input #1, st

[sagey]

is this guy being paid or what?

he seems to have pretty much written your entire app, and you still want more!


there is helping with a problem and there is writing the thing for you. i think this is a case of the latter.

[DaveBo]

Just "I need"

[kleinma]

Originally posted by ayesha16
i am creating a teleprompter software. i want the following things

no your not. apparently pradeepkrao is though

have you ever written an application in your life?

[pradeepkrao]

Ha ha ha ha

Yeah kleinma I endedup in creating a new TelePrompter Software..

[sagey]

don't get me wrong since i've been using these forums i've asked for a lot of help, sometimes several times per project. but i always post as a last resort, and i always make sure i understand the answers posted.

i certainly wouldn't do what this bloke has done on this thread and keep asking someone to write a program.

i can't believe pradeepkrao put up with it. i would have been tempted to put some file deletes into the code just to check if ayesha16 actually understand the code before blindly running it. (but then i can be vindictive).

by the way pradeepkrao i think your app is excellent.

[ayesha16]

Hi,

thank u very much Mr.PradeepKRao for all the help. It is silly of me to keep on asking questions. But i cannot help it. B'coz i am new to VB i had to ask u. Actuallu i have various other features to be included in this software. What i asked u is only 25% of my project. Iam really sorry if i have hurt u by any means. But the code u had sent me was really helpful to a large extent. If u dont mind could u do a final favour for me.and i should be able to select a file for scrolling from the mydocuments folder instead of using a standard file.this cannot be used.
'Open "C:\My Documents\unity.txt" For Input As #1
' While Not EOF(1)
' Line Input #1, st

if it is possible please help me out with this alone and i would be very grareful to u.

[pradeepkrao]

by the way pradeepkrao i think your app is excellent.

Thanks.

ayesha16 dont feel bad, keep a positive attitude.

Yes your requirement is use a file select feature..

You may use a Common Dialog Control.

You might be going Bonkers when I said Common Dialog Control.

Any way I will do it and post it to you.

I am basically jobless .

Regards,
Pradeep

[pradeepkrao]

Hi Ayesha,

Check it out..

I have learnt VB using this site.

I joined this forum 2 years back and I dint even know how to Open a VB IDE forget about programming.

I consider forums are the best place to learn.

I suggest you to learn here.

Regards,
Pradeep

There is no Shortcut for Hard Work

[ayesha16]

thank u very much for the new code.but if command buttons are placed it is not possible to use the space bar,upand down arrow keys and right and left arrow keys. So i placed a menu bar and put the file select option in the menu bar. the run option i placed it in the enter key code. So this was working but the space bar was not working to stop and scroll again b'coz if i press the space bar the form gets unloaded. also i want the font size to be
48 and font name should be Arial Black. if i do this change then the scrolling text apears jumbled up with overlapping letters and it starts scrolling from middle of the text file. so could u please suggest a remedy for this.

[pradeepkrao]

Please make sure that the focus is on the right Picture Box.

Change the fot of the bg Picture box to whatever you want.

See the code for its KeyDown event you might have to modify it..

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            UpDown = -1
        Case vbKeyDown
            UpDown = 1
        Case vbKeyLeft
            speed = speed * 0.9
            
        Case vbKeyRight
            speed = speed / 0.9
        Case vbKeySpace ' This handles the Space key Press Event
            mv = mv + 1
            mv = mv Mod 2
    End Select
End Sub

By the way are you a student or a proffesional. ?.

Regards,
Pradeep

[ayesha16]

sorry to tell u but this doesn't work if i increase the font size