台灣最大程式設計社群網站
線上人數
1471
 
會員總數:246630
討論主題:190056
歡迎您免費加入會員
討論區列表 >> VB6 >> 請問轉換成十進位的語法
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
請問轉換成十進位的語法
價值 : 10 QP  點閱數:4627 回應數:2
樓主

小豬
初學者
28 25
272 20
發送站內信

我的語法:
Private Sub cmdDEC_Click()
 ans = Int(txtNum.Text)
 txtAns.Text = ans
End Sub

Private Sub cmdHEX_Click()
 ans = Hex(txtNum.Text)
 txtAns.Text = ans
End Sub

同樣的方法,轉成十六進位就沒問題
可是轉十進位就沒辦法
請問怎麼寫才對??

本篇文章發表於2005-02-01 13:36
1樓
不錯的參考

QQ的乖乖餃
捐贈 VP 給 QQ的乖乖餃 檢舉此回應
 ans = Val("&H" + Text1.Text)   
 Text2.Text = ans

16進位前面有特殊符號, 加上去就能作正確判斷
本篇文章回覆於2005-02-01 14:21
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
最有價值解答

QQ的乖乖餃
捐贈 VP 給 QQ的乖乖餃 檢舉此回應
基本上...vb6的程式不能這樣寫...
vb一直被人說很爛, 除了效能確實不好以外
也因為內建不用變數宣告, 造成程式老是不小心會當機
這很要不得

應該改成這樣
Option Explicit   ' 這行一定要加

Private Sub cmdDEC_Click()
 dim ans as integer
 ans = Val("&H" + Text1.Text)  
 txtAns.Text = cstr(ans)
End Sub

Private Sub cmdHEX_Click()
 Dim ans As String
 ans = Hex(Text1.Text)
 Text2.Text = ans
End Sub
本篇文章回覆於2005-02-01 14:26
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.