這個軟件是電源控制軟件(VB版本)調試時用的一個自己寫的小軟件,功能很簡單就是求若干個十六進制之和的低八位,界面如下:
代碼如下:
Option Explicit '使用變量前必須進行聲明
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim strTxt As String '定義字符串
Dim N_long As Long '定義長整型數,表示字符串的長度
Dim N_number As Long '定義長整型數,表示字符串的長度
Dim N_times As Long '定義長整型數,表示點擊的次數
Dim strNoCrLf As String '定義剔除回車換行後的字符串
Private Sub cmdCopy_Click()
Clipboard.Clear '清空剪切板
Clipboard.SetText txtResult.Text '將結果複製給剪切板
cmdCopy.Caption = "已複製"
End Sub
Private Sub cmdCopy_LostFocus()
cmdCopy.Caption = "複製結果"
End Sub
Private Sub Form_Load()
Call txtMain_Change
txtMain.SelStart = N_long '光標位置控制
N_times = 0
End Sub
Private Sub lblDate_Click()
N_times = N_times + 1
If N_times >= 5 Then
MsgBox "恭喜你看到此彩蛋!本軟件按格式輸入基本沒Bug!", vbInformation, "彩蛋!"
N_times = 0
End If
End Sub
Private Sub lblVicrobin_Click()
Call ShellExecute(frmMain.hwnd, "open", "http://weibo.com/vicrobin/", vbNullString, vbNullString, &H0)
End Sub
Private Sub txtMain_Change()
Dim i As Integer, a As Integer, SUM As Long
strTxt = txtMain.Text '將文本框中的字符串取出
strNoCrLf = Replace(strTxt, vbCrLf, "") '剔除回車換行
N_long = Len(strNoCrLf) '剔除回車換行後的長度
N_number = UBound(Split(strNoCrLf, " ")) '計算空格數 空格數加1表示校驗數的個數
txtNumber.Text = N_number + 1
For i = 1 To Len(strNoCrLf) Step 3
a = Val("&H" & Mid(strNoCrLf, i, 2))
SUM = SUM + a
Next
If ((SUM And 255) >= 0) And ((SUM And 255) <= 15) Then
txtResult.Text = "0" & Hex(SUM And 255)
Else
txtResult.Text = Hex(SUM And 255)
End If
End Sub
電源控制軟件(VB版本)見上一篇博文: