在易语言中写一个那种数字雨的屏保,谁能给点思路

准备：一个窗口（_启动窗口），一个画板（画板1），一个时钟（时钟1）

我们提供的服务有：成都做网站、成都网站制作、微信公众号开发、网站优化、网站认证、渝水ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的渝水网站制作公司

_启动窗口 和 画板1 的 可视 都为 假，时钟1 的 时间周期 为 0，_启动窗口 的 总在最前 为 真。

到 _启动窗口 对应的 窗口程序集，把下面的代码拷贝过去即可。

.版本 2

.支持库 OPenGL

.支持库 EThread

.支持库 spec

.支持库 iext

.支持库 eAPI

.程序集 窗口程序集1, , , 高仿黑客帝国

.程序集变量 t, 整数型

.程序集变量 x, 整数型

.程序集变量 y, 整数型

.程序集变量 z, 整数型

.程序集变量 屏幕高度, 整数型, , , 屏幕高度

.程序集变量 屏幕宽度, 整数型, , , 屏幕宽度

.子程序 __启动窗口_创建完毕

屏幕高度 ＝ 取屏幕高度 ()

屏幕宽度 ＝ 取屏幕宽度 ()

画板1.画板背景色 ＝ #黑色

_启动窗口.移动 (0, 0, 屏幕宽度, 屏幕高度)

画板1.移动 (0, 0, 屏幕宽度, 屏幕高度)

t ＝ 0

z ＝ 屏幕高度 ÷ 20

显示光标 (假)

_启动窗口.可视 ＝ 真

画板1.可视 ＝ 真

_启动窗口.调整层次 (1)

定义 ()

画板1.获取焦点 ()

时钟1.时钟周期 ＝ 400  ' 每列产生间隔(ms)

启动线程 (数字雨输出, , )

延迟 (400)

启动线程 (数字雨输出, , )

延迟 (300)

启动线程 (数字雨输出, , )

延迟 (200)

启动线程 (数字雨输出, , )

延迟 (200)

启动线程 (数字雨输出, , )

延迟 (200)

启动线程 (数字雨输出, , )

延迟 (200)

时钟2.时钟周期 ＝ 1000

_时钟2_周期事件 ()

.子程序 _画板1_鼠标位置被移动, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

.如果真 (取绝对值 (横向位置 － x) ＞ 50 或 取绝对值 (纵向位置 － y) ＞ 50)

定义 ()

t ＝ t ＋ 1

.如果真 (t ＞ 3)  ' 事不过三

结束 ()

.如果真结束

.如果真结束

.子程序 _画板1_按下某键, 逻辑型

.参数 键代码, 整数型

.参数 功能键状态, 整数型

结束 ()

.子程序 定义

x ＝ 取鼠标水平位置 ()

y ＝ 取鼠标垂直位置 ()

.子程序 数字雨输出, , , 数字雨输出

.局部变量 E, 整数型, , , 垂直位置

.局部变量 F, 整数型, , , 水平位置,起点

.局部变量 G, 整数型, , , 显示长度,单位=位

.局部变量 H, 整数型, , , 下降速度

.局部变量 I, 整数型, , , 移动次数

.局部变量 J, 整数型, , , 绿与白

.局部变量 CHR, 文本型, , "1000"

置随机数种子 ()

J ＝ 取随机数 (1, 5)

.如果 (J ＝ 1 或 J ＝ 3 或 J ＝ 5)

置随机数种子 ()

E ＝ 取随机数 (0, 屏幕宽度)

置随机数种子 ()

F ＝ 取随机数 (0, 到整数 (屏幕高度 × 0.75))

置随机数种子 ()

G ＝ 取随机数 (z × 0.2, z × 0.65)

置随机数种子 ()

H ＝ 取随机数 (10, 600)

.判断循环首 (真)

' 画板1.字体.字体名称 ＝ “黑体”

' 画板1.字体.字体大小 ＝ 16

CHR [I ＋ 1] ＝ 获取字符 ()

画板1.文本颜色 ＝ #绿色

画板1.定位写出 (E, F ＋ I × 20, CHR [I ＋ 1])

.如果真 (I ≠ 0)

画板1.文本颜色 ＝ #墨绿

画板1.定位写出 (E, F ＋ (I － 1) × 20, CHR [I])

.如果真结束

.如果真 (I ＞ G ＋ 1)

画板1.文本颜色 ＝ 取颜色值 (0, 40, 0)

画板1.定位写出 (E, F ＋ (I － G － 1) × 20, CHR [I － G])

画板1.文本颜色 ＝ #黑色

画板1.定位写出 (E, F ＋ (I － G － 2) × 20, CHR [I － G － 1])

.如果真结束

I ＝ I ＋ 1

.如果真 (F ＋ I × 20 ＞ 屏幕高度)

跳出循环 ()

.如果真结束

延迟 (H)  ' 避免CPU过高

.如果真 (I ＞ 1000)

结束 ()

.如果真结束

.判断循环尾 ()

.判断循环首 (真)

.如果真 (I ＞ G ＋ 1)

画板1.文本颜色 ＝ 取颜色值 (0, 40, 0)

画板1.定位写出 (E, F ＋ (I － G － 1) × 20, CHR [I － G])

画板1.文本颜色 ＝ #黑色

画板1.定位写出 (E, F ＋ (I － G － 2) × 20, CHR [I － G － 1])

.如果真结束

I ＝ I ＋ 1

.如果真 (F ＋ I × 20 － (G ＋ 2) × 20 ＞ 屏幕高度)

跳出循环 ()

.如果真结束

延迟 (H)  ' 避免CPU过高

