扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
第一个问题 qq聊天室 必须能 用vb都可以做
创新互联专注为客户提供全方位的互联网综合服务,包含不限于成都做网站、网站制作、隆阳网络推广、成都小程序开发、隆阳网络营销、隆阳企业策划、隆阳品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供隆阳建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
第二个问题 vb.net插入数学公式 可以把这些公式封装到一个类中,调用就是了
楼主你好,你所指的那个指令就是"winchat",Windows自带的局域网聊天工具.使用方法:开始--运行--输入winchat,就可以打开Winchat了.只能实现很简单的功能,并且是中文,没什么好介绍的,相信你一看就懂,希望可以帮到你!
ps:你所说的电影是杜拉拉升职记吧?貌似那是用的邮件发的,不小心点成群发了~嘿嘿..
1. error_Renamed = FirmwareVersionGet(SocketID, Buffer)
执行FirmwareVersionGet函数,返回值赋值给error_Renamed。
根据FirmwareVersionGet函数名称估计是取得Firmware的版本号。
2. TCP_CloseSocket((SocketID))
执行TCP_CloseSocket函数,根据名字功能估计是关闭TCP连接。
3. ret = ErrorStringGet(SocketID, error_Renamed, Buffer)
执行ErrorStringGet函数,返回值赋值给ret。
根据函数名称估计是取得异常(错误)文字资料说明。
4. LogWrite(vbCrLf "Port Close" Buffer)
执行LogWrite函数,根据名字功能估计是写Log记录。
5. LogWrite(vbCrLf CStr(error_Renamed))
同上,
里面的CStr(error_Renamed)是什么意思?我查过了想确认。是把error_Renamed转为字符型数据,前面没有空格,对吧。正确
6. error_Renamed = PositionerSGammaParametersGet(SocketID, PositionerName3, vel, acc, Jerkmax, Jerkmin)
执行PositionerSGammaParametersGet函数,返回值赋值给error_Renamed 。
根据函数名称估计是取得位置参数。
将光标放在该函数上,单击鼠标右键,点选Definition(vb.net是Go To Definition)
7. error_Renamed = GroupMoveAbsolute(SocketID, txtGroup.Text, 3, dbl_arry(0))
估计是将某群组移动到指定位置吧,这个比较难猜。
8. error_Renamed = GroupPositionCurrentGet(SocketID, PositionerName1, 1, position)
估计是取得某群组的当前位置
9. Public CommOpened As Boolean 好多程序段中都有If CommOpened = False Then 那么下面的程序才能执行,我想问的是 在怎么才能控制布尔型变量CommOpened 为TURE 或FALSE呢?好多程序都是在这个条件下才能执行下一部分的。
你看看是否有CommOpened=函数(参数[可选])这一类的语句,又或者将Commopened作为参数传入某函数,而该参数是Byref来定义的。这些语句都会变更变量的值。
10. Buffer = New String(Chr(0), 512 + 1)
将513个Chr(0)连成字符串赋值给Buffer.
11. If CommOpened = FalseThen
SocketID = TCP_ConnectToServer(IPAddress, IPPort, 10)
问题 CommOpened = False这一点怎么控制呢,布尔的如何让他为False呢?
第9题已回答
SocketID = TCP_ConnectToServer(IPAddress, IPPort, 10)
建议TCP连接,将ID赋值 给SocketID.
If SocketID -1 Then
error_Renamed = FirmwareVersionGet(SocketID, Buffer)
问题 SocketID是什么,为什么不等于1才执行下的程序。可以赋其他的值吗?
根据你提供的代码,SockedID在这里的定义应该是TCP成功连接後的一个连接身份证号(成功的话通常都是一个大於0的值),如果是-1的话则表示连接不成功,只是不是-1的话就表示成功。
FirmwareVersionGet(SocketID, Buffer)
第一题已解释。
LogWrite(vbCrLf Buffer)
第4题已解释。Buffer的值第9题已解释,就如CommOpened如何赋值的道理一样。
12. TCP_CloseSocket((SocketID))
第二题已解释
SocketID = -1
第11题已解释
13. If CommOpened = TrueThen
error_Renamed = FirmwareVersionGet(SocketID, Buffer)
第11题已解释
14. Dim vel AsDouble
txtVelX.Text = Str(vel)
vel没有具体的值,这个程序不管用吧,在没有具体值的情况下不能用吧。调试了一个返回值为0.实际程序里面就是这样写的,不解。
vel可能为任意值,如果是VB6的话,未初始化的变量一般为0.
15. If CommOpened = True Then
error_Renamed = GroupInitialize(SocketID, GroupName)
当CommOpened这个变量为True时,执行GroupInitialize函数,并将返回值赋值给error_Renamed.GroupInitialize估计是某群组初始化函数。
16. If CommOpened = TrueThen
error_Renamed = GroupHomeSearch(SocketID, GroupName)
GroupHomeSearch这个函数很难猜出它的功能,估计是搜寻某群组吧。
17. If CommOpened = TrueThen
error_Renamed = GroupKill(SocketID, GroupName)
GroupKill估计是删除某群组
18. Text1.AppendText(Logstr vbCrLf)
Text1如果是Textbox控件的话,这个语句则表示在Text1这个TextBox内添加变量Logstr的内容再加上一个回车符
Text1.ScrollToCaret()Textbox将滚动条自动滚动到插入符的位置。
综合你以上问题,这个应该是一个用VB.net写的一个聊天室程序。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流