基于vb6.0开发的pc与fanuc机床实时通讯监控实例+源代码.pdf

基于VB6.0 开发的PC 与FANUC 机床实时通讯监控实例+源代码 1,实时监控截图： （双工作区FANUC 系统机床，实时加工状态截图） （单工作区FANUC 系统机床，实时加工状态截图） 2,具体实现详细步骤及源代码； ⑴,开发语言环境：VB6.0 ⑵,针对对象：FANUC(0i/16i/18i/31i 等) ⑶,实现目的:通过以太网实现实时网络监控，读取当前运行的程序名，刀具T 号，以及运 行的Cycle Time 如图所示: ⑷,实现的方法及源代码： 1，百度下载或者从我这里获得正版的“Fwlib32.dll/Fwlib32.lib/Fwlibe1.dll”文件 2，新建*.bas 类模块，定义相应所需的特殊结构体及声明相关的函数： （由于需要定义的特殊结构体太多，我这里有自己花费不少时间写好的源代码） 3，界面窗体的制作： 这个大家可以按照自己的喜好去制作，自己需要监控多少台机床，就设计一 个自己喜欢的界面即可：（我的界面供大家参考） 4 ，接下来就是具体函数的调用了，其实挺简单的： 我给大家演示一个最基本的网络连接函数：PC 如何连接FANUC 机床？ 使用函数：cnc_allclibhndl3 即就是刚我们在.bas 模块中定义的FOCAS 库函数 Private Sub Connect_Click(Index As Integer) For i = 0 To 15 Anchor.Command1(i).Enabled = True Anchor.Command2(i).Enabled = True Select Case i Case 3, 5 j = cnc_allclibhndl3(ip(i), 8194, 1, FlibHndl) Case Else 此处红色即为连接机床的函数：IP （i ）：机床IP 地址； 8193/8194：机床端口号；j 为返回值，若返回0 即为连接上 j = cnc_allclibhndl3(ip(i), 8193, 1, FlibHndl) End Select If j 0 Then Anchor.Frame2(i).BackColor = RGB(100, 100, 100) Anchor.Command1(i).BackColor = RGB(255, 0, 0) Anchor.Command2(i).BackColor = RGB(255, 0, 0) Anchor.Command1(i).Caption = Net Break Anchor.Command2(i).Caption = Net Break Else Anchor.Frame2(i).BackColor = RGB(0, 255, 0) Handl(i) = FlibHndl End If Next i End Sub 其他函数也是类似的调用！希望对爱好数控的你能有所帮助！！ 若您在阅读了个人拥有自主知识产权的文档后，觉得比较感兴趣，可以加我 微信或者QQ：[QQ：852266205 微信:Hgl_Lch ]，给小弟一点激励！因为我自 己研究出这个也花费了不少功夫，就差点被自己夫人赶去跪键盘了！大家只需要给 小弟我发个20 块钱的红包就OK 了，承诺将由本人自己开发的小软件[可在线读 取机床上的所有系统变量及用户宏变量，在线分析单一每把刀具加工的时间，机 床报警信息，切削程序，产出及Cycle Time 等]及所有源代码回赠给您, 包您搞定你 们的小日本机床。[前10 位联系我的用户另可获得在线技术支持，及本人后续新功 能的免费使用] ！非常感谢！祝大家新年快乐，工作顺利，合家幸福！！ 2016-01-01 HappyNewYear