討論區快速選單
知識庫快速選單
政府補助!學嵌入式+物聯網 網路投保旅行平安險 傑米的攝影旅遊筆記
[ 回上頁 ] [ 討論區發言規則 ]
請問有關用vb控制lcd燈亮的程式問題
更改我的閱讀文章字型大小
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/26 上午 02:35:28
請問一下

小弟目前有用vb做好了一組溫度感測的套件

可以在測到一組溫度經由rs-232傳送到電腦 並顯示到vb上的label上

那請問如何在vb上設一個像lcd的圖形,並利用下拉式的選單設定想要的溫度,假設設定20度

在超過20度時,lcd的燈會亮紅色,低於20度時,會亮綠色。這是第一個問題

那假設我設定20度時,超過20度時,會傳送一個值,經由rs232,再傳到8051上,然候使port1上的lcd燈亮,低於20度時,lcd會暗。

請問要怎麼寫呢?

因為小弟不是資訊科的,完全對vb陌生,專題是做監控的,只是沒想到花了很多時間研究了vb,只做到監視的部份,控制的問題就是上面的2個問題,因為剩1個星期就要驗收了,實在是沒辦法慢慢研究了>"<

煩請各位大大幫個忙吧!

幫忙寫一下上面說的程式,並教一下為何而使用這個指令,因為不想完全都抄=..=

謝謝賜教

作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人kkety註記此篇回應為最佳解答 2005/12/26 上午 08:11:22
1.你的lcd圖形是有現成的圖檔嗎,還是只要單純一個正方形圖塊?

2.送一個值可經由'mscomm1.output=變數'送出,至於送出的是什麼值就要看你的8051要接收什麼值了

3.我也不是資訊科的,我電子科的,好好加油吧...
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/26 下午 04:01:27
1.你的lcd圖形是有現成的圖檔嗎,還是只要單純一個正方形圖塊?

不是現成的圖檔,而是單純的想用一紅一綠的圖形來當成是lcd而已

是不是要做2個一樣大小的圖形 然後顏色不一樣,接著看值的高低來做顯示嗎?

如果是這樣的話 請問要怎麼寫呢?

2.送一個值可經由'mscomm1.output=變數'送出,至於送出的是什麼值就要看你的8051要接收什麼值了

另請問一下,下拉式的選單 怎麼去設定這個溫度呢?

