Who is 程式設計師 |
|
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
Dim 年齡 as Integer
Dim 金錢 as Integer
Dim 人脈 as Integer
Dim 機會 as Boolean
Dim 戀愛 as Boolean
Dim 技術 as 成熟度
Dim 履歷表 as ADODB.Recordset
---------------------------
private sub 人_出生Load() if 家有錢 then
exit sub
else
求學
上班
end if if 年齡>20 and 年齡<40 then
結婚
end if if 機會 = true then
創業
else
作哈巴狗
end if me.width=?
me.height=?
me.weight=老了就會發胖
me.caption=程式設計師 timer1.interval=一年
if 錢 > 錢 + 之前的錢 and 閒 = true then
timer1.enable=true
end if timer2.interval=兩個月
if 時間 = true or 精力 = true then
timer2.enable= true
end if end sub
-------------------------
private sub 上班() do while 機會 = false
do 實力不足
培養實力
loop if 薪水<能力 and 有更好的機會-->跳槽
if 薪水>=能力 -->滿意
if 薪水<能力 and 沒有更好的機會-->認命
loop
-------------------------------------------------------
private sub 人_unload
a = msgbox("自殺或自然死",vbyesno) if a = vbyes then
留遺書
end
elseif a = vbno then
cancel=true
end
-------------------------------------------------------
private function 結婚() as boolean
戀愛
if 戀愛 = true then
結婚= true
else
結婚=false
end if
------------------------------------------------------
private function 創業() as boolean if 金錢>1,000,000 and 人脈 >1,000 and 技術 = good then
可能會成功
else
應該會失敗
end if if 第一次失敗 and 不怕 then
do while 失敗
再創業
if 成功 then
exit do
end if
loop
elseif 第一次失敗 and 怕了 then
創業 = false
exit function
end if
---------------------------------------------
private sub timer1_timer()
渡假or休息
end sub
---------------------------------------------
private sub timer2_timer()
充實自己
學習新技術
接外面案子 SQL="insert into 個人資料(技術專長,經歷) values('"
SQL=SQL & "新技術','外案')"
Set 履歷表=Connection.execute(SQL) if 時間 =false or 精力 = false then
timer2.enable=false
end if
end sub
Levin誕生篇...
==============
程式不是寫來玩的
而是要有價值
------
林壽山 網站: http://superlevin.ifengyuan.tw mail: superlevin@gmail.com |
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
|
lcsboy
版主 發表:87 回覆:622 積分:394 註冊:2002-06-18 發送簡訊給我 |
|
chimera
初階會員 發表:62 回覆:78 積分:28 註冊:2003-03-22 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |