[VB6 ] hamming code?
想請問hamming code用VB6來實現該怎麼下手呢??
題目是傳送端先將A及B XOR後 傳給接收端 再用漢明碼改正單一位元，
其中還要用隨機的方式產生錯誤位元..(用VB模擬傳送跟接收)
我現在只做到前面就卡關了..
想問
<第一個問題>..
若A是10~20bits，B是7~21bits，......那這樣可以XOR嗎?
<第二個問題>..
我做的B一值沒辦法由10進位轉成二進位後只有7個bit
例如說：64-> 01000000 但是應該是要"1000000" 這樣吧，到底是哪裡錯了呢?
下面是部分程式..
Private Sub cmdDenary2_Click()
On Error Resume Next
' 如長度為 0。
If Len(txtDenary2.Text) = 0 Then
Exit Sub
End If
If Val(txtDenary2.Text) < 64 Then
MsgBox "本系統只接受64(7bit~21bit)以上值的轉換。", vbOKOnly, Caption
Call Clear(Me)
Exit Sub
End If
If Val(txtDenary2.Text) > 2097151 Then
MsgBox "只接受2097151(7bit~21bit)以下值轉換", vbOKOnly,Caption
Call Clear(Me)
Exit Sub
End If
' 偵測是為數字。
If IsNumeric(txtDenary2.Text) = False Then
Exit Sub
End If
' 利用下列函數開始計算。
txtBinary2.Text = DecimalToBinary(txtDenary2.Text)
' 十進位數值轉換二位數數值；
上面的程式是從VB入門網的各個擊破改了一點點的..
在這( http://www.vbguide.com.tw/webback2.asp )
全文搜尋 binary 後裡面有個
"主題：如何對 Decimal, Binary, Octal, Hex, Ascii, Unicode 數值相互轉換？"
是個很友善的程式
<第三個問題>...
就是漢明碼了..想請問有沒有直接的範例可供參考，
或是建議可以從哪裡下手呢? QQ 謝謝
我有找到對岸的一些資料，不過是java的
在這( http://www.linuxsir.org/bbs/archive/index.php/t-267503.html )
不好意思問題很多..這篇文章應該賺不少P幣吧..^^|||
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.223.227.50
→
04/17 22:43, , 1F
04/17 22:43, 1F