公告版位
沒有痛苦 就沒有收穫
有問題歡迎來信詢問 jingluenwork@gmail.com

1.SMBUS 

SMBus Specifications:http://smbus.org/specs/

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

VB - 控制項是什麼

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

VB - 找出所有panel內的lable名稱

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

VB -Textbox換行和不換行的方法

控制項右上角有個箭頭指過去

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

如標題 如何把中日英文變成URL編碼

在IE上 如果輸入中文 或許還可以搜尋 ,但遇上日文字就問號亂碼給你看,但其他瀏覽器事不會發生

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

專案環境VS2017

1.開頭加入

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

Keil 編譯成功後會在 Build Output 事窗出現一條訊息:
Program Size: Code=5124 RO-data=696 RW-data=92 ZI-data=22316 

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

HEX文件和BIN文件格式的區別
1.HEX文件是包括地址信息的,而BIN文件格式只包括了數據本身

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

軟體名稱:bluegriffon

用途:部落格草稿用 多用途網頁功能

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

情境:假設 我有一個combox1 和一個 Textbox1 , 我選擇Combox1上面選項時要同時更動textbox1上的數值

方法如下:

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

Hiberfil.sys

開啟CMD 打上 powercfg.exe -h off

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

My.Computer.FileSystem 物件的 DeleteFile 方法可讓您刪除檔案。 提供的選項包括︰是否要將已刪除的檔案傳送至 [資源回收筒]、是否要求使用者確認應該刪除檔案,以及使用者取消該作業時該怎麼辦。 刪除文字檔 使用 DeleteFile 方法來刪除檔案。 下列程式碼示範如何刪除名為 test.txt 的檔案。
My.Computer.FileSystem.DeleteFile("C:\test.txt")
刪除文字檔並要求使用者確認應該刪除檔案 使用 DeleteFile 方法來刪除檔案,並將 showUI 設定為 AllDialogs。 下列程式碼示範如何刪除名為 test.txt 的檔案,並讓使用者確認應該刪除檔案。
              My.Computer.FileSystem.DeleteFile("C:\test.txt",
        Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
        Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently,
        Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

VB - 如何判斷輸入是否為數字
if NOT IsNumeric(TextBox1.Text) Then
   MessageBox.Show ("欄位輸入必須為數值")
   Exit Sub
End If

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

 Public Function AsciiStringToHexString(ByVal asciiString As String) As String
        Dim ascii() As Byte = System.Text.Encoding.Default.GetBytes(asciiString)
        Dim count As Integer = ascii.Length
        Dim hexArray(count - 1) As String
        For idx As Integer = 0 To count - 1
            hexArray(idx) = ascii(idx).ToString("x2")
        Next
        Return String.Join(" ", hexArray)
    End Function


    Public Function HexStringToAsciiString(ByVal hexString As String) As String
        Dim array() As String = hexString.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
        For idx As Integer = 0 To array.Length - 1
            array(idx) = Chr(CInt(String.Format("&h{0}", array(idx))))
        Next
        Return String.Join(String.Empty, array)
    End Function


    Private Sub tbxASCII_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbxASCII.TextChanged
        If Me.ActiveControl Is sender Then
            tbxHex.Text = AsciiStringToHexString(tbxASCII.Text)
        End If
    End Sub

    Private Sub tbxHex_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbxHex.TextChanged
        If Me.ActiveControl Is sender Then
            tbxASCII.Text = HexStringToAsciiString(tbxHex.Text)
        End If
    End Sub

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

在 DataGridView 中修改

'設定自動設定欄位高度

阿倫 發表在 痞客邦 留言(0) 人氣()

他的語法格式是:

Filesystem.rename(a,b)

阿倫 發表在 痞客邦 留言(0) 人氣()

如何尋找同一資料夾副檔名相同的檔案?

 

Dim FileName As String
Dim result(100) As String
Dim count As Integer

    FileName = Dir("C:\temp\*.txt", vbNormal)
    count = 0
    Do While FileName <> ""
     Debug.Print FileName
     result(count) = FileName
     FileName = Dir
     count = count + 1
    Loop

阿倫 發表在 痞客邦 留言(0) 人氣()

     Dim sample_voltage(5800) As Integer

Array.Clear(sample_voltage, 0, 1024) ' 清除矩陣

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

這函數超好用啊!測試code用的到

Dim RR(5) As Byte
Dim rnd As New Random()
rnd.NextBytes(RR)
Textbox1.text=RR(0)
Textbox1.text=RR(1)
文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()

1.這是送一個指令的方法 

SerialPort2.Write(CMD.Text & Chr(&HD))

文章標籤

阿倫 發表在 痞客邦 留言(0) 人氣()