VB: 制作下雪的特技景象

原创 2004年07月11日 14:10:00
对于下雪的景象大家可能都不陌生,我们还是用VB来制作一个下雪的景象吧。其实制作这样一个下雪的景象并不复杂,它的原理是首先在底色为黑色的屏幕上随机画出许多白点(雪花),然后使这些雪花不断地向下移动(重画),反复循环,就成功地模拟了下雪的景象。下面是这个小程序,你可以修改其中的一些数据调整雪花的密度和雪花落下的快慢。
  双击窗体写如下代码:
  Dim Snow(1000, 2), Amounty As Integer
  Private Sub Form_Load()
  Form1.Show
  DoEvents
  Randomize
  Amounty = 325
  For J = 1 To Amounty
  Snow(J, 0) = Int(Rnd * Form1.Width)
  Snow(J, 1) = Int(Rnd * Form1.Height)
  Snow(J, 2) = 10 + (Rnd * 20)
  Next J
  Do While Not (DoEvents = 0)
  For LS = 1 To 10
  For I = 1 To Amounty
  OldX = Snow(I, 0): OldY = Snow(I, 1)
  Snow(I, 1) = Snow(I, 1) + Snow(I, 2)
  If Snow(I, 1) > Form1.Height Then
   Snow(I, 1) = 0: Snow(I, 2) = 5 + (Rnd * 30)
   Snow(I, 0) = Int(Rnd * Form1.Width)
   OldX = 0: OldY = 0
  End If
  Coloury = 8 * (Snow(I, 2) - 10): Coloury = 60 + Coloury
  PSet (OldX, OldY), QBColor(0)
  PSet (Snow(I, 0), Snow(I, 1)), RGB(Coloury, Coloury, Coloury)
  Next I
  Next LS
  Loop
  End
  End Sub
   编写窗体的鼠标按下代码:
  Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single)
   unload me
  End Sub
  运行上面的小程序,就可以看到漫天的雪花在缓缓落下,地面上还会有积雪!鼠标单击可结束程序。

JS 实现下雪原生代码

只用作学习交流
  • Jensen_Yao
  • Jensen_Yao
  • 2017年03月22日 19:30
  • 851

网页下雪JS代码

圣诞节了,看到网易的活动页面上有个下雪的特效,就下下来看看,使用的是JS特效,看的比较浅,目前只会简单的使用下,不知道有没有高手能解析下。这里贴出来网页下雪JS代码,如果需要的朋友可以玩玩。 显示样式...
  • u012491166
  • u012491166
  • 2014年12月24日 11:13
  • 793

使用UIView动画完成一个下雪动画

使用UIView动画完成一个下雪动画 UIView动画是UIKit提供专门制作动画的API,其本质是对CoreAnimation的封装,使用UIView可以轻松方便的实现动画,不需要经过任何计算...
  • xuebing22022
  • xuebing22022
  • 2016年01月11日 09:40
  • 679

canvas 让你呼风唤雨,下雨下雪效果

转载自:http://blog.csdn.net/xllily_11/article/details/51444311 前端如何呼风唤雨 Canvas 等于什么?    ...
  • qq_15167261
  • qq_15167261
  • 2016年05月18日 21:18
  • 527

Unity利用粒子系统模拟下雪积雪效果

按我个人能力,这个方案的解决有两种方式 1、  运用shader的法线和夹角来决定积雪位置,强度,厚度; 2、  运用粒子系统下雪,利用粒子碰撞检测生成雪花落地,因为大批量的雪花其实是一张张图片组成的...
  • m0_37283423
  • m0_37283423
  • 2017年11月23日 14:03
  • 872

手把手教你用VB制作ActiveX控件

随着控件在可视化编程中地位地位提高,控件也成了编程中最重要的一部分。许多VB编程者也许苦于没有好看的控件,今天登高望远来教大家如何制作ActiveX控件。 一、新建工程       1.选择Acti...
  • qq_33582668
  • qq_33582668
  • 2016年06月11日 19:41
  • 3932

用vb制作简单的播放器

看了这篇文章的标题,你是不是想拥有一个自己制作的播放器呢?那就继续向下看吧。       1、因为我们需要使用到MediaPlayer控件,所以刚开始就要右击工具面板并在部件添加窗口里选择“Wind...
  • renmengmeng520
  • renmengmeng520
  • 2016年03月22日 20:33
  • 2367

VB 制作仪表盘

Private Sub Timer1_Timer() Const pi = 3.14 Const r = 1400 '表盘半径r Dim i As Long Dim p...
  • u010803748
  • u010803748
  • 2016年08月04日 16:11
  • 354

jQuery页面下雪效果(支持IE7+,圣诞节专用

圣诞下雪效果,依赖jQuery,支持ie7以上的浏览器
  • linfenpan
  • linfenpan
  • 2014年12月11日 14:58
  • 903

Android 仿下雪效果

转载请说明出处  最近在做公司新产品的设计,想到下雪效果设计加入到项目应该挺不错的,所以我们想将这个设计理念加入到我们的产品中。 下面是效果图: 没截取动态图 XM...
  • dzzzheng95
  • dzzzheng95
  • 2017年02月11日 22:27
  • 465
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB: 制作下雪的特技景象
举报原因:
原因补充:

(最多只允许输入30个字)