[請教]請問一下VB的程式碼choose

ming
個人積分：84分
文章編號：150285

84分

樓主

2004-04-21 20:29

Dim op As Byte
-----------------------------------------
Private Sub Command3_Click()
End
End Sub
-----------------------------------------(個人習慣先寫end)
Private Sub tracmd_Click()
op = Val(yeartxt.Text) Mod 12
yearlbl = Choose(op, "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊", "猴", "雞", "狗")
If Null Then yearlbl.Caption = "豬"

End Sub

--------------------------------------
現在有個小問題~~
當我在 yeartxt.text輸入為12的倍數時
因為整除~所以~正常因該顯示"豬"
但我輸入後變成
null的使用不正確><~~
請問一下要如何改

2004-04-21 20:29 發佈

文章關鍵字 VB 程式碼

anniver

anniver
個人積分：5分
文章編號：150300

5分

2樓

2004-04-21 20:55

what is in year.txt?
just number from 0-whatever??
And make sure there is a number in there BEFORE theVal function

CornGuo

CornGuo
個人積分：1281分
文章編號：150327

1281分

3樓

2004-04-21 21:39

ㄝ... ?

這樣咧?

op = (Val(yeartxt.Text)-1) Mod 12 + 1

就不會有 0 出現的問題了 XD.. (直線思考得到的笨方法

)

http://about.me/cornguo

ming

ming
個人積分：84分
文章編號：150341

84分

樓主

2004-04-21 21:57

CornGuo wrote:
ㄝ... ?

這樣咧?

op = (Val(yeartxt.Text)-1) Mod 12 + 1

就不會有 0 出現的問題了 XD.. (直線思考得到的笨方法 )

可以喔~~~

玉米~~MSN留一下吧~~^^

陳哈哈

陳哈哈
個人積分：129分
文章編號：150392

129分

5樓

2004-04-21 23:15

改
Dim op As Integer

人生最重要的一件事, 就是把握機會..

saintk

saintk
個人積分：76分
文章編號：150612

76分

6樓

2004-04-22 9:54

第一個
Dim op As Byte
應該是Integer

第二個
If Null Then yearlbl.Caption = "豬"
是什麼東西NULL阿...應該是
If op=Null then.......

ming

ming
個人積分：84分
文章編號：150757

84分

樓主

2004-04-22 13:26

我電腦的能力果然還不夠阿~~><~~

再問各位大大一個問題(同一題)
-------------------------------------------
Dim op As Integer
------------------------------------------
Private Sub Command3_Click()
End
End Sub
-------------------------------------------
Private Sub tracmd_Click()
op = Val(yeartxt.Text) Mod 12
yearlbl = Choose(op, "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊", "猴", "雞", "狗")
If op = Null Then yearlbl.Caption = "豬"
Select Case num = (hourtxt.Text)
Case 0 = 子時
Case 1 To 3 = 丑時
Case 3 To 5 = 寅時
Case 5 To 7 = 卯時
Case 7 To 9 = 辰時
Case 9 To 11 = 巳時
Case 11 To 13 = 午時
Case 13 To 15 = 未時
Case 15 To 17 = 申時
Case 17 To 19 = 酉時
Case 19 To 21 = 戌時
Case 21 To 23 = 亥時
Case 23 To 25 = 子時
End Select
End Sub
-------------------------------------

目前改成這樣~~
不過~~null的部份~~還是有問題(嘆)
所以還是用玉米的方法~~
--------------------------------------
Dim op As Byte
-----------------------------------------
Private Sub Command3_Click()
End
End Sub
-----------------------------------------
Private Sub tracmd_Click()
op = (Val(yeartxt.Text)-1) Mod 12 + 1
yearlbl = Choose(op, "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊", "猴", "雞", "狗","豬")
Select Case num = (hourtxt.Text)
Case 0 = 子時
Case 1 To 3 = 丑時
Case 3 To 5 = 寅時
Case 5 To 7 = 卯時
Case 7 To 9 = 辰時
Case 9 To 11 = 巳時
Case 11 To 13 = 午時
Case 13 To 15 = 未時
Case 15 To 17 = 申時
Case 17 To 19 = 酉時
Case 19 To 21 = 戌時
Case 21 To 23 = 亥時
Case 23 To 25 = 子時
End Select
End Sub
---------------------------------
這是用玉米的方法~~
上半部ok~
請問一下~~
下半部的case
是哪寫錯了~~><~~
(不好意思~~我成績蠻差的~~

)

CornGuo

CornGuo
個人積分：1281分
文章編號：150826

1281分

8樓

2004-04-22 15:11

@@..

在 C 裡面的 Case 是要這樣用的

switch(變數)
{
　case 0: 敘述; break;
　case 1: 敘述; break;
　...
　default: break;
}

VB 的 Case 要怎麼用我就..

太久沒碰 VB 了

http://about.me/cornguo

saintk

saintk
個人積分：76分
文章編號：150948

76分

9樓

2004-04-22 19:17

你的程式小問題...我改一下(我很久沒碰vb囉不確定對不對)

num = hourtxt.text
Select Case num
case 0
Print "子時"
case 1 to 3
Print "丑時"
......以此類堆

試試看囉

ming

ming
個人積分：84分
文章編號：151038

84分

樓主

2004-04-22 21:40

saintk wrote:
你的程式小問題...我改一下(我很久沒碰vb囉不確定對不對)

num = hourtxt.text
Select Case num
case 0
Print "子時"
case 1 to 3
Print "丑時"
......以此類堆

試試看囉

當成if用嗎?...