在易語(yǔ)言中寫一個(gè)那種數(shù)字雨的屏保,誰(shuí)能給點(diǎn)思路

準(zhǔn)備：一個(gè)窗口（_啟動(dòng)窗口），一個(gè)畫板（畫板1），一個(gè)時(shí)鐘（時(shí)鐘1）

我們提供的服務(wù)有：成都做網(wǎng)站、成都網(wǎng)站制作、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、渝水ssl等。為1000多家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的渝水網(wǎng)站制作公司

_啟動(dòng)窗口 和 畫板1 的 可視 都為 假，時(shí)鐘1 的 時(shí)間周期 為 0，_啟動(dòng)窗口 的 總在最前 為 真。

到 _啟動(dòng)窗口 對(duì)應(yīng)的 窗口程序集，把下面的代碼拷貝過(guò)去即可。

.版本?2

.支持庫(kù)?OPenGL

.支持庫(kù)?EThread

.支持庫(kù)?spec

.支持庫(kù)?iext

.支持庫(kù)?eAPI

.程序集?窗口程序集1,?,?,?高仿黑客帝國(guó)

.程序集變量?t,?整數(shù)型

.程序集變量?x,?整數(shù)型

.程序集變量?y,?整數(shù)型

.程序集變量?z,?整數(shù)型

.程序集變量?屏幕高度,?整數(shù)型,?,?,?屏幕高度

.程序集變量?屏幕寬度,?整數(shù)型,?,?,?屏幕寬度

.子程序?__啟動(dòng)窗口_創(chuàng)建完畢

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

屏幕寬度?＝?取屏幕寬度?()

畫板1.畫板背景色?＝?#黑色

_啟動(dòng)窗口.移動(dòng)?(0,?0,?屏幕寬度,?屏幕高度)

畫板1.移動(dòng)?(0,?0,?屏幕寬度,?屏幕高度)

t?＝?0

z?＝?屏幕高度?÷?20

顯示光標(biāo)?(假)

_啟動(dòng)窗口.可視?＝?真

畫板1.可視?＝?真

_啟動(dòng)窗口.調(diào)整層次?(1)

定義?()

畫板1.獲取焦點(diǎn)?()

時(shí)鐘1.時(shí)鐘周期?＝?400??'?每列產(chǎn)生間隔(ms)

啟動(dòng)線程?(數(shù)字雨輸出,?,?)

延遲?(400)

啟動(dòng)線程?(數(shù)字雨輸出,?,?)

延遲?(300)

啟動(dòng)線程?(數(shù)字雨輸出,?,?)

延遲?(200)

啟動(dòng)線程?(數(shù)字雨輸出,?,?)

延遲?(200)

啟動(dòng)線程?(數(shù)字雨輸出,?,?)

延遲?(200)

啟動(dòng)線程?(數(shù)字雨輸出,?,?)

延遲?(200)

時(shí)鐘2.時(shí)鐘周期?＝?1000

_時(shí)鐘2_周期事件?()

.子程序?_畫板1_鼠標(biāo)位置被移動(dòng),?邏輯型

.參數(shù)?橫向位置,?整數(shù)型

.參數(shù)?縱向位置,?整數(shù)型

.參數(shù)?功能鍵狀態(tài),?整數(shù)型

.如果真?(取絕對(duì)值?(橫向位置?－?x)?＞?50?或?取絕對(duì)值?(縱向位置?－?y)?＞?50)

定義?()

t?＝?t?＋?1

.如果真?(t?＞?3)??'?事不過(guò)三

結(jié)束?()

.如果真結(jié)束

.如果真結(jié)束

.子程序?_畫板1_按下某鍵,?邏輯型

.參數(shù)?鍵代碼,?整數(shù)型

.參數(shù)?功能鍵狀態(tài),?整數(shù)型

結(jié)束?()

.子程序?定義

x?＝?取鼠標(biāo)水平位置?()

y?＝?取鼠標(biāo)垂直位置?()

.子程序?數(shù)字雨輸出,?,?,?數(shù)字雨輸出

.局部變量?E,?整數(shù)型,?,?,?垂直位置

.局部變量?F,?整數(shù)型,?,?,?水平位置,起點(diǎn)

.局部變量?G,?整數(shù)型,?,?,?顯示長(zhǎng)度,單位=位

.局部變量?H,?整數(shù)型,?,?,?下降速度

.局部變量?I,?整數(shù)型,?,?,?移動(dòng)次數(shù)

.局部變量?J,?整數(shù)型,?,?,?綠與白

.局部變量?CHR,?文本型,?,?"1000"

置隨機(jī)數(shù)種子?()

J?＝?取隨機(jī)數(shù)?(1,?5)

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

置隨機(jī)數(shù)種子?()

E?＝?取隨機(jī)數(shù)?(0,?屏幕寬度)

置隨機(jī)數(shù)種子?()

F?＝?取隨機(jī)數(shù)?(0,?到整數(shù)?(屏幕高度?×?0.75))

置隨機(jī)數(shù)種子?()

G?＝?取隨機(jī)數(shù)?(z?×?0.2,?z?×?0.65)

置隨機(jī)數(shù)種子?()

H?＝?取隨機(jī)數(shù)?(10,?600)

.判斷循環(huán)首?(真)

'?畫板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])

.如果真結(jié)束

.如果真?(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])

.如果真結(jié)束

I?＝?I?＋?1

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

跳出循環(huán)?()

.如果真結(jié)束

