hi guys ..

i have problem in this code . it dose not work

am trying to make gaussian filter in spatial domain.

is this possible ???????

pls, any help

```
#Const gauss_width = True
sumr=0
sumg=0
sumb=0
Dim gauss_fact() As Integer = {1,6,15,20,15,6,1}
Dim gauss_sum As Integer = 64
For i = 1 To temp.w-2
For j = 1 To temp.h-2
sumr=0
sumg=0
sumb=0
For k = 0 To DefineConstants.gauss_width - 1
color=getpixel(temp,i-((DefineConstants.gauss_width-1)>>1)+k,j)
r=getr32(color)
g=getg32(color)
b=getb32(color)
sumr+=r *gauss_fact(k)
sumg+=g *gauss_fact(k)
sumb+=b *gauss_fact(k)
Next k
putpixel(temp1,i,j,makecol(sumr/gauss_sum,sumg/gauss_sum, sumb/gauss_sum))
Next j
Next i
For i = 1 To temp.w-2
For j = 1 To temp.h-2
sumr=0
sumg=0
sumb=0
For k = 0 To DefineConstants.gauss_width - 1
color=getpixel(temp1,i,j-((DefineConstants.gauss_width-1)>>1)+k)
r=getr32(color)
g=getg32(color)
b=getb32(color)
umr+=r *gauss_fact(k)
sumg+=g *gauss_fact(k)
sumb+=b *gauss_fact(k)
Next k
sumr/=gauss_sum
sumg/=gauss_sum
sumb/=gauss_sum
putpixel(temp2,i,j,makecol(sumr,sumg,sumb))
Next j
Next i
Partial Friend NotInheritable Class DefineConstants
Public Const gauss_width As Integer = 7
End Class
Next j
```

Next i

Not sure what your asking help on, but I believe, based on your code structure, that this may need to be posted in the VB.Net forum.

"Moderator...?"

thanks Moderator

am askin about gaussian filter do u have an idea about it ..i mean the code

how to make it

Try this link. We are STILL not sure what you need. What do you want to do. Do you have current VB6... code? The code above looks like C code, if you are trying to use that in vb it will not work.

Another give me code request from another I'm too lazy to search myself poster.

http://letmebingthatforyou.com/?q=gaussian%20filter%20vb6

hint it's on planetsource code