How would you make 1 letter appear at a time W/O having 50 timers? Thanks- HELP!

[spyplayer]

I would like the words GOOD - BYE to appear 1 at a time.... im kinda making a fake virus for my friend... he wants to load it onto one of his friends pc's to really freak him out.... it has a timer and you can set the time to whatever you want.. the form is hidden and at the time you set.... a screen comes up with a worm... changing colors... saying above it VIRUS WORM 51268 ..... then it shuts down your compurter....... Kinda dumb but I would love any help you could give me on the letters GOOD - BYE appearing 1 at a time, about a half second apart...


-THANKS IN ADVANCED!!!!!

[jamieoboth]

Well.... You could have the text box, and then put a blank label on top. Then, using ONE timer, move the left of the blank label across, so it shows a bit of the message at one time.
Put the following in the timer part

EG:

' This part says that if the blank label left is below the Form1 left * width then continue moving it, else, stop moving it to save system rersources)
If blnklbl1.left > (form1.left * form1.width) then
blnklbl1.left = blnklbl1.left - 100
else:
timer1.enabled = false

Hope that helps!

If not, tell me and I will try a different way!!

[Behemoth]

Plenderj and Arbiter argued about this in a thread recently. you should be able to find it if you do a search.

(incidentally they had almost identical code, and I think it was very similar to jamieoboth's)

[CornedBee]

Or use the Sleep API to pause between the characters, and each time simply draw one more. (That's a C style approach, since it doesn't have such controls as in VB)

[Sastraxi]

Yeah, I would use Cornedbee's approach if you're not going to have anything else going at the same time.

If you really want to freak him out, try opening, writing a letter to a text file that you make, and closing the file. Do this on a loop basis so the harddrive indicator is going mad.

Something like this I would use:

Function ShowLetters(Delay As Long, Word As String, Output As Label)
Dim I As Long
Dim T As Long
    Output.Caption = ""
    For I = 1 To Len(Word)
        T = GetTickCount
        Do
            DoEvents
        Loop Until GetTickCount - T => Delay
        Output.Caption = Output.Caption & Mid(Word, I, 1)
    Next I
End Function

Use Delay as a millisecond value and make sure you have the GetTickCount API declared.

[spyplayer]

Ok, Sastraxi, You always answer my forums with good answers, but your too advanced for me.... I tried the Bees thing and yours but I didn't get anything to work,,,,, how would i pause between each letter? I just used the label thing, that is a lot easier.... and also where would be a good place to learn Direct-X, I am a beginner at it..... VERY VERY BEGINNER.....

THANKS SO MUCH!!!!

[/\/\isanThr0p]

watch out with those programs!
I once did one in a Basic like language called "asic" it was compilable and pretty fast it only had about 30 commands, and it only ran under dos...
Well what I did was some kind of program looking kinda like scandisk. What it did to have the HD light go on and off, was to create and delete a folder... . It ran fast and without problems on my Pentium 75 (yeah it's long ago) but on my friends pc it was slow like hell. I told him that it would do diagonsis since his pc was pretty wrecked. When I saw how slow it ran I told him to turn it off, but he did not want to
well after it was done it told him something like: Dude what did you do with this computer everything is screwed up and bla bla.
well he didn't even get the joke since I wrote the message in English (I am german and so is he) and we were only about 14...
well the program left some folder on the HD... as he deleted that folder it deleted the whole HD I really got no clue what happened, but that's what happend.
(now I am pretty sure that the Motherboard was broken and was responsible for all of that...)

well long story....
all it says watch out! :

[Sastraxi]

Okay, download this sample and see how to use it (it's a form):

[Sastraxi]

And here's one with the subclassing:

[KingDavid]

'1 textbox
'1 label
'1 Timer
'1 CommandButton
Private Sub Command1_Click()
    Timer1.Interval = 100
    Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
    Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
    On Error GoTo Timer1_ERR
    Static Counter As Integer
    If Counter = Len(Text1.Text) + 1 Then
        Counter = 0
        'Label1.Caption = ""
        Timer1.Enabled = False
        Exit Sub
    End If
    
    Label1.Caption = Left(Text1.Text, Counter)
    Counter = Counter + 1
    
    DoEvents
    Exit Sub
Timer1_ERR:
    Debug.Print Err.Number & ":" & Err.Description
    Counter = 0
    Timer1.Enabled = False
End Sub

[plenderj]

Originally posted by Behemoth
Plenderj and Arbiter argued about this in a thread recently. you should be able to find it if you do a search.

(incidentally they had almost identical code, and I think it was very similar to jamieoboth's)

That discussion was a looong time ago I believe

[Hu Flung Dung]

Originally posted by spyplayer
I would like the words GOOD - BYE to appear 1 at a time.... im kinda making a fake virus for my friend... he wants to load it onto one of his friends pc's to really freak him out.... it has a timer and you can set the time to whatever you want.. the form is hidden and at the time you set.... a screen comes up with a worm... changing colors... saying above it VIRUS WORM 51268 ..... then it shuts down your compurter....... Kinda dumb but I would love any help you could give me on the letters GOOD - BYE appearing 1 at a time, about a half second apart...


-THANKS IN ADVANCED!!!!!

Ahh, If you really want to freak him out, you can make the CD-Rom door open and close by itself a couple of times!

Put this in the declarations section:

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long


To open the CD-Rom door, use this code (returnstring doesn't have to be set to anything):


retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)


To close to CD-Rom door, use this code:


retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)


Sorry if this is off topic, but I think this would be pretty funny!