1樓：
dim x as integer '一定要定義。
private sub command1_click()
not '計時器開關。
iif( = "開始", "暫停", "開始") '按鈕文字更換。
end sub
private sub form_load()
false '計時器不開。
開始"end sub
private sub timer1_timer()
for i = 1 to 8 '先行著色，著黑色。
controls("shape" & i).backstyle = 1
next i
x = x + 1 '定義每秒換乙個shape
if x = 9 then x = 1 '當換完一輪後又重第乙個開始。
controls("shape" & x).backstyle = 1 '可要可不要，因為前面定義過了，指可以填色。
著新色，黃色。
end sub
前幾天幫別人寫的乙個跑馬燈程式，新增8個shape 乙個command1.計算器太複雜了，不想也不知道能不能寫出來。計時器又太簡單。呵呵，你看著用吧~~~
怎麼樣用vb編寫多功能計時器程式
2樓：網友
我正在寫乙個vb程式，現在已實現下面功能，你說的那些，在這裡面是小case。
3樓：網友
我不想幫你，但我寫好了。 :d
指標時鐘vb程式
4樓：網友
有現成的，怎麼給你？
關於vb時鐘程式的一點問題
5樓：網友
第乙個 = a-iif(i<7,115,170)的意思就是如果i<7那麼 = a-115 else = a - 170
第二個是調整位置，把列印的字的位置稍往上移，以3點位置為例，把3 上移一點，讓指標正好指在3中間位置。
6樓：司徒驚月
應該是調整細節位置吧。。
求vb高手解答程式 關於計時器
7樓：螢火蟲與滿天星
funsecondtoformat是自己寫的吧？你根本就沒貼出來？你確定你寫了這個函式？
你在**最後加上：
public sub funsecondtoformat()end sub
當然這只是解決你的報錯，這個函式里還有些**，用來格式化時間到秒（十進位滿60進位）的。
8樓：網友
funsecondtoformat應該是你自己定義的乙個函式，你找找是不是定義漏掉了。
9樓：巴哥泡泡
首先，funsecondtoformat這個函式是你自定義的，定義過程需要貼出來的，其次，你的語句也有問題啊，if是需要end if來匹配的，但是我在end sub 之前沒有看到他！
vb時鐘程式!急!!!
10樓：網友
private sub timer1_timer()= year(now())'年。
month(now())'月。
day(now())'日。
end sub
要顯示時間麼？
直接寫的，沒除錯。。（我沒vb6了。。。你看看。
vb類比電子鐘程式
11樓：網友
同時顯示時針，分針，秒針秒針運動，是比較簡單的，但是要求節面美觀，我無能為力了，不好意思哦。
窗體上放個**框，在**框裡放3個line控制項private sub form_load()(12, -12)-(12, 12)
trueend sub
private sub timer1_timer()label1 = now
r1 = 6: r2 = 8: r3 = 10bs = / 180
h = hour(time)
m = minute(time)
s = second(time)
a1 = -(90 - h + m / 60) *30) *bs
a2 = -(90 - m + s / 60) *6) *bsa3 = -(90 - s * 6) *bs= r1 * cos(a1): = r1 * sin(a1)= r2 * cos(a2): = r2 * sin(a2)= r3 * cos(a3):
r3 * sin(a3)end sub
12樓：網友
我有了，改天發給你。郵箱。
13樓：網友
我有做好了的，是不是要這樣的？怎麼給你？
14樓：網友
我有現成的，還附帶倒計時程式，怎麼發給你？
跪求 乙份計算器程式，用計算器計算 線上等
用計算器計算 等 精確到 保留三個有效數字 精確到十分位 我知道不會採納我的，但我還是要罵 艾瑪樓主你太懶了！選選項裡的 科學型就好了 點 檢視 科學型 左邊粉色的字中間平方 立方要把計算器換到科學型有兩個按鈕是x 和x 意思分別是平方 計算程式 c name 無界承壓含水層穩定流單孔抽水試驗計算滲...
用pascal語言寫個簡易計算器程式
const m 1000 type stack array 1.m of extended stack2 array 1.m of char var s stack s2 stack2 a,e string t,i,x,y integer j,k extended w char cha set of...
vb怎麼製作乙個計算器？怎麼用VB做乙個計算器
您好，我這邊正在為您查詢，請稍等片刻，我這邊馬上回覆您 提問。括號怎麼做呢。親親正在為您查詢呢。您好，很高興為您解答，開始 程式 附件 計算器 檢視 科學型 就可以運算了。例如 2 3 5 操作 按 按2 按 按3 按 按 按5 按 最後顯示結果 25 親試一下這樣可以嗎。提問。vb程式 字元 re...