VB中 CInt(CDec("&H" & ExR(i)) / 4096) 以下是比较完整的语句:'有关工艺属性和同步处理HangCheLPublic Sub GetGangData()Dim Strc As StringDim Dnum As StringDim i,n,c,Num,Gnum As LongFor i = 0 To 81If ExR(i) = "" Then Exit ForGangong

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/15 02:03:15
VB中 CInt(CDec(

VB中 CInt(CDec("&H" & ExR(i)) / 4096) 以下是比较完整的语句:'有关工艺属性和同步处理HangCheLPublic Sub GetGangData()Dim Strc As StringDim Dnum As StringDim i,n,c,Num,Gnum As LongFor i = 0 To 81If ExR(i) = "" Then Exit ForGangong
VB中 CInt(CDec("&H" & ExR(i)) / 4096)
以下是比较完整的语句:
'有关工艺属性和同步处理HangCheL
Public Sub GetGangData()
Dim Strc As String
Dim Dnum As String
Dim i,n,c,Num,Gnum As Long
For i = 0 To 81
If ExR(i) = "" Then Exit For
GangongJ(i).GJGYnum = CInt(CDec("&H" & ExR(i)) / 4096) '得到所属工艺步
GangongJ(i).GJGYstep = CDec("&H" & ExR(i)) - GangongJ(i).GJGYnum * 4096 '得到所属工艺号
Next i

VB中 CInt(CDec("&H" & ExR(i)) / 4096) 以下是比较完整的语句:'有关工艺属性和同步处理HangCheLPublic Sub GetGangData()Dim Strc As StringDim Dnum As StringDim i,n,c,Num,Gnum As LongFor i = 0 To 81If ExR(i) = "" Then Exit ForGangong
EXR(i)数组中某一元素
"&H" & ExR(i)表示16进制数
CDec("&H" & ExR(i)) 将这个16进制数转换为decimal 类型数据(关于这个类型,可以百度下,一般小数计算都用这个类型,非浮点型小数)
CDec("&H" & ExR(i)) / 4096 一个除法,
CInt(CDec("&H" & ExR(i)) / 4096) 将上一步结果强制转换成整形,也就是一个整数