史萊姆論壇 - 如何做進位轉換(Vb)

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - 如何做進位轉換(Vb) (http://forum.slime.com.tw/thread253996.html)

ga1286400

2009-10-27 05:05 PM

如何做進位轉換(Vb)

我有2個Textbox跟兩個CommandButton
請問怎麼做進位轉換？:on_47:
例如：二進位轉換十進位

mini	2009-10-27 08:42 PM

語法:

Private Sub Command1_Click()



  l = Len(Trim(Text1.Text))   '求二進位字串長度

    For i = 1 To l     '從最左邊開始換算累積到 變數a中

             j = 2 ^ (l - i)

       a = a + CInt(Mid(Text1, i, 1)) * j

    Next

    Text2.Text = a

    

End Sub

P.S.上面沒有做 text1的二進位制限制

ga1286400

2009-10-29 05:18 PM

太感謝了！！
不錯！！

所有時間均為台北時間。現在的時間是 06:58 AM。

SEO by vBSEO 3.6.1