已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也
向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
文号 / 56387

万流景仰
名片发私信
学术分 34
总主题 75 帖总回复 769 楼拥有证书:学者 机友 笔友
注册于 2005-10-01 20:06最后登录 2024-05-22 09:54
主体类型:个人
所属领域:无
认证方式:手机号
IP归属地:未同步

个人简介

暂未填写
文件下载
加载中...
{{errorInfo}}
{{downloadWarning}}
你在 {{downloadTime}} 下载过当前文件。
文件名称:{{resource.defaultFile.name}}
下载次数:{{resource.hits}}
上传用户:{{uploader.username}}
所需积分:{{costScores}},{{holdScores}}下载当前附件免费{{description}}
积分不足,去充值
文件已丢失

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

空空如也

插入资源
全部
图片
视频
音频
附件
全部
未使用
已使用
正在上传
空空如也~
上传中..{{f.progress}}%
处理中..
上传失败,点击重试
等待中...
{{f.name}}
空空如也~
(视频){{r.oname}}
{{selectedResourcesId.indexOf(r.rid) + 1}}
处理中..
处理失败
插入表情
我的表情
共享表情
Emoji
上传
注意事项
最大尺寸100px,超过会被压缩。为保证效果,建议上传前自行处理。
建议上传自己DIY的表情,严禁上传侵权内容。
点击重试等待上传{{s.progress}}%处理中...已上传,正在处理中
空空如也~
处理中...
处理失败
加载中...
草稿箱
加载中...
此处只插入正文,如果要使用草稿中的其余内容,请点击继续创作。
{{fromNow(d.toc)}}
{{getDraftInfo(d)}}
标题:{{d.t}}
内容:{{d.c}}
继续创作
删除插入插入
插入公式
评论控制
加载中...
文号:{{pid}}
加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
收藏
取消收藏
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
管理提醒
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}
ID: {{user.uid}}