1樓：匿名使用者
根據邊緣銳化???很麻煩 以前寫過簡單的銳化處理 效果一般..........
private sub command1_click()
dim r2, g2, b2 as integer
dim r1, g1, b1 as integer
dim c1 as long
dim c2 as long
dim x0, y0 as integer
for x0 = 1 to 250
for y0 = 1 to picture2.height - 2
c1 = picture1.point(x0, y0)
'獲得picture1中指定點的r g b分量
c2 = picture1.point(x0 - 1, y0 - 1)
'獲得picture1中指定點相鄰點的r g b分量
r1 = r1 + (r1 - r2): g1 = g1 + (g1 - g2): b1 = b1 + (b1 - b2)
if r1 > 255 then r1 = 255
if r1 < 0 then r1 = 0
if b1 > 255 then b1 = 255
if b1 < 0 then b1 = 0
if g1 > 255 then g1 = 255
if g1 < 0 then g1 = 0
picture2.pset (x0, y0), rgb(r1, g1, b1)
doevents
next y0
next x0
msgbox "success"
end sub
2樓：奇澹皮芮麗
搜一下：用vb程式進行影象銳化銳化處理（laplacian運算元）
vb影象銳化有幾種演算法啊？
3樓：匿名使用者
銳化 只有一種演算法 那就是銳化 實現的方式可能不同 原理是一樣的模糊是銳化的反過程 ,先說說他
比如兩個畫素 模糊就是各取兩者的一部分加到另一個畫素的值上完全模糊就是兩者平均
銳化就要取出兩者相同的部分 取得比例就是銳化的程度讓一個畫素某個值 如紅色值 大於另外一個畫素的時候 更加大對比就鮮明瞭
我不是專業的人員 表達不準確,不過道理是相通的這裡交流下看法,究竟怎麼樣還要實踐
大學數字影象處理題目
4樓：匿名使用者
答案為d
解析：設初始座標點的座標向量為x0，x0縮放變換得到座標向量x1，對x1平移變換得到座標向量x2，對x2作旋轉變換得到最終座標點x3。
（1）縮放 x1 = sx0；
（2）平移 x2 = tx1 = t(sx0)；
（3）旋轉 x3 = rx2 = r [t(sx0)] = (rts)x0。
5樓：大愛御姐
什麼數字影象？具體些
這樣可以麼？
用VB設計程式中遇到的問題，用VB設計程式中遇到的一個問題
哦，這樣的話應該先畫一個按鈕。預設命名command1。這裡舉例x y x y 然後 sub command1 click dim a as long 宣告a變數 a x y x y 記住不要加 if a 某值 then msgbox 等於這個值 else msgbox 不等於這個值 end if ...
用VB編寫一個鬧鐘程式
做一個簡單的鬧鐘程式很簡單的。我這裡不用if語句。首先我們在窗體上新增一個標籤控制元件，再畫一個 鬧鐘 將鬧鐘得interval屬性改為1000，雙擊鬧鐘，進入鬧鐘的 檢視，編寫 private subtimer1 timer timeend sub就行了。謝謝。dimttime s asinteg...
用VB做了類似記事本的程式，用VB做了一個類似記事本的程式
二句先後問題 commondialog1.showopencommondialog1.filter 文字檔案 txt 應該commondialog1.filter 文字檔案 txt commondialog1.showopen 我用vb編了一個記事本程式，可就是不能像windows的記事本一樣用tx...