This is a VB to omron Lettura_Dm = False ricez_ok = -1: timeout = False trasm = "@00RD" trasm = trasm + Right$(Str$(10000 + dm!), 4) trasm = trasm + "0001" trasm = trasm + bcc(trasm) + Chr$(42) + Chr$(13) Omron!Comm1.Output = trasm conta = 0 Do conta = conta + 1 If conta > 1200 Then timeout = True: Exit Do Loop Until Omron!Comm1.InBufferCount >= 15 a = Omron!Comm1.Input If Not timeout Then fcs = Mid$(a, (Len(a) - 3), 2) trasm = Left$(a, (Len(a) - 4)) If fcs <> bcc(trasm) Then timeout = -1 Exit Function End If valore = Mid$(a, 8, 4) V = Val("&H" + valore) Lettura_Dm = True End If ricez_ok = 0 Omron!Comm1.InBufferCount = 0 End Function

Filename	Size	Update
OMRON PLC通讯源码\MSSCCPRJ.SCC	190	2007-05-09
OMRON PLC通讯源码\Omron.bas	2446	1999-04-08
OMRON PLC通讯源码\Omron.frm	6071	1999-04-08
OMRON PLC通讯源码\Omron.vbp	592	1999-04-08
OMRON PLC通讯源码\Omron.vbw	86	2007-05-09
OMRON PLC通讯源码	0	2007-05-09

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．