帮我解释下这些VB吧...

显示全部楼层 · 2011-7-10 02:43:11

DimCh0AsString
DimAmAsInteger
DimT(16)AsDouble
DimChNAsString

PrivateSubCommand1_Click()
Command1.Enabled=False

Command2.Enabled=False
Command4.Enabled=False
Command6.Enabled=False
DimretvalAsInteger
retval=AM9101_Open(hPLX9052,0)

Timer1.Interval=1000
Timer1.Enabled=True

EndSub

PrivateSubCommand2_Click()
UnloadForm1
EndSub
PrivateSubCommand4_Click()
DimdataAsInteger
data=Val(\"defds123H\"Text24.Text)

DimretvalAsInteger
retval=AM9101_Open(hPLX9052,0)
CallAM9101_DA(hPLX9052,data)
CallAM9101_Close(hPLX9052)
EndSub

PrivateSubReadDI()

DimIAsInteger
I=AM9101_DI(hPLX9052)

Text21.Text=Hex$(I)\'56506Double

If((IAnd1)=1)Then
Shape17.BackColor=defds123HFFdefds123
Else
Shape17.BackColor=defds123HFFFF80
EndIf
\'2
If((IAnd2)=2)Then
Shape16.BackColor=defds123HFFdefds123
Else
Shape16.BackColor=defds123HFFFF80
EndIf
\'3
If((IAnd4)=4)Then
Shape15.BackColor=defds123HFFdefds123
Else
Shape15.BackColor=defds123HFFFF80
EndIf
\'4

If((IAnd8)=8)Then
Shape13.BackColor=defds123HFFdefds123
Else
Shape13.BackColor=defds123HFFFF80
EndIf
\'5
If((IAnd16)=16)Then
Shape12.BackColor=defds123HFFdefds123
Else
Shape12.BackColor=defds123HFFFF80
EndIf
\'6
If((IAnd32)=32)Then
Shape11.BackColor=defds123HFFdefds123
Else
Shape11.BackColor=defds123HFFFF80
EndIf
\'7
If((IAnd64)=64)Then
Shape10.BackColor=defds123HFFdefds123
Else
Shape10.BackColor=defds123HFFFF80
EndIf
\'8
If((IAnd128)=128)Then
Shape9.BackColor=defds123HFFdefds123
Else
Shape9.BackColor=defds123HFFFF80
EndIf

EndSub

千问 · 2011-7-10 02:43:11

留个QQ方便解释，如果你昨天才开始学，老手解释的你一定不明白，如果解释的时候可以提问的话你能理解的深一点。

<h4class=\"ask\">追问

真的真的很谢谢！466547687

千问 · 2011-7-10 02:43:11

加你要回答问题，你的名字？

千问 · 2011-7-10 02:43:11

邱凡

千问 · 2011-7-10 02:43:11

昨天开始学VB.....
要做实验~

千问 · 2011-7-10 02:43:11

我晕刚接触就看这么长的代码
有的不好解释，你必须要懂基础知识的、

千问 · 2011-7-10 02:43:11

那基础的那些帮我解释下吧，其他函数说明书有。。
做课题急着用。。