謝謝
作者 : mynothing(MyNothing)
[ 貼文 23 | 人氣 421 | 評價 80 | 評價/貼文 3.48 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人kkety註記此篇回應為最佳解答 2005/12/26 下午 04:11:19

>1.你的lcd圖形是有現成的圖檔嗎,還是只要單純一個正方形圖塊?
>
>不是現成的圖檔,而是單純的想用一紅一綠的圖形來當成是lcd而已
>
>是不是要做2個一樣大小的圖形 然後顏色不一樣,接著看值的高低來做顯示嗎?
>
>如果是這樣的話 請問要怎麼寫呢?
>
在超過20度時,lcd的燈會亮紅色,低於20度時,會亮綠色。這是第一個問題
MyLCD为Label控件
     if 温度> 20 Then
     MyLCD.BackColor = vbGreen
    ElseIf 温度> 20 Then
     MyLCD.BackColor = vbRed
    End If
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/26 下午 04:12:19
更正一下 是led 不是lcd 以上全文都筆誤>"<
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/26 下午 05:45:26
在超過20度時,lcd的燈會亮紅色,低於20度時,會亮綠色。這是第一個問題


    MyLCD为Label控件 <=請問這句話是什麼意思呢?
     if 温度> 20 Then
     MyLCD.BackColor = vbGreen
    ElseIf 温度> 20 Then
     MyLCD.BackColor = vbRed
    End If

講明白點的話 就是我不懂得用什麼元件來做lcd的圖示 >"<

還有語法也不會寫qq
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人kkety註記此篇回應為最佳解答 2005/12/26 下午 07:19:36
Label控制項你應該會用吧...

在表單上拉一個Label1...然後控制項名稱照著樓上那位大大的範例就可以用了..

>不是現成的圖檔,而是單純的想用一紅一綠的圖形來當成是lcd而已
>
>是不是要做2個一樣大小的圖形 然後顏色不一樣,接著看值的高低來做顯示嗎?
>
>如果是這樣的話 請問要怎麼寫呢?
>

combo控制項會用嗎...

你可以在表單載入時用combo1.additem "20"加入下拉式選單的內容..

你是要再什麼時候送下拉是選單的資料到8051呢....

如果是下拉是選單按下後就馬上送的話..

可comm1.ouput=combo1.text將加在combo1的click事件中...

>另請問一下,下拉式的選單 怎麼去設定這個溫度呢?
>
>謝謝
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人kkety註記此篇回應為最佳解答 2005/12/26 下午 07:30:41
> MyLCD为Label控件 <=請問這句話是什麼意思呢?
     他的意思是拉一個label名稱叫MyLCD...如果不會取名的話..那我也無能為力了...
     去小雄那K一下吧...http://vb.infoserv.com.tw/
> if 温度> 20 Then
> MyLCD.BackColor = vbGreen
     BackColor指的是label的背景顏色....
> ElseIf 温度> 20 Then
> MyLCD.BackColor = vbRed
> End If
>
以上程式的意思就是控制label的顏色來判定溫度是否超過指定值...
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/26 下午 07:37:59
基本的語法是我都會

雖然這些看起來很簡單

可是沒有講解一下的話

我是真的都看不懂啊(因為沒學過)qq

至於傳送到8051的值的話

是當溫度高於一定值就送一個信號使lcd亮

而低於一定值時,就送一個信號使lcd暗

其實應該是很簡單的東西,可是卻弄不起來啊qq
作者 : windknief(風刃)
[ 貼文 98 | 人氣 4718 | 評價 260 | 評價/貼文 2.65 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/27 上午 07:24:51
看起來你的系統是由PC端的軟體來控制Target Board上的LED明暗
1.Target Board必須一直傳送溫度的測量值,並等待VB傳送控制燈號的訊號
2.VB於MSCOMM32的OnComm()接收8051傳回來的資料並決定傳至8051的控制訊號
3.顯示可用PictureBox的Backcolor來顯示顏色.

小建議:
8051接受VB傳送過來的溫度設定值,當偵測到溫度時,自行控制Port上的燈號顯示
並傳回資料給VB,VB只需要傳送溫度設定值與顯示燈號就好了!!是否會比較簡單??
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人kkety註記此篇回應為最佳解答 2005/12/27 上午 08:15:10
Label的那個搞定了嗎,範例那麼明白又有註解,如果還是有問題我也沒辦法了...

傳送到8051的部分,我記得你是按一顆按鈕接收8051的數值嘛...

那在接收數值後再跟下拉式選單的數值比較,如果大於的話送訊號,
Ex:
private command1_click()
a=comm1.input

if a>combo1.text then
     送出訊號
end if
end sub

至於要送出什麼訊號...就要看你的8051接收到什麼訊號led會有反應了...

這邊誰都沒有環境,所以沒人可以幫你測試,多多測試就會有進展的....
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 上午 03:13:32
謝謝各位大大的幫忙^^

因為大家的幫忙 小弟現在vb程式方面終於給我慢慢的摸出來了

雖然很簡單的程式 卻花了我一整天的時間下去try啊qq

可是最後出現了一個小小的問題@@

就是每當執行時,常常有機會按下vb上面三角形的開始鈕要run程式

程式有時候能正確動作沒錯,可是有時候會出現錯誤視窗,


寫著:執行階段錯誤"13"

型態不符


只要關掉再重新執行,就有機會能再執行成功,感覺上能成功的機會大約是一半一半啦@@

請問這個又是出現了什麼問題呢?
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 上午 08:13:14
出現錯誤訊息後,選擇偵錯,程式應該會停再有問題的那一行(會變黃色的)

那一行的內容是什麼...
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 02:47:39
有時候是這行 If Val(Combo1) = Label1 And Val(Combo2) = Label17 Then

有時候是這行 Label3.Caption = (Label1 * 9 / 5) + 32 '換算華氏溫度

好像都是有關於比較跟計算的時候的那幾行有問題

請問我原示這樣寫有哪錯嗎?

buf = MSComm1.Input
'在Text1顯示buf
Tmp = Split(buf, "/")
Label1.Caption = Tmp(1) '顯示溫度
Label2.Caption = Tmp(0) '顯示溫度
Label3.Caption = (Label1 * 9 / 5) + 32 '換算華氏溫度
Label4.Caption = (Label2 * 9 / 5) + 32 '換算華氏溫度
Label5.Caption = Label1 + 273 '計算絕對溫標
Label6.Caption = Label2 + 273 '計算絕對溫標
Label7.Caption = Label3 + 460 '計算朗氏溫標
Label8.Caption = Label4 + 460 '計算朗氏溫標
Label17.Caption = RH(Label1, Label2) '顯示RH

If Val(Combo1) = Label1 And Val(Combo2) = Label17 Then

MyLCD1.BackColor = vbRed
MyLCD2.BackColor = vbRed
MyLCD3.BackColor = vbRed

End If

If Val(Combo1) < Label1 And Val(Combo2) = Label17 Then

MyLCD1.BackColor = vbGreen
MyLCD2.BackColor = vbRed
MyLCD3.BackColor = vbRed

End If
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 03:05:43
label和combo的型態都是文字,所以要比較都要用val轉數字...

文字和數字不能做運算的...

If Val(Combo1) = val(Label1) And Val(Combo2) = val(Label17) Then

Label3.Caption = (val(Label1) * 9 / 5) + 32

另外...你居然把控制項的的.TEXT或.CAPTION全部省略....真是神啊....不過也是可以的啦...
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 03:11:56

>有時候是這行 If Val(Combo1) = Label1 And Val(Combo2) = Label17 Then
試試改成 If Val(Combo1) = Val(Label1) And Val(Combo2) = Val(Label17) Then
>有時候是這行 Label3.Caption = (Label1 * 9 / 5) + 32 ''換算華氏溫度
試試改成 Label3.Caption = Str((Val(Label1) * 9 / 5) + 32)

基本上Label 是字串型態,需做轉換至數值再做運算.
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 03:28:14
555

現在問題改善了

卻出現了  陣列索引超出範圍  完全不能執行qq

問題出現在這一行

Label1.Caption = Tmp(1)) '顯示溫度

作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 03:35:24
因為我的rs232的輸入是連續 x/y x/y x/y ..........

一直在輸入的

所以用分割字串分割開來

要分別顯示x 跟 y

剛試了一下 把陣列超出範圍的那行砍了

程式就能正常執行沒任何問題

作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 03:46:51
你的程式不是按一下接收一次嗎...

還是你又改了啊...

那就要檢查接收下來的字串是否符合X/Y囉...
ex:
A=COMM1.INPUT
IF INSTR(A,"/")>0 THEN
...
...
...
...
END IF
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 03:51:50
因為上次有人跟我說只要把程式放到mscomm底下的話

就能省去按鈕的這一步

所以為了方便監控 所以改成連續一直丟值進來做運算

可是沒想到愈來愈多麻煩>"<
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 03:58:51
啊...突然想到了..收下來應該是x/yx/yx/yx/y嘛..你只要取到值後把他清空就可以啦..

a=comm1.input
b=split(a,"/")
a=""
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:02:30
看不懂 qq

我現在的問題是這樣子的

Private Sub MSComm1_OnComm()
Dim buf$
Dim Tmp As Variant
Dim Num As Integer '陣列輸入

'清除上次傳送資料
buf = ""
'傳送模式
MSComm1.InputMode = comInputModeText
'取得MSComm1資料
buf = MSComm1.Input <===這邊用偵錯看到是 x/y x/y x/y x/y........
'在Text1顯示buf
Tmp = Split(buf, "/")
   
Label1.Caption = Val(Tmp(1))
Label2.Caption = Val(Tmp(0)) '顯示溫度
Label3.Caption = Str(Val(Label1) * 9 / 5) + 32 '換算華氏溫度
Label4.Caption = Str(Val(Label2) * 9 / 5) + 32 '換算華氏溫度
Label5.Caption = Val(Label1) + 273 '計算絕對溫標
Label6.Caption = Val(Label2) + 273 '計算絕對溫標
Label7.Caption = Val(Label3) + 460 '計算朗氏溫標
Label8.Caption = Val(Label4) + 460 '計算朗氏溫標
Label17.Caption = RH(Val(Label1), Val(Label2)) '顯示RH

感覺應該是因為連續一直進來的訊號 用split下去分割的話

只會把第一個x/y的 / 去除掉 後面的訊號一直進來 就超出陣列索引了

這個弄不好 ,整個廢掉了>"<

祐哥 真的很感謝你一直回我的文qq
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:10:18
我buf有清空了啊@@
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:14:41
接收前加這行試試...
 MSComm1.InputLen = 0
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:20:46
這個也有加了qq
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:23:14
要即時監控的話除了ONCOMM..還有另一個方法...用timer

拉一個timer1出來..然後把整段程式拉過去...

把timer1.interval設成你要的秒數1000=1秒...

在試試吧...
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:28:19
或加下面那行
 If MSComm1.CommEvent = 2 Then ' 2 代表 rx 有接收到資料
 buf = MSComm1.Input
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:40:27
If MSComm1.CommEvent = 2 Then ' 2 代表 rx 有接收到資料
End If
加這段下去的話

tmp(1)會一樣沒分割到 一樣是x/y


tmp(0)有分割到 就是y了

有辦法再把tmp(1) 分割嗎?
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:43:12


Dim buf$
Dim Tmp As Variant
Dim Num As Integer '陣列輸入
Dim x As Variant
'清除上次傳送資料
buf = ""
'傳送模式
MSComm1.InputMode = comInputModeText
'取得MSComm1資料
buf = MSComm1.Input
'在Text1顯示buf
Tmp = Split(buf, "/")
If MSComm1.CommEvent = 1 Then ' 2 代表 rx 有接收到資料
End If

x = Split(Tmp(1), "0")

Label1.Caption = Val(x(1))

我把它改成這樣

就成功了@@!!

真的能把tmp1再分割一次耶@@

謝謝阿祐哥

不過 請問能解釋一下 為什麼加了這個

If MSComm1.CommEvent = 1 Then ' 2 代表 rx 有接收到資料
End If

就能了嗎?
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:43:51
顯示x的label=mid(tmp(1),1,len(tmp(1))-instr(tmp(1)),"/")
作者 : kkety(kkety)
[ 貼文 33 | 人氣 3717 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/12/28 下午 04:55:16
問題解決了^^

謝謝你喔

^^

得到你很多的幫助 也學到很多vb的東西 謝謝
作者 : yuyulin(阿祐) Visual Basic優秀好手人氣指數超過10000點
[ 貼文 157 | 人氣 10059 | 評價 870 | 評價/貼文 5.54 | 送出評價 13 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人kkety註記此篇回應為最佳解答 2005/12/28 下午 04:57:01
太久沒用了...好像是判斷傳輸區的字串大小的樣子..
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.2338867