延遲?(H)??'?避免CPU過(guò)高

.如果真?(I?＞?1000)

結(jié)束?()

.如果真結(jié)束

.判斷循環(huán)尾?()

.判斷循環(huán)首?(真)

.如果真?(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])

.如果真結(jié)束

I?＝?I?＋?1

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

跳出循環(huán)?()

.如果真結(jié)束

延遲?(H)??'?避免CPU過(guò)高

.如果真?(I?＞?1000)

結(jié)束?()

.如果真結(jié)束

.判斷循環(huán)尾?()

.否則

置隨機(jī)數(shù)種子?()

E?＝?取隨機(jī)數(shù)?(0,?屏幕寬度)

置隨機(jī)數(shù)種子?()

F?＝?取隨機(jī)數(shù)?(0,?到整數(shù)?(屏幕高度?×?0.75))

置隨機(jī)數(shù)種子?()

G?＝?取隨機(jī)數(shù)?(z?×?0.2,?z?×?0.65)

置隨機(jī)數(shù)種子?()

H?＝?取隨機(jī)數(shù)?(10,?600)

.判斷循環(huán)首?(真)

'?畫板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])

.如果真結(jié)束

.如果真?(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])

.如果真結(jié)束

I?＝?I?＋?1

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

跳出循環(huán)?()

.如果真結(jié)束

延遲?(H)??'?避免CPU過(guò)高

.如果真?(I?＞?1000)

結(jié)束?()

.如果真結(jié)束

.判斷循環(huán)尾?()

.判斷循環(huán)首?(真)

.如果真?(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])

.如果真結(jié)束

I?＝?I?＋?1

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

跳出循環(huán)?()

.如果真結(jié)束

延遲?(H)??'?避免CPU過(guò)高

.如果真?(I?＞?1000)

結(jié)束?()

.如果真結(jié)束

.判斷循環(huán)尾?()

.如果結(jié)束

.子程序?獲取字符,?文本型

.局部變量?A,?文本型

置隨機(jī)數(shù)種子?()

A?＝?字符?(取隨機(jī)數(shù)?(27,?127))

.判斷循環(huán)首?(A?＝?“”?或?A?＝?“?”?或?A?＝?“　”)

置隨機(jī)數(shù)種子?()

A?＝?字符?(取隨機(jī)數(shù)?(27,?127))

.判斷循環(huán)尾?()

A?＝?到全角?(A)

返回?(A)

.子程序?_時(shí)鐘1_周期事件

啟動(dòng)線程?(數(shù)字雨輸出,?,?)

VB制作一個(gè)數(shù)字雨屏保

'101個(gè)標(biāo)簽，一個(gè)按鈕，一個(gè)圖片框，一個(gè)時(shí)鐘，背景圖片自己找

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次移動(dòng)

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和引號(hào)后才行,這樣是測(cè)試用的

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)'重新設(shè)置下降速度

End If

Next

windows10設(shè)置代碼雨動(dòng)態(tài)鎖屏界面怎么做

回到電腦桌面，在電腦桌面空白區(qū)域點(diǎn)擊鼠標(biāo)右鍵-》點(diǎn)擊個(gè)性化設(shè)置（也可以按鍵盤R鍵），打開(kāi)系統(tǒng)個(gè)性化設(shè)置界面。

統(tǒng)個(gè)性化設(shè)置界面左側(cè)菜單欄選擇鎖屏界面－》右側(cè)便會(huì)出現(xiàn)關(guān)于鎖屏界面的預(yù)覽圖以及相關(guān)的配置信息。

點(diǎn)擊背景-》下面的下拉菜單展開(kāi)鎖屏類型。win10的鎖屏界面有三種不同的類型：windows聚焦、圖片、幻燈片放映。比較常用的就是選一張漂亮的圖片作為鎖屏界面。

點(diǎn)擊選擇圖片下方的圖片進(jìn)行選擇，如果對(duì)系統(tǒng)默認(rèn)的圖片不滿意，可以點(diǎn)擊下方的‘瀏覽’按鈕進(jìn)行選擇。

將右側(cè)滾動(dòng)條往下拉直到出現(xiàn)‘屏幕保護(hù)程序設(shè)置’，點(diǎn)擊系統(tǒng)會(huì)自動(dòng)彈出設(shè)置屏幕保護(hù)的界面。

點(diǎn)擊屏幕保護(hù)程序下面的下拉菜單選擇屏幕保護(hù)的類型，類型包括：3D文字、變幻線、彩帶、空白、氣泡、照片。點(diǎn)擊選擇之后可以點(diǎn)擊右側(cè)的預(yù)覽按鈕進(jìn)行預(yù)覽。

等到？分鐘的意思是當(dāng)鼠標(biāo)和鍵盤多長(zhǎng)時(shí)間沒(méi)有操作時(shí)系統(tǒng)會(huì)進(jìn)入屏幕保護(hù)的時(shí)間間隔。后面的復(fù)選框勾上則關(guān)閉屏保的時(shí)候會(huì)進(jìn)入電腦登錄頁(yè)面，輸入密碼才能進(jìn)入電腦。

當(dāng)前標(biāo)題：代碼雨屏保java語(yǔ)言 代碼雨壁紙軟件
網(wǎng)站地址：http://m.2m8n56k.cn/article30/doedcso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、網(wǎng)站維護(hù)、響應(yīng)式網(wǎng)站、網(wǎng)站內(nèi)鏈、ChatGPT、面包屑導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：[email protected]。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)