No Title

Tue, 30 Nov 1999 00:11:00 EST

Try

ReDim tmp(320*240)
Dim j

pixels = GetPixels()
j = 0
for i = 0 to (320*240*3)-1 step 3
  x = pixels(i)+ pixels(i+1)+ pixels(i+2)
  tmp(j) = x/3
  j = j + 1
Next

Instead ... but if you want to convert to gray scale there is a module for that!

STeven.

Error with VBScript

Tue, 30 Nov 1999 00:11:00 EST

I am getting "error (3): type mismatch" error in VBScript which running the VB program within RoboRealm for a very simple code. Some part of it is copied from the RoboRealm tutorials. The code is as below. If anyone can help to point out the error in coding it will help. Thanks in advance.

Dim pixels
Dim x
Dim tmp ()

pixels = GetPixels()
x = 0

for i = 0 to (320*240*3)-1 step 3
x = pixels(i)+ pixels(i+1)+ pixels(i+2)
tmp(i) = x/3
x = 0

Next

RoboRealm Forum

No Title

Error with VBScript