Location:
Search - picture1
Search list
Description: 这是在matlab下运行的，有关二值图像处理的程序！希望对大家有帮助！-in Matlab is running under the binary image processing procedures! We want to help!
Platform: |
Size: 8118 |
Author: 水印 |
Hits:
Description: 同 1999 年年初的 1.0 版本相比，这是一个更加完善的版本，它的存盘可靠性更好，稳定性更高，本身逻辑错误更少，但我们所以不将它叫作 2.0 版，是因为它的运算方法和存盘方法还过于古典，这使它的运算速度还不够快，存盘后的磁盘文件也偏大。我们将继续改造这个程序，使它运行更快，更节省资源。
Platform: |
Size: 2365129 |
Author: 王泊 |
Hits:
Description: picture1 图片的操作，放大与缩小的源程序
Platform: |
Size: 2337993 |
Author: ymx |
Hits:
Description: Option Explicit Private Sub Form_click() Dim T As Date T = -2.5 Picture1.Print T End Sub priva
Platform: |
Size: 866699 |
Author: 李三 |
Hits:
Description: 自己写的一个关于图像方面的LABVIEW的源程序，供大家学习。
Platform: |
Size: 176860 |
Author: 任杰 |
Hits:
Description: 在VC6.0中用图片实现漂亮的界面,很不好下载呀
Platform: |
Size: 505712 |
Author: 谭张杨 |
Hits:
Description: 关于图像匹配的一个源码 刷一遍就知道效果 很实用很简单
Platform: |
Size: 1266 |
Author: sh |
Hits:
Description: 用ＶＢ编写的电子相册,很方便实用． 此为转载．-VB prepared by the electronic photo albums, very convenient and practical. This was reprinted.
Platform: |
Size: 2365442 |
Author: HGW |
Hits:
Description: 直线扫描算法rivate AX1(100) As Integer, AY1(100) As Integer, AX2(100) As Integer, AY2(100) As IntegerPrivate CX1 As Integer, CY1 As Integer, CX2 As Integer, CY2 As Integer, N As IntegerPrivate Sub form_Load()Picture1.BackColor = RGB(255, 255, 255)N = 0End SubPrivate Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenCX1 = CInt(X): CX2 = CInt(X)CY1 = CInt(Y): CY2 = CInt(Y)End IfEnd Sub-linear scanning algorithm rivate AM1 (100) As Integer, AY1 (100) As Integer, AX2 (100) As Integer, AY2 (100) As IntegerPrivate CX1 As Integer, CY1 As Integer, CX2 As Integer, CY2 As Integer, N As IntegerPrivate Sub form_Load () Picture1.BackColor = RGB (255, 255, 255) N = 0End SubPrivate Sub picture1_MouseDown (Button As Integer, Shift As Integer, As Single X, Y As Single) If Button = = a ThenCX1 CInt (X) : CX2 = CInt (X) = CY1 CInt (Y) : CY2 = CInt (Y) End Sub IfEnd
Platform: |
Size: 5583 |
Author: zy |
Hits:
Description: Dim x_step As Integer '声明
Dim y_step As Integer
Dim 往左 As Integer
Dim 往右 As Integer
Dim 往上 As Integer
Dim 往下 As Integer
Dim 重复次数_step As Integer
Private Sub Form_KeyDown(keycode As Integer, shift As Integer) '窗体接收按下任意键
'Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
'MsgBox keycode
If keycode = 37 Then
往左 = 1
End If
If keycode = 38 Then
往上 = 1
End If
If keycode = 39 Then
往右 = 1
End If
If keycode = 40 Then
往下 = 1
End If
Timer2.Enabled = True
End Sub
Private Sub Picture1_KeyUp(keycode As Integer, shift As Integer) '窗体接收放开任意键
Timer2.Enabled = False
往左 = 0
往右 = 0
往上 = 0
往下 = 0
End Sub
Private Sub Timer2_Timer()
If 往左 = 1 Then
If Line1.X1 - 100 <= 0 Then
Line1.X1 = 0
Line1.X2 = 2000
Else
Line1.X1 = Line1.X1 - 100
Line1.X2 = Line1.X2 - 100
End If
End If
If 往右 = 1 Then
If Line1.X2 + 100 > Picture1.Width Then
Line1.X1 = Picture1.Width - 2000
Line1.X2 = Picture1.Width
Else
Line1.X2 = Line1.X2 + 100
Line1.X1 = Line1.X2 - 2000
End If
End If
If 往上 = 1 And Line1.Y1 > 1000 Then
Line1.Y1 = Line1.Y1 - 100
Line1.Y2 = Line1.Y1
End If
If 往下 = 1 And Line1.Y1 < Picture1.Height - 1000 Then
Line1.Y1 = Line1.Y1 + 100
Line1.Y2 = Line1.Y1
End If
End Sub
Platform: |
Size: 1650 |
Author: wzcxh1@qq.com |
Hits:
Description: Option Explicit Private Sub Form_click() Dim T As Date T = -2.5 Picture1.Print T End Sub priva-Option Explicit Private Sub Form_click() Dim T As Date T =-2.5 Picture1.Print T End Sub priva
Platform: |
Size: 866304 |
Author: 李三 |
Hits:
Description: 用ＶＢ编写的电子相册,很方便实用． 此为转载．-VB prepared by the electronic photo albums, very convenient and practical. This was reprinted.
Platform: |
Size: 2365440 |
Author: HGW |
Hits:
Description: 直线扫描算法rivate AX1(100) As Integer, AY1(100) As Integer, AX2(100) As Integer, AY2(100) As IntegerPrivate CX1 As Integer, CY1 As Integer, CX2 As Integer, CY2 As Integer, N As IntegerPrivate Sub form_Load()Picture1.BackColor = RGB(255, 255, 255)N = 0End SubPrivate Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenCX1 = CInt(X): CX2 = CInt(X)CY1 = CInt(Y): CY2 = CInt(Y)End IfEnd Sub-linear scanning algorithm rivate AM1 (100) As Integer, AY1 (100) As Integer, AX2 (100) As Integer, AY2 (100) As IntegerPrivate CX1 As Integer, CY1 As Integer, CX2 As Integer, CY2 As Integer, N As IntegerPrivate Sub form_Load () Picture1.BackColor = RGB (255, 255, 255) N = 0End SubPrivate Sub picture1_MouseDown (Button As Integer, Shift As Integer, As Single X, Y As Single) If Button = = a ThenCX1 CInt (X) : CX2 = CInt (X) = CY1 CInt (Y) : CY2 = CInt (Y) End Sub IfEnd
Platform: |
Size: 5120 |
Author: zy |
Hits:
Description: 这是在matlab下运行的，有关二值图像处理的程序！希望对大家有帮助！-in Matlab is running under the binary image processing procedures! We want to help!
Platform: |
Size: 8192 |
Author: 水印 |
Hits:
Description: 同 1999 年年初的 1.0 版本相比，这是一个更加完善的版本，它的存盘可靠性更好，稳定性更高，本身逻辑错误更少，但我们所以不将它叫作 2.0 版，是因为它的运算方法和存盘方法还过于古典，这使它的运算速度还不够快，存盘后的磁盘文件也偏大。我们将继续改造这个程序，使它运行更快，更节省资源。-With the beginning of the year in 1999 compared to 1.0 version, this is a more complete version, it
Platform: |
Size: 2365440 |
Author: 王泊 |
Hits:
Description: picture1 图片的操作，放大与缩小的源程序-Picture1 picture operation, enlarge and narrowing of the source
Platform: |
Size: 2337792 |
Author: ymx |
Hits:
Description: 自己写的一个关于图像方面的LABVIEW的源程序，供大家学习。-Wrote it myself on the images of the source LABVIEW for everyone to learn.
Platform: |
Size: 176128 |
Author: 任杰 |
Hits:
Description: 在VC6.0中用图片实现漂亮的界面,很不好下载呀-VC6.0 realize in the picture with beautiful interface, it is not download it
Platform: |
Size: 505856 |
Author: 谭张杨 |
Hits:
Description: 关于图像匹配的一个源码 刷一遍就知道效果 很实用很简单-On image matching of a source Brush again know very practical effect is very simple
Platform: |
Size: 1024 |
Author: sh |
Hits:
Description: trial license file supermap application
Platform: |
Size: 269312 |
Author: saber |
Hits: