VB新手-十進位轉二進位含專案程式

小熊 — Wed, 13 Feb 2013 06:11:00 +0000

剛接觸不久

我在寫這程式學到一些東西

想說讓這程式完善一點

就在網路上找找

網路上臥虎藏龍阿

別人寫的十進位與二進位互轉

http://changsunche.pixnet.net/blog/post/25386951

1.除法無條件捨去，使用FIX與INT的差別

http://tlcheng.twbbs.org/myInfobox/zdisqvb6p4/post039646.htm

2.輸出文字格式format用法（自動補零）

http://www.programmer-club.com/ShowSameTitleN/vb/32111.html

3.預設文字輸入的文字方塊

http://www.programmer-club.com.tw/ShowSameTitleN/vbdotnet/421.html

4.預設鍵盤ENTER對應程式按鈕

http://gb.twbts.com/index.php?topic=9941.0

5.限制文字方塊只可輸入數字（ASCII）

http://tw.myblog.yahoo.com/star-888/article?mid=2765

6.限制文字方塊可輸入字元位數

http://tc.wangchao.net.cn/zhidao/detail_4416903.html

我是VB新手

以下是我打的程式碼

哪裡有問題還是我脫褲放屁都可以糾正我喔

感謝您

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim temp1 As Single
        Dim temp2 As String = “”
        Dim temp3 As String = “”
        temp1 = T1.Text
        T2.Text = T1.Text
        Do While temp1 > 0
            temp2 = (temp1 Mod 2) & temp2 ‘將除於二餘數由右向左放入
            temp1 /= 2 ‘將數字除於二
            temp1 = Fix(temp1) ‘無條件捨去小數點
        Loop
        temp2 = Format(Val(temp2), “00000000”) ‘沒滿八位數，會自動補零
        T1.Focus() ‘移游標至TextBox1
        L1.Text = temp2
        T1.Text = “”
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button1.Enabled = False ‘初始顯示按鍵無效，無法壓按
        Me.Text = “十進位轉二進位” ‘程式標題名稱
    End Sub

    Private Sub T1_TextChanged(sender As Object, e As EventArgs) Handles T1.TextChanged
        If (T1.Text = “”) Then ‘無輸入時，顯示成灰鍵，無法壓按
            Button1.Enabled = False
        Else
            Button1.Enabled = True
        End If

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles T1.KeyPress
        If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Or Asc(e.KeyChar) = 8 Then Exit Sub ‘限制鍵盤輸入，只允許0~9和倒退鍵
        e.Handled = True
        ‘在TextBox 輸入資料,按 Enter 後自動執行 Button1
        If Asc(e.KeyChar) = 13 Then ‘將ENTER按鍵對應Button1
            Me.Button1.Select()   ‘選擇 Button1
            SendKeys.Send(“{enter}”) ‘按下 Enter
        End If
    End Sub

End Class

1.專案名稱 : 2013-02-13-二進位.rar

大小 : 89 KB

二進位\二進位\bin\Debug 內有X64的EXE執行檔

載點 : Mediafire ; Uploadingit ; SkyDrive ; 4shared ; Opendrive

VB – 熊的開發

VB新手-十進位轉二進位 含專案程式

VB新手-十進位轉二進位含專案程式