求vb.net的源代碼，最好說明其解決問題，越多越好，滿意加50分。

下面這段代碼，是我用來計算每個月存500元進銀行，連續30年，最后連本帶利能有多少錢。這里面涉及復利計算。界面中右邊的文本框用來輸出每一次計算的結果。

創新互聯建站是網站建設專家,致力于互聯網品牌建設與網絡營銷，專業領域包括網站設計、網站建設、電商網站制作開發、重慶小程序開發、微信營銷、系統平臺開發，與其他網站設計及系統開發公司不同，我們的整合解決方案結合了恒基網絡品牌建設經驗和互聯網整合營銷的理念，并將策略和執行緊密結合，且不斷評估并優化我們的方案，為客戶提供全方位的互聯網品牌整合方案！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

? Dim nianxian As Integer '年限變量

? Dim dingcun As Integer '定存變量

? Dim fuli_big As Long '大復利

? Dim fuli_small As Long '小復利

? Dim i As Integer '循環變量

? Dim DATAstring As String '數據字符串

? nianxian = Val(年限_TextBox.Text)

? dingcun = Val(定存_TextBox.Text)

? DATAstring = ""

? For i = 1 To nianxian

? ? ? fuli_small = dingcun * (1 + 0.1875)

? ? ? dingcun = fuli_small

? ? ? fuli_big = fuli_big + fuli_small

? ? ? DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

? ? ? 'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

? Next

? 'fuli_big = fuli_small

? TextBox1.Text = DATAstring

? 結果_TextBox.Text = Str(fuli_big) + "元"

End Sub

vb.net程序如何實現向電腦的Com口發送一段字符串信息，之后再接收顯示發送的字符串信息？

'vb.net的串口接收數據要用到委托

Delegate Sub SetTextCallback(ByVal InputString As String) '聲明一個委派類，并聲明符合函數參數有一個，而其型態是字符串

Private Sub ShowString(ByVal comData As String)

txt_Re.Text = comData '將收到的數據入接收文字框中--- txt_Re.Text 是接收用的文本框

txt_Re.SelectionStart = txt_Re.Text.Length

txt_Re.ScrollToCaret()

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived‘自動接收事件

Dim inData As String = SerialPort1.ReadExisting

Dim d As New SetTextCallback(AddressOf ShowString)

Invoke(d, inData)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '發送指令

SerialPort1.Write("123")

End Sub

怎樣在vb中自動檢測到可用串口號的具體程序代碼

j = 0

For i = 1 To 16 Step 1

If comISP.PortOpen = True Then '先關閉串口

comISP.PortOpen = False

End If

comISP.CommPort = i

On Error Resume Next '說明當一個運行時錯誤發生時，控件轉到緊接著發生錯誤的語句之后的語句，并在此繼續運行。訪問對象時要使用這種形式而不使用 On Error GoTo。

comISP.PortOpen = True

If Err.Number 8002 Then '無效的串口號。這樣可以檢測到虛擬串口，如果用Err.Number = 0的話檢測不到虛擬串口

If j = 0 Then

j = i

End If

cboPort.AddItem "COM" i '生成串口選擇列表

End If

comISP.PortOpen = False

Next i

If j = 1 Then

cboPort.Text = "COM" j '自動打開可用的最小串口號

comISP.CommPort = j

comISP.PortOpen = True

cmdOpenCom.Caption = "關閉串口"

shpCOM.FillColor = vbGreen

If Err.Number = 8005 Then '串口已打開,vbExclamation '

comISP.PortOpen = False

cboPort.Text = ""

cmdOpenCom.Caption = "打開串口"

shpCOM.FillColor = vbRed

End If

End If

新聞標題：vb.net串口源碼 vb串口通信程序
URL標題：http://www.yijiale78.com/article16/doddsdg.html

成都網站建設公司_創新互聯，為您提供域名注冊、全網營銷推廣、微信公眾號、網站收錄、網站排名、網站設計公司

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