控制网络流量规则变化并输出波形——NetWaveOutput
ldc2008/12/20软件综合 IP:湖南
看到dotos同志写的CPUWaveOutput,感觉很是强大,于是用VB做了这个模仿品。这个是控制网络流量的,在任务管理器里的“联网”可以看到曲线图像。
实验证明在输出图像前关掉所有使用网络的程序和占用较多CPU资源的后台程序后能得到很好的图像效果。
正弦波.jpg
正弦波

锯齿波.jpg
锯齿波

方波.jpg
方波

三角波.jpg
三角波
+2500  科创币    93°    2008/12/20 发布源码,鼓励……
来自:计算机科学 / 软件综合
3
 
已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也
ldc 作者
15年5个月前 IP:未同步
56374

attachment icon 程序.rar 52.97KB RAR 29次下载

attachment icon 源文件.rar 2.50KB RAR 30次下载
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
ldc作者
15年5个月前 IP:未同步
56387
向dotos同志学习,公布源码。

Option Explicit
Dim Data(1 To 256) As Byte
Dim XiangWei As Double
Dim DataLenth As Integer
Const PI = 3.14159265

Private Sub Command1_Click()
XiangWei = 0
If XXXXXXXXXXlue = True Then
    XiangWei = (3 / 2) * PI
End If
Timer1.Enabled = True
Frame1.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
XXXXXXXXXsible = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Frame1.Enabled = True
Command1.Enabled = True
Command2.Enabled = False
XXXXXXXXXsible = False
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 256
    Data(i) = i - 1
Next i
End Sub

Private Sub ImageOut(ByVal Times As Integer)
Dim i As Integer
For i = 1 To Times
    XXXXXXXXXXXndData Data
Next i
DataLenth = Times
End Sub

Private Sub Timer1_Timer()
If XXXXXXXXXXlue = True Then
    '******正弦波*****
    Call ImageOut(Int((Sin(XiangWei) + 1) * 40))
    XiangWei = XiangWei + PI / 150
ElseIf XXXXXXXXXXlue = True Then
    '******据齿波*******
    Call ImageOut(Int(((XiangWei + 30) Mod 30) * 4))
    XiangWei = XiangWei + 0.1
ElseIf XXXXXXXXXXlue = True Then
    '******方波*******
    If XiangWei Mod 30 > 15 Then Call ImageOut(80) Else Call ImageOut(0)
    XiangWei = XiangWei + 0.1
ElseIf XXXXXXXXXXlue = True Then
    '******三角波*******
    If XiangWei Mod 30 <= 15 Then
        Call ImageOut(Int(XiangWei Mod 30) * 4)
    Else
        Call ImageOut((30 - Int(XiangWei Mod 30)) * 4)
    End If
    XiangWei = XiangWei + 0.1
End If
XXXXXXXXXption = DataExchange(DataLenth * 256) & "/s"
End Sub

Private Function DataExchange(ByVal Datee As Long) As String
On Error Resume Next
If Datee <= 1024 Then
    DataExchange = Str(Datee) & "Byte"
    Exit Function
End If
If Datee > 1204 And Datee < 1048576 Then
    DataExchange = Str(Int(Datee / 1024)) & "KB"
    Exit Function
End If
DataExchange = Format(Datee / 1048576, "#########.##") & "MB"
End Function
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论

想参与大家的讨论?现在就 登录 或者 注册

所属专业
上级专业
同级专业
ldc
学者 机友 笔友
文章
75
回复
768
学术分
34
2005/10/01注册,1天10时前活动
暂无简介
主体类型:个人
所属领域:无
认证方式:手机号
IP归属地:未同步
文件下载
加载中...
{{errorInfo}}
{{downloadWarning}}
你在 {{downloadTime}} 下载过当前文件。
文件名称:{{resource.defaultFile.name}}
下载次数:{{resource.hits}}
上传用户:{{uploader.username}}
所需积分:{{costScores}},{{holdScores}}下载当前附件免费{{description}}
积分不足,去充值
文件已丢失

当前账号的附件下载数量限制如下:
时段 个数
{{f.startingTime}}点 - {{f.endTime}}点 {{f.fileCount}}
视频暂不能访问,请登录试试
仅供内部学术交流或培训使用,请先保存到本地。本内容不代表科创观点,未经原作者同意,请勿转载。
音频暂不能访问,请登录试试
支持的图片格式:jpg, jpeg, png
插入公式
评论控制
加载中...
文号:{{pid}}
投诉或举报
加载中...
{{tip}}
请选择违规类型:
{{reason.type}}

空空如也

加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
收藏
取消收藏
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
管理提醒
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}