`
- 浏览:
2426 次
- 性别:
- 来自:
深圳
-
节日快到,发几个霓虹灯的脚本助助兴!
第一个:
1<script languate="VBScript" type="text/VBScript">
2Dim pubS_Pix_x
3Dim pubS_Pix_y
4Dim pubS_Pix_z
5Dim pubS_Pix_cr
6Dim pubS_Pix_cg
7Dim pubS_Pix_cb
8Dim pubD_Mx
9Dim pubD_My
10Dim pubD_Mz
11Dim pubD_Rx
12Dim pubD_Ry
13Dim pubD_Rz
14Dim pubD_Mtx_Mx
15Dim pubD_Mtx_Mr
16Dim pubD_Pix_x
17Dim pubD_Pix_y
18Dim pubD_Pix_z
19Dim pubF_Va
20Dim pubF_Vd
21Dim pubV_Vx
22Dim pubV_Vy
23Dim pubV_Vz
24Dim pubV_Sc
25Dim pubV_Mtx_Mx
26Dim pubV_Mtx_Mr
27Dim pubV_Pix_x
28Dim pubV_Pix_y
29Dim pubV_Pix_z
30Dim pubElm
31Dim pubElm_Len
32Dim pubWeb_Tv
33Dim pubWeb_Tw
34Dim pubWeb_WW, pubWeb_WH
35Dim pubR, pubG, pubB
36Dim pubOR, pubOG, pubOB
37'Web DHTML 事件函数
38Sub window_onload()
39 MakeModule
40
41 With document.body
42 pubWeb_WW = .clientWidth
43 pubWeb_WH = .clientHeight
44 End With
45 pubD_Rz = 0
46 pubD_Rx = 0
47 pubD_Ry = 0
48 pubF_Va = 15
49 pubF_Vd = 20
50
51 pubV_Vx = pubWeb_WW \ 2
52 pubV_Vy = pubWeb_WH \ 3
53 pubV_Vz = 0
54 pubV_Sc = 10
55 pubWeb_Tw = 33
56 MTX_3DMixV pubV_Vx, pubV_Vy, pubV_Vz, pubV_Sc, pubV_Mtx_Mx, pubV_Mtx_Mr
57
58 Web_TimeLoop
59
60End Sub
61Sub MakeModule
62 pubElm_Len = 599
63 pubElm = ELM_Create(pubElm_Len)
64 ReDim pubS_Pix_x(pubElm_Len), pubS_Pix_y(pubElm_Len), pubS_Pix_z(pubElm_Len)
65 ReDim pubD_Pix_x(pubElm_Len), pubD_Pix_y(pubElm_Len), pubD_Pix_z(pubElm_Len)
66 ReDim pubV_Pix_x(pubElm_Len), pubV_Pix_y(pubElm_Len), pubV_Pix_z(pubElm_Len)
67 ReDim pubS_Pix_cr(pubElm_Len), pubS_Pix_cg(pubElm_Len), pubS_Pix_cb(pubElm_Len)
68 tH = 100
69 tR = 0
70 For tI = 1 To 1500 Step 15
71 tR = tI * 15 / 1500 + 5
72 tA = tA + (1000 / (tR * 2 * 3.14))
73 tZ = 30 - tI * 30 / 1500
74 tAr = Radian(tA)
75 For tRd = Int(tR) To Int(tR) - 5 Step -1
76 tX = Sin(tAr) * tRd
77 tY = Cos(tAr) * tRd
78 pubS_Pix_x(tAdd) = tX
79 pubS_Pix_y(tAdd) = tY
80 pubS_Pix_z(tAdd) = tZ
81 tAdd = tAdd + 1
82 Next
83 Next
84 'MsgBox tAdd
85 pubD_Mx = 0
86 pubD_My = 0
87 pubD_Mz = 0
88End Sub
89Sub Web_TimeLoop()
90 pubD_Rz = (pubD_Rz + 1) Mod 360
91 pubD_Rx = 45
92 pubD_Ry = 0
93 MTX_3DMixD pubD_Mx, pubD_My, pubD_Mz, pubD_Rx, pubD_Ry, pubD_Rz, pubD_Mtx_Mx, pubD_Mtx_Mr
94 PXE_MTXTram3D pubS_Pix_x, pubS_Pix_y, pubS_Pix_z, pubD_Mtx_Mx, pubD_Mtx_Mr, pubD_Pix_x, pubD_Pix_y, pubD_Pix_z
95 FIT_PSV pubD_Pix_x, pubD_Pix_y, pubD_Pix_z, pubF_Va, pubF_Vd, pubD_Pix_x, pubD_Pix_y, pubD_Pix_z
96 PXE_MTXTram3D pubD_Pix_x, pubD_Pix_y, pubD_Pix_z, pubV_Mtx_Mx, pubV_Mtx_Mr, pubV_Pix_x, pubV_Pix_y, pubV_Pix_z
97
98 For tI = 0 To 5
99 For tEi = pubElm_Len To 0 Step -1
100 If CBool(tEi) Then
101 pubS_Pix_cr(tEi) = pubS_Pix_cr(tEi-1)
102 pubS_Pix_cg(tEi) = pubS_Pix_cg(tEi-1)
103 pubS_Pix_cb(tEi) = pubS_Pix_cb(tEi-1)
104 Else
105 If pubR < pubOR Then pubR = pubR + 1
106 If pubR > pubOR Then pubR = pubR - 1
107 If pubG < pubOG Then pubG = pubG + 1
108 If pubG > pubOG Then pubG = pubG - 1
109 If pubB < pubOB Then pubB = pubB + 1
110 If pubB > pubOB Then pubB = pubB - 1
111 If pubR = pubOR And pubB = pubOB And pubG = pubOG Then
112 pubOR = Int(Rnd * 32) + 31
113 pubOG = Int(Rnd * 32) + 31
114 pubOB = Int(Rnd * 32) + 31
115 End If
116 pubS_Pix_cr(tEi) = pubR*4
117 pubS_Pix_cg(tEi) = pubG*4
118 pubS_Pix_cb(tEi) = pubB*4
119 End If
120 Next
121 Next
122 For tEi = pubElm_Len To 0 Step -1
123 With pubElm(tEi).style
124 .left = pubV_Pix_x(tEi)
125 .top = pubV_Pix_y(tEi)
126 tL = tEi Mod 6 + 1
127 .color = rgb(pubS_Pix_cr(tEi)\tL,pubS_Pix_cg(tEi)\tL,pubS_Pix_cb(tEi)\tL)
128 End With
129 Next
130
131 pubWeb_Tv = window.setTimeout("Web_TimeLoop", pubWeb_Tw)
132End Sub
133Function ELM_Create(pEn)
134 ReDim tElms(pEn)
135 For tEi = 0 To pEn
136 With document
137 Set tElms(tEi) = .createElement("SPAN")
138 .body.insertAdjacentElement "beForeEnd", tElms(tEi)
139 End With
140 With tElms(tEi)
141 .innerText = "*"
142 .style.position = "absolute"
143 .style.color = rgb(0,0,0)
144 End With
145 Next
146 ELM_Create = tElms
147End Function
148Sub PXE_MTXTram2D(pPx(), pPy(), pM(), pMr, oPx(), oPy())
149 tPe = UBound(pPx)
150 For tPi = 0 To tPe
151 oPx(tPi) = pPx(tPi) * pM(0) + pPy(tPi) * pM(1) + pM(2)
152 oPy(tPi) = pPx(tPi) * pM(3) + pPy(tPi) * pM(4) + pM(5)
153 Next
154End Sub
155Sub PXE_MTXTram3D(pPx(), pPy(), pPz(), pM(), pMr(), oPx(), oPy(), oPz())
156 tPe = UBound(pPx)
157 For tPi = 0 To tPe
158 oPx(tPi) = pPx(tPi) * pM(0) + pPy(tPi) * pM(1) + pPz(tPi) * pM(2) + pM(3)
159 oPy(tPi) = pPx(tPi) * pM(4) + pPy(tPi) * pM(5) + pPz(tPi) * pM(6) + pM(7)
160 oPz(tPi) = pPx(tPi) * pM(8) + pPy(tPi) * pM(9) + pPz(tPi) * pM(10) + pM(11)
161 Next
162End Sub
163Sub FIT_PSV(iPx, iPy, iPz, iVa, iVd, oPx, oPy, oPz)
164 tPe = UBound(iPx)
165 For tPi = 0 To tPe
166 tVr = Sin(Radian(iVa))
167 tZ = iPz(tPi) + iVd
168 oPx(tPi) = iPx(tPi) * tVr * tZ / (tVr * iVd)
169 oPy(tPi) = iPy(tPi) * tVr * tZ / (tVr * iVd)
170 oPz(tPi) <span
分享到:
Global site tag (gtag.js) - Google Analytics
相关推荐
Unity 2D 霓虹灯效果是一种在2D游戏场景中模拟出类似霓虹灯的视觉效果的技术,常用于创建具有未来感或复古风格的游戏。这种效果通过使用特殊的材质、光照和粒子系统来实现,使得游戏元素看起来像是由发光的线条和...
霓虹灯控制技术在电子工程领域中是一种常见的应用,尤其在装饰照明和广告展示中扮演着重要角色。这里我们讨论的是一个基于51单片机的多键控制霓虹灯项目,它通过LED来实现霓虹灯效果的显示。51单片机是微控制器的一...
霓虹灯程序是一种在计算机屏幕上模拟霓虹灯效果的软件应用,通常用于视觉展示或娱乐。在C++编程中实现霓虹灯效果涉及到图形库、颜色处理、动画控制等多个技术领域。下面将详细讲解C++霓虹灯源码中可能包含的关键知识...
在这个"FrameLayout布局完成霓虹灯效果"的小程序中,开发者可能利用了帧布局的特点,结合其他Android图形库或者自定义视图来实现霓虹灯的动画效果。 霓虹灯效果通常涉及到颜色渐变、闪烁、线条动态流动等元素,这些...
在VB(Visual Basic)编程环境中,我们可以利用图形用户界面(GUI)组件和编程逻辑来创建各种视觉效果,其中之一就是模拟霓虹灯效果。霓虹灯效果通常涉及到颜色的动态变化和闪烁,给人一种动感和活力的感觉。下面将...
霓虹灯要求情况介绍 (1)可以根据要求选择霓虹灯盏数 n 。(例“中南民大欢迎您”7 盏灯 n=7)也可一个字用两盏灯 n=14: (2)为了方便操作,设定每天霓虹灯亮、熄的时间固定,并自动开、关。同时因为季节原因可以...
此为用51单片机搭建的霓虹灯仿真,基于Proteus平台完成开发,其可以实现LED指示灯的闪烁和跳动,在不同的颜色之间进行转换,转换的时间间隔可以通过代码来控制,这也是目前交通信号灯所采用的原理。本仿真主要包含的...
霓虹灯动感效果在编程领域通常是指通过模拟真实霓虹灯的闪烁、流动或颜色变换,为用户界面增添一种动感和吸引力。C#是一种广泛应用于Windows平台开发的面向对象的编程语言,它提供了丰富的图形库和动画支持,使得...
霓虹灯效果是一种常见的视觉效果,常用于游戏、软件界面或者动画中,为用户界面增添动感和时尚感。本项目是使用C#编程语言,在Visual Studio 2013环境下,设计并实现的一个简单的霓虹灯模拟程序。下面将详细阐述这个...
霓虹灯模拟显示程序是利用汇编语言编程实现的一种视觉效果,主要展示了汇编语言在图形和动画领域的应用。汇编语言是一种低级编程语言,它直接对应于计算机硬件的指令集,允许程序员对计算机的每一个操作进行精细控制...
霓虹灯设计是微机原理课程设计中一个有趣的实践项目,它主要涉及到计算机硬件与软件的交互,以及数字电路和微处理器控制技术的应用。在这个项目中,学生将学习如何利用微处理器来控制LED灯,模拟出霓虹灯的效果,...
【基于ARM的智能霓虹灯设计】 随着科技的迅速进步,霓虹灯在现代城市景观中的应用日益广泛,尤其在城市美化和形象塑造中扮演着重要角色。在这样的背景下,基于ARM架构的嵌入式系统因其强大的功能和广泛应用,成为了...
霓虹灯模拟控制器是一种软件应用或硬件设备,用于模拟真实霓虹灯的点亮效果。它在PC机上通过键盘和屏幕实现,允许用户控制一组霓虹灯的状态,以创建各种显示模式。以下是对该控制器的设计要求和实现细节的详细解释:...
【VB霓虹灯霓虹灯广告牌制作程序】是一个基于Visual Basic(VB)开发的应用程序,主要用于设计和创建霓虹灯效果的广告牌。在IT领域,VB是一种流行的编程语言,尤其适合初学者和快速应用开发。这个程序利用VB的图形...
霓虹灯闪动设计实验是计算机科学领域中嵌入式系统学习的一部分,主要涉及虚拟机技术、嵌入式Linux系统烧写、内核修改以及硬件设备(LED灯)的控制。该实验旨在提升学生的动手能力和对嵌入式系统理论知识的实际运用。...
基于PLC的霓虹灯广告屏制作设计是将可编程逻辑控制器(PLC)应用于霓虹灯广告屏的设计与制作中的一种技术方案。PLC是一种广泛应用于工业自动化控制的电子设备,它具有编程灵活、易于操作、性能稳定等优点。在本文档...
【微机原理课程设计-霓虹灯】是一个实践项目,旨在让学生掌握微计算机系统的基本原理,特别是通过编程控制外部设备的工作。在这个项目中,学生需要设计一个霓虹灯闪烁控制系统,利用8255A可编程接口芯片来控制红、黄...
在本文中,我们将深入探讨如何使用C#编程语言在Windows Forms(WinForm)环境中创建一个霓虹灯效果的示例。霓虹灯效果通常涉及到动态的、色彩丰富的图形,给人以视觉上的冲击力,常用于游戏开发或者界面美化。通过C#...
根据提供的文件信息,我们...霓虹灯程序设计报告涵盖了微机原理课程设计、8255芯片原理和编程、霓虹灯程序设计原理、软件流程设计、Assembly语言编程等方面的知识点,为学生提供了一个完整的霓虹灯程序设计解决方案。