vb.net 時(shí)間統(tǒng)計(jì)問題

一樓風(fēng)中的奶牛的做法很棒，建議樓主采納他的回答。

創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站設(shè)計(jì)制作、網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的鐵鋒網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

只是其中有一個(gè)Bug，就是“倒數(shù)第二次累計(jì)分鐘數(shù)為59，累計(jì)秒數(shù)達(dá)到60的時(shí)候，會(huì)出現(xiàn)**:60:**”。例如{"10:57:35", "2:02:51"}，我這里做了修改，供參考。

另外，AddByInts中不需要進(jìn)行循環(huán)和Select判斷，可以簡(jiǎn)化。

同時(shí)，為了說明類和結(jié)構(gòu)的關(guān)系，這里改用類。

也請(qǐng)一樓風(fēng)中的奶牛勿怪罪在下啊！

Public Class Form1

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

'Dim str As String() = {"10:30:35", "2:02:51", "17:00:35", "2:02:51"}

Dim str As String() = {"10:57:35", "2:02:51"}

Dim time As TimeSerial = New TimeSerial

For Each dt As String In str

time.Add(dt)

Next

MsgBox(time.ToString)

End Sub

End Class

Public Class TimeSerial

Public Hour As Integer ' 時(shí)間的小時(shí)部分

Public Minute As Integer ' 時(shí)間的分鐘部分

Public Second As Integer ' 時(shí)間的秒鐘部分

' 合并添加新的時(shí)間值

' param name="value"文本時(shí)間格式(00:00:00)/param

Public Sub Add(ByVal value As String)

Dim arr As String() = Split(value, ":")

Dim dts(arr.Length - 1) As Integer

For i As Integer = 0 To arr.Length - 1

dts(i) = CInt(Val(arr(i)))

Next

AddByInts(dts)

End Sub

' 合并添加新的時(shí)間值

' param name="value"時(shí)間值(僅計(jì)算:時(shí)、分、秒)/param

Public Sub Add(ByVal value As Date)

Dim dts(2) As Integer

dts(0) = value.Hour

dts(1) = value.Minute

dts(2) = value.Second

AddByInts(dts)

End Sub

Private Sub AddByInts(ByVal value As Integer())

Second += value(2)

If Second = 60 Then

Minute += Int(Second / 60)

Second = Second Mod 60

End If

Minute += value(1)

If Minute = 60 Then

Hour += Int(Minute / 60)

Minute = Minute Mod 60

End If

Hour += value(0)

End Sub

' 獲取時(shí)間的文本格式(00:00:00)

Public Overrides Function ToString() As String

Return Hour ":" Minute ":" Second

End Function

End Class

我是學(xué)網(wǎng)站開發(fā)的，ASP。NET（VB）可以用在51單片機(jī)開發(fā)上嗎？

哈，先說一下單片機(jī)的開發(fā)語(yǔ)言吧，主要有 C 和 匯編，也有人用Ada的。由于 VB 不支持硬件操作，所以我還沒聽說過誰用VB來控制單片機(jī)的~~~~~~~~~~~不過網(wǎng)上說VB可以和單片機(jī)通訊，如果你的目的只是通訊而已那就簡(jiǎn)單了。通訊和控制，兩者不一樣吧？

ASP.Net,好像也不多人用VB吧，大都是 C# 。ASP 用 VBS，

也不是VB呵。

其實(shí)要開發(fā)單片機(jī)學(xué)好 C 和 單片機(jī)的結(jié)構(gòu)就差不多了。作為一名專業(yè)人員，C 語(yǔ)言是必須要學(xué)的，不懂 C 的話～～～～不可能不學(xué) C。

你還是花多點(diǎn)時(shí)間在 硬件知識(shí)上吧，C 用三兩個(gè)月就可以學(xué)會(huì)了，

但是硬件知識(shí)就不是三兩個(gè)月的事了。

你看著辦吧，老大。

vb.NET一個(gè)找出數(shù)組最大最小值的程序有個(gè)小問題 誰看一下

你是不是應(yīng)該對(duì)最大值和最小值賦初值（比如把 r(1) 賦給最大值和最小值）呢？不然最小值默認(rèn)初始值是‘0’，后面的判斷就不起作用了。你可以加個(gè)斷點(diǎn)試試，他們的初始值是多少。。。

請(qǐng)教用VB.NET向網(wǎng)口發(fā)送16進(jìn)制的數(shù)的方法.

很有意思。

原文數(shù)據(jù)全為：“00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ; ”

加密后變成了：“09 51 55 F4 FB 10 6F A4 D3 E8 87 46 F8 2F 49 CD ; ”

得出這樣的結(jié)果是有很多方法都可以實(shí)現(xiàn)的：

比如每個(gè)原數(shù)上加上個(gè)常數(shù)就可以了。

00+09=09；得出第一組加密后的數(shù)值

00+51=51；得出第二組加密后的數(shù)值

...

00+CD=CD；得出第16組加密后的數(shù)值.

加密的方法還有很多，不過這種最簡(jiǎn)單。

還有就是你給的原文太單一了，不能夠更好的分析數(shù)據(jù)的規(guī)律。

如果你能把原文改為如下這段代碼再去加密一下，再把加密結(jié)果貼上來看一下就好多了。

00000140h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;

00000150h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;

00000160h: 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 ; 00000170h: 00 10 20 30 40 50 60 70 80 90 A0 B0 C0 D0 E0 F0 ;

00000180h: 11 11 11 11 11 22 22 22 22 22 22 EE EE EE FF FF ;

以上是單片機(jī)高手團(tuán)為您解答。

如果還沒解決你的問題，可以加我百度HI賬號(hào)。

vb.net 串口收發(fā)數(shù)據(jù)有問題

不知道你是不是用51單片機(jī)往串口發(fā)數(shù)據(jù)，是的話那是因?yàn)?1的sbuf最多存放8個(gè)字節(jié)，所以你發(fā)12個(gè)字節(jié)會(huì)分成兩次發(fā)完。還有在接收的時(shí)候最好定義好通信協(xié)議，比如加一個(gè)偵頭，一個(gè)偵尾，通過這兩個(gè)字節(jié)的內(nèi)容來接收數(shù)據(jù)。

老兄，提問還是給點(diǎn)懸賞分嘛，不要吝嗇哪點(diǎn)分，知識(shí)是無價(jià)的，你給得越多，回答你的人才會(huì)越多。

vb.net 數(shù)組賦值問題

vb.net已經(jīng)去掉了控件數(shù)組這個(gè)類，不過有個(gè)代替該方式的一個(gè)屬性：tag，你可以把這些關(guān)聯(lián)的tag屬性設(shè)置為同一標(biāo)記，如：a。然后遍歷所有的checkbox并且tag為a的則選定：

protected

sub

chkall_click()

for

each

ctl

as

control

in

me.controls

''如果checkbox在一個(gè)容器里，比如groupbox，那可以用groupbox.controls

if

ctl.gettype().name.tolower()

=

"checkbox"

then

ctype(ctl,

checkbox).checked

=

checkbox3.checked

end

if

next

end

sub

標(biāo)題名稱：vb.net51,vb510
文章分享：http://chinadenli.net/article14/dsgpgge.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、面包屑導(dǎo)航、服務(wù)器托管、定制網(wǎng)站、小程序開發(fā)、網(wǎng)站改版

廣告

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