vb.net频谱变换 频谱仪设置中关于vbw

《VB.NET》中的“Randomize(x)”和“Rnd(x)”

Rnd[(number)]

number

的值决定了

Rnd

生成随机数的方式

如果

number

的值

Rnd

生成

小于

每次都使用

number

作为随机数种子得到的相同结果。

大于

序列中的下一个随机数。

等于

最近生成的数。

省略

序列中的下一个随机数。

====================

先讨论没有加randomize时

X小于0

如

rnd(-1)

以-1为种的随机数永远相同

X大于0

如

rnd(1)

系统会先生成随机数列表

有N个随机数

你每执行一次rnd(1)就获取列表中下一个随机数

比如有这么个列表

程序开始时

得到0.7055475

执行第二次rnd(1)得到0.533424

第三次0.5795186

你关闭程序重新打开

第一次得到还是0.7055475

.7055475

.533424

.5795186

.2895625

.301948

而你说的X0

X0没差别

是错的

Print

Rnd(1)

Debug.Print

Rnd(-2)

和

Debug.Print

Rnd(-2)

Print

Rnd(1)

结果是不一样的

X等于0

最近生成的数

一般为科学型数值

这个值也是不变的

rnd(x)

省略x不写

就和X0

效果一样

=========================

Randomize

用

number

将

Rnd

函数的随机数生成器初始化，该随机数生成器给

number

一个新的种子值。如果省略

number，则用系统计时器返回的值作为新的种子值。

如果没有使用

Randomize，则（无参数的）Rnd

函数使用第一次调用

Rnd

函数的种子值。

注意

若想得到重复的随机数序列，在使用具有数值参数的

Randomize

之前直接调用具有负参数值的

Rnd。使用具有同样

number

值的

Randomize

是不会得到重复的随机数序列的。

一般在使用rnd获取随机数

都是

randomize

int(rnd*(上限-下限+1）+下限)

这2个函数的X都是省略不写

相关问答

Q1: vb.net声道控制

左右声道控制的原理：

waveOutGetVolume取得的音量值转换成16进制，高位是左声道的值，低位是右声道的值。

’这段代码摘这段代码摘自互联网

Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

Const WAVE_MAPPER = -1

Public Function SetLR(ByVal L As Long, ByVal R As Long) As Long

Dim mLR As String

mLR = "H" Right("0000" Hex(L), 4) Right("0000" Hex(R), 4)

waveOutSetVolume WAVE_MAPPER, CLng(mLR)

End Function

Public Function GetLR(ByRef L As Long, ByRef R As Long) As Long

Dim LR As Long

waveOutGetVolume WAVE_MAPPER, LR

L = CLng("H" Left(Hex(LR), 4))

R = CLng("H" Right(Hex(LR), 4))

End Function

以上2个自定义的函数可以方便的取得和设置左右声道。

如：

Private Sub Form_Load()

Dim mL As Long, mR As Long

GetLR mL, mR

MsgBox "左" mL "--右" mR

End Sub

Private Sub Command1_Click()

SetLR 65535, 22222

End Sub

可以用一个Slider来进行细致的控制。

下载类库，可以实现左右声道的控制

Q2: VB.NET坐标变换

Dim g As Graphics = PictureBox1.CreateGraphics

g.TranslateTransform(2, 2) ‘定义原点坐标

g.ScaleTransform(1, -1) ’X轴不变，反转Y轴

以PictureBox1中（2,2）点为新的原点（0,0）

向右为X轴正方向 向上为Y轴正方向

Q3: vb.net 实现高斯滤波\中值滤波\均值滤波的一种 需求vb.net程序，实现对图像的滤波处理，以上任意一种均可

'中值滤波：

Dim x As Integer, y As Integer, size As Integer = 3, point(8) As Integer

For x = CInt((size - 1) / 2) To CInt(jpgImage.Width - 1 - (size - 1) / 2)

For y = CInt((size - 1) / 2) To CInt(jpgImage.Height - 1 - (size - 1) / 2)

point(0) = jpgImage.GetPixel(x - 1, y - 1).R

point(1) = jpgImage.GetPixel(x - 1, y).R

point(2) = jpgImage.GetPixel(x - 1, y + 1).R

point(3) = jpgImage.GetPixel(x, y - 1).R

point(4) = jpgImage.GetPixel(x, y).R

point(5) = jpgImage.GetPixel(x, y + 1).R

point(6) = jpgImage.GetPixel(x + 1, y - 1).R

point(7) = jpgImage.GetPixel(x + 1, y).R

point(8) = jpgImage.GetPixel(x + 1, y + 1).R

Array.Sort(point)

jpgImage.SetPixel(x, y, Color.FromArgb(point(4), point(4), point(4)))

Next

Next

Q4: VB6与VB.NET的差异有哪些？

.Net平台引入了很多先进的技术，导致了VB6和VB.Net之间产生了一个巨大的鸿沟

就语言功能上来讲，VB.net完全是为了.Net技术而生，具有更好的运行效率和更加强大的功能（某些方面甚至超过了C#)

从语法角度上来讲，VB.net成为了真正的OOP(面向对象语言），不但支持类的继承、派生，还支持委托、泛型等等更加高级的编程技术

如果你是从VB6升级到.net的话，建议要将VB.net当作一门新的语言来学。以VB6的经验来应用到VB.net上是会犯很多错误的

关于从VB6升级到VB.net的代码变换问题，注意以下几个重要的要点即可：

1.不再支持Load、Shell、.LoadPicture等语句

请用相关的.net语句替换

2.String类为引用类，也就是说

Dim s1,s2 as String

s1="FFFFFFF"

s2=s1

此时修改s2的值s1也会跟着相应变化

3.不再支持Variant型和Currency型变量

分别用Object和Demical类型代替

4.变量长度的变化：

VB6的byte、Integer、long型分别被vb.net的byte、short、integer代替，而long型则成为64位大小的整数。新增了UInteger、ULong、SByte等无符号整数类型

Q5: 有哪位VB高手给个音乐频谱显示的制作方法，感激不尽

新手吧vb.net频谱变换？建议搜索相关控件来实现此功能

这里1楼有个分析wav的代码vb.net频谱变换，据19楼说同样能应用于mp3

把网址中的CSDN改成半角英文字母

这里有一个Mp3复读机的VB源码vb.net频谱变换，支持频谱显示，可以学习一下

关于vb.net频谱变换和频谱仪设置中关于vbw的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。