.如果真 (I ＞ 1000)

结束 ()

.如果真结束

.判断循环尾 ()

.否则

置随机数种子 ()

E ＝ 取随机数 (0, 屏幕宽度)

置随机数种子 ()

F ＝ 取随机数 (0, 到整数 (屏幕高度 × 0.75))

置随机数种子 ()

G ＝ 取随机数 (z × 0.2, z × 0.65)

置随机数种子 ()

H ＝ 取随机数 (10, 600)

.判断循环首 (真)

' 画板1.字体.字体名称 ＝ “黑体”

' 画板1.字体.字体大小 ＝ 16

CHR [I ＋ 1] ＝ 获取字符 ()

画板1.文本颜色 ＝ #白色

画板1.定位写出 (E, F ＋ I × 20, CHR [I ＋ 1])

.如果真 (I ≠ 0)

画板1.文本颜色 ＝ #浅灰

画板1.定位写出 (E, F ＋ (I － 1) × 20, CHR [I])

.如果真结束

.如果真 (I ＞ G ＋ 1)

画板1.文本颜色 ＝ #灰色

画板1.定位写出 (E, F ＋ (I － G － 1) × 20, CHR [I － G])

画板1.文本颜色 ＝ #黑色

画板1.定位写出 (E, F ＋ (I － G － 2) × 20, CHR [I － G － 1])

.如果真结束

I ＝ I ＋ 1

.如果真 (F ＋ I × 20 ＞ 屏幕高度)

跳出循环 ()

.如果真结束

延迟 (H)  ' 避免CPU过高

.如果真 (I ＞ 1000)

结束 ()

.如果真结束

.判断循环尾 ()

.判断循环首 (真)

.如果真 (I ＞ G ＋ 1)

画板1.文本颜色 ＝ #灰色

画板1.定位写出 (E, F ＋ (I － G － 1) × 20, CHR [I － G])

画板1.文本颜色 ＝ #黑色

画板1.定位写出 (E, F ＋ (I － G － 2) × 20, CHR [I － G － 1])

.如果真结束

I ＝ I ＋ 1

.如果真 (F ＋ I × 20 － (G ＋ 2) × 20 ＞ 屏幕高度)

跳出循环 ()

.如果真结束

延迟 (H)  ' 避免CPU过高

.如果真 (I ＞ 1000)

结束 ()

.如果真结束

.判断循环尾 ()

.如果结束

.子程序 获取字符, 文本型

.局部变量 A, 文本型

置随机数种子 ()

A ＝ 字符 (取随机数 (27, 127))

.判断循环首 (A ＝ “” 或 A ＝ “ ” 或 A ＝ “　”)

置随机数种子 ()

A ＝ 字符 (取随机数 (27, 127))

.判断循环尾 ()

A ＝ 到全角 (A)

返回 (A)

.子程序 _时钟1_周期事件

启动线程 (数字雨输出, , )

VB制作一个数字雨屏保

'101个标签，一个按钮，一个图片框，一个时钟，背景图片自己找

V_car(100) as long

Private Sub Command3_Click()

For i = 0 To 100

Label1(i).Top = Picture_BeiJing.Height + 500

Label1(i).AutoSize = True

Label1(i).BackStyle = 0

Next

Timer_Con.Interval =40'每秒25次移动

Timer_Con.Enabled = True

End Sub

Private Sub Timer_Con_Timer()

For i = 0 To 100

If Label1(i).Top Picture_BeiJing.Height Then

Label1(i).Top = Label1(i).Top + V_car(i)

Else

Label1(i).Top = -200'移到顶部

Randomize

Label1(i).Left = Int((Picture_BeiJing.Width - Label1(i).Width) * Rnd)'水平定位

Randomize

Label1(i).Caption = i 'Int(10 * Rnd)'改变字符,注意这里去除1和引号后才行,这样是测试用的

Randomize

Label1(i).FontSize = 8 + Int(30 * Rnd)'改变字体大小

Randomize

Label1(i).ForeColor = RGB(Int(250 * Rnd), Int(250 * Rnd), Int(250 * Rnd))'改变字体颜色

Randomize

V_car(i) = 10 + Int(100 * Rnd)'重新设置下降速度

End If

Next

windows10设置代码雨动态锁屏界面怎么做

回到电脑桌面，在电脑桌面空白区域点击鼠标右键-》点击个性化设置（也可以按键盘R键），打开系统个性化设置界面。

统个性化设置界面左侧菜单栏选择锁屏界面－》右侧便会出现关于锁屏界面的预览图以及相关的配置信息。

点击背景-》下面的下拉菜单展开锁屏类型。win10的锁屏界面有三种不同的类型：windows聚焦、图片、幻灯片放映。比较常用的就是选一张漂亮的图片作为锁屏界面。

点击选择图片下方的图片进行选择，如果对系统默认的图片不满意，可以点击下方的‘浏览’按钮进行选择。

将右侧滚动条往下拉直到出现‘屏幕保护程序设置’，点击系统会自动弹出设置屏幕保护的界面。

点击屏幕保护程序下面的下拉菜单选择屏幕保护的类型，类型包括：3D文字、变幻线、彩带、空白、气泡、照片。点击选择之后可以点击右侧的预览按钮进行预览。

等到？分钟的意思是当鼠标和键盘多长时间没有操作时系统会进入屏幕保护的时间间隔。后面的复选框勾上则关闭屏保的时候会进入电脑登录页面，输入密码才能进入电脑。

网页名称：代码雨屏保java语言 代码雨壁纸软件
转载来于：http://ybzwz.com/article/doedcso.html