¹ØÓÚvbµ÷ÓÃdllµÄËÙ¶ÈÎÊÌâ
СµÜÏÖÔÚÕýÔÚѧϰvb6£¬ÕýÔÚ×öÒ»¸öºÍÎ÷ÃÅ×ÓPLCͨѶµÄ³ÌÐò£¬ÒòΪÎ÷ÃÅ×Ó±¾ÉíµÄÈí¼þÒªÊÚȨ£¬Ò²¾ÍÊÇÒª»¨Ç®µÄ£¬ËùÒÔСµÜ°ÑÆäÖеĶ¯Ì¬Á´½Ó¿âÎļþÄóöÀ´Ö±½ÓÓÃÁË£¬µ«ÊÇÏÖÔÚÓÐÒ»¸öÌØ±ðÖØÒªµÄÎÊÌ⣬¾ÍÊÇÕâ¸öÎļþµ÷ÓÃÆðÀ´Ì«ÂýÁË£¬¹À¼ÆÓÐ20Ã룬ÕâÑùµÄ¶«Î÷ÄóöÀ´»á±»ÈËÂîËÀµÄ£¬ËùÒÔСµÜÏëÇë½ÌÒ»¸öÖîλ±à³Ì¸ßÊÖ£¬ÔõÑù²ÅÄÜÓÅ»¯vbµ÷Óö¯Ì¬Á´½Ó¿âµÄËÙ¶È¡£
Õâ¸öÎÊÌâÒ²Ö»ÄܹýÀ´Çë½Ì¸÷Î»Íæ¼ÆËã»úµÄ¸ßÊÖÁË£¬Ð¡µÜÊǰë·³ö¼Ò£¬ÊÇÔÚÊǸ㲻¶¨ÁË¡£
20Ã룬×ö¸ö½ø¶ÈÌõÒ²¹»²»ÄÍ·³µÄÁË¡£
Ï£Íû´ó¼Ò¶à°ï档ллÁË
×Ô¼ºÏȶ¥Ò»Ï£¬¶à°ï棬¶à°ïæ
º¹ÄÇ£¬ÎÒ°Ñ´úÂëÕ³ÉÏ
Option Explicit
Public plcadr As plcadrtype
Public gb_PlcConnected As Boolean
Type plcadrtype
adr As Byte 'Õ¾µØÖ·£¬Ä¬ÈÏֵΪ2
SEGMENTID As Byte '¶Î±êʶ·û£¬¹Ì¶¨ÖµÎª0
SLOTNO As Byte '²ÛµÄ±àºÅ£¬Ä¬ÈÏֵΪ2
RACKNO As Byte '»ú¼ÜºÅ£¬¹Ì¶¨Îª0
End Type
Public Res As Long
Declare Function load_tool Lib "w95_s7.dll" (ByVal nr As Byte, ByVal dev As String, adr As plcadrtype) As Long
Declare Function as200_vs_field_read Lib "w95_s7.dll" (ByVal nr As Long, ByVal anz As Long, value As Byte) As Long
Ä£¿éÀïÖ»×öÁ˼¸¸öÉùÃ÷
ÔÚform loadÀïÃæÖ»Êǵ÷ÓÃÁËÒ»ÏÂ
Private Sub Form_Load()
Dim buffer(1) As Byte
plcadr.adr = 2
plcadr.SEGMENTID = 0
plcadr.SLOTNO = 2
pl
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½
Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£
mark
pls learn from ba ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......