剛接觸不久
我在寫這程式學到一些東西
想說讓這程式完善一點
就在網路上找找
網路上臥虎藏龍阿
別人寫的十進位與二進位互轉
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