Gerard 3300
Newbie
Nov 18, 2005, 5:55 AM
Post #1 of 2
(1766 views)
Shortcut
|
Make A Good Auto Talker
|
Can't Post
|
|
Okay this is an good AutoTalker... choose your speed and stuff
first make 2 CommandButtons... one named START The second Named STOP..
Make 2 TextBoxes... on called speed another called Text.
and make 2 labels... the one to show how many times u wrote and another to show what your speed is on...
And now make a timer...
Now the put this code in the Start Buttons source code
Private Sub cmdCommand2_Click()
Timer1.Enabled = True
Label2.Caption = Timer1.Interval
End Sub
.....................
This code into the STOP buttons code
Private Sub cmdCommand1_Click()
Timer1.Enabled = False
End Sub
....................
This code into the Timer
Private Sub Timer1_Timer()
SendKeys (Text2.Text & "{enter}")
Label1.Caption = Val(Label1.Caption) + 1
End Sub
...................
This code into the Speed Textbox...
Private Sub Text1_Change()
Timer1.Interval = Val(Text1.Text & "000")
End Sub
and now you are done with your AutoTalker...
|
FORUM
SEARCH
WHO'S 
LOG 
RULES / FAQ
