looking in a array and loop it

[Warbringer]

Dear readers.

I have a script which works fine except that I would like to add a loop into a current loop.

I have some info that I will use.

X 123,920
Y -221,322
Z -90,2

X 143,920
Y -251,322
Z -20,2

and some more.
I want to add these in a array, but I have no clue on how to do that.

Secondly, I need to build a loop which I do not know how to do. But it should be something like this:

If MyPositionX() <= 123,920 AND MyPositionX() >= 123,915 THEN
'press the left button'
SendCommand(75,1);
SendCommand(75,0);
End If

and so on, it should check the array for EVERY x_as and if it matches (within a +5 difference) it should send the command.

Could someone please show me how to do this?


Best regards

[abhijit]

Have you looked in the codebank?

Here's a link to a post in that forum.

[Warbringer]

cheer ill check it out, but main problem is I have no VBCODE knowledge at all, its just I am in desperate need of this modification (little script) lol but ill read and give it a try!

Thanks a lot abhijit!

[Warbringer]

Have you looked in the codebank?

Here's a link to a post in that forum.

Yeah, way to difficult for me. I have none to little knowledge about VB lol.
Was actually looking for someone who can write me the script so I can play around with it and learn it. I am in desperate need for it lol.

Anyways ill check it out and hope I will understand it lol.

Basicly what i need is a array on which I can add or substract things like "192.20", "211.3", "532.33392"

and so on. THen the loop has to check if i am at that position i.e.

If myPosition() == in_array(myarray) Then
' code in here '
EndIf

[abhijit]

Yeah, way to difficult for me. I have none to little knowledge about VB lol.
Was actually looking for someone who can write me the script so I can play around with it and learn it. I am in desperate need for it lol.

Anyways ill check it out and hope I will understand it lol.

Basicly what i need is a array on which I can add or substract things like "192.20", "211.3", "532.33392"

and so on. THen the loop has to check if i am at that position i.e.

If myPosition() == in_array(myarray) Then
' code in here '
EndIf

Here's a simple script to populate an array.

Dim x() As String
Dim iCounter As Integer

Private Sub Command1_Click()
'Array Population
    For iCounter = 1 To 10
        ReDim Preserve x(iCounter)
        x(iCounter) = Format(Now, "hh:mm:ss")
    Next iCounter
'Array Looping
       For iCounter = 1 To UBound(x) 
        Debug.Print x(iCounter)     
Next

End Sub

[Warbringer]

I think we have a miscommunication lmao...
I dont need a script to put things INTO a array... I need one thatgets it out!
For example I have this:

array("5", "10", "15", "20");

now what i need is a loop like this:

If myNumber() <= 10 Then
print "hello"
End If



but what i dont understand is two things:

1. How to make a array with already known values like the above sample (array("5", "10", "15", "20")
2. How to make the loop look if one of the values IN the array, equals the myNumber value

[abhijit]

I think we have a miscommunication lmao...
I dont need a script to put things INTO a array... I need one thatgets it out!
For example I have this:

array("5", "10", "15", "20");

now what i need is a loop like this:

If myNumber() <= 10 Then
print "hello"
End If



but what i dont understand is two things:

1. How to make a array with already known values like the above sample (array("5", "10", "15", "20")
2. How to make the loop look if one of the values IN the array, equals the myNumber value

Are your known values in a table? Are you planning to hardcode your values in the code? Is the array single dimensional?

For checking against the loop, you can still use my code.

    For iCounter = 1 To UBound(x)
     if x(iCounter) <= 10 Then
          debug.print "hello"
     end if
    Next

[Warbringer]

I know the values already yeah, and they need to be hardcoded (values never change).

[abhijit]

I know the values already yeah, and they need to be hardcoded (values never change).

In that case, one way I can think of is

'Declared Array
Dim x(5) As String
Dim iCounter As Integer

Private Sub Command1_Click()
    'Assigned Values
    x(0) = "India": x(1) = "China": x(2) = "Brazil": x(3) = "Russia": x(4) = "Yemen"
    
    'Looped Through Array
    For iCounter = 0 To UBound(x) - 1
            If x(iCounter) = "China" Then
                Debug.Print "Hello China"
            End If
    Next
    
End Sub

[Warbringer]

Okey, my code so far:

'Declared Array
Dim x(6) As String
Dim y(6) As String
Dim iCounter As Integer

Private Sub Command1_Click()
    'Assigned Values
    x(0) = "414,622": x(1) = "431,82": x(2) = "413,685": x(3) = "421,604": x(4) = "429,794": x(5) = "413,557"
	y(0) = "-400,55": y(1) = "-392,107": y(2) = "-380,754": y(3) = "-377,159": y(4) = "-363,381": y(5) = "-360,796"
    
    'Looped Through Array
    For iCounter = 0 To UBound(x) - 1
			'check if something equials the x array
            If x(iCounter) = "China" Then
                Debug.Print "x found"
            End If
			'check if something equials the y array
            If x(iCounter) = "China" Then
                Debug.Print "y found"
            End If
    Next
    
End Sub

Is there something like 'BETWEEN' ? i.e.

'check if something equials the x array
If x(iCounter) BETWEEN x(iCounter) -5 And x(iCounter) +5 Then

so i have a marge of 10 ?

[abhijit]

Okey, my code so far:

'Declared Array
Dim x(6) As String
Dim y(6) As String
Dim iCounter As Integer

Private Sub Command1_Click()
    'Assigned Values
    x(0) = "414,622": x(1) = "431,82": x(2) = "413,685": x(3) = "421,604": x(4) = "429,794": x(5) = "413,557"
	y(0) = "-400,55": y(1) = "-392,107": y(2) = "-380,754": y(3) = "-377,159": y(4) = "-363,381": y(5) = "-360,796"
    
    'Looped Through Array
    For iCounter = 0 To UBound(x) - 1
			'check if something equials the x array
            If x(iCounter) = "China" Then
                Debug.Print "x found"
            End If
			'check if something equials the y array
            If x(iCounter) = "China" Then
                Debug.Print "y found"
            End If
    Next
    
End Sub

Is there something like 'BETWEEN' ? i.e.

'check if something equials the x array
If x(iCounter) BETWEEN x(iCounter) -5 And x(iCounter) +5 Then

so i have a marge of 10 ?

For numeric variables, you could always do a comparison using the standard comparison operators.

If x(iCounter) < 10 AND x(iCounter) > 5 Then
   Debug.print "Number between 10 and 5"
End If

[Warbringer]

Yeah i knew but can i do:


If x(iCounter) < x(0) - 5 AND x(iCounter) > 5 Then
Debug.print "Number between 10 and 5"
End If


so i am adding minus 5 to the value... ?