VB.NET的OPC讀取西門(mén)子PLC數(shù)值轉(zhuǎn)換

12601, 轉(zhuǎn)換成16進(jìn)制是3139，16進(jìn)制 ASC嗎31對(duì)應(yīng)字符1， 39對(duì)應(yīng)9。 后面的用這個(gè)思路去轉(zhuǎn)換就對(duì)上了。

目前創(chuàng)新互聯(lián)建站已為上千余家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)站空間、網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計(jì)、青神網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

0001 2569這兩個(gè)應(yīng)該是和格式相關(guān)的字符。0001一般就是開(kāi)始的意思。

一個(gè)變量包含兩個(gè)字符，轉(zhuǎn)換算法如下。

1。 取高位字符，除以H100， H是VB中16進(jìn)制表示法。 除以H100效果是右移8位。 位了保險(xiǎn)起見(jiàn)，再和H00FF做與運(yùn)算，保證取得的ASC碼是合法的。

2。取低位字符，與H00FF做與運(yùn)算，去掉高位數(shù)據(jù)，剩下的就是低位ASC碼。

3。將ASC碼轉(zhuǎn)換為字符，用CHR函數(shù)即可，然后連接所有的字符即可得String

VB.NET的數(shù)據(jù)類(lèi)型轉(zhuǎn)換方式主要有哪幾種？

CType 函數(shù)

任何數(shù)據(jù)類(lèi)型

必須在兩種數(shù)據(jù)類(lèi)型之間定義擴(kuò)大轉(zhuǎn)換或收縮轉(zhuǎn)換

引發(fā) InvalidCastException

DirectCast

任何數(shù)據(jù)類(lèi)型

一個(gè)類(lèi)型必須繼承自或者實(shí)現(xiàn)另一個(gè)類(lèi)型

引發(fā) InvalidCastException

TryCast

僅引用類(lèi)型

一個(gè)類(lèi)型必須繼承或者實(shí)現(xiàn)另一個(gè)類(lèi)型

返回 Nothing (Visual Basic)

vb.net 如何把大寫(xiě)金額轉(zhuǎn)換成阿拉伯?dāng)?shù)字金額？

Private Sub Text2_Change() '大寫(xiě)金額轉(zhuǎn)換成阿拉伯?dāng)?shù)字金額

Dim i As Integer

Dim j As Integer

Dim myint As Integer

Dim myint1 As Integer

Dim mydoub As Double

Dim mystr As String

Dim mystr1 As String

Dim mystr2 As String

Dim mystr3 As String

Dim mystr4 As String

Dim money As Long

Dim money1 As Integer

Dim money2 As Long

mystr = Text2.Text

myint = InStr(mystr, ".")

If myint = 0 Then

mystr = Text2.Text

Else

mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)

If mystr3 "" Then '轉(zhuǎn)換小數(shù)位

mystr4 = Left(mystr3, 1)

mystr3 = Right(mystr3, Len(mystr3) - 1)

If mystr4 "0" Then

mystr2 = mystr2 + setdata(Val(mystr4)) + "角"

End If

If mystr3 "" Then

mystr4 = Left(mystr3, 1)

mystr2 = mystr2 + setdata(Val(mystr4)) + "分"

End If

End If

mystr = Left(Text2.Text, myint - 1)

End If

j = Len(mystr)

For i = 1 To Len(mystr) '轉(zhuǎn)換整數(shù)位

money2 = Left(mystr, i)

money1 = Right(money2, 1)

If money1 = 0 Then

If j = 5 Then

If Right(mystr1, 1) "萬(wàn)" Then mystr1 = mystr1 "萬(wàn)"

Else

If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"

End If

Else

mystr1 = mystr1 setdata(money1) + chang(j)

End If

j = j - 1

Next i

Text1.Text = mystr1 "元" mystr2 '顯示大寫(xiě)

End Sub

VB.NET 數(shù)值怎么轉(zhuǎn)換為字體

可以使用GetItemText

方法：返回指定項(xiàng)的文本表示形式。使用形式如下：

GetItemText(item)

當(dāng)前標(biāo)題：vb.net數(shù)值轉(zhuǎn)換,vb文本轉(zhuǎn)換為數(shù)值
文章轉(zhuǎn)載：http://chinadenli.net/article20/dsgocjo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、自適應(yīng)網(wǎng)站、全網(wǎng)營(yíng)銷(xiāo)推廣、品牌網(wǎng)站建設(shè)、網(wǎng)站收錄、標(biāo)簽優(yōu)化

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)