VB6 Code Help

[keithdoxey]

I am facing a problem with the VB code. I cannot figure out how to program a command button (in VB6) to keep sending a stream of string when the comannd button is kept pressed. At present I can only program in a way that it sends a string only once. I have 4 command buttons for 4 direction and I am interested in Momentary action for these Command Buttons.

I did something similar for controlling a Video Conferencing camera.

Instead of using the Click event for the button....

1. Create a timer for each button and have the timer send a command each time it expires.

2. Use the MouseDown event to enable the timer

3. Use the MouseUp event to disable the timer.

The end result is that for the duration of the button press, your program will send the command every x milliseconds depending on what you set x to be.

You can get clever and include a counter as well so that you start off with one command every 200mS giving slow control but after "n" steps you decrease the time period so that the movement accellerates either gradually... 200, 190, 180, 170 etc or rapidly 200, 200, 200, 50, 50, 50 etc

Hope that helps

[charudatt]

Thanks fellas,

I shall try it out and give my feedback. Good tip of using a Timer.

regards

[mazmoiz]

Hello !!
May be this piece of code can help u in sending a stream of strings as u want !! (X-Y Movement) and continous streaming !!!

Send the values of X and Y text boxes to the COM port.
U have to modify this code as per ur requirements !!

here the values of textboxes ranges from 0-100 in both the directions
You have to set the value between 25 to 225 if using Servo motors !!

the arm movements will follow the mouse movements in x-y position.

(Note: here code only shows X-Y movements !!! and it doesnt contain
COM event programming !! You have to use COM control for
sending textbox values to the port)

I hope u'll find this code helpful and useful for your project !!
Regards

Mazhar Haque


PLS have a look at the attached ZIP file !!!
--------------------------------------------------------------------------

Private Sub Command1_Click()
xl.Visible = True
yl.Visible = True
Picture2.Visible = False

End Sub


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
xl.Visible = False
yl.Visible = False
Picture2.Visible = True
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim intx As Integer
Dim inty As Integer

xl.Y1 = Y
xl.Y2 = Y
intx = Abs(Y - 100)
xt.Text = intx


yl.X1 = X
yl.X2 = X
inty = Abs(X - 100)
yt.Text = inty

End Sub

[rhino]

Nice code mazmoiz,
Who needs a joystick? I know I can think of some applications this code could be useful.... with a little modification. Koodos