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

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

創(chuàng)新互聯(lián)建站是網(wǎng)站建設(shè)專家,致力于互聯(lián)網(wǎng)品牌建設(shè)與網(wǎng)絡(luò)營銷，專業(yè)領(lǐng)域包括網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、電商網(wǎng)站制作開發(fā)、重慶小程序開發(fā)、微信營銷、系統(tǒng)平臺開發(fā)，與其他網(wǎng)站設(shè)計(jì)及系統(tǒng)開發(fā)公司不同，我們的整合解決方案結(jié)合了恒基網(wǎng)絡(luò)品牌建設(shè)經(jīng)驗(yàn)和互聯(lián)網(wǎng)整合營銷的理念，并將策略和執(zhí)行緊密結(jié)合，且不斷評估并優(yōu)化我們的方案，為客戶提供全方位的互聯(lián)網(wǎng)品牌整合方案！

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 '大復(fù)利

? Dim fuli_small As Long '小復(fù)利

? Dim i As Integer '循環(huán)變量

? Dim DATAstring As String '數(shù)據(jù)字符串

? 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

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

End Sub

vb.net程序如何實(shí)現(xiàn)向電腦的Com口發(fā)送一段字符串信息，之后再接收顯示發(fā)送的字符串信息？

'vb.net的串口接收數(shù)據(jù)要用到委托

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

Private Sub ShowString(ByVal comData As String)

txt_Re.Text = comData '將收到的數(shù)據(jù)入接收文字框中--- 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 '發(fā)送指令

SerialPort1.Write("123")

End Sub

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

j = 0

For i = 1 To 16 Step 1

If comISP.PortOpen = True Then '先關(guān)閉串口

comISP.PortOpen = False

End If

comISP.CommPort = i

On Error Resume Next '說明當(dāng)一個(gè)運(yùn)行時(shí)錯(cuò)誤發(fā)生時(shí)，控件轉(zhuǎn)到緊接著發(fā)生錯(cuò)誤的語句之后的語句，并在此繼續(xù)運(yùn)行。訪問對象時(shí)要使用這種形式而不使用 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 = "關(guān)閉串口"

shpCOM.FillColor = vbGreen

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

comISP.PortOpen = False

cboPort.Text = ""

cmdOpenCom.Caption = "打開串口"

shpCOM.FillColor = vbRed

End If

End If

新聞標(biāo)題：vb.net串口源碼 vb串口通信程序
URL標(biāo)題：http://chinadenli.net/article16/doddsdg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊、全網(wǎng)營銷推廣、微信公眾號、網(wǎng)站收錄、網(wǎng)站排名、網(wǎng)站設(shè)計(jì)公司

廣告

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